pico-8 cartridge // http://www.pico-8.com
version 16
__lua__
cls()
scale = 64
rot = -0.05
for i=-1,1,0.02 do
 for h=-0.5,0,0.002 do
 	x = (sin(h))*32*i
 	y = (cos(h))*32
 	xn = x*cos(rot)-y*sin(rot)
 	yn = x*sin(rot)+y*cos(rot)
 	slope = i^3+i
 	hslope = h^3+h+(i^2)/64
 	sset(8+xn+32,yn+32,((((slope*8)+7)*3)+sgn(sin(hslope*10))*4)%16)
 end
end

---===---
t=0
str = "hello there, this is apt get moo cow speaking 🐱 ♥♥♥       making palette scrollers is fun, but i'd also like to do some real texture mapping    --- ideas?     i'll probably start with mapping the ball of swiborg onto that amiga boing ball down there, lmao 😐               i'm also looking forward to make some more of these 'vintage' type demos, so see you soon i guess ♪          [end of transmission]"
bx=64
by=64

bvx = rnd(4)-2
bvy = -rnd(2)

xo = 0


while true do

bx+=bvx
by+=bvy

bvy+=0.05

if by>56 then
	by=56
	bvy = -rnd(1)-1
	bvx = sgn(bvx)*rnd(2)
end

if bx > 64 then
	bx = 64
	bvx = -bvx/2
end
if bx < 0 then
	bx = 0
	bvx = -bvx/2
end

pal()
cls(1)

xo = (xo+1)%16
for x=-2,16 do
	line(xo+x*8,2*8,xo+x*8,14*8,12)
end
for x=0,16 do
	line(xo+x*8,14*8,xo*2+x*16-64,128,12+x%2)
end
for y=2,14 do
	line(0,y*8,128,y*8,13)
end
for i=0,3 do
	y=14*8+i^2
	line(0,y,128,y)
end
for i=0,15 do
	pal(i,7)
end
for i=t,t+7 do
	pal(i,8)
end
circfill(bx+32,by+32,31,0)
spr(1,bx,by,8,8)

t+=sgn(bvx)
flip()
end