03-16-2005, 01:54 PM
OK, why not?
Code:
Screen 18, 32
Do While InKey$=""
Y=(Y+1)Mod 480
For X = 0 to 639
If ABS(SQR((320-X)^2 + (240-Y)^2))<= 255 then PSet(X,Y),RGB(0,0,255-ABS(SQR((320-X)^2 + (240-Y)^2)))
Next
Loop