plasma burn

-- plasma burn -- alexthescott -- 1/27/21

pal({[0]=12,140,129,1,133,130,2,136,8,137,142,14,143,15,135,7},1)

-- new seed every day of the year srand(31*stat(81)+stat(82))

cls() _set_fps(60) x_off=rnd() y_off=rnd() f1=1+rnd() f2=4+rnd(2) f3=2+rnd(1) ::♥:: for i=0,542 do x=rnd(128)\1 y=rnd(128)\1 c=f12sqrt(2) j2=3.14cos(f3x/2)3.14sin(f2) j3=3.14sin(f2y/2)3.14cos(f2) v1=(csin(x/2048j2+x_off+t()/96)) v2=(ccos(y/2048j3+y_off+t()/512)) v1+=(x-64)/32 v2+=(y-64)/32 pset(x,y,((v1*v2)/2)) end flip() goto ♥