Weird Bad Circle Thing (looks a little better if you stand back!)

developer forums

The 20 Line Challenge / Weird Bad Circle Thing (looks a little better if you stand back!)

Author

Message

Sixty Squares

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 10th Apr 2007 04:35

Link

I made it by accident, just thought I would post it here:

+ Code Snippet

sync on : hide mouse
tr=255
tg=128
tb=55
d=10
do
ANG#=Wrapvalue(ANG#+1)
ox=d*COS(ANG#)+Screen widtH()/2
oy=d*SIN(ANG#)+Screen height()/2
ink rgb(255-d*5,255-d*5,255-d*5),0
Thickline(ox,oy,ox+10,oy+10,10)
if Timer()>OldTimer+300 then OldTimer=Timer() : inc d,10
sync
loop
Function ThickLine(X1,Y1,X2,Y2,Thick)
for l = 0 to thick
line x1+l-thick/2,y1+l-thick/2,x2+l-thick/2,y2+l-thick/2
next l
endfunction