XProfan

 {$cleq}
declare ende&,bild&
Declare x&,y&,r&
Long lops
Window 20,20-600,600
Cls $ffffff
UsePen 0,1,RGB(0,0,200)
r&=200

whileloop 0,360000,1000

    lops=getcircp(r&,&loop)
    x&=long(lops,0)
    y&=long(lops,4)
    startpaint %hdc
    Line 300,300-(300+x&),(300+y& )
    endpaint

EndWhile

ende&=1

WHILE ende&

    waitkey

ENDWHILE

globalFree(lops)
End

nProc getCircP(long r,w)

    Long x,y
    Long data
    x&=long(sin(0.0174532925199433*float(w)/1000.0)*float(r))
    y&=long(sin(0.0174532925199433*float((w+90000))/1000.0)*float(r))
    data=dim(8)
    Long data&,0=x,y
    return data

ENDPROC