StarInfo/circles/Atkins/SPRING

Home » Archimedes archive » Acorn User » AU 1997-02 B.adf » Regulars » StarInfo/circles/Atkins/SPRING

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Acorn User » AU 1997-02 B.adf » Regulars
Filename:	StarInfo/circles/Atkins/SPRING
Read OK:	✔
File size:	1751 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM>Spring
   20REM By Keith Atkins
   30REM 01489 894654
   40
   50ON ERROR PRINT REPORT$;" at line ";ERL:END
   60REM-----------------------------------------------------------------------------------------
   70     PROC_Init
   80     PROC_Main
   90     VDU4:PRINT TAB(1,1);"Complete....Click to continue"
  100     REPEAT MOUSE MX,MY,MA:UNTIL MA <> 0:END
  110     STOP
  120REM-----------------------------------------------------------------------------------------
  130    DEF PROC_Init
  140     Branches = 3                   :REM Number of branches on each tree branch
  150     TRLVL = 0
  160     SYS "OS_SWINumberFromString",,"ColourTrans_SetGCOL" TO CTSG%
  170     SYS "OS_ReadModeVariable",-1,11 TO ,,x
  180     SYS "OS_ReadModeVariable",-1,12 TO ,,y
  190     SYS "OS_ReadModeVariable",-1,4 TO ,,ex
  200     SYS "OS_ReadModeVariable",-1,5 TO ,,ey
  210     MaxWidth=(x+1)<<ex:MaxHeight=(y+1)<<ey
  220
  230     Grey    =  FN_SETCOL(0,0,0,255,255,255)
  240     Blue    =  FN_SETCOL(50,50,100,0,0,255)
  250     Red     =  FN_SETCOL(100,50,50,255,0,0)
  260     Orange  =  FN_SETCOL(200,100,0,255,255,100)
  270     Green   =  FN_SETCOL(50,100,50,0,255,0)
  280     Yellow  =  FN_SETCOL(100,100,50,255,255,0)
  290     Magenta =  FN_SETCOL(100,50,100,255,0,255)
  300     Cyan    =  FN_SETCOL(50,100,100,0,255,255)
  310     RedYellow =FN_SETCOL(255,100,0,255,255,0)
  320     Multi1  =  FN_SETCOL(RND(100),RND(100),RND(100),RND(200)+150,RND(100)+150,RND(100)+150)
  330
  340     TreeLBrown = 225<<8 OR 80<<16
  350     TreeDBrown = 150<<8 OR 60<<16
  360     TreeLGreen = 100<<16
  370     TreeDGreen = 70<<16
  380     FlowerCount= 0
  390     FlowerMax  = 30
  400     x=500:y=500:Hole=10:Size=300:HUE = Grey
  410     GCOL 128:CLG
  420    ENDPROC
  430REM-----------------------------------------------------------------------------------------
  440    DEF PROC_Main
  450      FOR C% = 0 TO 0
  460       TreeLight=TreeLGreen:TreeDark=TreeDGreen
  470       PROC_TREE(TRLVL,MaxHeight*.4,MaxWidth*.75,100,20,MaxHeight*.5,1,0)
  480       TRLVL=0:FlowerCount=0
  490       TreeLight=TreeLBrown:TreeDark=TreeDBrown
  500       PROC_TREE(TRLVL,MaxHeight*.4,MaxWidth/3,100,30,MaxHeight*.5,1,1)
  510      NEXT C%
  520    ENDPROC
  530REM----------------------------------------------------------------------------------------
  540    DEF PROC_Daisy(x,y,R,HueTab,Petals)
  550     LOCAL r,j,i,c
  560      c=30:r=8*R/c
  570      FOR j = r TO 0 STEP -4
  580        j%= 256-j*256/r
  590        FOR i = 1 TO c STEP 1
  600         PROC_CircCirc(x,y,i*R/c,j-i*j/c,HueTab!(j%*4),Petals,2*i)
  610        NEXT i
  620      NEXT j
  630      PROC_Sphere(x,y,R/3,HueTab)
  640    ENDPROC
  650REM----------------------------------------------------------------------------------------
  660    DEF PROC_Chysant(x,y,R,Hue,Petals)
  670     r=R/2:m=1.3
  680     PROC_CircCircPolo(x,y,R,r,Hue,Petals,0):Petals=Petals*m
  690     PROC_CircCircPolo(x,y,R*.8,r*.8,Hue,Petals,20):Petals=Petals*m
  700     PROC_CircCircPolo(x,y,R*.4,r*.4,Hue,Petals,40)
  710    ENDPROC
  720REM-----------------------------------------------------------------------------------------
  730    DEF PROC_CircCirc(x,y,R,r,RGB%,Petals,Phase)
  740     Petals=360/Petals
  750     SYS CTSG%,RGB%,,,%100000000,0
  760     FOR  a = Phase-90 TO Phase+360-90 STEP Petals
  770       CIRCLE FILL x+R*COSRADa,y+R*SINRADa,r
  780     NEXT a
  790    ENDPROC
  800REM-----------------------------------------------------------------------------------------
  810    DEF PROC_CircCircPolo(x,y,R,r,Hue,Petals,Phase)
  820     Petals=360/Petals
  830     FOR  a = Phase-90 TO Phase+360-90 STEP Petals
  840       PROC_Polo(Hue,r,1,x+R*COSRADa,y+R*SINRADa)
  850     NEXT a
  860    ENDPROC
  870REM-------------------------------------------------------------------------------------
  880    DEF PROC_Polo(RGBTab,Size,Hole,x,y)
  890      s=1:j=s*512/(Size-Hole):n=0
  900      FOR i% = Size TO Hole+1 STEP -s
  910        n +=j:n%=n
  920        SYS CTSG%,RGBTab!(n%*4),,,%100000000,0
  930        CIRCLE FILL x,y,i%
  940      NEXT i%
  950    ENDPROC
  960REM-------------------------------------------------------------------------------------
  970    DEF PROC_Sphere(x,y,R,RGBTab)
  980     n=(256/R)
  990     FOR i = R TO 1 STEP -1
 1000      i% = i*n
 1010      SYS CTSG%,RGBTab!(i%*4),,,%100000000,0
 1020      CIRCLE FILL x,y,i
 1030     NEXT i
 1040    ENDPROC
 1050
 1060REM-----------------------------------------------------------------------------------------
 1070REM DEFINE FADE TABLE COLOURS (RGB TABLES)
 1080REM L1,L2,L3  - LOW VALUES OF RED,GREEN & BLUE (0-255)
 1090REM H1,H2,H3  - HIGH VALUES OF RED,GREEN & BLUE (0-255)
 1100
 1110   DEF FN_SETCOL(L1,L2,L3,H1,H2,H3)
 1120     LOCAL COLTAB%
 1130     DIM COLTAB% 512*4
 1140     PRFAC=(H1-L1)/256:PGFAC= (H2-L2)/256:PBFAC=(H3-L3)/256
 1150     FOR I%=0 TO 256 STEP 1
 1160       COLTAB%!(I%*4)= (((L1+I%*PRFAC)<<8) + ((L2+I%*PGFAC)<<16) + ((L3+I%*PBFAC)<<24))
 1170       COLTAB%!((512-I%)*4)=COLTAB%!(I%*4)
 1180     NEXT I%
 1190   = COLTAB%
 1200REM-----------------------------------------------------------------------------------------
 1210     DEF PROC_TREE(LVL%,H%,X%,Y%,D%,L%,DIR%,Type)
 1220     LOCAL BREVERY,CL%,DMAX%,V,XD%,NL%
 1230     T%=RND(-TIME)
 1240     BR% = Branches
 1250     IF L% < 10 OR FlowerCount > FlowerMax THEN ENDPROC
 1260     DMAX%=D%:BREVERY=L%/BR%:VAR%=RND(120)-0:V=SINRAD(VAR%):XD%=X%
 1270     FOR CL% = 0 TO L% STEP 1
 1280REM      WAIT
 1290      SYS CTSG%,TreeLight,,,%100000000,0
 1300      CIRCLE FILL XD%+2,Y%-1,D%
 1310      SYS CTSG%,TreeDark,,,%100000000,0
 1320      CIRCLE FILL XD%,Y%,D%
 1330      D%  = DMAX%*(L%-CL%)/L%
 1340      Y%  += 1
 1350      IF LVL% <> 0 THEN
 1360       XD%  = X%+ CL%*V*DIR%*(2-CL%/L%)
 1370      ENDIF
 1380      IF (CL% > L%/5 ) AND (L% > H%/2.5) AND (CL% <> L%) THEN
 1390        IF (CL% MOD BREVERY) = 0  THEN
 1400         NL% = RND(L%-CL%)+RND(L%/2)
 1410         PROC_TREE(LVL%+1,H%,XD%,Y%,D%,NL%,-DIR%,Type)
 1420         PROC_TREE(LVL%+1,H%,XD%,Y%,D%,NL%,DIR%,Type)
 1430        ENDIF
 1440      ENDIF
 1450     NEXT CL%
 1460      CASE HUE OF
 1470       WHEN Grey    :HUE=Blue
 1480       WHEN Blue    :HUE=Red
 1490       WHEN Red     :HUE=Orange
 1500       WHEN Orange  :HUE=Yellow
 1510       WHEN Yellow  :HUE=Magenta
 1520       WHEN Magenta :HUE=Cyan
 1530       WHEN Cyan    :HUE=Multi1
 1540       WHEN Multi1  :HUE=Green
 1550       WHEN Green   :HUE=RedYellow
 1560       WHEN RedYellow:HUE=Grey
 1570      ENDCASE
 1580      CASE Type OF
 1590       WHEN 0:PROC_Chysant(XD%,Y%,25,Red,RND(7)+7)
 1600       WHEN 1:PROC_Daisy(XD%,Y%,50,HUE,RND(30)+10)
 1610           ENDCASE
 1620      ENDIF
 1630      FlowerCount += 1
 1640     ENDPROC
 1650
 1660     END


