` ``If H and not(J`

to

` ``If Hnot(J`

and likewise for any other occurences. ]]>

I see some optimizations. One is that you can replace all your Delvars for the Y= variables can be replaced by `FnOff`, so they won't be wiped. You could also replace your window reset commands (towards the end of the code) with `ZStandard`.

I also took away the variables towards the end, since they will most likely stay the same size at the end of the program.

Revised Code:

` ``ClrHome Disp "PIC4 CODE MUST BE IN L₁.","Y₁-Y₀ and L₂ WILL BE","WIPED. Input "ClrDraw? ",θ If θ ClrDraw AxesOff SetUpEditor L₁,L₂ ClrList L₂ FnOff 0→Xmin 264→Xmax 0→Ymax 164→Ymin dim(L₁→A For(B,1,A L₁(B→C If C>8 Then iPart(C/12→D iPart(3fPart(C/12→E iPart(3fPart(C/9→F iPart(3fPart(C/6→G 3fPart(C/3→H If C<313 Then If G-E≥H-F Then For(I,F,H Line(E,I,G,I,1,D,1 End Else For(I,E,G Line(I,F,I,H,1,D,1 End End Else Line(E,F,G,H,1,D-20,1 End Else iPart(C/6→D 3fPart(iPart(C/3)/3)+fPart(C/3→L₂(1 1→E Repeat not(E iPart(L₂(E→F 3fPart(L₂(E→G E-1→dim(L₂ While not(pxl-Test(G-1,F G-1→G End G→L 1→H 1→I Repeat pxl-Test(G,F pxl-Test(G,F-1→J If H and not(J F-1+G/3→L₂(dim(L₂)+1 J→H pxl-Test(G,F+1→K If I and not(K F+1+G/3→L₂(dim(L₂)+1 K→I G+1→G dim(L₂→E End Line(F,L,F,G+1,1,D,1 End End End Pause Input "StorePic Pic1? ",θ If θ StorePic Pic1 Input "RESET? ",θ If θ Then ZStandard AxesOn Disp End`

I wish I could help with the mechanics of the program, but I don't have a CE. Hope this helps!

EDIT: Ok, so I guess I can't read. I meant CSE :P

]]>I've been wondering if y'all could take a shot at speeding it up a bit or saving some RAM without costing speed.

` ``ClrHome Disp "PIC4 CODE MUST BE IN L₁.","Y₁-Y₀ and L₂ WILL BE","WIPED. Input "ClrDraw? ",θ If θ ClrDraw AxesOff SetUpEditor L₁,L₂ ClrList L₂ DelVar Y₁ DelVar Y₂ DelVar Y₃ DelVar Y₄ DelVar Y₅ DelVar Y₆ DelVar Y₇ DelVar Y₈ DelVar Y₉ DelVar Y₀ 0→Xmin 264→Xmax 0→Ymax 164→Ymin dim(L₁→A For(B,1,A L₁(B→C If C>8 Then iPart(C/12→D iPart(3fPart(C/12→E iPart(3fPart(C/9→F iPart(3fPart(C/6→G 3fPart(C/3→H If C<313 Then If G-E≥H-F Then For(I,F,H Line(E,I,G,I,1,D,1 End Else For(I,E,G Line(I,F,I,H,1,D,1 End End Else Line(E,F,G,H,1,D-20,1 End Else iPart(C/6→D 3fPart(iPart(C/3)/3)+fPart(C/3→L₂(1 1→E Repeat not(E iPart(L₂(E→F 3fPart(L₂(E→G E-1→dim(L₂ While not(pxl-Test(G-1,F G-1→G End G→L 1→H 1→I Repeat pxl-Test(G,F pxl-Test(G,F-1→J If H and not(J F-1+G/3→L₂(dim(L₂)+1 J→H pxl-Test(G,F+1→K If I and not(K F+1+G/3→L₂(dim(L₂)+1 K→I G+1→G dim(L₂→E End Line(F,L,F,G+1,1,D,1 End End End Pause Input "StorePic Pic1? ",θ If θ StorePic Pic1 Input "RESET? ",θ If θ Then 10→Xmin 10→Xmax 10→Ymin 10→Ymax AxesOn Disp End DelVar A DelVar B DelVar C DelVar D DelVar E DelVar F DelVar G DelVar H DelVar I DelVar J DelVar K DelVar L DelVar θ`

For those of you where you see squares in the code like I do, those are just those tiny capital E's.

I'd appreciate any help I can get.

]]>