תשים את זה ב Declaretion :Dim p as single
Dim p as single
תשים את זה ב TIMER :form1.pset(cos(p)*100,sin(p)*100)p=p+1/57.2
form1.pset(cos(p)*100,sin(p)*100)p=p+1/57.2
נבצע מעבר קורדינטות:R=sqrt((x-a)^2+(y-b)^2)D=arcsin((y-b)/R)נעשה את התיקון:D=D+ddונעביר חזרה:x2=R*cos(D)+ay2=R*sin(D)+b
DRYICE
(בvisual basic)
D=atn((y-b)/(x-a)) ' arctan