�>Spring
� By Keith Atkins
� 01489 894654
(
2� � � �$;" at line ";�:�
<^�-----------------------------------------------------------------------------------------
F     �_Init
P     �_Main
Z3     �4:� �1,1);"Complete....Click to continue"
d"     � ȗ MX,MY,MA:� MA <> 0:�
n
     �
x^�-----------------------------------------------------------------------------------------
�    � �_Init
�Q     Branches = 3                   :� Number of branches on each tree branch
�     TRLVL = 0
�C     ș "OS_SWINumberFromString",,"ColourTrans_SetGCOL" � CTSG%
�-     ș "OS_ReadModeVariable",-1,11 � ,,x
�-     ș "OS_ReadModeVariable",-1,12 � ,,y
�-     ș "OS_ReadModeVariable",-1,4 � ,,ex
�-     ș "OS_ReadModeVariable",-1,5 � ,,ey
�/     MaxWidth=(x+1)<<ex:MaxHeight=(y+1)<<ey
�
�/     Grey    =  �_SETCOL(0,0,0,255,255,255)
�/     Blue    =  �_SETCOL(50,50,100,0,0,255)
�/     Red     =  �_SETCOL(100,50,50,255,0,0)
3     Orange  =  �_SETCOL(200,100,0,255,255,100)
/     Green   =  �_SETCOL(50,100,50,0,255,0)
2     Yellow  =  �_SETCOL(100,100,50,255,255,0)
"2     Magenta =  �_SETCOL(100,50,100,255,0,255)
,2     Cyan    =  �_SETCOL(50,100,100,0,255,255)
61     RedYellow =�_SETCOL(255,100,0,255,255,0)
@S     Multi1  =  �_SETCOL(�(100),�(100),�(100),�(200)+150,�(100)+150,�(100)+150)
J
T%     TreeLBrown = 225<<8 � 80<<16
^%     TreeDBrown = 150<<8 � 60<<16
h     TreeLGreen = 100<<16
r     TreeDGreen = 70<<16
|     FlowerCount= 0
�     FlowerMax  = 30
�0     x=500:y=500:Hole=10:Size=300:HUE = Grey
�     � 128:�
�	    �
�^�-----------------------------------------------------------------------------------------
�    � �_Main
�      � C% = 0 � 0
�3       TreeLight=TreeLGreen:TreeDark=TreeDGreen
�J       �_TREE(TRLVL,MaxHeight*.4,MaxWidth*.75,100,20,MaxHeight*.5,1,0)
�        TRLVL=0:FlowerCount=0
�3       TreeLight=TreeLBrown:TreeDark=TreeDBrown
�H       �_TREE(TRLVL,MaxHeight*.4,MaxWidth/3,100,30,MaxHeight*.5,1,1)
�      � C%
	    �
]�----------------------------------------------------------------------------------------
&    � �_Daisy(x,y,R,HueTab,Petals)
&     � r,j,i,c
0      c=30:r=8*R/c
:      � j = r � 0 � -4
D        j%= 256-j*256/r
N        � i = 1 � c � 1
XC         �_CircCirc(x,y,i*R/c,j-i*j/c,HueTab!(j%*4),Petals,2*i)
b        � i
l
      � j
v"      �_Sphere(x,y,R/3,HueTab)
�	    �
�]�----------------------------------------------------------------------------------------
�%    � �_Chysant(x,y,R,Hue,Petals)
�     r=R/2:m=1.3
�=     �_CircCircPolo(x,y,R,r,Hue,Petals,0):Petals=Petals*m
�D     �_CircCircPolo(x,y,R*.8,r*.8,Hue,Petals,20):Petals=Petals*m
�4     �_CircCircPolo(x,y,R*.4,r*.4,Hue,Petals,40)
�	    �
�^�-----------------------------------------------------------------------------------------
�/    � �_CircCirc(x,y,R,r,RGB%,Petals,Phase)
�     Petals=360/Petals
�%     ș CTSG%,RGB%,,,%100000000,0
�0     �  a = Phase-90 � Phase+360-90 � Petals
"       ȏ Ȑ x+R*��a,y+R*��a,r
     � a
	    �
 ^�-----------------------------------------------------------------------------------------
*2    � �_CircCircPolo(x,y,R,r,Hue,Petals,Phase)
4     Petals=360/Petals
>0     �  a = Phase-90 � Phase+360-90 � Petals
H*       �_Polo(Hue,r,1,x+R*��a,y+R*��a)
R     � a
\	    �
fZ�-------------------------------------------------------------------------------------
p&    � �_Polo(RGBTab,Size,Hole,x,y)
z%      s=1:j=s*512/(Size-Hole):n=0
�#      � i% = Size � Hole+1 � -s
�        n +=j:n%=n
�1        ș CTSG%,RGBTab!(n%*4),,,%100000000,0
�        ȏ Ȑ x,y,i%
�      � i%
�	    �
�Z�-------------------------------------------------------------------------------------
�     � �_Sphere(x,y,R,RGBTab)
�     n=(256/R)
�     � i = R � 1 � -1
�      i% = i*n
�/      ș CTSG%,RGBTab!(i%*4),,,%100000000,0
�      ȏ Ȑ x,y,i
     � i
	    �

