� square% 128*128
width% = 1280
depth% = 1024
(�0
2)�"       Fractal Landscape Generator"
<)�"       ======= ========= ========="
F�get_parms
P)�''"generating fractal - please wait"
ZA%=�(-number%)
d�start_fractal
n � below_sea% = 110 �turn_off
x�
�x_offset% = width% / 2
�y_offset% = depth% / 10
�!x_max% = width% + width% / 10
� y_max% = depth% + depth% / 7
�x_min% = 0 - width% / 10
�y_min% = 0 - y_offset% / 3
�
�draw_sea
�xpos% = size% / 2
�ypos% = size% + 5
�elev% = 10
��three_d
��change_view
��

:

��start_fractal

�I% = 0 � 63

"�J% = 0 � 63

,�poke(I%, J%, 0)

6�

@�

Jdistance% = size%

T-�poke(0, 0, �(distance%) - distance% / 2)

^1�poke(0, size%, �(distance%) - distance% / 2)

h1�poke(size%, 0, �(distance%) - distance% / 2)

r5�poke(size%, size%, �(distance%) - distance% / 2)

|distance% = size% / 2

�$�plot_midpoints(0, 0, distance%)

�distance% = size% / 2

�,�plot_midpoints(0, distance%, distance%)

�distance% = size% / 2

�,�plot_midpoints(distance%, 0, distance%)

�distance% = size% / 2

�4�plot_midpoints(distance%, distance%, distance%)

��

�:

���get_parms

�8�"Wireframe or solid - wireframes are faster (w/s)";

�
wire% = �

�*�'"draw plains below sea level (y/n)";
below_sea% = �
P� below_sea% = 110 �'"show sea - faster if no (y/n)";: sea% = � � sea% = 110
0�'"Size of fractal landscape (32, 64, 128)";
&� size%
0*�'"input landscape number (1..65535)";
:
� number%
D�
N:
X)� �plot_midpoints(x%, y%, half_dist%)
b� half_dist% <=1 �
ldistance% = half_dist%
vhalf_dist% = half_dist% / 2
��� �peek(x%+half_dist%, y%) = 0 �poke(x%+half_dist%, y%, (�peek(x%, y%) + �peek(x%+distance%, y%)) / 2 + �(half_dist%) - half_dist% / 2)
��� �peek(x%, y%+half_dist%) = 0 �poke(x%, y%+half_dist%, (�peek(x%, y%) + �peek(x%, y%+distance%)) / 2 + �(half_dist%) - half_dist% / 2)
��� �peek(x%+half_dist%, y%+distance%) = 0 �poke(x%+half_dist%, y%+distance%, (�peek(x%, y%+distance%) + �peek(x%+distance%, y%+distance%)) / 2 + �(half_dist%) - half_dist% / 2)
��� �peek(x%+distance%, y%+half_dist%) = 0 �poke(x%+distance%, y%+half_dist%, (�peek(x%+distance%, y%) + �peek(x%+distance%, y%+distance%)) / 2 + �(half_dist%) - half_dist% / 2)
���poke(x%+half_dist%, y%+half_dist%, (�peek(x%, y%+half_dist%)+�peek(x%+distance%, y%+half_dist%)+�peek(x%+half_dist%, y%)+�peek(x%+half_dist%, y%+distance%))/4+�(half_dist%) - half_dist% / 2)
�'�plot_midpoints(x%, y%, half_dist%)
�2�plot_midpoints(x%+half_dist%, y%, half_dist%)
�2�plot_midpoints(x%, y%+half_dist%, half_dist%)
�=�plot_midpoints(x%+half_dist%, y%+half_dist%, half_dist%)
��
�:
�� �poke(x%, y%, val%)
�;A%=!(square% + 2 * (x% * (size% + 1) + y%)) � &FFFF0000
A% = A% � (val% � &FFFF)
1!(square% + 2 * (x% * (size% + 1) + y%)) = A%
�
 :
