@bbcmicrobot
#bbcmicrobot 🚀
ë2:ç³(-4)
v=.5:æ0,-12:Ú:æ0,2
ãx=0¸1280
ìx,120+µ(x*.005)*50:ßx,0
í
òb(640,0,40,1.6)
à
Ýòb(x,y,s,a)çs<1á
êx2,y2,S
çs>=2çs<6ç³(1)<5òb(x,y,1.9,a+¤v(.2))
çs<2c=2Ƌc=1
S=s*2+³(1)*s*2.7
çs<2S=S*3
x2=x+S*ƛa
y2=y+S*µa
æ0,0:òs(s+1):æ0,c:òs(s)
ç³(1)<v òb(x2,y2,s/1.3,a-v):òb(x2,y2,s/1.3,a+v):á
x=x2:y=y2:a=a+¤v(.1):s=s*.9
çs>=1å100
á
Ýòs(s)ãq=0¸s ƈ2
A=q/s*¯*2
ìx+s*ƛA,y+s*µA
ßx2+s*ƛA,y2+s*µA
í
á
ݤv(x)=(³(1)-v)*x

#bbcmicrobot ë2
Þc(4,15)
I=0.5
ãF=1¸4
I=I*2
ãC=0¸15
ç(C ƀI)ƁI L=6ƋL=4
c(F,C)=L
ï19,C,0;0;
í,
ãP=1¸17
I=1
X=³(1280)
Y=³(1024)
K=³(8)
Z=32+³(12)
ãF=0¸3
æ1,I
ìX,Y
Q=(F+K)ƃ4
R=Z*(1+Q)
ð145,0,R
I=I*2
í,
õ
ãF=1¸4
I=¦(12)
*FX19
ãC=0¸15
ï19,C,c(F,C);0;
í,
ý£

#bbcmicrobot
ë2
òc(6,4)
ì0,0
ð97,1280,1024
ï29,640;0;
òc(5,1)
ì-128,512
ð97,256,256
òc(0,0)
ì-128,256
ð97,256,256
Z=¹
ãY=272¸512ƈ32
Z=¬Z
ãX=-112¸752-640ƈ32
çZ òc(7,0)Ƌòc(2,0)
Z=¬Z
ìX,Y
ð153,0,12
í,
òc(7,6)
òs(-1)
òs(1)
òt(-128,128,"WIFE")
à
Ýòs(lr)
ì0,544
ìlr*128,480
ð85,lr*128,768
ìlr*256,480
ð85,lr*200,480
ìlr*128,768
ð85,lr*128,640
á
Ýòc(c,d)
Q=¤e(c,d)Ƅ¤e(d,c)*256
æ16,0
ï23,2,Q;Q;Q;Q;
á
Ýòt(A,B,S$)
ï5
æ0,0
ãC=-8¸8ƈ8
ãD=-8¸8ƈ4
ìA+C,B+D
ñS$
í,
æ0,7
ìA,B
ñS$
ï4
á
ݤe(A,B)=(A ƀ1)Ƅ(A ƀ2)*2Ƅ(A ƀ4)*4Ƅ(A ƀ8)*8Ƅ(B ƀ1)*2Ƅ(B ƀ2)*4Ƅ(B ƀ4)*8Ƅ(B ƀ8)*16

#bbcmicrobot 🚀
MO.0:P.'"The smouldering ashes"'"of Sierpinsky":V.5:F.X%=0TO1023:F.Y%=0TO1023
IFX%ANDY% Y%=Y%+(X%ANDY%)DIV2
PLOT69,X%+Y%DIV2,Y%
N.,:V.1