Hello,
Uses "ui" #INCLUDE "abc.inc" OpenWindow 800, 800 SetHandleDC hdc, hwnd Canvas_Clear 0 DrawString 10,10,"WAIT.....",&hffffff Canvas_Redraw Long n,scale,ofs scale=250:ofs=300 Single theta,p,x,y,y1,x1 p=7.7 For n=1 To 250000 theta=0.4-(p/(1+(x^2+y^2))) x1=0.85+0.9*x*Cos(theta)-0.9*y*Sin(theta) y1=0.9*x*Sin(theta)+0.9*y*Cos(theta) Canvas_SetPixel(y1*scale+ofs*1.4,x1*scale+ofs,&hffffff) x=x1:y=y1 Next DrawRect 10,10,100,22,0,0 Canvas_Redraw While IsWindow(hwnd) And Key(27)=0 Sleep 10 Wend
Bookmarks