"I'm A Big Fan"
271 characters
t,m,z,l,o,s,c=0,64,999,line,ovalfill,sin,cos::_::cls(1)rectfill(63,0,m,m,5)for j=0,1 do for i=j*z/4,40+j*z/4 do x=c((i+t)/z)y=s((i+t)/z)l(m-x*40,m-y*10,m+x*40,m+y*10,0)end end o(58,62,69,66,3)o(60,m,67,68,7)pset(m+s(c(t/z))*m/3,m+3+s(c(t/z*2))*m/7,6)flip()t+=4t%=z goto _ |
It would be cool if you could change the speed of the fan so you could make it move super fast!
You can change the "t+=4" to something bigger to make everything go faster :)
[Please log in to post a comment]