Embed Notice

@bbcmicrobot
#bbcmicrobot MODE1
VDU29,640;512;5,19,1,5;0;
DIMS(360):FORI%=0TO90:S(I%)=SINRAD(I%):S(180-I%)=S(I%):S(I%+180)=-S(I%):S(360-I%)=-S(I%):NEXT
n%=6
d%=5
M%=d%*180*(1-((n%AND1)+(d%AND1)=1))
FORI%=0TOM%STEP4
G%=500*FNCz(n%*I%/d%)
PLOT4-(I%>0),G%*FNCz(I%),G%*FNSz(I%)
NEXT
FORJ%=0TO4
GCOLJ%*16,1
G%=80+J%*100
FORI%=15*(J%MOD2)TO360STEP30
PLOT&85,G%*FNCz(I%),G%*FNSz(I%)
NEXT,
DEFFNSz(K%):=S(K%MOD360)
DEFFNCz(K%)=FNSz(K%+90)