Screen Saver: The Ultimate Triangle...

(c) Christopher Browne 1995

(Christopher_Browne@brown.edu)
-----------------------------------------------------------------
Range 1,127,0,1,63,0
Mcl
3->G~K
-2->H
2->J
4Ran#-2->L
XmaxRan#->A
YmaxRan#->B
XmaxRan#->C
YmaxRan#->D
Abs (A-C)->E
Abs (B-D)->F
Lbl 1
Cls
Plot A,B
Plot C,D
Line
Plot E,F
Line
Plot A,B
Line
A>122=>-5Ran#-3->G
A<6=>5Ran#+3->G
B>58=>-3Ran#-2->H
B<6=>3Ran#+2->H
C<6=>5Ran#+3->I
C>122=>-5Ran#-3->I
D<6=>3Ran#+2->J
D>58=>-3Ran#-2->J
E>122 =>-5Ran#-3->K
E<6=>5Ran#+3->K
F>58=>-3Ran#-2->L
F<6=>3Ran#+2->L
A+G->A
B+H->B
C+I->C
D+J->D
E+K->E
F+L->F
Goto 1