� Magic Tree
 � By Philip Mellor (aged 15)
� Acorn User/Star Info
(:
2�9:�
<�setupcolours
F:
P� I=1 � 15
Z"� I,200-(I*13),64+(I*13),�(32)
d�
n�
x#�"Spread (degrees) (35):"spread
y� spread=0 spread=35
��"Split (number) (2):"split
�� split=0 split=2
�"�"Height (units) (160):"height
�� height=0 height=160
�3cycle%=�:�"Cycle colours while drawing? Y/N";a$
�� a$="Y" � a$="y" cycle%=�
��
�#�branch(640,0,height,�r(2),1,8)
��
�ȗX,Y,Z
��cycle:Ȗ:Ȗ:Ȗ:Ȗ
�	�Z<>0
��0
��
�:

��branch(x,y,z,a,c,s)

� cycle% �cycle:Ȗ


� q,w,I,l

"� z<8 �

,
l=z/12

6q=x+(z*��a)

@w=y+(z*��a)

J"� c Ȝ �(256)-1:�1+(15/1024)*y

T� c<0 �

^	� x,y

h	� q,w

r�

|� x-l,y

�� q-l,w

�
�85,q+l,w

�
�x+l,y

�
�85,x-l,y

��

�� I=1 � ((s-2)+�(2))

�-�branch(q,w,z*�(1),a+�r(spread),c+1,s*.9)

��

��

�:

�
ݤr(a)

�� �(2)=1 � =�(a) � =-�(a)

�:
��setupcolours
� a(16),b(16),c(16)
� I=0 � 16
&!a(I)=I*17:b(I)=I*17:c(I)=I*17
0� I,a(I),b(I),c(I)
:�
D!� �(2)=1 ad=�(16) � ad=-�(16)
N!� �(2)=1 bd=�(16) � bd=-�(16)
X!� �(2)=1 cd=�(16) � cd=-�(16)
b�
l:
v��cycle
�� I
�!a(16)+=ad:b(16)+=bd:c(16)+=cd
�)� �(10)=1 ad=�(16):� �(2)=1 ad=-�(16)
�)� �(10)=1 bd=�(16):� �(2)=1 bd=-�(16)
�)� �(10)=1 cd=�(16):� �(2)=1 cd=-�(16)
�� a(16)<0 a(16)=0:ad=�(16)
�#� a(16)>255 a(16)=255:ad=-�(16)
�� b(16)<0 b(16)=0:bd=�(16)
�#� b(16)>255 b(16)=255:bd=-�(16)
�� c(16)<0 c(16)=0:cd=�(16)
�#� c(16)>255 c(16)=255:cd=-�(16)
�� I=1 � 15
�a(I)=a(I+1)
b(I)=b(I+1)
c(I)=c(I+1)
� 16-I,a(I),b(I),c(I)
 �
*�
�

