XProfan

 {$cleq}
declarar ende&,bild&
Declarar x&,y&,r&
Ventana 20,20-600,600
Cls $ffffff
USEP 0,1,RGB(0,0,200)
r&=200

whileloop 0,300000,1000

    getcircp(r&,&bucle)
    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

End

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&,&bucle)
    StartPaint %hwnd
    Line 300,300-(300+x&),(300+y& )
    endpaint
    'Mostrar:
    DrawText 10,10,str$(&bucle) + " - " + Str$(x&)
    DrawText 10,30,str$(&bucle) + " - " + Str$(y&)
    Sleep 200
    'Mostrar Ende
    EndWhile...