Hello,
They are here.
include "gp.inc"
OpenWindow 640,480,1
setsmoothmode 2
Function Distance(single x1,y1,x2,y2) as single
single dx,dy
dx=x1-x2
dy=y1-y2
Return sqrt(dx*dx+dy*dy)
End Function
single size, md, a
sys mx=320
sys my=240
md = Distance(0,0,640,480)
while KeyDown(27)=0
clscolor ARGB(255,55,255,255)
for i=0, 640, 20
for j=0, 480, 20
size = Distance(mx+sin(rad(a))*80,my+cos(rad(a))*80,i,j)
size = size/md*66
fillcircle i,j,size+16, ARGB(55,25,10,255)
Next
Next
a +=4
if a >360 then a= -1
sync()
wend
closewindow()