Lua should let me override the assignment operator.
@GunTurtle
- 34 Followers
- 52 Following
- 22 Posts
Animator/Gamedev. Actually a 'CannonTortoise' if you wanna get technical.
Grid moire
#pico8 #tweetcart #tootcart
::_::cls(8)pal(8,1,1)r=time()/16
camera(-64,-64)poke(0x5f5e,255)for l=0,1 do
for j=-7.5,7.5,.5 do
for i=-7,7,.5 do
s=i*16+j%2*8
d=j*14
e=(s^2+d^2)^.5
f=atan2(d,s)+r*l
circfill(cos(f)*e+sin(r/2)*32*l,sin(f)*e,2,6-l)end
end
poke(0x5f5e,247)end
flip()goto _
Compact disc
#pico8 #tweetcart #tootcart
t=0j=24414::_::camera(-64,-64)t+=.02c=sin(t)d=abs(c)?""⁶1⁶c0""
for y=-29,29do
o=d*(900-y^2)^.5for x=-o,o do
v=x/c if v*v+y*y<900then
a=atan2(v,y)*8pset(x,y,a+sin(a/2+t)+t/6&7)end
end
e=d*6poke(j,136)p=min(abs(y)^(d/2)*e,o)rect(-p,y,p,y,8)poke(j,255)end ovalfill(-e,-6,e,6,0)goto _
Fireflies
#pico8 #tweetcart #tootcart
::_::?""\^1\^c0\^!5f10▒⬇️;:⬇️;::;:::::::""
t=time()/4for j=0,1do
t+=j/3poke(24414,51<<j*2)srand()for u=0,16do
f=t*60q=u*32+cos(t)*10r=u\4*32-f+sin(t+rnd())*10for i=1,3do
b=5-i*.8for k=0,b do
l=(b*b-k*k)^█-.5x=q%150-10y=r%150-10rect(x-l,y-k,x+l,y+k,i+i*4)end
end
end
end
goto _
Alien waters
#pico8 #tweetcart #tootcart
for i=0,16000do
sset(i%128,i\128,rnd(2)+sin(i\32/32+cos(i/32))+2)end
a=0::_::a+=.5for x=0,127,2do
for y=0,63do
local dx,j=(x-64<<3)/y+a,8-y/8rectfill(x,y+64+75/j,x+1,y+56+(4-sin(a+y>>5)+cos(dx/10)<<3)/j,sget(dx*2%128,512/y))end
end
memset(24576,0,4288)?""⁶1\^!5f100▒1⬇️3""
goto _
zep.p8Happy New Year everyone!
A wee #picotron update: I've updated the faq, roadmap & playground with a sound toy:
https://www.lexaloffle.com/picotron.php?page=playground
Press ESC to get into the terminal, then "load /demos/bells.p64" and hit CTRL+R to run it.
Sudoku #pico8 #tweetcart #tootcart
srand(8)i=0::_::i+=1i%=81v=rnd(9)\1+1for y=0,80,9do
l=i%9r=0if(i\27==y\27)l,r=i%9\3*3,2
if(i\9*9==y)l,r=0,8
for x=l,l+r do
if(@(y+x)==v)goto _
end
end
poke(i,v)cls(7)camera(-27,-27)s=""for j=0,80do
?@j!=0and@j or"",j%9*8+3,j\9*8+2,13
rect(0,0,j\3*24%96,j*24%96)end
flip()goto _
srand(8)i=0::_::i+=1i%=81v=rnd(9)\1+1for y=0,80,9do
l=i%9r=0if(i\27==y\27)l,r=i%9\3*3,2
if(i\9*9==y)l,r=0,8
for x=l,l+r do
if(@(y+x)==v)goto _
end
end
poke(i,v)cls(7)camera(-27,-27)s=""for j=0,80do
?@j!=0and@j or"",j%9*8+3,j\9*8+2,13
rect(0,0,j\3*24%96,j*24%96)end
flip()goto _
Carpet pattern #pico8 #tweetcart #tootcart
u=24414w=circ?"\^!5f10☉☉☉2>>>>"
::_::flip()cls()z=t()/12r=44camera(cos(z)*44+99,sin(z)*44+99)e=r/2for m=0,100do
x=m%10*r y=m\10*r
for i=1,2do
c,v=x+i*e,y+i*e
poke(u,17*i)circfill(c,v,e+i,15)poke(u,0x44)w(c+e,v,e)w(c+e,v+1,e)h=x+i*e+e/2rectfill(h-2,-128,h+2,300,0)end
end
goto _
u=24414w=circ?"\^!5f10☉☉☉2>>>>"
::_::flip()cls()z=t()/12r=44camera(cos(z)*44+99,sin(z)*44+99)e=r/2for m=0,100do
x=m%10*r y=m\10*r
for i=1,2do
c,v=x+i*e,y+i*e
poke(u,17*i)circfill(c,v,e+i,15)poke(u,0x44)w(c+e,v,e)w(c+e,v+1,e)h=x+i*e+e/2rectfill(h-2,-128,h+2,300,0)end
end
goto _
Dubious proof #pico8 #tweetcart #tootcart
Upset I didn't think of this on pi day
l=0
::_::
flip()cls(1)
rectfill(0,32,128,96,0)
clip(16,32,96,64)
circfill(64,96,48,13)
b=-64
h=0
l=0
for x=-48,48,48/(2<<t()*2\1%8) do
v=-sqrt(2304-x*x)
camera(-64,-95)
line(x,v,b,v,7)
line(b,h,b,v)
l+=(x-b)+(v-h)
b=x
h=v
end
clip()
camera()
?"\#0\f7pi = 4",53,100
goto _