https://botwiki.org/bot/bbc-micro-bot/
Follow: https://mastodon.me.uk/@bbcmicrobot
#bots #creativebots #creativecoding
https://botwiki.org/bot/bbc-micro-bot/
Follow: https://mastodon.me.uk/@bbcmicrobot
#bots #creativebots #creativecoding
#bbcmicrobot 🚀 MODE1:VDU19,1,4,0,0,0,5
G=1.32471795724474602596:A=1/G:B=A*A
X=0.5:Y=0.5
FORI=0TO2E5:X=(X+A)-INT(X+A):Y=(Y+B)-INT(Y+B)
U=INT(1280*X):V=INT(1024*Y):GCOL1,0
IF((U-500)^2+(V-300)^2<4E4)AND((U-450)^2+(V+(U AND15)-200)^2>5E4):GCOL0,1+(U AND1)+(V AND2) […]
#bbcmicrobot 🚀 MODE1:VDU19,1,4,0,0,0,5
G=1.32471795724474602596:A=1/G:B=A*A
X=0.5:Y=0.5
FORI=0TO2E5:X=(X+A)-INT(X+A):Y=(Y+B)-INT(Y+B)
U=INT(1280*X):V=INT(1024*Y):GCOL1,0
IF((U-500)^2+(V-300)^2<4E4)AND((U-450)^2+(V+(U AND15)-200)^2>5E4):GCOL0,1+(U AND1)+(V AND2) […]
[Original post on hachyderm.io]
[Original post on hachyderm.io]
#bbcmicrobot ë1:ï5
æ64,0
ì500,800:ð&99,130,70:ð&99,20,0
æ32,0
ì600,400:ð&99,-80,300:ð&99,200,0
æ0,3:ì600,400:ì370,200:ð&A9,700,200
ãA=0¸3
B=A*1.6-.6:S=µB:C=ƛB
çA>0ƀA<3:ì500+60*C,800+60*S:æ16,0:ð&99,30,0:ì500+60*C,800+60*S:æ0,0:ð&99,10,0
æ32,0:ì600+330*C,400+330*S:ð&99,60*C,60*S:ð&99 […]
#bbcmicrobot ë1:ï5
æ64,0
ì500,800:ð&99,130,70:ð&99,20,0
æ32,0
ì600,400:ð&99,-80,300:ð&99,200,0
æ0,3:ì600,400:ì370,200:ð&A9,700,200
ãA=0¸3
B=A*1.6-.6:S=µB:C=ƛB
çA>0ƀA<3:ì500+60*C,800+60*S:æ16,0:ð&99,30,0:ì500+60*C,800+60*S:æ0,0:ð&99,10,0
æ32,0:ì600+330*C,400+330*S:ð&99,60*C,60*S:ð&99 […]
Easy: every […]
Easy: every […]
#bbcmicrobot $@%="4F1B5G9CH3EHA6I7B479B8DCF1E1D37BHEI6F85IA4CG2BGI6CED81834E72AFIIA74862ECE2FCI1847":ë2:X=0:Y=0:ÞC(2,12):ÞS(9,9)
û7:û132:ãI=0¸1:ãJ=0¸11ƈ3:P=³(3)-1:C(I,J)=P:Q=³(2):C(I,J+1)=(P+Q)ƃ3:C(I,J+2)=(P+3-Q)ƃ3:í,:R=³(2)-1
ãI=0¸8:ãJ=0¸8:Q=((C(R,I […]
#bbcmicrobot $@%="4F1B5G9CH3EHA6I7B479B8DCF1E1D37BHEI6F85IA4CG2BGI6CED81834E72AFIIA74862ECE2FCI1847":ë2:X=0:Y=0:ÞC(2,12):ÞS(9,9)
û7:û132:ãI=0¸1:ãJ=0¸11ƈ3:P=³(3)-1:C(I,J)=P:Q=³(2):C(I,J+1)=(P+Q)ƃ3:C(I,J+2)=(P+3-Q)ƃ3:í,:R=³(2)-1
ãI=0¸8:ãJ=0¸8:Q=((C(R,I […]
[Original post on hachyderm.io]
[Original post on hachyderm.io]
The lug logic turns out to be simplified by taking X/Y mod the grid size, and swapping them if X
The lug logic turns out to be simplified by taking X/Y mod the grid size, and swapping them if X
#bbcmicrobot ë0:P=0:ãN=1¸64:P=(P+37)ƃ64:I=(P Ɓ8)+1:J=(P ƃ8)+1:ìJ*98,I*98
çI=1ð1,98,0:Ƌð1,41,0:ð0,8,12:ð0,8,-12:ð&A1,-16,0:ð0,16,0:ð1,41,0
çJ=8ð1,0,98:Ƌð1,0,41:ð0,12,8:ð0,-12,-8:ð&A1,0,16:ð1,0,41
çI=8ð1,-98,0:Ƌð1,-41,0:ð0,-8,12:ð0,8,-12:ð&A1,-16,0:ð1,-41,0
çJ=1ð1,0,-98:Ƌð1,0,-41:ð0,12 […]
#bbcmicrobot ë0:P=0:ãN=1¸64:P=(P+37)ƃ64:I=(P Ɓ8)+1:J=(P ƃ8)+1:ìJ*98,I*98
çI=1ð1,98,0:Ƌð1,41,0:ð0,8,12:ð0,8,-12:ð&A1,-16,0:ð0,16,0:ð1,41,0
çJ=8ð1,0,98:Ƌð1,0,41:ð0,12,8:ð0,-12,-8:ð&A1,0,16:ð1,0,41
çI=8ð1,-98,0:Ƌð1,-41,0:ð0,-8,12:ð0,8,-12:ð&A1,-16,0:ð1,-41,0
çJ=1ð1,0,-98:Ƌð1,0,-41:ð0,12 […]
#bbcmicrobot MODE9+RND(-8):DIMC(16,16):FORI=1TO15:FORJ=1TO15:C(I,J)=INT(RND(1)+0.7):NEXT,:I=1:J=1:W=0:PRINTTAB(0,3);"INVISIBLE EXIT ->":REPEAT
IFW=0:U=I:V=J:R=-40:S=0:L=0:M=46:N=40:O=-21:P=40:Q=23
X=&71+2*(W MOD2):MOVE600+40*(U-V),100+23*(U+V):PLOT0,R,S:PLOT1,L,M:GCOL16,0:PLOTX […]
#bbcmicrobot MODE9+RND(-8):DIMC(16,16):FORI=1TO15:FORJ=1TO15:C(I,J)=INT(RND(1)+0.7):NEXT,:I=1:J=1:W=0:PRINTTAB(0,3);"INVISIBLE EXIT ->":REPEAT
IFW=0:U=I:V=J:R=-40:S=0:L=0:M=46:N=40:O=-21:P=40:Q=23
X=&71+2*(W MOD2):MOVE600+40*(U-V),100+23*(U+V):PLOT0,R,S:PLOT1,L,M:GCOL16,0:PLOTX […]
#bbcmicrobot REM Romberg-Kahan
MODE0
A=-1:B=1:L%=9
C=(A+B)/2:D=(B-A)/2
DIMR(L%, L%)
H=1:NB%=1
R(0,0)=(FNK(-1.0)+FNK(1.0))*H
FORI%=1TOL%-1
S=0
FORK%=0TONB%-1:S=S+FNK(-1+(2*K%+1)*H):NEXT
R(I%,0)=R(I%-1,0)/2+H*S
NB%=NB%*2:H=H/2
NEXT
M%=1
FORJ%=1TOL%-1
M%=M%*4
FORI%=J%TOL%-1
R(I% […]
#bbcmicrobot REM Romberg-Kahan
MODE0
A=-1:B=1:L%=9
C=(A+B)/2:D=(B-A)/2
DIMR(L%, L%)
H=1:NB%=1
R(0,0)=(FNK(-1.0)+FNK(1.0))*H
FORI%=1TOL%-1
S=0
FORK%=0TONB%-1:S=S+FNK(-1+(2*K%+1)*H):NEXT
R(I%,0)=R(I%-1,0)/2+H*S
NB%=NB%*2:H=H/2
NEXT
M%=1
FORJ%=1TOL%-1
M%=M%*4
FORI%=J%TOL%-1
R(I% […]
#bbcmicrobot 🚀 MODE0:PRINT"HAPPY PI DAY!"
MOVE640-512*SQR(1/2),512-512*SQR(1/2):PROCH(-1,-1,2,0,0,2,7)
END
DEFPROCH(A,B,C,D,E,F,N)
IFN<=0:PROCL(A+(C+D)/2,B+(E+F)/2):GOTO100
PROCH(A,B,D/2,F/2,C/2,E/2,N-1)
PROCH(A+C/2,B+E/2,C/2,E/2,D/2,F/2,N-1)
PROCH(A+C/2+D/2,B+E/2+F/2,C/2,E/2 […]
#bbcmicrobot 🚀 MODE0:PRINT"HAPPY PI DAY!"
MOVE640-512*SQR(1/2),512-512*SQR(1/2):PROCH(-1,-1,2,0,0,2,7)
END
DEFPROCH(A,B,C,D,E,F,N)
IFN<=0:PROCL(A+(C+D)/2,B+(E+F)/2):GOTO100
PROCH(A,B,D/2,F/2,C/2,E/2,N-1)
PROCH(A+C/2,B+E/2,C/2,E/2,D/2,F/2,N-1)
PROCH(A+C/2+D/2,B+E/2+F/2,C/2,E/2 […]
#bbcmicrobot 🚀 MODE0:W=.755/8:Z=.636363/8:C=0.527225
FORX%=0TO1280STEP2
FORY%=0TO1024STEP4:V%=(X%+4*Y%)/500:W%=(X%-Y%+450)/200
F=1
IF(X%>70ANDX%<430ANDY%>300ANDY%<900)OR((X%-250)*(X%-250)/8+(Y%-300)*(Y%-300)<4000):F=1-X%/250:F=F*(F>0) […]
#bbcmicrobot 🚀 MODE0:W=.755/8:Z=.636363/8:C=0.527225
FORX%=0TO1280STEP2
FORY%=0TO1024STEP4:V%=(X%+4*Y%)/500:W%=(X%-Y%+450)/200
F=1
IF(X%>70ANDX%<430ANDY%>300ANDY%<900)OR((X%-250)*(X%-250)/8+(Y%-300)*(Y%-300)<4000):F=1-X%/250:F=F*(F>0) […]
#bbcmicrobot MODE0:VDU5
FORI=1TO60
GCOL16+16*(RND(2)-1),0
MOVERND(1280),900-I*10
PLOT&99,200-I*2.5,200-I*2.5
NEXT
GCOL0,1
REPEAT
X=RND(880):Y=RND(600)
MOVEX+200,Y+300:PLOT2,(X-440)/4,-300
*FX 19
MOVEX+200,Y+300:PLOT2,(X-440)/4,-300
UNTILFALSE
#bbcmicrobot MODE0:VDU5
FORI=1TO60
GCOL16+16*(RND(2)-1),0
MOVERND(1280),900-I*10
PLOT&99,200-I*2.5,200-I*2.5
NEXT
GCOL0,1
REPEAT
X=RND(880):Y=RND(600)
MOVEX+200,Y+300:PLOT2,(X-440)/4,-300
*FX 19
MOVEX+200,Y+300:PLOT2,(X-440)/4,-300
UNTILFALSE
#bbcmicrobot MODE0:VDU23;8202;0;0;0;
A$="$ -5nK$ -$ K'&K$$-$,-'(B$*K$2K'2#$6-$6@'=-$7K$=:'=K$A-7EK$NK7ZEoTD$Z3oT3$MDmTD7`3$n-$i>'n>$k>mn?$nK7kHmnH$`-7Z3nX35\D$ZEmXE$d-$j-'d@$f87d>7jG$I16MG$MDoPC7I4$M4oP4"
FORI=1TO160STEP3
P=FNC(I):X=FNC(I+1):Y=FNC(I+2)
PLOTP+80,16*X,16*Y
NEXT […]
#bbcmicrobot MODE0:VDU23;8202;0;0;0;
A$="$ -5nK$ -$ K'&K$$-$,-'(B$*K$2K'2#$6-$6@'=-$7K$=:'=K$A-7EK$NK7ZEoTD$Z3oT3$MDmTD7`3$n-$i>'n>$k>mn?$nK7kHmnH$`-7Z3nX35\D$ZEmXE$d-$j-'d@$f87d>7jG$I16MG$MDoPC7I4$M4oP4"
FORI=1TO160STEP3
P=FNC(I):X=FNC(I+1):Y=FNC(I+2)
PLOTP+80,16*X,16*Y
NEXT […]
#bbcmicrobot ÞS(36):ÞC(36):ë2:ï29,640;480;
ãA=0¸32:
çA<16ï19,A,-6*(A=1),0,0,0
S(A)=µ²(A*12):C(A)=ƛ²(A*12)
í
ñ"ĒĀĂęĄHþƜÿęe¸ādĀĒāĄęĄXþHĀęaðÿpÿęaƐĀĐĀęĀ0ĀƀĀęaðÿpÿęaƐĀĐĀęaðÿƀĀęĀ0ĀpÿęaĐĀƐĀęĀHĀƀÿęqĀĀðÿęqHĀƀĀęĀĀĀĐĀęaĐĀpÿęĀ ĀƐĀęaƐĀpÿęĀ […]
#bbcmicrobot ÞS(36):ÞC(36):ë2:ï29,640;480;
ãA=0¸32:
çA<16ï19,A,-6*(A=1),0,0,0
S(A)=µ²(A*12):C(A)=ƛ²(A*12)
í
ñ"ĒĀĂęĄHþƜÿęe¸ādĀĒāĄęĄXþHĀęaðÿpÿęaƐĀĐĀęĀ0ĀƀĀęaðÿpÿęaƐĀĐĀęaðÿƀĀęĀ0ĀpÿęaĐĀƐĀęĀHĀƀÿęqĀĀðÿęqHĀƀĀęĀĀĀĐĀęaĐĀpÿęĀ ĀƐĀęaƐĀpÿęĀ […]
Sign in to LightNews
Don't have an account?
Connect Bluesky
Enter your Bluesky handle and app password to unlock posting, likes, and your Following feed.
Need an app password? Open Bluesky, go to Settings > App passwords, and create a new one.
Connect with Bluesky
Sign in with your Bluesky account to unlock posting, likes, and your Following feed.