ROOTS
DANIEL DICHTER
kindofdoon@hotmail.com
DECEMBER 2008

ROOTS is an abstract graphic program for the TI84SE. A "seed" is placed in the middle of the screen, and roots follow random paths away from the seed, spreading outward until the roots touch the roots contact a side of the screen, and the process restarts.

Please feel free to modify or distribute this program according to your needs. If you have any ideas for future versions or bugs, please contact me.

For reference, here is the source code for ROOTS.

FnOff :AxesOff:ZStandard:ZSquare:ClrDraw
Text(20,32,"-ROOTS-"
Text(28,21,"DANIEL DICHTER":Text(40,5,"KINDOFDOONaHOTMAIL.COM":Pxl-On(41,47:Pxl-On(40,46:Pxl-On(40,45:Pxl-On(41,44
Line(-15,-10,-15,10:Line(-15,10,15,10:Line(15,10,15,-10:Line(15,-10,-15,-10:Line(-14.5,-9.5,-14.5,9.5:Line(-14.5,9.5,14.2,9.5:Line(14.2,9.2,14.2,-9.2:Line(14.2,-9.2,-14.2,-9.2:Pause 
Menu("   ROOTS V1.0   ","MIRRORED",M,"CENTERED",1
Lbl M
ClrDraw
30_Y
22_X
Repeat Y=0 or Y=60 or X=0 or X=45
randInt(-1,1)_R
(Y+(R))_Y
Pxl-On(Y,X)
abs(0-(X))_A
93-A_A
Pxl-On(Y,A)
randInt(-1,1)_R
(X+(R))_X
Pxl-On(Y,X)
abs(0-(X))_A
93-A_A
Pxl-On(Y,A)
End
Goto M
Lbl 1
ClrDraw:46_X:31_H:46_A:31_B:46_K:31_L
Pxl-On(H,X):Pxl-On(B,A):Pxl-On(L,K)
Repeat X=1 or X=92 or H=1 or H=61 or A=1 or A=92 or B=1 or B=61 or L=1 or L=92 or K=1 or K=61
randInt(-1,1)_R
(X+(R))_X
Pxl-On(H,X)
randInt(-1,1)_R
(H+(R))_H
Pxl-On(H,X)
randInt(-1,1)_R
(A+(R))_A
Pxl-On(B,A)
randInt(-1,1)_R
(B+(R))_B
Pxl-On(B,A)
randInt(-1,1)_R
(K+(R))_K
Pxl-On(L,K)
randInt(-1,1)_R
(L+(R))_L
Pxl-On(L,K)
End
Goto 1