To store it into a list:

` ``:For(A,0,62 :0 :For(B,0,32 :2Ans+pxl-Test(A,B :End :Ans→L₁(3A+1 :0 :For(B,33,65 :2Ans+pxl-Test(A,B :End :Ans→L₁(3A+2 :0 :For(B,66,95 :2Ans+pxl-Test(A,B :End :Ans→L₁(3A+3 :End`

That should put a 189 element list in L₁ after about 2-3 minutes. (idk, my computer clock was at 6:40 around when I started it and it read 6:43 when it finished.

And the code to recall it:

` ``:ClrDraw :For(A,0,62 :L₁(3A+1 :While Ans :Pxl-On(A,32-int(ln(Ans)/ln(2 :Ans-2^int(ln(Ans)/ln(2 :End :L₁(3A+2 :While Ans :Pxl-On(A,66-int(ln(Ans)/ln(2 :Ans-2^int(ln(Ans)/ln(2 :End ::L₁(3A+3 :While Ans :Pxl-On(A,95-int(ln(Ans)/ln(2 :Ans-2^int(ln(Ans)/ln(2 :End :End`

Looking back, you can optimize it by replacing "int(ln(Ans)/ln(2" with u after storing it to u in the beginning of the program. But I'm too lazy :P - if you're a moderator, feel free to edit my post and do it for me lol. ]]>

` ``For(x,1,Dim(L1),5 Pt-On(L1(x),L2(x Pt-on(L1(x+1),L2(x+1 ... Pt-On(L1,(x+4),L2(x+4 End`

It's slow, but it does give a nice effect if your going in a certain direction

]]>A related program that might be of interest is my BSPRT program (opcode included). It is 82 bytes (less than 70 bytes of code), but it is limited to drawing only to 12 columns (8 pixels wide each). A slightly more complicated code could draw larger sprites and to pixel coordinates.

]]>L1K3AWH15P3R

]]>