Siesta by Vanni for PICO-1K Jam 2021

Siesta is a non-interactive PICO-8 demo I wrote for PICO-1K Jam 2021.
https://itch.io/jam/pico-1k/rate/1191150

Characters/Bytes used
829/843

Topics:

• L-systems: https://en.wikipedia.org/wiki/L-system
• Turtle graphics: https://en.wikipedia.org/wiki/Turtle_graphics
• Monte Carlo method: https://en.wikipedia.org/wiki/Monte_Carlo_method
• P8SCII Control Codes: https://www.lexaloffle.com/dl/docs/pico-8_manual.html#Appendix_A

Source Code

?"\aszl0yi7x2cga.fde.cga.fdc.c4b3a.bag.egfdcb2c3"
function z(s)l={}for i=1,#s do
add(l,sub(s,i,i))end
return l
end
j=0w=0g={}h={x=z('l+[[xl*]-x]-l[-lx]+lx'),l=z('1l2l')}s={'x'}r=rnd
for i=0,3000do
g[i]={r(128),90+r(38)}end
for i=1,4do u={}for m in all(s)do k=h[m]or{m}for n in all(k)do
add(u,n)end
end
s=u
end::_::f=rectfill
if(j==10)j=0w=r()*2-1
j=j+1f(0,0,127,89,12)f(0,90,127,127,11)
for i=1,#g do
pset(g[i][1],g[i][2],3)end
p={x=40,y=127}a=w+65t=w+25c=4q={}circfill(99,22,20+r(2)\1,10)?'\^w\^t\f7\#1v𝘢𝘯𝘯𝘪\^-t\^-w\f1\#c2021',70,114
for e in all(s) do
if(e=='l')o=a/360d={x=3*cos(o),y=3*sin(o)}x=p.x+d.x y=p.y+d.y line(p.x,p.y,x,y,c)p={x=x,y=y}
if(e=='+')a+=t
if(e=='-')a-=t
if(e=='[')add(q,{p,a,c},1)
if(e==']')p,a,c=unpack(q[1])deli(q,1)
if(e=='0')c=0
if(e=='1')c=4
if(e=='2')c=5
if(e=='*')?'●',p.x-2,p.y-3,8
end
flip()goto _