Log In  


lighthouse

(277 chars)

b=128t=.5o=64r=rectfill::_::s=sin(t)cls(1)c=b*cos(t)+o
circfill(o,66,5,12)for i=69,b,5 do
r(59,i,69,i+10,i%2==0 and 6or 2)end
for v=-s,s,.001 do
line(o,o,c,b*v+o,10)end
if(t==.75)cls(10)
if(t>.25 and.75>t)r(-1,-1,c,b*s+o,10)
if(t>.75)r(b,b,c,b*-s+o,10)
flip()t+=0x.02t%=1goto _

3




[Please log in to post a comment]