00000000  0d 00 0a 10 f4 20 4d 61  67 69 63 20 54 72 65 65  |..... Magic Tree|
00000010  0d 00 14 20 f4 20 42 79  20 50 68 69 6c 69 70 20  |... . By Philip |
00000020  4d 65 6c 6c 6f 72 20 28  61 67 65 64 20 31 35 29  |Mellor (aged 15)|
00000030  0d 00 1e 1a f4 20 41 63  6f 72 6e 20 55 73 65 72  |..... Acorn User|
00000040  2f 53 74 61 72 20 49 6e  66 6f 0d 00 28 05 3a 0d  |/Star Info..(.:.|
00000050  00 32 08 eb 39 3a 87 0d  00 3c 11 f2 73 65 74 75  |.2..9:...<..setu|
00000060  70 63 6f 6c 6f 75 72 73  0d 00 46 05 3a 0d 00 50  |pcolours..F.:..P|
00000070  0e e3 20 49 3d 31 20 b8  20 31 35 0d 00 5a 22 fb  |.. I=1 . 15..Z".|
00000080  20 49 2c 32 30 30 2d 28  49 2a 31 33 29 2c 36 34  | I,200-(I*13),64|
00000090  2b 28 49 2a 31 33 29 2c  b3 28 33 32 29 0d 00 64  |+(I*13),.(32)..d|
000000a0  05 ed 0d 00 6e 05 f5 0d  00 78 23 e8 22 53 70 72  |....n....x#."Spr|
000000b0  65 61 64 20 28 64 65 67  72 65 65 73 29 20 28 33  |ead (degrees) (3|
000000c0  35 29 3a 22 73 70 72 65  61 64 0d 00 79 18 e7 20  |5):"spread..y.. |
000000d0  73 70 72 65 61 64 3d 30  20 73 70 72 65 61 64 3d  |spread=0 spread=|
000000e0  33 35 0d 00 82 1f e8 22  53 70 6c 69 74 20 28 6e  |35....."Split (n|
000000f0  75 6d 62 65 72 29 20 28  32 29 3a 22 73 70 6c 69  |umber) (2):"spli|
00000100  74 0d 00 83 15 e7 20 73  70 6c 69 74 3d 30 20 73  |t..... split=0 s|
00000110  70 6c 69 74 3d 32 0d 00  84 22 e8 22 48 65 69 67  |plit=2..."."Heig|
00000120  68 74 20 28 75 6e 69 74  73 29 20 28 31 36 30 29  |ht (units) (160)|
00000130  3a 22 68 65 69 67 68 74  0d 00 85 19 e7 20 68 65  |:"height..... he|
00000140  69 67 68 74 3d 30 20 68  65 69 67 68 74 3d 31 36  |ight=0 height=16|
00000150  30 0d 00 96 33 63 79 63  6c 65 25 3d a3 3a e8 22  |0...3cycle%=.:."|
00000160  43 79 63 6c 65 20 63 6f  6c 6f 75 72 73 20 77 68  |Cycle colours wh|
00000170  69 6c 65 20 64 72 61 77  69 6e 67 3f 20 59 2f 4e  |ile drawing? Y/N|
00000180  22 3b 61 24 0d 00 a0 1e  e7 20 61 24 3d 22 59 22  |";a$..... a$="Y"|
00000190  20 84 20 61 24 3d 22 79  22 20 63 79 63 6c 65 25  | . a$="y" cycle%|
000001a0  3d b9 0d 00 aa 05 db 0d  00 b4 23 f2 62 72 61 6e  |=.........#.bran|
000001b0  63 68 28 36 34 30 2c 30  2c 68 65 69 67 68 74 2c  |ch(640,0,height,|
000001c0  a4 72 28 32 29 2c 31 2c  38 29 0d 00 be 05 f5 0d  |.r(2),1,8)......|
000001d0  00 c8 0b c8 97 58 2c 59  2c 5a 0d 00 d2 16 f2 63  |.....X,Y,Z.....c|
000001e0  79 63 6c 65 3a c8 96 3a  c8 96 3a c8 96 3a c8 96  |ycle:..:..:..:..|
000001f0  0d 00 dc 09 fd 5a 3c 3e  30 0d 00 e6 06 fd 30 0d  |.....Z<>0.....0.|
00000200  00 f0 05 e0 0d 00 fa 05  3a 0d 01 04 19 dd f2 62  |........:......b|
00000210  72 61 6e 63 68 28 78 2c  79 2c 7a 2c 61 2c 63 2c  |ranch(x,y,z,a,c,|
00000220  73 29 0d 01 0e 16 e7 20  63 79 63 6c 65 25 20 f2  |s)..... cycle% .|
00000230  63 79 63 6c 65 3a c8 96  0d 01 18 0d ea 20 71 2c  |cycle:....... q,|
00000240  77 2c 49 2c 6c 0d 01 22  0b e7 20 7a 3c 38 20 e1  |w,I,l..".. z<8 .|
00000250  0d 01 2c 0a 6c 3d 7a 2f  31 32 0d 01 36 0f 71 3d  |..,.l=z/12..6.q=|
00000260  78 2b 28 7a 2a b5 b2 61  29 0d 01 40 0f 77 3d 79  |x+(z*..a)..@.w=y|
00000270  2b 28 7a 2a 9b b2 61 29  0d 01 4a 22 e6 20 63 20  |+(z*..a)..J". c |
00000280  c8 9c 20 b3 28 32 35 36  29 2d 31 3a f4 31 2b 28  |.. .(256)-1:.1+(|
00000290  31 35 2f 31 30 32 34 29  2a 79 0d 01 54 0b e7 20  |15/1024)*y..T.. |
000002a0  63 3c 30 20 8c 0d 01 5e  09 ec 20 78 2c 79 0d 01  |c<0 ...^.. x,y..|
000002b0  68 09 df 20 71 2c 77 0d  01 72 05 cc 0d 01 7c 0b  |h.. q,w..r....|.|
000002c0  ec 20 78 2d 6c 2c 79 0d  01 86 0b df 20 71 2d 6c  |. x-l,y..... q-l|
000002d0  2c 77 0d 01 90 0d f0 38  35 2c 71 2b 6c 2c 77 0d  |,w.....85,q+l,w.|
000002e0  01 9a 0a ec 78 2b 6c 2c  79 0d 01 a4 0d f0 38 35  |....x+l,y.....85|
000002f0  2c 78 2d 6c 2c 79 0d 01  ae 05 cd 0d 01 b8 18 e3  |,x-l,y..........|
00000300  20 49 3d 31 20 b8 20 28  28 73 2d 32 29 2b b3 28  | I=1 . ((s-2)+.(|
00000310  32 29 29 0d 01 c2 2d f2  62 72 61 6e 63 68 28 71  |2))...-.branch(q|
00000320  2c 77 2c 7a 2a b3 28 31  29 2c 61 2b a4 72 28 73  |,w,z*.(1),a+.r(s|
00000330  70 72 65 61 64 29 2c 63  2b 31 2c 73 2a 2e 39 29  |pread),c+1,s*.9)|
00000340  0d 01 cc 05 ed 0d 01 d6  05 e1 0d 01 e0 05 3a 0d  |..............:.|
00000350  01 ea 0a dd a4 72 28 61  29 0d 01 f4 1d e7 20 b3  |.....r(a)..... .|
00000360  28 32 29 3d 31 20 8c 20  3d b3 28 61 29 20 8b 20  |(2)=1 . =.(a) . |
00000370  3d 2d b3 28 61 29 0d 01  fe 05 3a 0d 02 08 12 dd  |=-.(a)....:.....|
00000380  f2 73 65 74 75 70 63 6f  6c 6f 75 72 73 0d 02 12  |.setupcolours...|
00000390  17 de 20 61 28 31 36 29  2c 62 28 31 36 29 2c 63  |.. a(16),b(16),c|
000003a0  28 31 36 29 0d 02 1c 0e  e3 20 49 3d 30 20 b8 20  |(16)..... I=0 . |
000003b0  31 36 0d 02 26 21 61 28  49 29 3d 49 2a 31 37 3a  |16..&!a(I)=I*17:|
000003c0  62 28 49 29 3d 49 2a 31  37 3a 63 28 49 29 3d 49  |b(I)=I*17:c(I)=I|
000003d0  2a 31 37 0d 02 30 16 fb  20 49 2c 61 28 49 29 2c  |*17..0.. I,a(I),|
000003e0  62 28 49 29 2c 63 28 49  29 0d 02 3a 05 ed 0d 02  |b(I),c(I)..:....|
000003f0  44 21 e7 20 b3 28 32 29  3d 31 20 61 64 3d b3 28  |D!. .(2)=1 ad=.(|
00000400  31 36 29 20 8b 20 61 64  3d 2d b3 28 31 36 29 0d  |16) . ad=-.(16).|
00000410  02 4e 21 e7 20 b3 28 32  29 3d 31 20 62 64 3d b3  |.N!. .(2)=1 bd=.|
00000420  28 31 36 29 20 8b 20 62  64 3d 2d b3 28 31 36 29  |(16) . bd=-.(16)|
00000430  0d 02 58 21 e7 20 b3 28  32 29 3d 31 20 63 64 3d  |..X!. .(2)=1 cd=|
00000440  b3 28 31 36 29 20 8b 20  63 64 3d 2d b3 28 31 36  |.(16) . cd=-.(16|
00000450  29 0d 02 62 05 e1 0d 02  6c 05 3a 0d 02 76 0b dd  |)..b....l.:..v..|
00000460  f2 63 79 63 6c 65 0d 02  80 07 ea 20 49 0d 02 8a  |.cycle..... I...|
00000470  21 61 28 31 36 29 2b 3d  61 64 3a 62 28 31 36 29  |!a(16)+=ad:b(16)|
00000480  2b 3d 62 64 3a 63 28 31  36 29 2b 3d 63 64 0d 02  |+=bd:c(16)+=cd..|
00000490  94 29 e7 20 b3 28 31 30  29 3d 31 20 61 64 3d b3  |.). .(10)=1 ad=.|
000004a0  28 31 36 29 3a e7 20 b3  28 32 29 3d 31 20 61 64  |(16):. .(2)=1 ad|
000004b0  3d 2d b3 28 31 36 29 0d  02 9e 29 e7 20 b3 28 31  |=-.(16)...). .(1|
000004c0  30 29 3d 31 20 62 64 3d  b3 28 31 36 29 3a e7 20  |0)=1 bd=.(16):. |
000004d0  b3 28 32 29 3d 31 20 62  64 3d 2d b3 28 31 36 29  |.(2)=1 bd=-.(16)|
000004e0  0d 02 a8 29 e7 20 b3 28  31 30 29 3d 31 20 63 64  |...). .(10)=1 cd|
000004f0  3d b3 28 31 36 29 3a e7  20 b3 28 32 29 3d 31 20  |=.(16):. .(2)=1 |
00000500  63 64 3d 2d b3 28 31 36  29 0d 02 b2 1e e7 20 61  |cd=-.(16)..... a|
00000510  28 31 36 29 3c 30 20 61  28 31 36 29 3d 30 3a 61  |(16)<0 a(16)=0:a|
00000520  64 3d b3 28 31 36 29 0d  02 bc 23 e7 20 61 28 31  |d=.(16)...#. a(1|
00000530  36 29 3e 32 35 35 20 61  28 31 36 29 3d 32 35 35  |6)>255 a(16)=255|
00000540  3a 61 64 3d 2d b3 28 31  36 29 0d 02 c6 1e e7 20  |:ad=-.(16)..... |
00000550  62 28 31 36 29 3c 30 20  62 28 31 36 29 3d 30 3a  |b(16)<0 b(16)=0:|
00000560  62 64 3d b3 28 31 36 29  0d 02 d0 23 e7 20 62 28  |bd=.(16)...#. b(|
00000570  31 36 29 3e 32 35 35 20  62 28 31 36 29 3d 32 35  |16)>255 b(16)=25|
00000580  35 3a 62 64 3d 2d b3 28  31 36 29 0d 02 da 1e e7  |5:bd=-.(16).....|
00000590  20 63 28 31 36 29 3c 30  20 63 28 31 36 29 3d 30  | c(16)<0 c(16)=0|
000005a0  3a 63 64 3d b3 28 31 36  29 0d 02 e4 23 e7 20 63  |:cd=.(16)...#. c|
000005b0  28 31 36 29 3e 32 35 35  20 63 28 31 36 29 3d 32  |(16)>255 c(16)=2|
000005c0  35 35 3a 63 64 3d 2d b3  28 31 36 29 0d 02 ee 0e  |55:cd=-.(16)....|
000005d0  e3 20 49 3d 31 20 b8 20  31 35 0d 02 f8 0f 61 28  |. I=1 . 15....a(|
000005e0  49 29 3d 61 28 49 2b 31  29 0d 03 02 0f 62 28 49  |I)=a(I+1)....b(I|
000005f0  29 3d 62 28 49 2b 31 29  0d 03 0c 0f 63 28 49 29  |)=b(I+1)....c(I)|
00000600  3d 63 28 49 2b 31 29 0d  03 16 19 fb 20 31 36 2d  |=c(I+1)..... 16-|
00000610  49 2c 61 28 49 29 2c 62  28 49 29 2c 63 28 49 29  |I,a(I),b(I),c(I)|
00000620  0d 03 20 05 ed 0d 03 2a  05 e1 0d ff              |.. ....*....|
0000062c