Tracés de cercles récursifs

[threedslider]

Hello, voici un code dont j'aimerais vous partager c'est des tracés des cercles récursifs

Code : Tout sélectionner

; Based on book : Algorithmes et structures de données by Michel Divay (C programming)
; Coded and adapted by threedslider 08.07.2022

Procedure Cercle(X.i, Y.i, R.i)
  For n=0 To 1800
        cx = R * Cos(n)
        cy= R * Sin(n)
        Plot(cx+X,cy+Y,RGB(255,0,0)) 
      Next
EndProcedure

Procedure DeuxCercles(X.i, Y.i, R.i)
  _r.i = 0
  If R > 10
      cercle(X, Y, R)    
      _r = R / 2
      DeuxCercles(X+_r, Y, _r)
      DeuxCercles(X-_r, Y, _r)
    EndIf       
EndProcedure
  
If OpenWindow(0, 0, 0, 600, 600, "Two circles in recursive", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    If CreateImage(0, 600, 600) And StartDrawing(ImageOutput(0))
      
      DeuxCercles(300,300,200)
    
      StopDrawing() 
      ImageGadget(0, 0, 0, 200, 200, ImageID(0))
    EndIf
    
    Repeat
      Event = WaitWindowEvent()
    Until Event = #PB_Event_CloseWindow
EndIf

[threedslider]

Un autre algorithme mais cette fois-ci trois cercles en récursif.

Code : Tout sélectionner

; Based on book : Algorithmes et structures de données by Michel Divay (C programming)
; Coded and adapted by threedslider 08.07.2022

Procedure Cercle(X.i, Y.i, R.i)
  For n=0 To 1800
        cx = R * Cos(n)
        cy = R * Sin(n)
        Plot(cx+X,cy+Y,RGB(255,0,0)) 
      Next
EndProcedure

Procedure TroisCercles(X.i, Y.i, R.i)
  _r.i = 0
  If R > 10
      cercle(X, Y, R)
      _r = Int((2*Sqr(3.0)-3)*R)
      H = R-_r
      TroisCercles(X-H, Y, _r)
      TroisCercles(X+H/2, Y+_r, _r)
      TroisCercles(X+H/2, Y-_r, _r)
    EndIf       
EndProcedure
  
If OpenWindow(0, 0, 0, 600, 600, "Three circles in recursive", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    If CreateImage(0, 600, 600) And StartDrawing(ImageOutput(0))
      
      TroisCercles(300,300,200)
    
      StopDrawing() 
      ImageGadget(0, 0, 0, 200, 200, ImageID(0))
    EndIf
    
    Repeat
      Event = WaitWindowEvent()
    Until Event = #PB_Event_CloseWindow
EndIf

[SPH]

@threedslider : tu sais combien de canons de fusils sont pointés vers nous dans ton 2eme code ?

[threedslider]

3, je ne sais pas si c'est ça dont tu parles en gros, pourquoi ? Cela tout dépend de canon de fusil, en général c'est deux mais ya aussi trois.

https://cdn1.roumaillac.com/481975-thic ... k22428.jpg

[SPH]

Réponse : 39 (avec ton fusil a 3 canons).

Bon, en tout cas, j'ai été impressionné par ton code qui est très court.

Congratz

[threedslider]

ah ok je m'en doutais

Merci, oui je suis impressionné moi aussi et le Purebasic c'est top pour moi

[Kwai chang caine]

Jolis effets
Je ne sais pas pourquoi, mais tous ces yeux...ça m'a fait penser à ma jeunesse



Merci du partage

[threedslider]

Merci Kwai chang caine

Oui ça ressemble étrangement à cette image

[Ollivier]

S'il y en a bien un qui a offert de l'oxygène à la France !
https://www.youtube.com/watch?v=Ii5BBMJUWW0

Et bon courage, et bonne passion en prog à threedslider !

[threedslider]

Merci @Ollivier ainsi que le lien