Shapes

Forum Attachments

Shapes

bsch2734 24 Oct 2012 18:19

I was testing another program of mine when a mistake led me to this:

FnOff :PlotsOff :ClrDraw:AxesOff:GridOff:0→Xmin:94→Xmax:0→Ymin:62→Ymax
60→D
40→E
Delvar A
While A≠105
DelVar A
Line(40,40,D,E
Line(50,20,D,E
While min(A≠{24,34,25,26,105
getKey→A
End
D+(A=26)-(A=24→D
E+(A=25)-(A=34→E
End

It works as a cool little drawing program for making fun shapes. completely unintentionally.
I have some interesting resilts to post later, but what can you guys make?

Re: Shapes

Roguebantha 24 Oct 2012 19:31

What would be really cool is if you made the line function invert what was already there.

---

Re: Shapes

Mr Dino 24 Oct 2012 22:25

That's a pretty cool program!

FnOff :PlotsOff :ClrDraw:AxesOff:GridOff:0→Xmin:94→Xmax:0→Ymin:62→Ymax
60→D
40→E
Repeat A=105
Repeat A=105 or A=21
Line(40,40,D,E
Line(50,20,D,E
Repeat max(Ans={21,24,34,25,26,105
getKey→A
End
D+(Ans=26)-(Ans=24→D
E+(A=25)-(A=34→E
End
If A=21
Then
Repeat A=105 or A=21
Line(40,40,D,E,0
Line(50,20,D,E,0
Repeat max(Ans={21,24,34,25,26,105
getKey→A
End
D+(Ans=26)-(Ans=24→D
E+(A=25)-(A=34→E
End
End
End

I optimized it a bit, copy pasted it to another loop for erasing, then put them both in a loop. Use [2nd] to toggle.
There's a more optimized way to do this, though.

FnOff :PlotsOff :ClrDraw:AxesOff:GridOff:0→Xmin:94→Xmax:0→Ymin:62→Ymax
60→D
40→E
1→F
Repeat A=105
Line(40,40,D,E,F
Line(50,20,D,E,F
Repeat max(Ans={21,24,34,25,26,105
getKey→A
End
D+(Ans=26)-(Ans=24→D
E+(A=25)-(A=34→E
If A=21 and F
DelVar F
If A=21 and not(F
1→F
End

This one uses F as a toggle, saving many bytes. (I'm not sure about the way I toggle F; there's probably a better way…)

Last edited on 24 Oct 2012 22:25 by Mr Dino Show more

Re: Shapes

Roguebantha 25 Oct 2012 02:02

Hmmm, yes…

If A=21:Then:not(F)→F:End

How about that?? :)

---

Re: Shapes

burr 25 Oct 2012 05:12

That's better, but you can simplify it to If A=21:not(F→F.

Re: Shapes

bsch2734 25 Oct 2012 17:30

Yes, that makes it even cooler

Re: Shapes

Roguebantha 25 Oct 2012 18:33

Ah yes, that's true :) I always tended to stick in the "then" for readability but omitting it works just fine :)

---