$^�-----------------------------------------------------------------------------------------
.,� DEFINE FADE TABLE COLOURS (RGB TABLES)
88� L1,L2,L3  - LOW VALUES OF RED,GREEN & BLUE (0-255)
B9� H1,H2,H3  - HIGH VALUES OF RED,GREEN & BLUE (0-255)
L
V$   � �_SETCOL(L1,L2,L3,H1,H2,H3)
`     � COLTAB%
j     � COLTAB% 512*4
t?     PRFAC=(H1-L1)/256:PGFAC= (H2-L2)/256:PBFAC=(H3-L3)/256
~     � I%=0 � 256 � 1
�[       COLTAB%!(I%*4)= (((L1+I%*PRFAC)<<8) + ((L2+I%*PGFAC)<<16) + ((L3+I%*PBFAC)<<24))
�.       COLTAB%!((512-I%)*4)=COLTAB%!(I%*4)
�
     � I%
�   = COLTAB%
�^�-----------------------------------------------------------------------------------------
�0     � �_TREE(LVL%,H%,X%,Y%,D%,L%,DIR%,Type)
�&     � BREVERY,CL%,DMAX%,V,XD%,NL%
�     T%=�(-�)
�     BR% = Branches
�0     � L% < 10 � FlowerCount > FlowerMax � �
�@     DMAX%=D%:BREVERY=L%/BR%:VAR%=�(120)-0:V=��(VAR%):XD%=X%
�     � CL% = 0 � L% � 1
�      WAIT

+      ș CTSG%,TreeLight,,,%100000000,0
      ȏ Ȑ XD%+2,Y%-1,D%
*      ș CTSG%,TreeDark,,,%100000000,0
(      ȏ Ȑ XD%,Y%,D%
2!      D%  = DMAX%*(L%-CL%)/L%
<      Y%  += 1
F      � LVL% <> 0 �
P+       XD%  = X%+ CL%*V*DIR%*(2-CL%/L%)
Z      �
d9      � (CL% > L%/5 ) � (L% > H%/2.5) � (CL% <> L%) �
n$        � (CL% � BREVERY) = 0  �
x$         NL% = �(L%-CL%)+�(L%/2)
�7         �_TREE(LVL%+1,H%,XD%,Y%,D%,NL%,-DIR%,Type)
�6         �_TREE(LVL%+1,H%,XD%,Y%,D%,NL%,DIR%,Type)
�
        �
�      �
�     � CL%
�      Ȏ HUE �
�       � Grey    :HUE=Blue
�       � Blue    :HUE=Red
�        � Red     :HUE=Orange
�        � Orange  :HUE=Yellow
�!       � Yellow  :HUE=Magenta
�       � Magenta :HUE=Cyan
�        � Cyan    :HUE=Multi1
       � Multi1  :HUE=Green
#       � Green   :HUE=RedYellow
       � RedYellow:HUE=Grey
"      �
,      Ȏ Type �
6.       � 0:�_Chysant(XD%,Y%,25,Red,�(7)+7)
@.       � 1:�_Daisy(XD%,Y%,50,HUE,�(30)+10)
J           �
T      �
^      FlowerCount += 1
h
     �
r
|
     �
�

00000000  0d 00 0a 0c f4 3e 53 70  72 69 6e 67 0d 00 14 15  |.....>Spring....|
00000010  f4 20 42 79 20 4b 65 69  74 68 20 41 74 6b 69 6e  |. By Keith Atkin|
00000020  73 0d 00 1e 12 f4 20 30  31 34 38 39 20 38 39 34  |s..... 01489 894|
00000030  36 35 34 0d 00 28 04 0d  00 32 1c ee 20 85 20 f1  |654..(...2.. . .|
00000040  20 f6 24 3b 22 20 61 74  20 6c 69 6e 65 20 22 3b  | .$;" at line ";|
00000050  9e 3a e0 0d 00 3c 5e f4  2d 2d 2d 2d 2d 2d 2d 2d  |.:...<^.--------|
00000060  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000000b0  2d 0d 00 46 0f 20 20 20  20 20 f2 5f 49 6e 69 74  |-..F.     ._Init|
000000c0  0d 00 50 0f 20 20 20 20  20 f2 5f 4d 61 69 6e 0d  |..P.     ._Main.|
000000d0  00 5a 33 20 20 20 20 20  ef 34 3a f1 20 8a 31 2c  |.Z3     .4:. .1,|
000000e0  31 29 3b 22 43 6f 6d 70  6c 65 74 65 2e 2e 2e 2e  |1);"Complete....|
000000f0  43 6c 69 63 6b 20 74 6f  20 63 6f 6e 74 69 6e 75  |Click to continu|
00000100  65 22 0d 00 64 22 20 20  20 20 20 f5 20 c8 97 20  |e"..d"     . .. |
00000110  4d 58 2c 4d 59 2c 4d 41  3a fd 20 4d 41 20 3c 3e  |MX,MY,MA:. MA <>|
00000120  20 30 3a e0 0d 00 6e 0a  20 20 20 20 20 fa 0d 00  | 0:...n.     ...|
00000130  78 5e f4 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |x^.-------------|
00000140  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000180  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 00 82 10  |------------....|
00000190  20 20 20 20 dd 20 f2 5f  49 6e 69 74 0d 00 8c 51  |    . ._Init...Q|
000001a0  20 20 20 20 20 42 72 61  6e 63 68 65 73 20 3d 20  |     Branches = |
000001b0  33 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |3               |
000001c0  20 20 20 20 3a f4 20 4e  75 6d 62 65 72 20 6f 66  |    :. Number of|
000001d0  20 62 72 61 6e 63 68 65  73 20 6f 6e 20 65 61 63  | branches on eac|
000001e0  68 20 74 72 65 65 20 62  72 61 6e 63 68 0d 00 96  |h tree branch...|
000001f0  12 20 20 20 20 20 54 52  4c 56 4c 20 3d 20 30 0d  |.     TRLVL = 0.|
00000200  00 a0 43 20 20 20 20 20  c8 99 20 22 4f 53 5f 53  |..C     .. "OS_S|
00000210  57 49 4e 75 6d 62 65 72  46 72 6f 6d 53 74 72 69  |WINumberFromStri|
00000220  6e 67 22 2c 2c 22 43 6f  6c 6f 75 72 54 72 61 6e  |ng",,"ColourTran|
00000230  73 5f 53 65 74 47 43 4f  4c 22 20 b8 20 43 54 53  |s_SetGCOL" . CTS|
00000240  47 25 0d 00 aa 2d 20 20  20 20 20 c8 99 20 22 4f  |G%...-     .. "O|
00000250  53 5f 52 65 61 64 4d 6f  64 65 56 61 72 69 61 62  |S_ReadModeVariab|
00000260  6c 65 22 2c 2d 31 2c 31  31 20 b8 20 2c 2c 78 0d  |le",-1,11 . ,,x.|
00000270  00 b4 2d 20 20 20 20 20  c8 99 20 22 4f 53 5f 52  |..-     .. "OS_R|
00000280  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
00000290  2c 2d 31 2c 31 32 20 b8  20 2c 2c 79 0d 00 be 2d  |,-1,12 . ,,y...-|
000002a0  20 20 20 20 20 c8 99 20  22 4f 53 5f 52 65 61 64  |     .. "OS_Read|
000002b0  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 2d 31  |ModeVariable",-1|
000002c0  2c 34 20 b8 20 2c 2c 65  78 0d 00 c8 2d 20 20 20  |,4 . ,,ex...-   |
000002d0  20 20 c8 99 20 22 4f 53  5f 52 65 61 64 4d 6f 64  |  .. "OS_ReadMod|
000002e0  65 56 61 72 69 61 62 6c  65 22 2c 2d 31 2c 35 20  |eVariable",-1,5 |
000002f0  b8 20 2c 2c 65 79 0d 00  d2 2f 20 20 20 20 20 4d  |. ,,ey.../     M|
00000300  61 78 57 69 64 74 68 3d  28 78 2b 31 29 3c 3c 65  |axWidth=(x+1)<<e|
00000310  78 3a 4d 61 78 48 65 69  67 68 74 3d 28 79 2b 31  |x:MaxHeight=(y+1|
00000320  29 3c 3c 65 79 0d 00 dc  04 0d 00 e6 2f 20 20 20  |)<<ey......./   |
00000330  20 20 47 72 65 79 20 20  20 20 3d 20 20 a4 5f 53  |  Grey    =  ._S|
00000340  45 54 43 4f 4c 28 30 2c  30 2c 30 2c 32 35 35 2c  |ETCOL(0,0,0,255,|
00000350  32 35 35 2c 32 35 35 29  0d 00 f0 2f 20 20 20 20  |255,255).../    |
00000360  20 42 6c 75 65 20 20 20  20 3d 20 20 a4 5f 53 45  | Blue    =  ._SE|
00000370  54 43 4f 4c 28 35 30 2c  35 30 2c 31 30 30 2c 30  |TCOL(50,50,100,0|
00000380  2c 30 2c 32 35 35 29 0d  00 fa 2f 20 20 20 20 20  |,0,255).../     |
00000390  52 65 64 20 20 20 20 20  3d 20 20 a4 5f 53 45 54  |Red     =  ._SET|
000003a0  43 4f 4c 28 31 30 30 2c  35 30 2c 35 30 2c 32 35  |COL(100,50,50,25|
000003b0  35 2c 30 2c 30 29 0d 01  04 33 20 20 20 20 20 4f  |5,0,0)...3     O|
000003c0  72 61 6e 67 65 20 20 3d  20 20 a4 5f 53 45 54 43  |range  =  ._SETC|
000003d0  4f 4c 28 32 30 30 2c 31  30 30 2c 30 2c 32 35 35  |OL(200,100,0,255|
000003e0  2c 32 35 35 2c 31 30 30  29 0d 01 0e 2f 20 20 20  |,255,100).../   |
000003f0  20 20 47 72 65 65 6e 20  20 20 3d 20 20 a4 5f 53  |  Green   =  ._S|
00000400  45 54 43 4f 4c 28 35 30  2c 31 30 30 2c 35 30 2c  |ETCOL(50,100,50,|
00000410  30 2c 32 35 35 2c 30 29  0d 01 18 32 20 20 20 20  |0,255,0)...2    |
00000420  20 59 65 6c 6c 6f 77 20  20 3d 20 20 a4 5f 53 45  | Yellow  =  ._SE|
00000430  54 43 4f 4c 28 31 30 30  2c 31 30 30 2c 35 30 2c  |TCOL(100,100,50,|
00000440  32 35 35 2c 32 35 35 2c  30 29 0d 01 22 32 20 20  |255,255,0).."2  |
00000450  20 20 20 4d 61 67 65 6e  74 61 20 3d 20 20 a4 5f  |   Magenta =  ._|
00000460  53 45 54 43 4f 4c 28 31  30 30 2c 35 30 2c 31 30  |SETCOL(100,50,10|
00000470  30 2c 32 35 35 2c 30 2c  32 35 35 29 0d 01 2c 32  |0,255,0,255)..,2|
00000480  20 20 20 20 20 43 79 61  6e 20 20 20 20 3d 20 20  |     Cyan    =  |
00000490  a4 5f 53 45 54 43 4f 4c  28 35 30 2c 31 30 30 2c  |._SETCOL(50,100,|
000004a0  31 30 30 2c 30 2c 32 35  35 2c 32 35 35 29 0d 01  |100,0,255,255)..|
000004b0  36 31 20 20 20 20 20 52  65 64 59 65 6c 6c 6f 77  |61     RedYellow|
000004c0  20 3d a4 5f 53 45 54 43  4f 4c 28 32 35 35 2c 31  | =._SETCOL(255,1|
000004d0  30 30 2c 30 2c 32 35 35  2c 32 35 35 2c 30 29 0d  |00,0,255,255,0).|
000004e0  01 40 53 20 20 20 20 20  4d 75 6c 74 69 31 20 20  |.@S     Multi1  |
000004f0  3d 20 20 a4 5f 53 45 54  43 4f 4c 28 b3 28 31 30  |=  ._SETCOL(.(10|
00000500  30 29 2c b3 28 31 30 30  29 2c b3 28 31 30 30 29  |0),.(100),.(100)|
00000510  2c b3 28 32 30 30 29 2b  31 35 30 2c b3 28 31 30  |,.(200)+150,.(10|
00000520  30 29 2b 31 35 30 2c b3  28 31 30 30 29 2b 31 35  |0)+150,.(100)+15|
00000530  30 29 0d 01 4a 04 0d 01  54 25 20 20 20 20 20 54  |0)..J...T%     T|
00000540  72 65 65 4c 42 72 6f 77  6e 20 3d 20 32 32 35 3c  |reeLBrown = 225<|
00000550  3c 38 20 84 20 38 30 3c  3c 31 36 0d 01 5e 25 20  |<8 . 80<<16..^% |
00000560  20 20 20 20 54 72 65 65  44 42 72 6f 77 6e 20 3d  |    TreeDBrown =|
00000570  20 31 35 30 3c 3c 38 20  84 20 36 30 3c 3c 31 36  | 150<<8 . 60<<16|
00000580  0d 01 68 1d 20 20 20 20  20 54 72 65 65 4c 47 72  |..h.     TreeLGr|
00000590  65 65 6e 20 3d 20 31 30  30 3c 3c 31 36 0d 01 72  |een = 100<<16..r|
000005a0  1c 20 20 20 20 20 54 72  65 65 44 47 72 65 65 6e  |.     TreeDGreen|
000005b0  20 3d 20 37 30 3c 3c 31  36 0d 01 7c 17 20 20 20  | = 70<<16..|.   |
000005c0  20 20 46 6c 6f 77 65 72  43 6f 75 6e 74 3d 20 30  |  FlowerCount= 0|
000005d0  0d 01 86 18 20 20 20 20  20 46 6c 6f 77 65 72 4d  |....     FlowerM|
000005e0  61 78 20 20 3d 20 33 30  0d 01 90 30 20 20 20 20  |ax  = 30...0    |
000005f0  20 78 3d 35 30 30 3a 79  3d 35 30 30 3a 48 6f 6c  | x=500:y=500:Hol|
00000600  65 3d 31 30 3a 53 69 7a  65 3d 33 30 30 3a 48 55  |e=10:Size=300:HU|
00000610  45 20 3d 20 47 72 65 79  0d 01 9a 10 20 20 20 20  |E = Grey....    |
00000620  20 e6 20 31 32 38 3a da  0d 01 a4 09 20 20 20 20  | . 128:.....    |
00000630  e1 0d 01 ae 5e f4 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |....^.----------|
00000640  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000680  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00000690  01 b8 10 20 20 20 20 dd  20 f2 5f 4d 61 69 6e 0d  |...    . ._Main.|
000006a0  01 c2 16 20 20 20 20 20  20 e3 20 43 25 20 3d 20  |...      . C% = |
000006b0  30 20 b8 20 30 0d 01 cc  33 20 20 20 20 20 20 20  |0 . 0...3       |
000006c0  54 72 65 65 4c 69 67 68  74 3d 54 72 65 65 4c 47  |TreeLight=TreeLG|
000006d0  72 65 65 6e 3a 54 72 65  65 44 61 72 6b 3d 54 72  |reen:TreeDark=Tr|
000006e0  65 65 44 47 72 65 65 6e  0d 01 d6 4a 20 20 20 20  |eeDGreen...J    |
000006f0  20 20 20 f2 5f 54 52 45  45 28 54 52 4c 56 4c 2c  |   ._TREE(TRLVL,|
00000700  4d 61 78 48 65 69 67 68  74 2a 2e 34 2c 4d 61 78  |MaxHeight*.4,Max|
00000710  57 69 64 74 68 2a 2e 37  35 2c 31 30 30 2c 32 30  |Width*.75,100,20|
00000720  2c 4d 61 78 48 65 69 67  68 74 2a 2e 35 2c 31 2c  |,MaxHeight*.5,1,|
00000730  30 29 0d 01 e0 20 20 20  20 20 20 20 20 54 52 4c  |0)...        TRL|
00000740  56 4c 3d 30 3a 46 6c 6f  77 65 72 43 6f 75 6e 74  |VL=0:FlowerCount|
00000750  3d 30 0d 01 ea 33 20 20  20 20 20 20 20 54 72 65  |=0...3       Tre|
00000760  65 4c 69 67 68 74 3d 54  72 65 65 4c 42 72 6f 77  |eLight=TreeLBrow|
00000770  6e 3a 54 72 65 65 44 61  72 6b 3d 54 72 65 65 44  |n:TreeDark=TreeD|
00000780  42 72 6f 77 6e 0d 01 f4  48 20 20 20 20 20 20 20  |Brown...H       |
00000790  f2 5f 54 52 45 45 28 54  52 4c 56 4c 2c 4d 61 78  |._TREE(TRLVL,Max|
000007a0  48 65 69 67 68 74 2a 2e  34 2c 4d 61 78 57 69 64  |Height*.4,MaxWid|
000007b0  74 68 2f 33 2c 31 30 30  2c 33 30 2c 4d 61 78 48  |th/3,100,30,MaxH|
000007c0  65 69 67 68 74 2a 2e 35  2c 31 2c 31 29 0d 01 fe  |eight*.5,1,1)...|
000007d0  0e 20 20 20 20 20 20 ed  20 43 25 0d 02 08 09 20  |.      . C%.... |
000007e0  20 20 20 e1 0d 02 12 5d  f4 2d 2d 2d 2d 2d 2d 2d  |   ....].-------|
000007f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000840  2d 0d 02 1c 26 20 20 20  20 dd 20 f2 5f 44 61 69  |-...&    . ._Dai|
00000850  73 79 28 78 2c 79 2c 52  2c 48 75 65 54 61 62 2c  |sy(x,y,R,HueTab,|
00000860  50 65 74 61 6c 73 29 0d  02 26 12 20 20 20 20 20  |Petals)..&.     |
00000870  ea 20 72 2c 6a 2c 69 2c  63 0d 02 30 16 20 20 20  |. r,j,i,c..0.   |
00000880  20 20 20 63 3d 33 30 3a  72 3d 38 2a 52 2f 63 0d  |   c=30:r=8*R/c.|
00000890  02 3a 1a 20 20 20 20 20  20 e3 20 6a 20 3d 20 72  |.:.      . j = r|
000008a0  20 b8 20 30 20 88 20 2d  34 0d 02 44 1b 20 20 20  | . 0 . -4..D.   |
000008b0  20 20 20 20 20 6a 25 3d  20 32 35 36 2d 6a 2a 32  |     j%= 256-j*2|
000008c0  35 36 2f 72 0d 02 4e 1b  20 20 20 20 20 20 20 20  |56/r..N.        |
000008d0  e3 20 69 20 3d 20 31 20  b8 20 63 20 88 20 31 0d  |. i = 1 . c . 1.|
000008e0  02 58 43 20 20 20 20 20  20 20 20 20 f2 5f 43 69  |.XC         ._Ci|
000008f0  72 63 43 69 72 63 28 78  2c 79 2c 69 2a 52 2f 63  |rcCirc(x,y,i*R/c|
00000900  2c 6a 2d 69 2a 6a 2f 63  2c 48 75 65 54 61 62 21  |,j-i*j/c,HueTab!|
00000910  28 6a 25 2a 34 29 2c 50  65 74 61 6c 73 2c 32 2a  |(j%*4),Petals,2*|
00000920  69 29 0d 02 62 0f 20 20  20 20 20 20 20 20 ed 20  |i)..b.        . |
00000930  69 0d 02 6c 0d 20 20 20  20 20 20 ed 20 6a 0d 02  |i..l.      . j..|
00000940  76 22 20 20 20 20 20 20  f2 5f 53 70 68 65 72 65  |v"      ._Sphere|
00000950  28 78 2c 79 2c 52 2f 33  2c 48 75 65 54 61 62 29  |(x,y,R/3,HueTab)|
00000960  0d 02 80 09 20 20 20 20  e1 0d 02 8a 5d f4 2d 2d  |....    ....].--|
00000970  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000009c0  2d 2d 2d 2d 2d 2d 0d 02  94 25 20 20 20 20 dd 20  |------...%    . |
000009d0  f2 5f 43 68 79 73 61 6e  74 28 78 2c 79 2c 52 2c  |._Chysant(x,y,R,|
000009e0  48 75 65 2c 50 65 74 61  6c 73 29 0d 02 9e 14 20  |Hue,Petals).... |
000009f0  20 20 20 20 72 3d 52 2f  32 3a 6d 3d 31 2e 33 0d  |    r=R/2:m=1.3.|
00000a00  02 a8 3d 20 20 20 20 20  f2 5f 43 69 72 63 43 69  |..=     ._CircCi|
00000a10  72 63 50 6f 6c 6f 28 78  2c 79 2c 52 2c 72 2c 48  |rcPolo(x,y,R,r,H|
00000a20  75 65 2c 50 65 74 61 6c  73 2c 30 29 3a 50 65 74  |ue,Petals,0):Pet|
00000a30  61 6c 73 3d 50 65 74 61  6c 73 2a 6d 0d 02 b2 44  |als=Petals*m...D|
00000a40  20 20 20 20 20 f2 5f 43  69 72 63 43 69 72 63 50  |     ._CircCircP|
00000a50  6f 6c 6f 28 78 2c 79 2c  52 2a 2e 38 2c 72 2a 2e  |olo(x,y,R*.8,r*.|
00000a60  38 2c 48 75 65 2c 50 65  74 61 6c 73 2c 32 30 29  |8,Hue,Petals,20)|
00000a70  3a 50 65 74 61 6c 73 3d  50 65 74 61 6c 73 2a 6d  |:Petals=Petals*m|
00000a80  0d 02 bc 34 20 20 20 20  20 f2 5f 43 69 72 63 43  |...4     ._CircC|
00000a90  69 72 63 50 6f 6c 6f 28  78 2c 79 2c 52 2a 2e 34  |ircPolo(x,y,R*.4|
00000aa0  2c 72 2a 2e 34 2c 48 75  65 2c 50 65 74 61 6c 73  |,r*.4,Hue,Petals|
00000ab0  2c 34 30 29 0d 02 c6 09  20 20 20 20 e1 0d 02 d0  |,40)....    ....|
00000ac0  5e f4 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |^.--------------|
00000ad0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000b10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 02 da 2f 20  |-----------.../ |
00000b20  20 20 20 dd 20 f2 5f 43  69 72 63 43 69 72 63 28  |   . ._CircCirc(|
00000b30  78 2c 79 2c 52 2c 72 2c  52 47 42 25 2c 50 65 74  |x,y,R,r,RGB%,Pet|
00000b40  61 6c 73 2c 50 68 61 73  65 29 0d 02 e4 1a 20 20  |als,Phase)....  |
00000b50  20 20 20 50 65 74 61 6c  73 3d 33 36 30 2f 50 65  |   Petals=360/Pe|
00000b60  74 61 6c 73 0d 02 ee 25  20 20 20 20 20 c8 99 20  |tals...%     .. |
00000b70  43 54 53 47 25 2c 52 47  42 25 2c 2c 2c 25 31 30  |CTSG%,RGB%,,,%10|
00000b80  30 30 30 30 30 30 30 2c  30 0d 02 f8 30 20 20 20  |0000000,0...0   |
00000b90  20 20 e3 20 20 61 20 3d  20 50 68 61 73 65 2d 39  |  .  a = Phase-9|
00000ba0  30 20 b8 20 50 68 61 73  65 2b 33 36 30 2d 39 30  |0 . Phase+360-90|
00000bb0  20 88 20 50 65 74 61 6c  73 0d 03 02 22 20 20 20  | . Petals..."   |
00000bc0  20 20 20 20 c8 8f 20 c8  90 20 78 2b 52 2a 9b b2  |    .. .. x+R*..|
00000bd0  61 2c 79 2b 52 2a b5 b2  61 2c 72 0d 03 0c 0c 20  |a,y+R*..a,r.... |
00000be0  20 20 20 20 ed 20 61 0d  03 16 09 20 20 20 20 e1  |    . a....    .|
00000bf0  0d 03 20 5e f4 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.. ^.-----------|
00000c00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000c40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 03  |--------------..|
00000c50  2a 32 20 20 20 20 dd 20  f2 5f 43 69 72 63 43 69  |*2    . ._CircCi|
00000c60  72 63 50 6f 6c 6f 28 78  2c 79 2c 52 2c 72 2c 48  |rcPolo(x,y,R,r,H|
00000c70  75 65 2c 50 65 74 61 6c  73 2c 50 68 61 73 65 29  |ue,Petals,Phase)|
00000c80  0d 03 34 1a 20 20 20 20  20 50 65 74 61 6c 73 3d  |..4.     Petals=|
00000c90  33 36 30 2f 50 65 74 61  6c 73 0d 03 3e 30 20 20  |360/Petals..>0  |
00000ca0  20 20 20 e3 20 20 61 20  3d 20 50 68 61 73 65 2d  |   .  a = Phase-|
00000cb0  39 30 20 b8 20 50 68 61  73 65 2b 33 36 30 2d 39  |90 . Phase+360-9|
00000cc0  30 20 88 20 50 65 74 61  6c 73 0d 03 48 2a 20 20  |0 . Petals..H*  |
00000cd0  20 20 20 20 20 f2 5f 50  6f 6c 6f 28 48 75 65 2c  |     ._Polo(Hue,|
00000ce0  72 2c 31 2c 78 2b 52 2a  9b b2 61 2c 79 2b 52 2a  |r,1,x+R*..a,y+R*|
00000cf0  b5 b2 61 29 0d 03 52 0c  20 20 20 20 20 ed 20 61  |..a)..R.     . a|
00000d00  0d 03 5c 09 20 20 20 20  e1 0d 03 66 5a f4 2d 2d  |..\.    ...fZ.--|
00000d10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000d60  2d 2d 2d 0d 03 70 26 20  20 20 20 dd 20 f2 5f 50  |---..p&    . ._P|
00000d70  6f 6c 6f 28 52 47 42 54  61 62 2c 53 69 7a 65 2c  |olo(RGBTab,Size,|
00000d80  48 6f 6c 65 2c 78 2c 79  29 0d 03 7a 25 20 20 20  |Hole,x,y)..z%   |
00000d90  20 20 20 73 3d 31 3a 6a  3d 73 2a 35 31 32 2f 28  |   s=1:j=s*512/(|
00000da0  53 69 7a 65 2d 48 6f 6c  65 29 3a 6e 3d 30 0d 03  |Size-Hole):n=0..|
00000db0  84 23 20 20 20 20 20 20  e3 20 69 25 20 3d 20 53  |.#      . i% = S|
00000dc0  69 7a 65 20 b8 20 48 6f  6c 65 2b 31 20 88 20 2d  |ize . Hole+1 . -|
00000dd0  73 0d 03 8e 16 20 20 20  20 20 20 20 20 6e 20 2b  |s....        n +|
00000de0  3d 6a 3a 6e 25 3d 6e 0d  03 98 31 20 20 20 20 20  |=j:n%=n...1     |
00000df0  20 20 20 c8 99 20 43 54  53 47 25 2c 52 47 42 54  |   .. CTSG%,RGBT|
00000e00  61 62 21 28 6e 25 2a 34  29 2c 2c 2c 25 31 30 30  |ab!(n%*4),,,%100|
00000e10  30 30 30 30 30 30 2c 30  0d 03 a2 18 20 20 20 20  |000000,0....    |
00000e20  20 20 20 20 c8 8f 20 c8  90 20 78 2c 79 2c 69 25  |    .. .. x,y,i%|
00000e30  0d 03 ac 0e 20 20 20 20  20 20 ed 20 69 25 0d 03  |....      . i%..|
00000e40  b6 09 20 20 20 20 e1 0d  03 c0 5a f4 2d 2d 2d 2d  |..    ....Z.----|
00000e50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000ea0  2d 0d 03 ca 20 20 20 20  20 dd 20 f2 5f 53 70 68  |-...     . ._Sph|
00000eb0  65 72 65 28 78 2c 79 2c  52 2c 52 47 42 54 61 62  |ere(x,y,R,RGBTab|
00000ec0  29 0d 03 d4 12 20 20 20  20 20 6e 3d 28 32 35 36  |)....     n=(256|
00000ed0  2f 52 29 0d 03 de 19 20  20 20 20 20 e3 20 69 20  |/R)....     . i |
00000ee0  3d 20 52 20 b8 20 31 20  88 20 2d 31 0d 03 e8 12  |= R . 1 . -1....|
00000ef0  20 20 20 20 20 20 69 25  20 3d 20 69 2a 6e 0d 03  |      i% = i*n..|
00000f00  f2 2f 20 20 20 20 20 20  c8 99 20 43 54 53 47 25  |./      .. CTSG%|
00000f10  2c 52 47 42 54 61 62 21  28 69 25 2a 34 29 2c 2c  |,RGBTab!(i%*4),,|
00000f20  2c 25 31 30 30 30 30 30  30 30 30 2c 30 0d 03 fc  |,%100000000,0...|
00000f30  15 20 20 20 20 20 20 c8  8f 20 c8 90 20 78 2c 79  |.      .. .. x,y|
00000f40  2c 69 0d 04 06 0c 20 20  20 20 20 ed 20 69 0d 04  |,i....     . i..|
00000f50  10 09 20 20 20 20 e1 0d  04 1a 04 0d 04 24 5e f4  |..    .......$^.|
00000f60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000fb0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 04 2e 2c f4 20 44  |---------...,. D|
00000fc0  45 46 49 4e 45 20 46 41  44 45 20 54 41 42 4c 45  |EFINE FADE TABLE|
00000fd0  20 43 4f 4c 4f 55 52 53  20 28 52 47 42 20 54 41  | COLOURS (RGB TA|
00000fe0  42 4c 45 53 29 0d 04 38  38 f4 20 4c 31 2c 4c 32  |BLES)..88. L1,L2|
00000ff0  2c 4c 33 20 20 2d 20 4c  4f 57 20 56 41 4c 55 45  |,L3  - LOW VALUE|
00001000  53 20 4f 46 20 52 45 44  2c 47 52 45 45 4e 20 26  |S OF RED,GREEN &|
00001010  20 42 4c 55 45 20 28 30  2d 32 35 35 29 0d 04 42  | BLUE (0-255)..B|
00001020  39 f4 20 48 31 2c 48 32  2c 48 33 20 20 2d 20 48  |9. H1,H2,H3  - H|
00001030  49 47 48 20 56 41 4c 55  45 53 20 4f 46 20 52 45  |IGH VALUES OF RE|
00001040  44 2c 47 52 45 45 4e 20  26 20 42 4c 55 45 20 28  |D,GREEN & BLUE (|
00001050  30 2d 32 35 35 29 0d 04  4c 04 0d 04 56 24 20 20  |0-255)..L...V$  |
00001060  20 dd 20 a4 5f 53 45 54  43 4f 4c 28 4c 31 2c 4c  | . ._SETCOL(L1,L|
00001070  32 2c 4c 33 2c 48 31 2c  48 32 2c 48 33 29 0d 04  |2,L3,H1,H2,H3)..|
00001080  60 12 20 20 20 20 20 ea  20 43 4f 4c 54 41 42 25  |`.     . COLTAB%|
00001090  0d 04 6a 18 20 20 20 20  20 de 20 43 4f 4c 54 41  |..j.     . COLTA|
000010a0  42 25 20 35 31 32 2a 34  0d 04 74 3f 20 20 20 20  |B% 512*4..t?    |
000010b0  20 50 52 46 41 43 3d 28  48 31 2d 4c 31 29 2f 32  | PRFAC=(H1-L1)/2|
000010c0  35 36 3a 50 47 46 41 43  3d 20 28 48 32 2d 4c 32  |56:PGFAC= (H2-L2|
000010d0  29 2f 32 35 36 3a 50 42  46 41 43 3d 28 48 33 2d  |)/256:PBFAC=(H3-|
000010e0  4c 33 29 2f 32 35 36 0d  04 7e 19 20 20 20 20 20  |L3)/256..~.     |
000010f0  e3 20 49 25 3d 30 20 b8  20 32 35 36 20 88 20 31  |. I%=0 . 256 . 1|
00001100  0d 04 88 5b 20 20 20 20  20 20 20 43 4f 4c 54 41  |...[       COLTA|
00001110  42 25 21 28 49 25 2a 34  29 3d 20 28 28 28 4c 31  |B%!(I%*4)= (((L1|
00001120  2b 49 25 2a 50 52 46 41  43 29 3c 3c 38 29 20 2b  |+I%*PRFAC)<<8) +|
00001130  20 28 28 4c 32 2b 49 25  2a 50 47 46 41 43 29 3c  | ((L2+I%*PGFAC)<|
00001140  3c 31 36 29 20 2b 20 28  28 4c 33 2b 49 25 2a 50  |<16) + ((L3+I%*P|
00001150  42 46 41 43 29 3c 3c 32  34 29 29 0d 04 92 2e 20  |BFAC)<<24)).... |
00001160  20 20 20 20 20 20 43 4f  4c 54 41 42 25 21 28 28  |      COLTAB%!((|
00001170  35 31 32 2d 49 25 29 2a  34 29 3d 43 4f 4c 54 41  |512-I%)*4)=COLTA|
00001180  42 25 21 28 49 25 2a 34  29 0d 04 9c 0d 20 20 20  |B%!(I%*4)....   |
00001190  20 20 ed 20 49 25 0d 04  a6 10 20 20 20 3d 20 43  |  . I%....   = C|
000011a0  4f 4c 54 41 42 25 0d 04  b0 5e f4 2d 2d 2d 2d 2d  |OLTAB%...^.-----|
000011b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001200  2d 2d 2d 2d 0d 04 ba 30  20 20 20 20 20 dd 20 f2  |----...0     . .|
00001210  5f 54 52 45 45 28 4c 56  4c 25 2c 48 25 2c 58 25  |_TREE(LVL%,H%,X%|
00001220  2c 59 25 2c 44 25 2c 4c  25 2c 44 49 52 25 2c 54  |,Y%,D%,L%,DIR%,T|
00001230  79 70 65 29 0d 04 c4 26  20 20 20 20 20 ea 20 42  |ype)...&     . B|
00001240  52 45 56 45 52 59 2c 43  4c 25 2c 44 4d 41 58 25  |REVERY,CL%,DMAX%|
00001250  2c 56 2c 58 44 25 2c 4e  4c 25 0d 04 ce 11 20 20  |,V,XD%,NL%....  |
00001260  20 20 20 54 25 3d b3 28  2d 91 29 0d 04 d8 17 20  |   T%=.(-.).... |
00001270  20 20 20 20 42 52 25 20  3d 20 42 72 61 6e 63 68  |    BR% = Branch|
00001280  65 73 0d 04 e2 30 20 20  20 20 20 e7 20 4c 25 20  |es...0     . L% |
00001290  3c 20 31 30 20 84 20 46  6c 6f 77 65 72 43 6f 75  |< 10 . FlowerCou|
000012a0  6e 74 20 3e 20 46 6c 6f  77 65 72 4d 61 78 20 8c  |nt > FlowerMax .|
000012b0  20 e1 0d 04 ec 40 20 20  20 20 20 44 4d 41 58 25  | ....@     DMAX%|
000012c0  3d 44 25 3a 42 52 45 56  45 52 59 3d 4c 25 2f 42  |=D%:BREVERY=L%/B|
000012d0  52 25 3a 56 41 52 25 3d  b3 28 31 32 30 29 2d 30  |R%:VAR%=.(120)-0|
000012e0  3a 56 3d b5 b2 28 56 41  52 25 29 3a 58 44 25 3d  |:V=..(VAR%):XD%=|
000012f0  58 25 0d 04 f6 1b 20 20  20 20 20 e3 20 43 4c 25  |X%....     . CL%|
00001300  20 3d 20 30 20 b8 20 4c  25 20 88 20 31 0d 05 00  | = 0 . L% . 1...|
00001310  0f f4 20 20 20 20 20 20  57 41 49 54 0d 05 0a 2b  |..      WAIT...+|
00001320  20 20 20 20 20 20 c8 99  20 43 54 53 47 25 2c 54  |      .. CTSG%,T|
00001330  72 65 65 4c 69 67 68 74  2c 2c 2c 25 31 30 30 30  |reeLight,,,%1000|
00001340  30 30 30 30 30 2c 30 0d  05 14 1d 20 20 20 20 20  |00000,0....     |
00001350  20 c8 8f 20 c8 90 20 58  44 25 2b 32 2c 59 25 2d  | .. .. XD%+2,Y%-|
00001360  31 2c 44 25 0d 05 1e 2a  20 20 20 20 20 20 c8 99  |1,D%...*      ..|
00001370  20 43 54 53 47 25 2c 54  72 65 65 44 61 72 6b 2c  | CTSG%,TreeDark,|
00001380  2c 2c 25 31 30 30 30 30  30 30 30 30 2c 30 0d 05  |,,%100000000,0..|
00001390  28 19 20 20 20 20 20 20  c8 8f 20 c8 90 20 58 44  |(.      .. .. XD|
000013a0  25 2c 59 25 2c 44 25 0d  05 32 21 20 20 20 20 20  |%,Y%,D%..2!     |
000013b0  20 44 25 20 20 3d 20 44  4d 41 58 25 2a 28 4c 25  | D%  = DMAX%*(L%|
000013c0  2d 43 4c 25 29 2f 4c 25  0d 05 3c 12 20 20 20 20  |-CL%)/L%..<.    |
000013d0  20 20 59 25 20 20 2b 3d  20 31 0d 05 46 17 20 20  |  Y%  += 1..F.  |
000013e0  20 20 20 20 e7 20 4c 56  4c 25 20 3c 3e 20 30 20  |    . LVL% <> 0 |
000013f0  8c 0d 05 50 2b 20 20 20  20 20 20 20 58 44 25 20  |...P+       XD% |
00001400  20 3d 20 58 25 2b 20 43  4c 25 2a 56 2a 44 49 52  | = X%+ CL%*V*DIR|
00001410  25 2a 28 32 2d 43 4c 25  2f 4c 25 29 0d 05 5a 0b  |%*(2-CL%/L%)..Z.|
00001420  20 20 20 20 20 20 cd 0d  05 64 39 20 20 20 20 20  |      ...d9     |
00001430  20 e7 20 28 43 4c 25 20  3e 20 4c 25 2f 35 20 29  | . (CL% > L%/5 )|
00001440  20 80 20 28 4c 25 20 3e  20 48 25 2f 32 2e 35 29  | . (L% > H%/2.5)|
00001450  20 80 20 28 43 4c 25 20  3c 3e 20 4c 25 29 20 8c  | . (CL% <> L%) .|
00001460  0d 05 6e 24 20 20 20 20  20 20 20 20 e7 20 28 43  |..n$        . (C|
00001470  4c 25 20 83 20 42 52 45  56 45 52 59 29 20 3d 20  |L% . BREVERY) = |
00001480  30 20 20 8c 0d 05 78 24  20 20 20 20 20 20 20 20  |0  ...x$        |
00001490  20 4e 4c 25 20 3d 20 b3  28 4c 25 2d 43 4c 25 29  | NL% = .(L%-CL%)|
000014a0  2b b3 28 4c 25 2f 32 29  0d 05 82 37 20 20 20 20  |+.(L%/2)...7    |
000014b0  20 20 20 20 20 f2 5f 54  52 45 45 28 4c 56 4c 25  |     ._TREE(LVL%|
000014c0  2b 31 2c 48 25 2c 58 44  25 2c 59 25 2c 44 25 2c  |+1,H%,XD%,Y%,D%,|
000014d0  4e 4c 25 2c 2d 44 49 52  25 2c 54 79 70 65 29 0d  |NL%,-DIR%,Type).|
000014e0  05 8c 36 20 20 20 20 20  20 20 20 20 f2 5f 54 52  |..6         ._TR|
000014f0  45 45 28 4c 56 4c 25 2b  31 2c 48 25 2c 58 44 25  |EE(LVL%+1,H%,XD%|
00001500  2c 59 25 2c 44 25 2c 4e  4c 25 2c 44 49 52 25 2c  |,Y%,D%,NL%,DIR%,|
00001510  54 79 70 65 29 0d 05 96  0d 20 20 20 20 20 20 20  |Type)....       |
00001520  20 cd 0d 05 a0 0b 20 20  20 20 20 20 cd 0d 05 aa  | .....      ....|
00001530  0e 20 20 20 20 20 ed 20  43 4c 25 0d 05 b4 12 20  |.     . CL%.... |
00001540  20 20 20 20 20 c8 8e 20  48 55 45 20 ca 0d 05 be  |     .. HUE ....|
00001550  1e 20 20 20 20 20 20 20  c9 20 47 72 65 79 20 20  |.       . Grey  |
00001560  20 20 3a 48 55 45 3d 42  6c 75 65 0d 05 c8 1d 20  |  :HUE=Blue.... |
00001570  20 20 20 20 20 20 c9 20  42 6c 75 65 20 20 20 20  |      . Blue    |
00001580  3a 48 55 45 3d 52 65 64  0d 05 d2 20 20 20 20 20  |:HUE=Red...     |
00001590  20 20 20 c9 20 52 65 64  20 20 20 20 20 3a 48 55  |   . Red     :HU|
000015a0  45 3d 4f 72 61 6e 67 65  0d 05 dc 20 20 20 20 20  |E=Orange...     |
000015b0  20 20 20 c9 20 4f 72 61  6e 67 65 20 20 3a 48 55  |   . Orange  :HU|
000015c0  45 3d 59 65 6c 6c 6f 77  0d 05 e6 21 20 20 20 20  |E=Yellow...!    |
000015d0  20 20 20 c9 20 59 65 6c  6c 6f 77 20 20 3a 48 55  |   . Yellow  :HU|
000015e0  45 3d 4d 61 67 65 6e 74  61 0d 05 f0 1e 20 20 20  |E=Magenta....   |
000015f0  20 20 20 20 c9 20 4d 61  67 65 6e 74 61 20 3a 48  |    . Magenta :H|
00001600  55 45 3d 43 79 61 6e 0d  05 fa 20 20 20 20 20 20  |UE=Cyan...      |
00001610  20 20 c9 20 43 79 61 6e  20 20 20 20 3a 48 55 45  |  . Cyan    :HUE|
00001620  3d 4d 75 6c 74 69 31 0d  06 04 1f 20 20 20 20 20  |=Multi1....     |
00001630  20 20 c9 20 4d 75 6c 74  69 31 20 20 3a 48 55 45  |  . Multi1  :HUE|
00001640  3d 47 72 65 65 6e 0d 06  0e 23 20 20 20 20 20 20  |=Green...#      |
00001650  20 c9 20 47 72 65 65 6e  20 20 20 3a 48 55 45 3d  | . Green   :HUE=|
00001660  52 65 64 59 65 6c 6c 6f  77 0d 06 18 1f 20 20 20  |RedYellow....   |
00001670  20 20 20 20 c9 20 52 65  64 59 65 6c 6c 6f 77 3a  |    . RedYellow:|
00001680  48 55 45 3d 47 72 65 79  0d 06 22 0b 20 20 20 20  |HUE=Grey..".    |
00001690  20 20 cb 0d 06 2c 13 20  20 20 20 20 20 c8 8e 20  |  ...,.      .. |
000016a0  54 79 70 65 20 ca 0d 06  36 2e 20 20 20 20 20 20  |Type ...6.      |
000016b0  20 c9 20 30 3a f2 5f 43  68 79 73 61 6e 74 28 58  | . 0:._Chysant(X|
000016c0  44 25 2c 59 25 2c 32 35  2c 52 65 64 2c b3 28 37  |D%,Y%,25,Red,.(7|
000016d0  29 2b 37 29 0d 06 40 2e  20 20 20 20 20 20 20 c9  |)+7)..@.       .|
000016e0  20 31 3a f2 5f 44 61 69  73 79 28 58 44 25 2c 59  | 1:._Daisy(XD%,Y|
000016f0  25 2c 35 30 2c 48 55 45  2c b3 28 33 30 29 2b 31  |%,50,HUE,.(30)+1|
00001700  30 29 0d 06 4a 10 20 20  20 20 20 20 20 20 20 20  |0)..J.          |
00001710  20 cb 0d 06 54 0b 20 20  20 20 20 20 cd 0d 06 5e  | ...T.      ...^|
00001720  1a 20 20 20 20 20 20 46  6c 6f 77 65 72 43 6f 75  |.      FlowerCou|
00001730  6e 74 20 2b 3d 20 31 0d  06 68 0a 20 20 20 20 20  |nt += 1..h.     |
00001740  e1 0d 06 72 04 0d 06 7c  0a 20 20 20 20 20 e0 0d  |...r...|.     ..|
00001750  ff                                                |.|
00001751

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .