�''''"Elysia!"
�'
�"Seed ";T%
(T=�(-T%)
2� T%=0 T=�(-�)
7�A=1�16:Q=�(9999999):�
<� 2
=� col(7):� A=1 � 7
>'col(A)=�(7):� A>1 �chk:� Z=1 � �T~@
?�19,A,col(A);0;:� A
Fhorizon=�(400)+312
K4�0,1:�0,0:�1280,0:�85,0,horizon:�85,1280,horizon
dwater=�(2)-1
nsky=�(3)
x� sky=1 �sunset(water)
�� sky=2 �sky(water)
�� sky=3 �space(water)
�hills=�(3)
�� hills=1 �hills1(water)
�6� hills=2 �hills2(water):� �(50)>30 �hills2(water)
�d�0,1:� water=1 �A=horizon � 0 � -8:�0,A:�1280,A:�A � �0,0:�1280,0:�85,0,horizon:�85,1280,horizon
�� �(60)>40 �rks2
� � �(60)>30 �rks1(water,�(2))
�� �(50)>25 �coast
�� A=1 � 9000:� A:�1:�
'�
'��circle(x,y,a,b)
'�29,x;y;
'$�0,0
'.�A=0��*2��/8
'8�0,0
'B�85,a*�(A),b*�(A)
'L�
'V�29,0;0;
'`�
'j��sunset(r)
'~!sx=�(1280):sy=�(1024-horizon)
'� ss=�(150)
'�{�I=1�50:�0,2+�(2):x=sx+�(ss*4)-ss*2:y=�(sy*3):z=�(160)-80:�x,y+horizon:�x+z,y+horizon:� r=1 �x,horizon-y:�x+z,horizon-y
'��
'��0,2
'� �circle(sx,horizon+sy,ss,ss)
'�&� r=1 �circle(sx,horizon-sy,ss,ss)
'��
'���sky(r)
'��0,2:�I=1��(10)
'�&X=�(1280):Y=�(1024-horizon):C=�(Y)
'�! �circle(X,horizon+Y,C*1.5,C)
'�&� r=1 �circle(X,horizon-Y,C*1.5,C)
'��
'��
'���space(r)
(� A=1 � �(500)
(

�0,�(6)+1
(x=�(1280):y=�(1024-horizon)
( �69,x,horizon+y
((� r=1 �69,x,horizon-y
(2� A
(<� �(50)>25 �planets
(A.� �(50)>45 �sky(r) � � �(50)>45 �sunset(r)
(F�
(K
��planets
(P7� Q=1 � �(10):�0,�(6)+1:x=�(1280):y=�(1024-horizon)
(Zc=�(150)
(d
�0,�(6)+1
(n�circle(x,y+horizon,c,c)
(x"� r=1 �circle(x,horizon-y,c,c)
(��
(��
(���hills1(r)
(�z=�(100)+50
(��A=1��(10)
(�
�0,�(6)+1
(�0a=�(1280):b=�(1280-a)+a:c=�(1280-b)+b:d=�(z)
(�?�b,horizon+d:�a,horizon:�85,c,horizon:� r=1 �85,b,horizon-d
(��
(��
(���hills2(r)
(�5z=�(200)+50:q=�(z):a=�(6)+1:b=�(6)+1:� a=b � �dfh
(�� A=0 � 1280 � 8
(�	 �0,a
(�0�A,horizon+q:� A,horizon:� r=1 � A,horizon-q
)�0,b
)4� �(50)>25 �69,A,horizon+q:� r=1 �69,A,horizon-q
)�(50)>25 q=q+4 � q=q-4
)� q>z q=z-4
)
� q<0 q=4
)�
)"�
),��rks1(r,t)
)- y=0:n=�(4)
).�
)/n=n*1.1
)0V� �(50)>40 � t=1 �rk � � t=2 � �(20)=20 �crater(�(1280),horizon-y,�(y)*1.2,�(6)-1)
)1� �(50)>45 � �Tpi
)6"y=y+n:� y>horizon � �(100)=100
)@�
N 	��chk
N% Z=0
N&
 e=�(6)+1
N*� B=1 � A-1
N4� col(B)=col(A) Z=1
N>�
NH�
NR��rk
N\4a=�(1280):b=�(1280-a)+a:c=�(1280-b)+b:d=�(y/4)*3
Nf�0,e
Np|� b,horizon-y+d:� a,horizon-y:�85,c,horizon-y:� r=1 �85,b,horizon-y-d:�I=horizon-y � horizon-y-d � -12:�0,1:�a,I:�c,I:�I
Nu1�0,0:�a,horizon-y:�b,horizon-y+d:�c,horizon-y
Nz�
N�
��rks2
N�
y=horizon
N�a=�(6)+1:b=�(6)+1
N��
N�� I=1 � �(y/10)
N��0,a
N��69,�(1280),y
N��0,b
N��69,�(1280),y
N�� I
N�	y=y-4
N�	� y<0
N��
O��coast1
Oa=height:b=�(a)
O	a=a-b
O	 �0,3
O� A=0 � 1280 � 8
O$� A,0:� A,b+�(a)
O.� A
O8�
O9��coast2
O:.a=height:b=�(a):a=a-b:c=a/2+b:d=�(a)+b:e=0
O;�0,3:� A=0 � 1280 � 8
O<
�A,0:�A,d
O=d=d+e:� d>c e=e-1 � e=e+1
O>� A
O?�
OB ��crater(x,y,s,c)
OL�0,c
O`�circle(x,y,s,s/2)
Oe	 �0,0
Oj�circle(x,y,s-8,s/2-8)
Ot�0,c
O~� A=�/2 � �*1.5 � �/8
O�� x+s*�(A),y+s*�(A)/2
O�%� x+s*�(A)*1.2,y+s*�(A)/2*1.2-s/2
O�� A
O��
O���coast3
O�+a=height:b=�(a):a=a-b:c=b+�(a):�0,3    
O�� A=0 � 1280 � 8
O�
�A,0:�A,c
O�� �(50)>25 c=c+4 � c=c-4
O�� c>a+b c=a+b-4
O�� c<b c=b+4
O��
O��
O���coast
O� z=�(3)
O� height=�(horizon)
O�� z=1 �coast1
O�� z=2 �coast2
O�� z=3 �coast3
O�� �(50)>25 �plants
O��
O���grass(x,y,s)
O��0,4
P� I=1 � �(10)
P
7� x,y:p=x+�(s)-s/2:q=y+�(s):� p,q:�0,3+�(4):�69,p,q
P �
P �
P(��tree(t,u,v)
P2�J=0 � v � v/10
P<�grass(t,u+J,v)
PF�
PP�
PZ��plants
Pd� Q=height � 0 � -8
PxP=�(16)
P�'�R=1�50:X=�(1280):� �X,Q)=3 R=51   
P��:� �X,Q)<>3 � �pjP
P� S=horizon-Q:S=S/2
P�� P=1 �grass(X,Q,S)
P�� P=2 �tree(X,Q,S)
P�� P=3 �tree2(X,Q,S)
P�� P=4 �tree3(X,Q,S)
P��
P��
P���tree2(t,u,v)
P��0,4
P��t-v/5,u:�t+v/5,u:�85,t,u+v
P��0,0
P��t-v/5,u:�t,u+v:�t+v/5,u
P�� I=1 � �(10)
P�
�0,4+�(3)
P�2�circle(t-v/2+�(v),u+v/2+�(v/2),�(v/4),�(v/4))
P��
Q�
Q,��tree3(t,u,v)
Q6�0,4
Q@%� t-v/5,u:�t+v/5,u:�85,t,u+v*0.75
QA&�0,0:�t-v/5,u:�t,u+v*0.75:�t+v/5,u
QEaa=�(v)/2:bb=�(v)/2
QJ� Z=0 � -8 � -8
QT
�0,4+�(3)
Q^!�circle(t,u+v*0.75,aa+Z,bb+Z)
Qh�
Qr�
�

00000000  0d 00 0a 12 f1 27 27 27  27 22 45 6c 79 73 69 61  |.....''''"Elysia|
00000010  21 22 0d 00 14 06 f1 27  0d 00 1e 0f e8 22 53 65  |!".....'....."Se|
00000020  65 64 20 22 3b 54 25 0d  00 28 0c 54 3d b3 28 2d  |ed ";T%..(.T=.(-|
00000030  54 25 29 0d 00 32 12 e7  20 54 25 3d 30 20 54 3d  |T%)..2.. T%=0 T=|
00000040  b3 28 2d 91 29 0d 00 37  1a e3 41 3d 31 b8 31 36  |.(-.)..7..A=1.16|
00000050  3a 51 3d b3 28 39 39 39  39 39 39 39 29 3a ed 0d  |:Q=.(9999999):..|
00000060  00 3c 07 eb 20 32 0d 00  3d 16 de 20 63 6f 6c 28  |.<.. 2..=.. col(|
00000070  37 29 3a e3 20 41 3d 31  20 b8 20 37 0d 00 3e 27  |7):. A=1 . 7..>'|
00000080  63 6f 6c 28 41 29 3d b3  28 37 29 3a e7 20 41 3e  |col(A)=.(7):. A>|
00000090  31 20 f2 63 68 6b 3a e7  20 5a 3d 31 20 e5 20 8d  |1 .chk:. Z=1 . .|
000000a0  54 7e 40 0d 00 3f 17 ef  31 39 2c 41 2c 63 6f 6c  |T~@..?..19,A,col|
000000b0  28 41 29 3b 30 3b 3a ed  20 41 0d 00 46 16 68 6f  |(A);0;:. A..F.ho|
000000c0  72 69 7a 6f 6e 3d b3 28  34 30 30 29 2b 33 31 32  |rizon=.(400)+312|
000000d0  0d 00 4b 34 e6 30 2c 31  3a ec 30 2c 30 3a df 31  |..K4.0,1:.0,0:.1|
000000e0  32 38 30 2c 30 3a f0 38  35 2c 30 2c 68 6f 72 69  |280,0:.85,0,hori|
000000f0  7a 6f 6e 3a f0 38 35 2c  31 32 38 30 2c 68 6f 72  |zon:.85,1280,hor|
00000100  69 7a 6f 6e 0d 00 64 10  77 61 74 65 72 3d b3 28  |izon..d.water=.(|
00000110  32 29 2d 31 0d 00 6e 0c  73 6b 79 3d b3 28 33 29  |2)-1..n.sky=.(3)|
00000120  0d 00 78 1a e7 20 73 6b  79 3d 31 20 f2 73 75 6e  |..x.. sky=1 .sun|
00000130  73 65 74 28 77 61 74 65  72 29 0d 00 82 17 e7 20  |set(water)..... |
00000140  73 6b 79 3d 32 20 f2 73  6b 79 28 77 61 74 65 72  |sky=2 .sky(water|
00000150  29 0d 00 8c 19 e7 20 73  6b 79 3d 33 20 f2 73 70  |)..... sky=3 .sp|
00000160  61 63 65 28 77 61 74 65  72 29 0d 00 8d 0e 68 69  |ace(water)....hi|
00000170  6c 6c 73 3d b3 28 33 29  0d 00 8e 1c e7 20 68 69  |lls=.(3)..... hi|
00000180  6c 6c 73 3d 31 20 f2 68  69 6c 6c 73 31 28 77 61  |lls=1 .hills1(wa|
00000190  74 65 72 29 0d 00 8f 36  e7 20 68 69 6c 6c 73 3d  |ter)...6. hills=|
000001a0  32 20 f2 68 69 6c 6c 73  32 28 77 61 74 65 72 29  |2 .hills2(water)|
000001b0  3a e7 20 b3 28 35 30 29  3e 33 30 20 f2 68 69 6c  |:. .(50)>30 .hil|
000001c0  6c 73 32 28 77 61 74 65  72 29 0d 00 96 64 e6 30  |ls2(water)...d.0|
000001d0  2c 31 3a e7 20 77 61 74  65 72 3d 31 20 e3 41 3d  |,1:. water=1 .A=|
000001e0  68 6f 72 69 7a 6f 6e 20  b8 20 30 20 88 20 2d 38  |horizon . 0 . -8|
000001f0  3a ec 30 2c 41 3a df 31  32 38 30 2c 41 3a ed 41  |:.0,A:.1280,A:.A|
00000200  20 8b 20 ec 30 2c 30 3a  df 31 32 38 30 2c 30 3a  | . .0,0:.1280,0:|
00000210  f0 38 35 2c 30 2c 68 6f  72 69 7a 6f 6e 3a f0 38  |.85,0,horizon:.8|
00000220  35 2c 31 32 38 30 2c 68  6f 72 69 7a 6f 6e 0d 00  |5,1280,horizon..|
00000230  a0 14 e7 20 b3 28 36 30  29 3e 34 30 20 f2 72 6b  |... .(60)>40 .rk|
00000240  73 32 0d 00 aa 20 e7 20  b3 28 36 30 29 3e 33 30  |s2... . .(60)>30|
00000250  20 f2 72 6b 73 31 28 77  61 74 65 72 2c b3 28 32  | .rks1(water,.(2|
00000260  29 29 0d 00 b4 15 e7 20  b3 28 35 30 29 3e 32 35  |))..... .(50)>25|
00000270  20 f2 63 6f 61 73 74 0d  00 be 19 e3 20 41 3d 31  | .coast..... A=1|
00000280  20 b8 20 39 30 30 30 3a  ed 20 41 3a eb 31 3a f9  | . 9000:. A:.1:.|
00000290  0d 27 0f 05 e0 0d 27 10  15 dd f2 63 69 72 63 6c  |.'....'....circl|
000002a0  65 28 78 2c 79 2c 61 2c  62 29 0d 27 1a 0c ef 32  |e(x,y,a,b).'...2|
000002b0  39 2c 78 3b 79 3b 0d 27  24 08 ec 30 2c 30 0d 27  |9,x;y;.'$..0,0.'|
000002c0  2e 10 e3 41 3d 30 b8 af  2a 32 88 af 2f 38 0d 27  |...A=0..*2../8.'|
000002d0  38 08 ec 30 2c 30 0d 27  42 15 f0 38 35 2c 61 2a  |8..0,0.'B..85,a*|
000002e0  b5 28 41 29 2c 62 2a 9b  28 41 29 0d 27 4c 05 ed  |.(A),b*.(A).'L..|
000002f0  0d 27 56 0c ef 32 39 2c  30 3b 30 3b 0d 27 60 05  |.'V..29,0;0;.'`.|
00000300  e1 0d 27 6a 0f dd f2 73  75 6e 73 65 74 28 72 29  |..'j...sunset(r)|
00000310  0d 27 7e 21 73 78 3d b3  28 31 32 38 30 29 3a 73  |.'~!sx=.(1280):s|
00000320  79 3d b3 28 31 30 32 34  2d 68 6f 72 69 7a 6f 6e  |y=.(1024-horizon|
00000330  29 0d 27 83 0e 20 73 73  3d b3 28 31 35 30 29 0d  |).'.. ss=.(150).|
00000340  27 84 7b e3 49 3d 31 b8  35 30 3a e6 30 2c 32 2b  |'.{.I=1.50:.0,2+|
00000350  b3 28 32 29 3a 78 3d 73  78 2b b3 28 73 73 2a 34  |.(2):x=sx+.(ss*4|
00000360  29 2d 73 73 2a 32 3a 79  3d b3 28 73 79 2a 33 29  |)-ss*2:y=.(sy*3)|
00000370  3a 7a 3d b3 28 31 36 30  29 2d 38 30 3a ec 78 2c  |:z=.(160)-80:.x,|
00000380  79 2b 68 6f 72 69 7a 6f  6e 3a df 78 2b 7a 2c 79  |y+horizon:.x+z,y|
00000390  2b 68 6f 72 69 7a 6f 6e  3a e7 20 72 3d 31 20 ec  |+horizon:. r=1 .|
000003a0  78 2c 68 6f 72 69 7a 6f  6e 2d 79 3a df 78 2b 7a  |x,horizon-y:.x+z|
000003b0  2c 68 6f 72 69 7a 6f 6e  2d 79 0d 27 85 05 ed 0d  |,horizon-y.'....|
000003c0  27 87 08 e6 30 2c 32 0d  27 88 20 f2 63 69 72 63  |'...0,2.'. .circ|
000003d0  6c 65 28 73 78 2c 68 6f  72 69 7a 6f 6e 2b 73 79  |le(sx,horizon+sy|
000003e0  2c 73 73 2c 73 73 29 0d  27 92 26 e7 20 72 3d 31  |,ss,ss).'.&. r=1|
000003f0  20 f2 63 69 72 63 6c 65  28 73 78 2c 68 6f 72 69  | .circle(sx,hori|
00000400  7a 6f 6e 2d 73 79 2c 73  73 2c 73 73 29 0d 27 a6  |zon-sy,ss,ss).'.|
00000410  05 e1 0d 27 b0 0c dd f2  73 6b 79 28 72 29 0d 27  |...'....sky(r).'|
00000420  ba 13 e6 30 2c 32 3a e3  49 3d 31 b8 b3 28 31 30  |...0,2:.I=1..(10|
00000430  29 0d 27 c4 26 58 3d b3  28 31 32 38 30 29 3a 59  |).'.&X=.(1280):Y|
00000440  3d b3 28 31 30 32 34 2d  68 6f 72 69 7a 6f 6e 29  |=.(1024-horizon)|
00000450  3a 43 3d b3 28 59 29 0d  27 ce 21 20 f2 63 69 72  |:C=.(Y).'.! .cir|
00000460  63 6c 65 28 58 2c 68 6f  72 69 7a 6f 6e 2b 59 2c  |cle(X,horizon+Y,|
00000470  43 2a 31 2e 35 2c 43 29  0d 27 d8 26 e7 20 72 3d  |C*1.5,C).'.&. r=|
00000480  31 20 f2 63 69 72 63 6c  65 28 58 2c 68 6f 72 69  |1 .circle(X,hori|
00000490  7a 6f 6e 2d 59 2c 43 2a  31 2e 35 2c 43 29 0d 27  |zon-Y,C*1.5,C).'|
000004a0  e2 05 ed 0d 27 ec 05 e1  0d 27 f6 0e dd f2 73 70  |....'....'....sp|
000004b0  61 63 65 28 72 29 0d 28  00 12 e3 20 41 3d 31 20  |ace(r).(... A=1 |
000004c0  b8 20 b3 28 35 30 30 29  0d 28 0a 0d e6 30 2c b3  |. .(500).(...0,.|
000004d0  28 36 29 2b 31 0d 28 14  1f 78 3d b3 28 31 32 38  |(6)+1.(..x=.(128|
000004e0  30 29 3a 79 3d b3 28 31  30 32 34 2d 68 6f 72 69  |0):y=.(1024-hori|
000004f0  7a 6f 6e 29 0d 28 1e 14  20 f0 36 39 2c 78 2c 68  |zon).(.. .69,x,h|
00000500  6f 72 69 7a 6f 6e 2b 79  0d 28 28 19 e7 20 72 3d  |orizon+y.((.. r=|
00000510  31 20 f0 36 39 2c 78 2c  68 6f 72 69 7a 6f 6e 2d  |1 .69,x,horizon-|
00000520  79 0d 28 32 07 ed 20 41  0d 28 3c 17 e7 20 b3 28  |y.(2.. A.(<.. .(|
00000530  35 30 29 3e 32 35 20 f2  70 6c 61 6e 65 74 73 0d  |50)>25 .planets.|
00000540  28 41 2e e7 20 b3 28 35  30 29 3e 34 35 20 f2 73  |(A.. .(50)>45 .s|
00000550  6b 79 28 72 29 20 8b 20  e7 20 b3 28 35 30 29 3e  |ky(r) . . .(50)>|
00000560  34 35 20 f2 73 75 6e 73  65 74 28 72 29 0d 28 46  |45 .sunset(r).(F|
00000570  05 e1 0d 28 4b 0d dd f2  70 6c 61 6e 65 74 73 0d  |...(K...planets.|
00000580  28 50 37 e3 20 51 3d 31  20 b8 20 b3 28 31 30 29  |(P7. Q=1 . .(10)|
00000590  3a e6 30 2c b3 28 36 29  2b 31 3a 78 3d b3 28 31  |:.0,.(6)+1:x=.(1|
000005a0  32 38 30 29 3a 79 3d b3  28 31 30 32 34 2d 68 6f  |280):y=.(1024-ho|
000005b0  72 69 7a 6f 6e 29 0d 28  5a 0c 63 3d b3 28 31 35  |rizon).(Z.c=.(15|
000005c0  30 29 0d 28 64 0d e6 30  2c b3 28 36 29 2b 31 0d  |0).(d..0,.(6)+1.|
000005d0  28 6e 1c f2 63 69 72 63  6c 65 28 78 2c 79 2b 68  |(n..circle(x,y+h|
000005e0  6f 72 69 7a 6f 6e 2c 63  2c 63 29 0d 28 78 22 e7  |orizon,c,c).(x".|
000005f0  20 72 3d 31 20 f2 63 69  72 63 6c 65 28 78 2c 68  | r=1 .circle(x,h|
00000600  6f 72 69 7a 6f 6e 2d 79  2c 63 2c 63 29 0d 28 82  |orizon-y,c,c).(.|
00000610  05 ed 0d 28 8c 05 e1 0d  28 96 0f dd f2 68 69 6c  |...(....(....hil|
00000620  6c 73 31 28 72 29 0d 28  9b 0f 7a 3d b3 28 31 30  |ls1(r).(..z=.(10|
00000630  30 29 2b 35 30 0d 28 a0  0e e3 41 3d 31 b8 b3 28  |0)+50.(...A=1..(|
00000640  31 30 29 0d 28 aa 0d e6  30 2c b3 28 36 29 2b 31  |10).(...0,.(6)+1|
00000650  0d 28 b4 30 61 3d b3 28  31 32 38 30 29 3a 62 3d  |.(.0a=.(1280):b=|
00000660  b3 28 31 32 38 30 2d 61  29 2b 61 3a 63 3d b3 28  |.(1280-a)+a:c=.(|
00000670  31 32 38 30 2d 62 29 2b  62 3a 64 3d b3 28 7a 29  |1280-b)+b:d=.(z)|
00000680  0d 28 be 3f ec 62 2c 68  6f 72 69 7a 6f 6e 2b 64  |.(.?.b,horizon+d|
00000690  3a df 61 2c 68 6f 72 69  7a 6f 6e 3a f0 38 35 2c  |:.a,horizon:.85,|
000006a0  63 2c 68 6f 72 69 7a 6f  6e 3a e7 20 72 3d 31 20  |c,horizon:. r=1 |
000006b0  f0 38 35 2c 62 2c 68 6f  72 69 7a 6f 6e 2d 64 0d  |.85,b,horizon-d.|
000006c0  28 c8 05 ed 0d 28 d2 05  e1 0d 28 dc 0f dd f2 68  |(....(....(....h|
000006d0  69 6c 6c 73 32 28 72 29  0d 28 e6 35 7a 3d b3 28  |ills2(r).(.5z=.(|
000006e0  32 30 30 29 2b 35 30 3a  71 3d b3 28 7a 29 3a 61  |200)+50:q=.(z):a|
000006f0  3d b3 28 36 29 2b 31 3a  62 3d b3 28 36 29 2b 31  |=.(6)+1:b=.(6)+1|
00000700  3a e7 20 61 3d 62 20 e5  20 8d 64 66 68 0d 28 f0  |:. a=b . .dfh.(.|
00000710  14 e3 20 41 3d 30 20 b8  20 31 32 38 30 20 88 20  |.. A=0 . 1280 . |
00000720  38 0d 28 f5 09 20 e6 30  2c 61 0d 28 fa 30 ec 41  |8.(.. .0,a.(.0.A|
00000730  2c 68 6f 72 69 7a 6f 6e  2b 71 3a df 20 41 2c 68  |,horizon+q:. A,h|
00000740  6f 72 69 7a 6f 6e 3a e7  20 72 3d 31 20 df 20 41  |orizon:. r=1 . A|
00000750  2c 68 6f 72 69 7a 6f 6e  2d 71 0d 29 04 08 e6 30  |,horizon-q.)...0|
00000760  2c 62 0d 29 0e 34 e7 20  b3 28 35 30 29 3e 32 35  |,b.).4. .(50)>25|
00000770  20 f0 36 39 2c 41 2c 68  6f 72 69 7a 6f 6e 2b 71  | .69,A,horizon+q|
00000780  3a e7 20 72 3d 31 20 f0  36 39 2c 41 2c 68 6f 72  |:. r=1 .69,A,hor|
00000790  69 7a 6f 6e 2d 71 0d 29  13 1b e7 b3 28 35 30 29  |izon-q.)....(50)|
000007a0  3e 32 35 20 71 3d 71 2b  34 20 8b 20 71 3d 71 2d  |>25 q=q+4 . q=q-|
000007b0  34 0d 29 14 0f e7 20 71  3e 7a 20 71 3d 7a 2d 34  |4.)... q>z q=z-4|
000007c0  0d 29 15 0d e7 20 71 3c  30 20 71 3d 34 0d 29 18  |.)... q<0 q=4.).|
000007d0  05 ed 0d 29 22 05 e1 0d  29 2c 0f dd f2 72 6b 73  |...)"...),...rks|
000007e0  31 28 72 2c 74 29 0d 29  2d 0f 20 79 3d 30 3a 6e  |1(r,t).)-. y=0:n|
000007f0  3d b3 28 34 29 0d 29 2e  05 f5 0d 29 2f 0b 6e 3d  |=.(4).)....)/.n=|
00000800  6e 2a 31 2e 31 0d 29 30  56 e7 20 b3 28 35 30 29  |n*1.1.)0V. .(50)|
00000810  3e 34 30 20 e7 20 74 3d  31 20 f2 72 6b 20 8b 20  |>40 . t=1 .rk . |
00000820  e7 20 74 3d 32 20 e7 20  b3 28 32 30 29 3d 32 30  |. t=2 . .(20)=20|
00000830  20 f2 63 72 61 74 65 72  28 b3 28 31 32 38 30 29  | .crater(.(1280)|
00000840  2c 68 6f 72 69 7a 6f 6e  2d 79 2c b3 28 79 29 2a  |,horizon-y,.(y)*|
00000850  31 2e 32 2c b3 28 36 29  2d 31 29 0d 29 31 15 e7  |1.2,.(6)-1).)1..|
00000860  20 b3 28 35 30 29 3e 34  35 20 e5 20 8d 54 70 69  | .(50)>45 . .Tpi|
00000870  0d 29 36 22 79 3d 79 2b  6e 3a fd 20 79 3e 68 6f  |.)6"y=y+n:. y>ho|
00000880  72 69 7a 6f 6e 20 84 20  b3 28 31 30 30 29 3d 31  |rizon . .(100)=1|
00000890  30 30 0d 29 40 05 e1 0d  4e 20 09 dd f2 63 68 6b  |00.)@...N ...chk|
000008a0  0d 4e 25 08 20 5a 3d 30  0d 4e 26 0d 20 65 3d b3  |.N%. Z=0.N&. e=.|
000008b0  28 36 29 2b 31 0d 4e 2a  0f e3 20 42 3d 31 20 b8  |(6)+1.N*.. B=1 .|
000008c0  20 41 2d 31 0d 4e 34 17  e7 20 63 6f 6c 28 42 29  | A-1.N4.. col(B)|
000008d0  3d 63 6f 6c 28 41 29 20  5a 3d 31 0d 4e 3e 05 ed  |=col(A) Z=1.N>..|
000008e0  0d 4e 48 05 e1 0d 4e 52  08 dd f2 72 6b 0d 4e 5c  |.NH...NR...rk.N\|
000008f0  34 61 3d b3 28 31 32 38  30 29 3a 62 3d b3 28 31  |4a=.(1280):b=.(1|
00000900  32 38 30 2d 61 29 2b 61  3a 63 3d b3 28 31 32 38  |280-a)+a:c=.(128|
00000910  30 2d 62 29 2b 62 3a 64  3d b3 28 79 2f 34 29 2a  |0-b)+b:d=.(y/4)*|
00000920  33 0d 4e 66 08 e6 30 2c  65 0d 4e 70 7c ec 20 62  |3.Nf..0,e.Np|. b|
00000930  2c 68 6f 72 69 7a 6f 6e  2d 79 2b 64 3a df 20 61  |,horizon-y+d:. a|
00000940  2c 68 6f 72 69 7a 6f 6e  2d 79 3a f0 38 35 2c 63  |,horizon-y:.85,c|
00000950  2c 68 6f 72 69 7a 6f 6e  2d 79 3a e7 20 72 3d 31  |,horizon-y:. r=1|
00000960  20 f0 38 35 2c 62 2c 68  6f 72 69 7a 6f 6e 2d 79  | .85,b,horizon-y|
00000970  2d 64 3a e3 49 3d 68 6f  72 69 7a 6f 6e 2d 79 20  |-d:.I=horizon-y |
00000980  b8 20 68 6f 72 69 7a 6f  6e 2d 79 2d 64 20 88 20  |. horizon-y-d . |
00000990  2d 31 32 3a e6 30 2c 31  3a ec 61 2c 49 3a df 63  |-12:.0,1:.a,I:.c|
000009a0  2c 49 3a ed 49 0d 4e 75  31 e6 30 2c 30 3a ec 61  |,I:.I.Nu1.0,0:.a|
000009b0  2c 68 6f 72 69 7a 6f 6e  2d 79 3a df 62 2c 68 6f  |,horizon-y:.b,ho|
000009c0  72 69 7a 6f 6e 2d 79 2b  64 3a df 63 2c 68 6f 72  |rizon-y+d:.c,hor|
000009d0  69 7a 6f 6e 2d 79 0d 4e  7a 05 e1 0d 4e 84 0a dd  |izon-y.Nz...N...|
000009e0  f2 72 6b 73 32 0d 4e 8e  0d 79 3d 68 6f 72 69 7a  |.rks2.N..y=horiz|
000009f0  6f 6e 0d 4e 98 15 61 3d  b3 28 36 29 2b 31 3a 62  |on.N..a=.(6)+1:b|
00000a00  3d b3 28 36 29 2b 31 0d  4e a2 05 f5 0d 4e ac 13  |=.(6)+1.N....N..|
00000a10  e3 20 49 3d 31 20 b8 20  b3 28 79 2f 31 30 29 0d  |. I=1 . .(y/10).|
00000a20  4e b6 08 e6 30 2c 61 0d  4e c0 11 f0 36 39 2c b3  |N...0,a.N...69,.|
00000a30  28 31 32 38 30 29 2c 79  0d 4e ca 08 e6 30 2c 62  |(1280),y.N...0,b|
00000a40  0d 4e d4 11 f0 36 39 2c  b3 28 31 32 38 30 29 2c  |.N...69,.(1280),|
00000a50  79 0d 4e de 07 ed 20 49  0d 4e e8 09 79 3d 79 2d  |y.N... I.N..y=y-|
00000a60  34 0d 4e f2 09 fd 20 79  3c 30 0d 4e fc 05 e1 0d  |4.N... y<0.N....|
00000a70  4f 06 0c dd f2 63 6f 61  73 74 31 0d 4f 10 13 61  |O....coast1.O..a|
00000a80  3d 68 65 69 67 68 74 3a  62 3d b3 28 61 29 0d 4f  |=height:b=.(a).O|
00000a90  12 09 61 3d 61 2d 62 0d  4f 15 09 20 e6 30 2c 33  |..a=a-b.O.. .0,3|
00000aa0  0d 4f 1a 14 e3 20 41 3d  30 20 b8 20 31 32 38 30  |.O... A=0 . 1280|
00000ab0  20 88 20 38 0d 4f 24 14  ec 20 41 2c 30 3a df 20  | . 8.O$.. A,0:. |
00000ac0  41 2c 62 2b b3 28 61 29  0d 4f 2e 07 ed 20 41 0d  |A,b+.(a).O... A.|
00000ad0  4f 38 05 e1 0d 4f 39 0c  dd f2 63 6f 61 73 74 32  |O8...O9...coast2|
00000ae0  0d 4f 3a 2e 61 3d 68 65  69 67 68 74 3a 62 3d b3  |.O:.a=height:b=.|
00000af0  28 61 29 3a 61 3d 61 2d  62 3a 63 3d 61 2f 32 2b  |(a):a=a-b:c=a/2+|
00000b00  62 3a 64 3d b3 28 61 29  2b 62 3a 65 3d 30 0d 4f  |b:d=.(a)+b:e=0.O|
00000b10  3b 19 e6 30 2c 33 3a e3  20 41 3d 30 20 b8 20 31  |;..0,3:. A=0 . 1|
00000b20  32 38 30 20 88 20 38 0d  4f 3c 0d ec 41 2c 30 3a  |280 . 8.O<..A,0:|
00000b30  df 41 2c 64 0d 4f 3d 1d  64 3d 64 2b 65 3a e7 20  |.A,d.O=.d=d+e:. |
00000b40  64 3e 63 20 65 3d 65 2d  31 20 8b 20 65 3d 65 2b  |d>c e=e-1 . e=e+|
00000b50  31 0d 4f 3e 07 ed 20 41  0d 4f 3f 05 e1 0d 4f 42  |1.O>.. A.O?...OB|
00000b60  16 20 dd f2 63 72 61 74  65 72 28 78 2c 79 2c 73  |. ..crater(x,y,s|
00000b70  2c 63 29 0d 4f 4c 08 e6  30 2c 63 0d 4f 60 16 f2  |,c).OL..0,c.O`..|
00000b80  63 69 72 63 6c 65 28 78  2c 79 2c 73 2c 73 2f 32  |circle(x,y,s,s/2|
00000b90  29 0d 4f 65 09 20 e6 30  2c 30 0d 4f 6a 1a f2 63  |).Oe. .0,0.Oj..c|
00000ba0  69 72 63 6c 65 28 78 2c  79 2c 73 2d 38 2c 73 2f  |ircle(x,y,s-8,s/|
00000bb0  32 2d 38 29 0d 4f 74 08  e6 30 2c 63 0d 4f 7e 19  |2-8).Ot..0,c.O~.|
00000bc0  e3 20 41 3d af 2f 32 20  b8 20 af 2a 31 2e 35 20  |. A=./2 . .*1.5 |
00000bd0  88 20 af 2f 38 0d 4f 88  19 ec 20 78 2b 73 2a b5  |. ./8.O... x+s*.|
00000be0  28 41 29 2c 79 2b 73 2a  9b 28 41 29 2f 32 0d 4f  |(A),y+s*.(A)/2.O|
00000bf0  92 25 df 20 78 2b 73 2a  b5 28 41 29 2a 31 2e 32  |.%. x+s*.(A)*1.2|
00000c00  2c 79 2b 73 2a 9b 28 41  29 2f 32 2a 31 2e 32 2d  |,y+s*.(A)/2*1.2-|
00000c10  73 2f 32 0d 4f 9c 07 ed  20 41 0d 4f a6 05 e1 0d  |s/2.O... A.O....|
00000c20  4f a7 0c dd f2 63 6f 61  73 74 33 0d 4f a8 2b 61  |O....coast3.O.+a|
00000c30  3d 68 65 69 67 68 74 3a  62 3d b3 28 61 29 3a 61  |=height:b=.(a):a|
00000c40  3d 61 2d 62 3a 63 3d 62  2b b3 28 61 29 3a e6 30  |=a-b:c=b+.(a):.0|
00000c50  2c 33 20 20 20 20 0d 4f  a9 14 e3 20 41 3d 30 20  |,3    .O... A=0 |
00000c60  b8 20 31 32 38 30 20 88  20 38 0d 4f aa 0d ec 41  |. 1280 . 8.O...A|
00000c70  2c 30 3a df 41 2c 63 0d  4f ab 1c e7 20 b3 28 35  |,0:.A,c.O... .(5|
00000c80  30 29 3e 32 35 20 63 3d  63 2b 34 20 8b 20 63 3d  |0)>25 c=c+4 . c=|
00000c90  63 2d 34 0d 4f ac 13 e7  20 63 3e 61 2b 62 20 63  |c-4.O... c>a+b c|
00000ca0  3d 61 2b 62 2d 34 0d 4f  ad 0f e7 20 63 3c 62 20  |=a+b-4.O... c<b |
00000cb0  63 3d 62 2b 34 0d 4f ae  05 ed 0d 4f af 05 e1 0d  |c=b+4.O....O....|
00000cc0  4f b0 0b dd f2 63 6f 61  73 74 0d 4f ba 0b 20 7a  |O....coast.O.. z|
00000cd0  3d b3 28 33 29 0d 4f bf  16 20 68 65 69 67 68 74  |=.(3).O.. height|
00000ce0  3d b3 28 68 6f 72 69 7a  6f 6e 29 0d 4f c4 11 e7  |=.(horizon).O...|
00000cf0  20 7a 3d 31 20 f2 63 6f  61 73 74 31 0d 4f ce 11  | z=1 .coast1.O..|
00000d00  e7 20 7a 3d 32 20 f2 63  6f 61 73 74 32 0d 4f d8  |. z=2 .coast2.O.|
00000d10  11 e7 20 7a 3d 33 20 f2  63 6f 61 73 74 33 0d 4f  |.. z=3 .coast3.O|
00000d20  dd 16 e7 20 b3 28 35 30  29 3e 32 35 20 f2 70 6c  |... .(50)>25 .pl|
00000d30  61 6e 74 73 0d 4f e2 05  e1 0d 4f ec 12 dd f2 67  |ants.O....O....g|
00000d40  72 61 73 73 28 78 2c 79  2c 73 29 0d 4f f6 08 e6  |rass(x,y,s).O...|
00000d50  30 2c 34 0d 50 00 11 e3  20 49 3d 31 20 b8 20 b3  |0,4.P... I=1 . .|
00000d60  28 31 30 29 0d 50 0a 37  ec 20 78 2c 79 3a 70 3d  |(10).P.7. x,y:p=|
00000d70  78 2b b3 28 73 29 2d 73  2f 32 3a 71 3d 79 2b b3  |x+.(s)-s/2:q=y+.|
00000d80  28 73 29 3a df 20 70 2c  71 3a e6 30 2c 33 2b b3  |(s):. p,q:.0,3+.|
00000d90  28 34 29 3a f0 36 39 2c  70 2c 71 0d 50 14 06 20  |(4):.69,p,q.P.. |
00000da0  ed 0d 50 1e 06 20 e1 0d  50 28 11 dd f2 74 72 65  |..P.. ..P(...tre|
00000db0  65 28 74 2c 75 2c 76 29  0d 50 32 13 e3 4a 3d 30  |e(t,u,v).P2..J=0|
00000dc0  20 b8 20 76 20 88 20 76  2f 31 30 0d 50 3c 13 f2  | . v . v/10.P<..|
00000dd0  67 72 61 73 73 28 74 2c  75 2b 4a 2c 76 29 0d 50  |grass(t,u+J,v).P|
00000de0  46 05 ed 0d 50 50 05 e1  0d 50 5a 0c dd f2 70 6c  |F...PP...PZ...pl|
00000df0  61 6e 74 73 0d 50 64 17  e3 20 51 3d 68 65 69 67  |ants.Pd.. Q=heig|
00000e00  68 74 20 b8 20 30 20 88  20 2d 38 0d 50 78 0b 50  |ht . 0 . -8.Px.P|
00000e10  3d b3 28 31 36 29 0d 50  82 27 e3 52 3d 31 b8 35  |=.(16).P.'.R=1.5|
00000e20  30 3a 58 3d b3 28 31 32  38 30 29 3a e7 20 b0 58  |0:X=.(1280):. .X|
00000e30  2c 51 29 3d 33 20 52 3d  35 31 20 20 20 0d 50 87  |,Q)=3 R=51   .P.|
00000e40  17 ed 3a e7 20 b0 58 2c  51 29 3c 3e 33 20 e5 20  |..:. .X,Q)<>3 . |
00000e50  8d 70 6a 50 0d 50 8c 16  20 53 3d 68 6f 72 69 7a  |.pjP.P.. S=horiz|
00000e60  6f 6e 2d 51 3a 53 3d 53  2f 32 0d 50 96 17 e7 20  |on-Q:S=S/2.P... |
00000e70  50 3d 31 20 f2 67 72 61  73 73 28 58 2c 51 2c 53  |P=1 .grass(X,Q,S|
00000e80  29 0d 50 a0 16 e7 20 50  3d 32 20 f2 74 72 65 65  |).P... P=2 .tree|
00000e90  28 58 2c 51 2c 53 29 0d  50 a5 17 e7 20 50 3d 33  |(X,Q,S).P... P=3|
00000ea0  20 f2 74 72 65 65 32 28  58 2c 51 2c 53 29 0d 50  | .tree2(X,Q,S).P|
00000eb0  a6 17 e7 20 50 3d 34 20  f2 74 72 65 65 33 28 58  |... P=4 .tree3(X|
00000ec0  2c 51 2c 53 29 0d 50 aa  05 ed 0d 50 b4 05 e1 0d  |,Q,S).P....P....|
00000ed0  50 be 12 dd f2 74 72 65  65 32 28 74 2c 75 2c 76  |P....tree2(t,u,v|
00000ee0  29 0d 50 c8 08 e6 30 2c  34 0d 50 d2 1f ec 74 2d  |).P...0,4.P...t-|
00000ef0  76 2f 35 2c 75 3a df 74  2b 76 2f 35 2c 75 3a f0  |v/5,u:.t+v/5,u:.|
00000f00  38 35 2c 74 2c 75 2b 76  0d 50 d7 08 e6 30 2c 30  |85,t,u+v.P...0,0|
00000f10  0d 50 d8 1c ec 74 2d 76  2f 35 2c 75 3a df 74 2c  |.P...t-v/5,u:.t,|
00000f20  75 2b 76 3a df 74 2b 76  2f 35 2c 75 0d 50 dc 11  |u+v:.t+v/5,u.P..|
00000f30  e3 20 49 3d 31 20 b8 20  b3 28 31 30 29 0d 50 e6  |. I=1 . .(10).P.|
00000f40  0d e6 30 2c 34 2b b3 28  33 29 0d 50 f0 32 f2 63  |..0,4+.(3).P.2.c|
00000f50  69 72 63 6c 65 28 74 2d  76 2f 32 2b b3 28 76 29  |ircle(t-v/2+.(v)|
00000f60  2c 75 2b 76 2f 32 2b b3  28 76 2f 32 29 2c b3 28  |,u+v/2+.(v/2),.(|
00000f70  76 2f 34 29 2c b3 28 76  2f 34 29 29 0d 50 fa 05  |v/4),.(v/4)).P..|
00000f80  ed 0d 51 04 05 e1 0d 51  2c 12 dd f2 74 72 65 65  |..Q....Q,...tree|
00000f90  33 28 74 2c 75 2c 76 29  0d 51 36 08 e6 30 2c 34  |3(t,u,v).Q6..0,4|
00000fa0  0d 51 40 25 ec 20 74 2d  76 2f 35 2c 75 3a df 74  |.Q@%. t-v/5,u:.t|
00000fb0  2b 76 2f 35 2c 75 3a f0  38 35 2c 74 2c 75 2b 76  |+v/5,u:.85,t,u+v|
00000fc0  2a 30 2e 37 35 0d 51 41  26 e6 30 2c 30 3a ec 74  |*0.75.QA&.0,0:.t|
00000fd0  2d 76 2f 35 2c 75 3a df  74 2c 75 2b 76 2a 30 2e  |-v/5,u:.t,u+v*0.|
00000fe0  37 35 3a df 74 2b 76 2f  35 2c 75 0d 51 45 17 61  |75:.t+v/5,u.QE.a|
00000ff0  61 3d b3 28 76 29 2f 32  3a 62 62 3d b3 28 76 29  |a=.(v)/2:bb=.(v)|
00001000  2f 32 0d 51 4a 13 e3 20  5a 3d 30 20 b8 20 2d 38  |/2.QJ.. Z=0 . -8|
00001010  20 88 20 2d 38 0d 51 54  0d e6 30 2c 34 2b b3 28  | . -8.QT..0,4+.(|
00001020  33 29 0d 51 5e 21 f2 63  69 72 63 6c 65 28 74 2c  |3).Q^!.circle(t,|
00001030  75 2b 76 2a 30 2e 37 35  2c 61 61 2b 5a 2c 62 62  |u+v*0.75,aa+Z,bb|
00001040  2b 5a 29 0d 51 68 05 ed  0d 51 72 05 e1 0d ff     |+Z).Qh...Qr....|
0000104f