Embed Notice

@geoffl #bbcmicrobot 🚀 MODE0
R=100
r=22:G=R+r
FORW=0TO450STEP93
S=SINRAD(W+33)
C=COSRAD(W+33)
FORX%=0TOG:F=X%:IFF<R-r:F=R-r
FORI=0TO60:K=F+I*(G-F)/60
IFABS(K)<ABS(X%)GOTO160
Z%=S*SQR(r*r-(K-R)*(K-R))
Y%=C*SQR(K*K-X%*X%)
FORM%=-1TO1STEP2:FORN%=-1TO1STEP2:FORO%=-1TO1STEP2
A%=M%*X%+W*1.5:B%=N%*Y%+O%*Z%+256:J%=(7*(A% MOD4)+5*(B% MOD4))MOD16
IF(N%*Y%*S/C+O%*Z%*C/S)+300>35*J%:PLOT69,2*A%,2*B%
NEXT,,
NEXT,,