03-17-2005, 02:07 AM
Quote: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
:o AHH!!! A BIG BLUE BLOB!!!! :lol:
Thats pretty cool!! :rotfl: :wink: