BBC BASIC for Windows
Programming >> Graphics and Games >> A familiar sight nowadays...
http://bb4w.conforums.com/index.cgi?board=graphics&action=display&num=1439417024
A familiar sight nowadays...
Post by David Williams on Aug 12th, 2015, 10:03pm

A one-liner:

Code:
MODE8:OFF:V%=@vdu%:ORIGINV%!208,V%!212:r=80:t=16:GCOL1:REPEAT:V%!248=2:T%=TIME:FORA=0TO360STEP0.5:C%=(A/360)^2*255:COLOUR1,C%,C%,C%:a=A+T%:c=COSRADa:s=SINRADa:x1%=r*c:y1%=r*s:x2%=(r-t)*c:y2%=(r-t)*s:LINE2*x1%,2*y1%,2*x2%,2*y2%:NEXT:V%!248=1:WAIT 1:UNTILFALSE