Log In  


boundary peaks (2023)

(276 chars)

cls(1)rectfill(0,0,128,76,0)s=sin
l={0}m={0}for i=2,128do
l[i]=(s(i>>8)+s(i>>6)+s(i>>7)*2+s(i/8)/32)*20+s(i>>4)m[i]=0end::_::l[128]=0?"⁶1⁶!5f101▒▒0056673"
n={0}for i=2,127do
q=l[i]m[i]+=l[i+1]+l[i-1]-q*2n[i]=q+m[i]/128line(i-1,l[i-1]+76,i,q+76,mid(m[i]/4+4.5,8))end
l=n
goto _

7



[Please log in to post a comment]