*� �peek(x%, y%)
47A%=!(square% + 2 * (x% * (size% + 1) + y%)) � &FFFF
>$� A% > 32767 A% = A% � &FFFF0000
H=A%
R:
\� �turn_off
f�I% = 0 � size%
p�J% = 0 � size%
z(� �peek(I%, J%) < 0 �poke(I%, J%, 0)
��
��
��
�:
�� �project_x(x%, y%)
�@result% = x_offset% + (x% - xpos%) * 1280 / (ypos% + 2 - y%)
�'� result% < x_min% result% = x_min%
�=result%
�:
�� �project_y(x%, y%)
�Kresult% = y_offset% - (�peek(x%, y%) - elev%) * 1280 / (ypos% + 2 - y%)
�result% = 1024 - result%
�'� result% < y_min% result% = y_min%
'� result% > y_max% result% = y_max%
=result%
:
$� �three_d
.�
8� y% = 0 � ypos% - 1
B� x% = 0 � size% - 1
L
draw% = 1
VRlevel% = �peek(x%, y%) + �peek(x%+1, y%) + �peek(x%, y%+1) + �peek(x%+1, y%+1)
`;� below_sea% = 110 � sea% = 110 � level% <= 0 draw% = 0
j6� sea% = 121 � wire% = 115 � level% <= 0 draw% = 0
t� draw% = 0 � �dvD
~x1% = �project_x(x%, y%)
�� x1% > 1280 �dvD
�y1% = �project_y(x%, y%)
�x2% = �project_x(x%+1, y%)
�y2% = �project_y(x%+1, y%)
� x3% = �project_x(x%+1, y%+1)
� y3% = �project_y(x%+1, y%+1)
�x4% = �project_x(x%, y%+1)
�y4% = �project_y(x%, y%+1)
�H� wire% = 119 � x1%, y1%:� x2%, y2%:� x3%, y3%:� x4%, y4%:� x1%, y1%
��
�

�
:
� �draw_sea
(�
2:
<� �change_view
F�
P	ch%=�
Z0� ch%=43 � elev% <=75 elev%=elev%+5:�three_d
d0� ch%=45 � elev% >-40 elev%=elev%-5:�three_d
n/� ch%=91 � xpos% > 5 xpos%=xpos%-5:�three_d
x0� ch%=93 � xpos% <123 xpos%=xpos%+5:�three_d
�/� ch%=62 � ypos% > 5 ypos%=ypos%-5:�three_d
�0� ch%=60 � ypos% <123 ypos%=ypos%+5:�three_d
�� ch% = 113
��
�

00000000  0d 00 0a 15 de 20 73 71  75 61 72 65 25 20 31 32  |..... square% 12|
00000010  38 2a 31 32 38 0d 00 14  11 77 69 64 74 68 25 20  |8*128....width% |
00000020  3d 20 31 32 38 30 0d 00  1e 11 64 65 70 74 68 25  |= 1280....depth%|
00000030  20 3d 20 31 30 32 34 0d  00 28 06 eb 30 0d 00 32  | = 1024..(..0..2|
00000040  29 f1 22 20 20 20 20 20  20 20 46 72 61 63 74 61  |)."       Fracta|
00000050  6c 20 4c 61 6e 64 73 63  61 70 65 20 47 65 6e 65  |l Landscape Gene|
00000060  72 61 74 6f 72 22 0d 00  3c 29 f1 22 20 20 20 20  |rator"..<)."    |
00000070  20 20 20 3d 3d 3d 3d 3d  3d 3d 20 3d 3d 3d 3d 3d  |   ======= =====|
00000080  3d 3d 3d 3d 20 3d 3d 3d  3d 3d 3d 3d 3d 3d 22 0d  |==== =========".|
00000090  00 46 0e f2 67 65 74 5f  70 61 72 6d 73 0d 00 50  |.F..get_parms..P|
000000a0  29 f1 27 27 22 67 65 6e  65 72 61 74 69 6e 67 20  |).''"generating |
000000b0  66 72 61 63 74 61 6c 20  2d 20 70 6c 65 61 73 65  |fractal - please|
000000c0  20 77 61 69 74 22 0d 00  5a 12 41 25 3d b3 28 2d  | wait"..Z.A%=.(-|
000000d0  6e 75 6d 62 65 72 25 29  0d 00 64 12 f2 73 74 61  |number%)..d..sta|
000000e0  72 74 5f 66 72 61 63 74  61 6c 0d 00 6e 20 e7 20  |rt_fractal..n . |
000000f0  62 65 6c 6f 77 5f 73 65  61 25 20 3d 20 31 31 30  |below_sea% = 110|
00000100  20 f2 74 75 72 6e 5f 6f  66 66 0d 00 78 05 db 0d  | .turn_off..x...|
00000110  00 82 1a 78 5f 6f 66 66  73 65 74 25 20 3d 20 77  |...x_offset% = w|
00000120  69 64 74 68 25 20 2f 20  32 0d 00 8c 1b 79 5f 6f  |idth% / 2....y_o|
00000130  66 66 73 65 74 25 20 3d  20 64 65 70 74 68 25 20  |ffset% = depth% |
00000140  2f 20 31 30 0d 00 96 21  78 5f 6d 61 78 25 20 3d  |/ 10...!x_max% =|
00000150  20 77 69 64 74 68 25 20  2b 20 77 69 64 74 68 25  | width% + width%|
00000160  20 2f 20 31 30 0d 00 a0  20 79 5f 6d 61 78 25 20  | / 10... y_max% |
00000170  3d 20 64 65 70 74 68 25  20 2b 20 64 65 70 74 68  |= depth% + depth|
00000180  25 20 2f 20 37 0d 00 aa  1c 78 5f 6d 69 6e 25 20  |% / 7....x_min% |
00000190  3d 20 30 20 2d 20 77 69  64 74 68 25 20 2f 20 31  |= 0 - width% / 1|
000001a0  30 0d 00 b4 1e 79 5f 6d  69 6e 25 20 3d 20 30 20  |0....y_min% = 0 |
000001b0  2d 20 79 5f 6f 66 66 73  65 74 25 20 2f 20 33 0d  |- y_offset% / 3.|
000001c0  00 be 0d f2 64 72 61 77  5f 73 65 61 0d 00 c8 15  |....draw_sea....|
000001d0  78 70 6f 73 25 20 3d 20  73 69 7a 65 25 20 2f 20  |xpos% = size% / |
000001e0  32 0d 00 d2 15 79 70 6f  73 25 20 3d 20 73 69 7a  |2....ypos% = siz|
000001f0  65 25 20 2b 20 35 0d 00  dc 0e 65 6c 65 76 25 20  |e% + 5....elev% |
00000200  3d 20 31 30 0d 00 e6 0c  f2 74 68 72 65 65 5f 64  |= 10.....three_d|
00000210  0d 00 f0 10 f2 63 68 61  6e 67 65 5f 76 69 65 77  |.....change_view|
00000220  0d 00 fa 05 e0 0d 01 04  05 3a 0d 01 0e 13 dd f2  |.........:......|
00000230  73 74 61 72 74 5f 66 72  61 63 74 61 6c 0d 01 18  |start_fractal...|
00000240  10 e3 49 25 20 3d 20 30  20 b8 20 36 33 0d 01 22  |..I% = 0 . 63.."|
00000250  10 e3 4a 25 20 3d 20 30  20 b8 20 36 33 0d 01 2c  |..J% = 0 . 63..,|
00000260  14 f2 70 6f 6b 65 28 49  25 2c 20 4a 25 2c 20 30  |..poke(I%, J%, 0|
00000270  29 0d 01 36 05 ed 0d 01  40 05 ed 0d 01 4a 15 64  |)..6....@....J.d|
00000280  69 73 74 61 6e 63 65 25  20 3d 20 73 69 7a 65 25  |istance% = size%|
00000290  0d 01 54 2d f2 70 6f 6b  65 28 30 2c 20 30 2c 20  |..T-.poke(0, 0, |
000002a0  b3 28 64 69 73 74 61 6e  63 65 25 29 20 2d 20 64  |.(distance%) - d|
000002b0  69 73 74 61 6e 63 65 25  20 2f 20 32 29 0d 01 5e  |istance% / 2)..^|
000002c0  31 f2 70 6f 6b 65 28 30  2c 20 73 69 7a 65 25 2c  |1.poke(0, size%,|
000002d0  20 b3 28 64 69 73 74 61  6e 63 65 25 29 20 2d 20  | .(distance%) - |
000002e0  64 69 73 74 61 6e 63 65  25 20 2f 20 32 29 0d 01  |distance% / 2)..|
000002f0  68 31 f2 70 6f 6b 65 28  73 69 7a 65 25 2c 20 30  |h1.poke(size%, 0|
00000300  2c 20 b3 28 64 69 73 74  61 6e 63 65 25 29 20 2d  |, .(distance%) -|
00000310  20 64 69 73 74 61 6e 63  65 25 20 2f 20 32 29 0d  | distance% / 2).|
00000320  01 72 35 f2 70 6f 6b 65  28 73 69 7a 65 25 2c 20  |.r5.poke(size%, |
00000330  73 69 7a 65 25 2c 20 b3  28 64 69 73 74 61 6e 63  |size%, .(distanc|
00000340  65 25 29 20 2d 20 64 69  73 74 61 6e 63 65 25 20  |e%) - distance% |
00000350  2f 20 32 29 0d 01 7c 19  64 69 73 74 61 6e 63 65  |/ 2)..|.distance|
00000360  25 20 3d 20 73 69 7a 65  25 20 2f 20 32 0d 01 86  |% = size% / 2...|
00000370  24 f2 70 6c 6f 74 5f 6d  69 64 70 6f 69 6e 74 73  |$.plot_midpoints|
00000380  28 30 2c 20 30 2c 20 64  69 73 74 61 6e 63 65 25  |(0, 0, distance%|
00000390  29 0d 01 90 19 64 69 73  74 61 6e 63 65 25 20 3d  |)....distance% =|
000003a0  20 73 69 7a 65 25 20 2f  20 32 0d 01 9a 2c f2 70  | size% / 2...,.p|
000003b0  6c 6f 74 5f 6d 69 64 70  6f 69 6e 74 73 28 30 2c  |lot_midpoints(0,|
000003c0  20 64 69 73 74 61 6e 63  65 25 2c 20 64 69 73 74  | distance%, dist|
000003d0  61 6e 63 65 25 29 0d 01  a4 19 64 69 73 74 61 6e  |ance%)....distan|
000003e0  63 65 25 20 3d 20 73 69  7a 65 25 20 2f 20 32 0d  |ce% = size% / 2.|
000003f0  01 ae 2c f2 70 6c 6f 74  5f 6d 69 64 70 6f 69 6e  |..,.plot_midpoin|
00000400  74 73 28 64 69 73 74 61  6e 63 65 25 2c 20 30 2c  |ts(distance%, 0,|
00000410  20 64 69 73 74 61 6e 63  65 25 29 0d 01 b8 19 64  | distance%)....d|
00000420  69 73 74 61 6e 63 65 25  20 3d 20 73 69 7a 65 25  |istance% = size%|
00000430  20 2f 20 32 0d 01 c2 34  f2 70 6c 6f 74 5f 6d 69  | / 2...4.plot_mi|
00000440  64 70 6f 69 6e 74 73 28  64 69 73 74 61 6e 63 65  |dpoints(distance|
00000450  25 2c 20 64 69 73 74 61  6e 63 65 25 2c 20 64 69  |%, distance%, di|
00000460  73 74 61 6e 63 65 25 29  0d 01 cc 05 e1 0d 01 d6  |stance%)........|
00000470  05 3a 0d 01 e0 0f dd f2  67 65 74 5f 70 61 72 6d  |.:......get_parm|
00000480  73 0d 01 ea 38 f1 22 57  69 72 65 66 72 61 6d 65  |s...8."Wireframe|
00000490  20 6f 72 20 73 6f 6c 69  64 20 2d 20 77 69 72 65  | or solid - wire|
000004a0  66 72 61 6d 65 73 20 61  72 65 20 66 61 73 74 65  |frames are faste|
000004b0  72 20 28 77 2f 73 29 22  3b 0d 01 f4 0d 77 69 72  |r (w/s)";....wir|
000004c0  65 25 20 3d 20 a5 0d 01  fe 2a f1 27 22 64 72 61  |e% = ....*.'"dra|
000004d0  77 20 70 6c 61 69 6e 73  20 62 65 6c 6f 77 20 73  |w plains below s|
000004e0  65 61 20 6c 65 76 65 6c  20 28 79 2f 6e 29 22 3b  |ea level (y/n)";|
000004f0  0d 02 08 12 62 65 6c 6f  77 5f 73 65 61 25 20 3d  |....below_sea% =|
00000500  20 a5 0d 02 12 50 e7 20  62 65 6c 6f 77 5f 73 65  | ....P. below_se|
00000510  61 25 20 3d 20 31 31 30  20 f1 27 22 73 68 6f 77  |a% = 110 .'"show|
00000520  20 73 65 61 20 2d 20 66  61 73 74 65 72 20 69 66  | sea - faster if|
00000530  20 6e 6f 20 28 79 2f 6e  29 22 3b 3a 20 73 65 61  | no (y/n)";: sea|
00000540  25 20 3d 20 a5 20 8b 20  73 65 61 25 20 3d 20 31  |% = . . sea% = 1|
00000550  31 30 0d 02 1c 30 f1 27  22 53 69 7a 65 20 6f 66  |10...0.'"Size of|
00000560  20 66 72 61 63 74 61 6c  20 6c 61 6e 64 73 63 61  | fractal landsca|
00000570  70 65 20 28 33 32 2c 20  36 34 2c 20 31 32 38 29  |pe (32, 64, 128)|
00000580  22 3b 0d 02 26 0b e8 20  73 69 7a 65 25 0d 02 30  |";..&.. size%..0|
00000590  2a f1 27 22 69 6e 70 75  74 20 6c 61 6e 64 73 63  |*.'"input landsc|
000005a0  61 70 65 20 6e 75 6d 62  65 72 20 28 31 2e 2e 36  |ape number (1..6|
000005b0  35 35 33 35 29 22 3b 0d  02 3a 0d e8 20 6e 75 6d  |5535)";..:.. num|
000005c0  62 65 72 25 0d 02 44 05  e1 0d 02 4e 05 3a 0d 02  |ber%..D....N.:..|
000005d0  58 29 dd 20 f2 70 6c 6f  74 5f 6d 69 64 70 6f 69  |X). .plot_midpoi|
000005e0  6e 74 73 28 78 25 2c 20  79 25 2c 20 68 61 6c 66  |nts(x%, y%, half|
000005f0  5f 64 69 73 74 25 29 0d  02 62 16 e7 20 68 61 6c  |_dist%)..b.. hal|
00000600  66 5f 64 69 73 74 25 20  3c 3d 31 20 e1 0d 02 6c  |f_dist% <=1 ...l|
00000610  1a 64 69 73 74 61 6e 63  65 25 20 3d 20 68 61 6c  |.distance% = hal|
00000620  66 5f 64 69 73 74 25 0d  02 76 1f 68 61 6c 66 5f  |f_dist%..v.half_|
00000630  64 69 73 74 25 20 3d 20  68 61 6c 66 5f 64 69 73  |dist% = half_dis|
00000640  74 25 20 2f 20 32 0d 02  80 8b e7 20 a4 70 65 65  |t% / 2..... .pee|
00000650  6b 28 78 25 2b 68 61 6c  66 5f 64 69 73 74 25 2c  |k(x%+half_dist%,|
00000660  20 79 25 29 20 3d 20 30  20 f2 70 6f 6b 65 28 78  | y%) = 0 .poke(x|
00000670  25 2b 68 61 6c 66 5f 64  69 73 74 25 2c 20 79 25  |%+half_dist%, y%|
00000680  2c 20 28 a4 70 65 65 6b  28 78 25 2c 20 79 25 29  |, (.peek(x%, y%)|
00000690  20 2b 20 a4 70 65 65 6b  28 78 25 2b 64 69 73 74  | + .peek(x%+dist|
000006a0  61 6e 63 65 25 2c 20 79  25 29 29 20 2f 20 32 20  |ance%, y%)) / 2 |
000006b0  2b 20 b3 28 68 61 6c 66  5f 64 69 73 74 25 29 20  |+ .(half_dist%) |
000006c0  2d 20 68 61 6c 66 5f 64  69 73 74 25 20 2f 20 32  |- half_dist% / 2|
000006d0  29 0d 02 8a 8b e7 20 a4  70 65 65 6b 28 78 25 2c  |)..... .peek(x%,|
000006e0  20 79 25 2b 68 61 6c 66  5f 64 69 73 74 25 29 20  | y%+half_dist%) |
000006f0  3d 20 30 20 f2 70 6f 6b  65 28 78 25 2c 20 79 25  |= 0 .poke(x%, y%|
00000700  2b 68 61 6c 66 5f 64 69  73 74 25 2c 20 28 a4 70  |+half_dist%, (.p|
00000710  65 65 6b 28 78 25 2c 20  79 25 29 20 2b 20 a4 70  |eek(x%, y%) + .p|
00000720  65 65 6b 28 78 25 2c 20  79 25 2b 64 69 73 74 61  |eek(x%, y%+dista|
00000730  6e 63 65 25 29 29 20 2f  20 32 20 2b 20 b3 28 68  |nce%)) / 2 + .(h|
00000740  61 6c 66 5f 64 69 73 74  25 29 20 2d 20 68 61 6c  |alf_dist%) - hal|
00000750  66 5f 64 69 73 74 25 20  2f 20 32 29 0d 02 94 b3  |f_dist% / 2)....|
00000760  e7 20 a4 70 65 65 6b 28  78 25 2b 68 61 6c 66 5f  |. .peek(x%+half_|
00000770  64 69 73 74 25 2c 20 79  25 2b 64 69 73 74 61 6e  |dist%, y%+distan|
00000780  63 65 25 29 20 3d 20 30  20 f2 70 6f 6b 65 28 78  |ce%) = 0 .poke(x|
00000790  25 2b 68 61 6c 66 5f 64  69 73 74 25 2c 20 79 25  |%+half_dist%, y%|
000007a0  2b 64 69 73 74 61 6e 63  65 25 2c 20 28 a4 70 65  |+distance%, (.pe|
000007b0  65 6b 28 78 25 2c 20 79  25 2b 64 69 73 74 61 6e  |ek(x%, y%+distan|
000007c0  63 65 25 29 20 2b 20 a4  70 65 65 6b 28 78 25 2b  |ce%) + .peek(x%+|
000007d0  64 69 73 74 61 6e 63 65  25 2c 20 79 25 2b 64 69  |distance%, y%+di|
000007e0  73 74 61 6e 63 65 25 29  29 20 2f 20 32 20 2b 20  |stance%)) / 2 + |
000007f0  b3 28 68 61 6c 66 5f 64  69 73 74 25 29 20 2d 20  |.(half_dist%) - |
00000800  68 61 6c 66 5f 64 69 73  74 25 20 2f 20 32 29 0d  |half_dist% / 2).|
00000810  02 9e b3 e7 20 a4 70 65  65 6b 28 78 25 2b 64 69  |.... .peek(x%+di|
00000820  73 74 61 6e 63 65 25 2c  20 79 25 2b 68 61 6c 66  |stance%, y%+half|
00000830  5f 64 69 73 74 25 29 20  3d 20 30 20 f2 70 6f 6b  |_dist%) = 0 .pok|
00000840  65 28 78 25 2b 64 69 73  74 61 6e 63 65 25 2c 20  |e(x%+distance%, |
00000850  79 25 2b 68 61 6c 66 5f  64 69 73 74 25 2c 20 28  |y%+half_dist%, (|
00000860  a4 70 65 65 6b 28 78 25  2b 64 69 73 74 61 6e 63  |.peek(x%+distanc|
00000870  65 25 2c 20 79 25 29 20  2b 20 a4 70 65 65 6b 28  |e%, y%) + .peek(|
00000880  78 25 2b 64 69 73 74 61  6e 63 65 25 2c 20 79 25  |x%+distance%, y%|
00000890  2b 64 69 73 74 61 6e 63  65 25 29 29 20 2f 20 32  |+distance%)) / 2|
000008a0  20 2b 20 b3 28 68 61 6c  66 5f 64 69 73 74 25 29  | + .(half_dist%)|
000008b0  20 2d 20 68 61 6c 66 5f  64 69 73 74 25 20 2f 20  | - half_dist% / |
000008c0  32 29 0d 02 a8 c3 f2 70  6f 6b 65 28 78 25 2b 68  |2).....poke(x%+h|
000008d0  61 6c 66 5f 64 69 73 74  25 2c 20 79 25 2b 68 61  |alf_dist%, y%+ha|
000008e0  6c 66 5f 64 69 73 74 25  2c 20 28 a4 70 65 65 6b  |lf_dist%, (.peek|
000008f0  28 78 25 2c 20 79 25 2b  68 61 6c 66 5f 64 69 73  |(x%, y%+half_dis|
00000900  74 25 29 2b a4 70 65 65  6b 28 78 25 2b 64 69 73  |t%)+.peek(x%+dis|
00000910  74 61 6e 63 65 25 2c 20  79 25 2b 68 61 6c 66 5f  |tance%, y%+half_|
00000920  64 69 73 74 25 29 2b a4  70 65 65 6b 28 78 25 2b  |dist%)+.peek(x%+|
00000930  68 61 6c 66 5f 64 69 73  74 25 2c 20 79 25 29 2b  |half_dist%, y%)+|
00000940  a4 70 65 65 6b 28 78 25  2b 68 61 6c 66 5f 64 69  |.peek(x%+half_di|
00000950  73 74 25 2c 20 79 25 2b  64 69 73 74 61 6e 63 65  |st%, y%+distance|
00000960  25 29 29 2f 34 2b b3 28  68 61 6c 66 5f 64 69 73  |%))/4+.(half_dis|
00000970  74 25 29 20 2d 20 68 61  6c 66 5f 64 69 73 74 25  |t%) - half_dist%|
00000980  20 2f 20 32 29 0d 02 b2  27 f2 70 6c 6f 74 5f 6d  | / 2)...'.plot_m|
00000990  69 64 70 6f 69 6e 74 73  28 78 25 2c 20 79 25 2c  |idpoints(x%, y%,|
000009a0  20 68 61 6c 66 5f 64 69  73 74 25 29 0d 02 bc 32  | half_dist%)...2|
000009b0  f2 70 6c 6f 74 5f 6d 69  64 70 6f 69 6e 74 73 28  |.plot_midpoints(|
000009c0  78 25 2b 68 61 6c 66 5f  64 69 73 74 25 2c 20 79  |x%+half_dist%, y|
000009d0  25 2c 20 68 61 6c 66 5f  64 69 73 74 25 29 0d 02  |%, half_dist%)..|
000009e0  c6 32 f2 70 6c 6f 74 5f  6d 69 64 70 6f 69 6e 74  |.2.plot_midpoint|
000009f0  73 28 78 25 2c 20 79 25  2b 68 61 6c 66 5f 64 69  |s(x%, y%+half_di|
00000a00  73 74 25 2c 20 68 61 6c  66 5f 64 69 73 74 25 29  |st%, half_dist%)|
00000a10  0d 02 d0 3d f2 70 6c 6f  74 5f 6d 69 64 70 6f 69  |...=.plot_midpoi|
00000a20  6e 74 73 28 78 25 2b 68  61 6c 66 5f 64 69 73 74  |nts(x%+half_dist|
00000a30  25 2c 20 79 25 2b 68 61  6c 66 5f 64 69 73 74 25  |%, y%+half_dist%|
00000a40  2c 20 68 61 6c 66 5f 64  69 73 74 25 29 0d 02 da  |, half_dist%)...|
00000a50  05 e1 0d 02 e4 05 3a 0d  02 ee 19 dd 20 f2 70 6f  |......:..... .po|
00000a60  6b 65 28 78 25 2c 20 79  25 2c 20 76 61 6c 25 29  |ke(x%, y%, val%)|
00000a70  0d 02 f8 3b 41 25 3d 21  28 73 71 75 61 72 65 25  |...;A%=!(square%|
00000a80  20 2b 20 32 20 2a 20 28  78 25 20 2a 20 28 73 69  | + 2 * (x% * (si|
00000a90  7a 65 25 20 2b 20 31 29  20 2b 20 79 25 29 29 20  |ze% + 1) + y%)) |
00000aa0  80 20 26 46 46 46 46 30  30 30 30 0d 03 02 1c 41  |. &FFFF0000....A|
00000ab0  25 20 3d 20 41 25 20 84  20 28 76 61 6c 25 20 80  |% = A% . (val% .|
00000ac0  20 26 46 46 46 46 29 0d  03 0c 31 21 28 73 71 75  | &FFFF)...1!(squ|
00000ad0  61 72 65 25 20 2b 20 32  20 2a 20 28 78 25 20 2a  |are% + 2 * (x% *|
00000ae0  20 28 73 69 7a 65 25 20  2b 20 31 29 20 2b 20 79  | (size% + 1) + y|
00000af0  25 29 29 20 3d 20 41 25  0d 03 16 05 e1 0d 03 20  |%)) = A%....... |
00000b00  05 3a 0d 03 2a 13 dd 20  a4 70 65 65 6b 28 78 25  |.:..*.. .peek(x%|
00000b10  2c 20 79 25 29 0d 03 34  37 41 25 3d 21 28 73 71  |, y%)..47A%=!(sq|
00000b20  75 61 72 65 25 20 2b 20  32 20 2a 20 28 78 25 20  |uare% + 2 * (x% |
00000b30  2a 20 28 73 69 7a 65 25  20 2b 20 31 29 20 2b 20  |* (size% + 1) + |
00000b40  79 25 29 29 20 80 20 26  46 46 46 46 0d 03 3e 24  |y%)) . &FFFF..>$|
00000b50  e7 20 41 25 20 3e 20 33  32 37 36 37 20 41 25 20  |. A% > 32767 A% |
00000b60  3d 20 41 25 20 84 20 26  46 46 46 46 30 30 30 30  |= A% . &FFFF0000|
00000b70  0d 03 48 07 3d 41 25 0d  03 52 05 3a 0d 03 5c 0f  |..H.=A%..R.:..\.|
00000b80  dd 20 f2 74 75 72 6e 5f  6f 66 66 0d 03 66 13 e3  |. .turn_off..f..|
00000b90  49 25 20 3d 20 30 20 b8  20 73 69 7a 65 25 0d 03  |I% = 0 . size%..|
00000ba0  70 13 e3 4a 25 20 3d 20  30 20 b8 20 73 69 7a 65  |p..J% = 0 . size|
00000bb0  25 0d 03 7a 28 e7 20 a4  70 65 65 6b 28 49 25 2c  |%..z(. .peek(I%,|
00000bc0  20 4a 25 29 20 3c 20 30  20 f2 70 6f 6b 65 28 49  | J%) < 0 .poke(I|
00000bd0  25 2c 20 4a 25 2c 20 30  29 0d 03 84 05 ed 0d 03  |%, J%, 0).......|
00000be0  8e 05 ed 0d 03 98 05 e1  0d 03 a2 05 3a 0d 03 ac  |............:...|
00000bf0  18 dd 20 a4 70 72 6f 6a  65 63 74 5f 78 28 78 25  |.. .project_x(x%|
00000c00  2c 20 79 25 29 0d 03 b6  40 72 65 73 75 6c 74 25  |, y%)...@result%|
00000c10  20 3d 20 78 5f 6f 66 66  73 65 74 25 20 2b 20 28  | = x_offset% + (|
00000c20  78 25 20 2d 20 78 70 6f  73 25 29 20 2a 20 31 32  |x% - xpos%) * 12|
00000c30  38 30 20 2f 20 28 79 70  6f 73 25 20 2b 20 32 20  |80 / (ypos% + 2 |
00000c40  2d 20 79 25 29 0d 03 c0  27 e7 20 72 65 73 75 6c  |- y%)...'. resul|
00000c50  74 25 20 3c 20 78 5f 6d  69 6e 25 20 72 65 73 75  |t% < x_min% resu|
00000c60  6c 74 25 20 3d 20 78 5f  6d 69 6e 25 0d 03 ca 0c  |lt% = x_min%....|
00000c70  3d 72 65 73 75 6c 74 25  0d 03 d4 05 3a 0d 03 de  |=result%....:...|
00000c80  18 dd 20 a4 70 72 6f 6a  65 63 74 5f 79 28 78 25  |.. .project_y(x%|
00000c90  2c 20 79 25 29 0d 03 e8  4b 72 65 73 75 6c 74 25  |, y%)...Kresult%|
00000ca0  20 3d 20 79 5f 6f 66 66  73 65 74 25 20 2d 20 28  | = y_offset% - (|
00000cb0  a4 70 65 65 6b 28 78 25  2c 20 79 25 29 20 2d 20  |.peek(x%, y%) - |
00000cc0  65 6c 65 76 25 29 20 2a  20 31 32 38 30 20 2f 20  |elev%) * 1280 / |
00000cd0  28 79 70 6f 73 25 20 2b  20 32 20 2d 20 79 25 29  |(ypos% + 2 - y%)|
00000ce0  0d 03 f2 1c 72 65 73 75  6c 74 25 20 3d 20 31 30  |....result% = 10|
00000cf0  32 34 20 2d 20 72 65 73  75 6c 74 25 0d 03 fc 27  |24 - result%...'|
00000d00  e7 20 72 65 73 75 6c 74  25 20 3c 20 79 5f 6d 69  |. result% < y_mi|
00000d10  6e 25 20 72 65 73 75 6c  74 25 20 3d 20 79 5f 6d  |n% result% = y_m|
00000d20  69 6e 25 0d 04 06 27 e7  20 72 65 73 75 6c 74 25  |in%...'. result%|
00000d30  20 3e 20 79 5f 6d 61 78  25 20 72 65 73 75 6c 74  | > y_max% result|
00000d40  25 20 3d 20 79 5f 6d 61  78 25 0d 04 10 0c 3d 72  |% = y_max%....=r|
00000d50  65 73 75 6c 74 25 0d 04  1a 05 3a 0d 04 24 0e dd  |esult%....:..$..|
00000d60  20 f2 74 68 72 65 65 5f  64 0d 04 2e 05 db 0d 04  | .three_d.......|
00000d70  38 18 e3 20 79 25 20 3d  20 30 20 b8 20 79 70 6f  |8.. y% = 0 . ypo|
00000d80  73 25 20 2d 20 31 0d 04  42 18 e3 20 78 25 20 3d  |s% - 1..B.. x% =|
00000d90  20 30 20 b8 20 73 69 7a  65 25 20 2d 20 31 0d 04  | 0 . size% - 1..|
00000da0  4c 0d 64 72 61 77 25 20  3d 20 31 0d 04 56 52 6c  |L.draw% = 1..VRl|
00000db0  65 76 65 6c 25 20 3d 20  a4 70 65 65 6b 28 78 25  |evel% = .peek(x%|
00000dc0  2c 20 79 25 29 20 2b 20  a4 70 65 65 6b 28 78 25  |, y%) + .peek(x%|
00000dd0  2b 31 2c 20 79 25 29 20  2b 20 a4 70 65 65 6b 28  |+1, y%) + .peek(|
00000de0  78 25 2c 20 79 25 2b 31  29 20 2b 20 a4 70 65 65  |x%, y%+1) + .pee|
00000df0  6b 28 78 25 2b 31 2c 20  79 25 2b 31 29 0d 04 60  |k(x%+1, y%+1)..`|
00000e00  3b e7 20 62 65 6c 6f 77  5f 73 65 61 25 20 3d 20  |;. below_sea% = |
00000e10  31 31 30 20 80 20 73 65  61 25 20 3d 20 31 31 30  |110 . sea% = 110|
00000e20  20 80 20 6c 65 76 65 6c  25 20 3c 3d 20 30 20 64  | . level% <= 0 d|
00000e30  72 61 77 25 20 3d 20 30  0d 04 6a 36 e7 20 73 65  |raw% = 0..j6. se|
00000e40  61 25 20 3d 20 31 32 31  20 80 20 77 69 72 65 25  |a% = 121 . wire%|
00000e50  20 3d 20 31 31 35 20 80  20 6c 65 76 65 6c 25 20  | = 115 . level% |
00000e60  3c 3d 20 30 20 64 72 61  77 25 20 3d 20 30 0d 04  |<= 0 draw% = 0..|
00000e70  74 16 e7 20 64 72 61 77  25 20 3d 20 30 20 e5 20  |t.. draw% = 0 . |
00000e80  8d 64 76 44 0d 04 7e 1c  78 31 25 20 3d 20 a4 70  |.dvD..~.x1% = .p|
00000e90  72 6f 6a 65 63 74 5f 78  28 78 25 2c 20 79 25 29  |roject_x(x%, y%)|
00000ea0  0d 04 88 16 e7 20 78 31  25 20 3e 20 31 32 38 30  |..... x1% > 1280|
00000eb0  20 e5 8d 64 76 44 0d 04  92 1c 79 31 25 20 3d 20  | ..dvD....y1% = |
00000ec0  a4 70 72 6f 6a 65 63 74  5f 79 28 78 25 2c 20 79  |.project_y(x%, y|
00000ed0  25 29 0d 04 9c 1e 78 32  25 20 3d 20 a4 70 72 6f  |%)....x2% = .pro|
00000ee0  6a 65 63 74 5f 78 28 78  25 2b 31 2c 20 79 25 29  |ject_x(x%+1, y%)|
00000ef0  0d 04 a6 1e 79 32 25 20  3d 20 a4 70 72 6f 6a 65  |....y2% = .proje|
00000f00  63 74 5f 79 28 78 25 2b  31 2c 20 79 25 29 0d 04  |ct_y(x%+1, y%)..|
00000f10  b0 20 78 33 25 20 3d 20  a4 70 72 6f 6a 65 63 74  |. x3% = .project|
00000f20  5f 78 28 78 25 2b 31 2c  20 79 25 2b 31 29 0d 04  |_x(x%+1, y%+1)..|
00000f30  ba 20 79 33 25 20 3d 20  a4 70 72 6f 6a 65 63 74  |. y3% = .project|
00000f40  5f 79 28 78 25 2b 31 2c  20 79 25 2b 31 29 0d 04  |_y(x%+1, y%+1)..|
00000f50  c4 1e 78 34 25 20 3d 20  a4 70 72 6f 6a 65 63 74  |..x4% = .project|
00000f60  5f 78 28 78 25 2c 20 79  25 2b 31 29 0d 04 ce 1e  |_x(x%, y%+1)....|
00000f70  79 34 25 20 3d 20 a4 70  72 6f 6a 65 63 74 5f 79  |y4% = .project_y|
00000f80  28 78 25 2c 20 79 25 2b  31 29 0d 04 ec 48 e7 20  |(x%, y%+1)...H. |
00000f90  77 69 72 65 25 20 3d 20  31 31 39 20 ec 20 78 31  |wire% = 119 . x1|
00000fa0  25 2c 20 79 31 25 3a df  20 78 32 25 2c 20 79 32  |%, y1%:. x2%, y2|
00000fb0  25 3a df 20 78 33 25 2c  20 79 33 25 3a df 20 78  |%:. x3%, y3%:. x|
00000fc0  34 25 2c 20 79 34 25 3a  df 20 78 31 25 2c 20 79  |4%, y4%:. x1%, y|
00000fd0  31 25 0d 04 f6 05 ed 0d  05 00 05 ed 0d 05 0a 05  |1%..............|
00000fe0  e1 0d 05 14 05 3a 0d 05  1e 0f dd 20 f2 64 72 61  |.....:..... .dra|
00000ff0  77 5f 73 65 61 0d 05 28  05 e1 0d 05 32 05 3a 0d  |w_sea..(....2.:.|
00001000  05 3c 12 dd 20 f2 63 68  61 6e 67 65 5f 76 69 65  |.<.. .change_vie|
00001010  77 0d 05 46 05 f5 0d 05  50 09 63 68 25 3d a5 0d  |w..F....P.ch%=..|
00001020  05 5a 30 e7 20 63 68 25  3d 34 33 20 80 20 65 6c  |.Z0. ch%=43 . el|
00001030  65 76 25 20 3c 3d 37 35  20 65 6c 65 76 25 3d 65  |ev% <=75 elev%=e|
00001040  6c 65 76 25 2b 35 3a f2  74 68 72 65 65 5f 64 0d  |lev%+5:.three_d.|
00001050  05 64 30 e7 20 63 68 25  3d 34 35 20 80 20 65 6c  |.d0. ch%=45 . el|
00001060  65 76 25 20 3e 2d 34 30  20 65 6c 65 76 25 3d 65  |ev% >-40 elev%=e|
00001070  6c 65 76 25 2d 35 3a f2  74 68 72 65 65 5f 64 0d  |lev%-5:.three_d.|
00001080  05 6e 2f e7 20 63 68 25  3d 39 31 20 80 20 78 70  |.n/. ch%=91 . xp|
00001090  6f 73 25 20 3e 20 35 20  78 70 6f 73 25 3d 78 70  |os% > 5 xpos%=xp|
000010a0  6f 73 25 2d 35 3a f2 74  68 72 65 65 5f 64 0d 05  |os%-5:.three_d..|
000010b0  78 30 e7 20 63 68 25 3d  39 33 20 80 20 78 70 6f  |x0. ch%=93 . xpo|
000010c0  73 25 20 3c 31 32 33 20  78 70 6f 73 25 3d 78 70  |s% <123 xpos%=xp|
000010d0  6f 73 25 2b 35 3a f2 74  68 72 65 65 5f 64 0d 05  |os%+5:.three_d..|
000010e0  82 2f e7 20 63 68 25 3d  36 32 20 80 20 79 70 6f  |./. ch%=62 . ypo|
000010f0  73 25 20 3e 20 35 20 79  70 6f 73 25 3d 79 70 6f  |s% > 5 ypos%=ypo|
00001100  73 25 2d 35 3a f2 74 68  72 65 65 5f 64 0d 05 8c  |s%-5:.three_d...|
00001110  30 e7 20 63 68 25 3d 36  30 20 80 20 79 70 6f 73  |0. ch%=60 . ypos|
00001120  25 20 3c 31 32 33 20 79  70 6f 73 25 3d 79 70 6f  |% <123 ypos%=ypo|
00001130  73 25 2b 35 3a f2 74 68  72 65 65 5f 64 0d 05 96  |s%+5:.three_d...|
00001140  0f fd 20 63 68 25 20 3d  20 31 31 33 0d 05 a0 05  |.. ch% = 113....|
00001150  e1 0d ff                                          |...|
00001153