tic80-stuff/tcc-2022/tcc07.lua

-- M=math
-- R=M.random
-- TIC=load'H=500t=time()/H for i=0,999 do x=R(239)-120y=R(135)-68W=(M.atan2(x,y)+M.pi)*2Y=999/(x*x+y*y+1)^.5G=(W/Y)pix(x+120,y+68, G+t)end for p=1,#T do print(T:sub(p,p),H-((t*50)+(p*9))%H,M.sin(t*4+p)*9+68,0,0,2)end'T="!emit rellorcs s'ti"

M=math
S=M.sin
R=M.random
T="rellorcs rehtona rof emit"
function TIC()t=time()/500
for i=0,999 do
x=R(239)-120
y=R(135)-68
W=(M.atan2(y,x)+M.pi)*2.54
Y=999/(x*x+y*y+1)^.5
G=((W//1)~(Y//1))/5
pix(x+120,y+68, G+t)
end
for p=1,#T do
print(T:sub(p,p),470-((t*50)+(p*9))%500,S(t*4+p)*9+68,0,0,2)
end
end

-- <PALETTE>
-- 000:1a1c2c5d275db13e53ef7d57ffcd75a7f07038b76425717929366f3b5dc941a6f673eff7f4f4f494b0c2566c86333c57
-- </PALETTE>