Voilà mon interprétation

Code : Tout sélectionner
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Created by threedslider 17/10/2023
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
InitSprite()
InitKeyboard()
InitMouse()
OpenWindow(1, 0,0,800,600,"Infinity test", #PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(1),0,0,800,600,0,0,0)
Structure rond
x.i
y.i
rayon.i
EndStructure
Myvar.rond
myvar\x = 10
myvar\y = 10
myvar\rayon = 5
Procedure little_Cercle(X, Y, *cl.rond)
For n=0 To 1800
cx = *cl\rayon * Cos(n)
cy= *cl\rayon * Sin(n)
Plot(cx+*cl\x+ X,cy+*cl\y+Y,RGB(255,0,0))
Next
EndProcedure
move.f = 0
Procedure Cercle(X, Y, R, iter)
Shared move.f
;move.f + 1/10000
For n=0 To 3600
cx = R * Cos((move+n))*Sin(n)
cy= R * Sin((move+n))
Plot(cx+X,cy+Y,RGB(255,0,0))
Next
If iter > 0
cercle(X, Y, R, iter-1)
EndIf
EndProcedure
; Déplacement de la souris
MouseLocate(0,0)
Repeat
ExamineKeyboard()
Repeat
event = WindowEvent()
Until event = 0
ClearScreen(RGB(255,200,0))
ExamineMouse() ; Etat de la souris
xm = MouseX() ; Position en x de la souris
ym = MouseY() ; Position en y de la souris
;Debug x
;Debug y
move.f + 1/10000
StartDrawing(ScreenOutput())
For x = 0 To 5
move.f + 1/10000
wave_x.f = Cos(x) * 200
wave_y.f = Sin(x) * 200
Cercle(390, 300, 250-x*50, 3)
Next
StopDrawing()
If KeyboardPushed(#PB_Key_Escape)
End
EndIf
FlipBuffers()
ForEver
End
Code : Tout sélectionner
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Created by threedslider 17/10/2023
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
InitSprite()
InitKeyboard()
InitMouse()
OpenWindow(1, 0,0,800,600,"Time over space", #PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(1),0,0,800,600,0,0,0)
Structure rond
x.i
y.i
rayon.i
EndStructure
Myvar.rond
myvar\x = 10
myvar\y = 10
myvar\rayon = 5
Procedure little_Cercle(X, Y, *cl.rond)
For n=0 To 1800
cx = *cl\rayon * Cos(n)
cy= *cl\rayon * Sin(n)
Plot(cx+*cl\x+ X,cy+*cl\y+Y,RGB(255,0,0))
Next
EndProcedure
move.f = 0
Procedure Cercle(X, Y, R, iter)
Shared move.f
;move.f + 1/10000
For n=0 To 3600
cx = R * Cos((move+Cos(n)))
cy= R * Sin((move+n))
Plot(cx+X,cy+Y,RGB(255,0,0))
Next
If iter > 0
cercle(X, Y, R, iter-1)
EndIf
EndProcedure
; Déplacement de la souris
MouseLocate(0,0)
Repeat
ExamineKeyboard()
Repeat
event = WindowEvent()
Until event = 0
ClearScreen(RGB(255,200,0))
ExamineMouse() ; Etat de la souris
xm = MouseX() ; Position en x de la souris
ym = MouseY() ; Position en y de la souris
;Debug x
;Debug y
move.f + 1/10000
StartDrawing(ScreenOutput())
For x = 0 To 5
move.f + 1/10000
wave_x.f = Cos(x) * 200
wave_y.f = Sin(x) * 200
Cercle(390, 300, 250-x*50, 3)
Next
StopDrawing()
If KeyboardPushed(#PB_Key_Escape)
End
EndIf
FlipBuffers()
ForEver
End