Compressed Bytes used
690

Source Code (OPTIONAL)
d=128 n=128 u=userdata("f64",480,270)i=userdata("f64",480,270)c=userdata("f64",480,270)j=userdata("f64",480,270)k=userdata("f64",480,270)l=userdata("f64",d,n)m=userdata("f64",d,n)p=userdata("f64",d,n)o=userdata("f64",3*d/2)q=userdata("f64",480,270)s=userdata("f64",480,270)for f=0,269 do for o=0,479 do e=o-240 r=f-135 a=sqrt(e*e+r*r)u:set(o,f,.5*(cos(a/24.)+1))i:set(o,f,1.)c:set(o,f,1.)end end for f=0,n-1 do for o=0,d-1 do e=o-.5*d r=f-.5*n a=sqrt(e*e+r*r)l:set(o,f,e/a)m:set(o,f,r/a)p:set(o,f,.5*d-a)end end for f=0,d/2-1 do o:set(f,24)v=cos(min(.25*f/(d/2-1),.25))o:set(f+d/2,24.*v*v)o:set(f+d,0)o:set(f+3*d/2,0)end pal(0,0,2)b=7 for f=1,31 do pal(f,b<<16|b<<8|b,2)b=b+8 end function _draw()f=.1*t()e=cos(f)r=sin(f)g=176+180*cos(f)/(1+sin(f)*sin(f))h=71+110*sin(f)*cos(f)/(1+sin(f)*sin(f))\1 u:sub(u,i,1,0,479,480,480,270)u:sub(u,c,480,0,480,480,480,269)i:mul(l,q,0,g+480*h,d,d,480,n)c:mul(m,s,0,g+480*h,d,d,480,n)j=.5*d*(q+s+2)j:sub(p,j,0,g+480*h,d,d,480,n)w=j:convert("i32")&2*d-1 i:mul(e,y,0,g+480*h,d,d,480,n)c:mul(r,z,0,g+480*h,d,d,480,n)k=63*(e*i+r*c)+o:take(w)x=k:convert("u8")get_display():copy(x,true)end