XProfan

 {$cleq}
declare ende&,bild&
Déclarer x&,y&,r&
Fenêtre 20,20-600,600
Cls $ffffff
USEP 0,1,RGB(0,0,200)
r&=200

whileloop 0,300000,1000

    getcircp(r&,&loop)
    startpaint %hdc
    Line 300,300-(300+x&),(300+y& )
    endpaint

Endwhile

DrawText 10,10,Str$(x&)
DrawText 10,30,Str$(y&)
ende&=1

WHILE ende&

    waitkey

ENDWHILE

Fin

nProc getCircP(long r,w)

    global x&,y&
    x&=long(sin(0.0174532925199433*float(w)/1000.0)*float(r))
    y&=long(sin(0.0174532925199433*float((w+90000))/1000.0)*float(r))

endproc

...

whileloop 0,300000,1000

    getcircp(r&,&loop)
    Début de peinture %hwnd
    Line 300,300-(300+x&),(300+y& )
    endpaint
    'Montrer:
    DrawText 10,10,str$(&loop) + " - " + Str$(x&)
    DrawText 10,30,str$(&loop) + " - " + Str$(y&)
    Sleep 200
    'Montrer Ende
    Endwhile...