Home » Archimedes archive » Acorn User » AU 1994-Xmas.adf » Programs » StarInfo/Henry/GenFlyMap

StarInfo/Henry/GenFlyMap

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 1994-Xmas.adf » Programs
Filename: StarInfo/Henry/GenFlyMap
Read OK: ✔
File size: 08D8 bytes
Load address: 0000
Exec address: 0000
File contents
    1REM>GenFlyMap
    2REM>Writen by Morgan Henry
    3
    4ONERROR PRINTREPORT$;" at line ";ERL:END
    5size%=128:sizes%=7+2   :REM size%=128:sizes%=7+2
    6DIM map% size%*size%*4
    7
    8L%=18   :REM fault size
    9K%=68   :REM number of faults
   10
   11i%=RND(-TIME)
   12PRINT"Zeroing"
   13FORi%=0TO(size%*size%-1):map%!(i%<<2)=0:NEXT
   14
   15PRINT"Faulting"
   16FORi%=K%TO1 STEP-1
   17PRINTi%
   18CASE RND(4) OF
   19WHEN 1:PROCfaultx(RND(size%),RND(size%),RND(L%))
   20WHEN 2:PROCfaulty(RND(size%),RND(size%),RND(L%))
   21WHEN 3:PROCfaultx(RND(size%),RND(size%),-RND(L%))
   22WHEN 4:PROCfaulty(RND(size%),RND(size%),-RND(L%))
   23ENDCASE
   24NEXT
   25
   26PRINT"Pontificating"
   27FORx%=0TOsize%-1
   28P%=map%+(x%<<2)
   29Q%=P%+size%*4
   30W%=P%+size%*4*(size%-1)
   31!P%=!Q%+((!W%-!Q%)DIV2)
   32NEXT
   33FORy%=0TOsize%-1
   34P%=map%+(y%<<sizes%)
   35Q%=P%+4
   36W%=P%+(size%-1)*4
   37!P%=!Q%+((!W%-!Q%)DIV2)
   38NEXT
   39
   40PRINT"Weathering"
   41FORy%=0TOsize%-1
   42FORx%=0TOsize%-1
   43E%=FNstar(x%-1,y%-1)
   44R%=FNstar(x%,y%-1)
   45T%=FNstar(x%+1,y%-1)
   46D%=FNstar(x%-1,y%)
   47F%=FNstar(x%,y%)
   48G%=FNstar(x%+1,y%)
   49C%=FNstar(x%-1,y%+1)
   50V%=FNstar(x%,y%+1)
   51B%=FNstar(x%+1,y%+1)
   52!FNaddr(x%-1,y%-1)=E%+((F%-E%)DIV6)
   53!FNaddr(x%,y%-1)=R%+((F%-R%)DIV4)
   54!FNaddr(x%+1,y%-1)=T%+((F%-T%)DIV6)
   55!FNaddr(x%-1,y%)=D%+((F%-D%)DIV4)
   56!FNaddr(x%+1,y%)=G%+((F%-G%)DIV4)
   57!FNaddr(x%-1,y%+1)=C%+((F%-C%)DIV6)
   58!FNaddr(x%,y%+1)=V%+((F%-V%)DIV4)
   59!FNaddr(x%+1,y%+1)=B%+((F%-B%)DIV6)
   60NEXT
   61PRINTy%
   62NEXT
   63
   64PRINT"Flooding"
   65P%=map%
   66T%=0
   67FORi%=1TO size%*size%:T%+=!P%:P%+=4:NEXT
   68T%=T%DIV(size%*size%*3)
   69
   70PRINT"Colouring"
   71FORi%=0TO size%*size%*4-4 STEP4
   72R%=map%!i%-T%
   73IFR%<=0 THEN
   74D%=-R%DIV2
   75IF D%>7 D%=7
   76C%=32+D%
   77R%=0
   78ELSE
   79IFR%<15 THEN
   80C%=95+RND(3)
   81ELSE
   82IF R%<80 THEN
   83C%=131+RND(4)
   84ELSE
   85C%=(R%-80)DIV4
   86IFC%>11 C%=11
   87C%=11-C%
   88ENDIF
   89ENDIF
   90ENDIF
   91map%!i%=(R%*65536) OR C%
   92NEXT
   93
   94PRINT"Saving"
   95OSCLI("SAVE FlyMap "+STR$~map%+" +"+STR$~(size%*size%*4))
   96END
   97
   98DEFPROCfaultx(x1%,x2%,z%)
   99z%+=z%
  100grad=(x2%-x1%)/size%
  101x=x1%-1
  102FORy%=0TO(size%-1)
  103P%=map%+(y%<<sizes%)
  104FORx%=0TO INTx:!P%+=z%:P%+=4:NEXT
  105x+=grad
  106NEXT
  107ENDPROC
  108
  109DEFPROCfaulty(y1%,y2%,z%)
  110z%+=z%
  111grad=(y2%-y1%)/size%
  112y=y1%-1
  113FORx%=0TOsize%-1
  114P%=map%+(x%<<2)
  115FORy%=0TO INTy:!P%+=z%:P%+=size%*4:NEXT
  116y+=grad
  117NEXT
  118ENDPROC
  119
  120DEFFNstar(a%,b%)
  121a%=a%AND(size%-1)
  122b%=b%AND(size%-1)
  123=map%!((a%<<2)+(b%<<sizes%))
  124
  125DEFFNaddr(a%,b%)
  126a%=a%AND(size%-1)
  127b%=b%AND(size%-1)
  128=map%+((a%<<2)+(b%<<sizes%))

�>GenFlyMap
�>Writen by Morgan Henry

� �$;" at line ";�:�
2size%=128:sizes%=7+2   :� size%=128:sizes%=7+2
� map% size%*size%*4

L%=18   :� fault size
	K%=68   :� number of faults


i%=�(-�)
�"Zeroing"

*�i%=0�(size%*size%-1):map%!(i%<<2)=0:�

�"Faulting"
�i%=K%�1 �-1
�i%

Ȏ �(4) �
(� 1:�faultx(�(size%),�(size%),�(L%))
(� 2:�faulty(�(size%),�(size%),�(L%))
)� 3:�faultx(�(size%),�(size%),-�(L%))
)� 4:�faulty(�(size%),�(size%),-�(L%))
�
�

�"Pontificating"
�x%=0�size%-1
P%=map%+(x%<<2)
Q%=P%+size%*4
W%=P%+size%*4*(size%-1)
!P%=!Q%+((!W%-!Q%)�2)
 �
!�y%=0�size%-1
"P%=map%+(y%<<sizes%)
#Q%=P%+4
$W%=P%+(size%-1)*4
%!P%=!Q%+((!W%-!Q%)�2)
&�
'
(�"Weathering"
)�y%=0�size%-1
*�x%=0�size%-1
+E%=�star(x%-1,y%-1)
,R%=�star(x%,y%-1)
-T%=�star(x%+1,y%-1)
.D%=�star(x%-1,y%)
/F%=�star(x%,y%)
0G%=�star(x%+1,y%)
1C%=�star(x%-1,y%+1)
2V%=�star(x%,y%+1)
3B%=�star(x%+1,y%+1)
4$!�addr(x%-1,y%-1)=E%+((F%-E%)�6)
5"!�addr(x%,y%-1)=R%+((F%-R%)�4)
6$!�addr(x%+1,y%-1)=T%+((F%-T%)�6)
7"!�addr(x%-1,y%)=D%+((F%-D%)�4)
8"!�addr(x%+1,y%)=G%+((F%-G%)�4)
9$!�addr(x%-1,y%+1)=C%+((F%-C%)�6)
:"!�addr(x%,y%+1)=V%+((F%-V%)�4)
;$!�addr(x%+1,y%+1)=B%+((F%-B%)�6)
<�
=�y%
>�
?
@�"Flooding"
AP%=map%
BT%=0
C&�i%=1� size%*size%:T%+=!P%:P%+=4:�
DT%=T%�(size%*size%*3)
E
F�"Colouring"
G�i%=0� size%*size%*4-4 �4
HR%=map%!i%-T%
I�R%<=0 �
JD%=-R%�2
K� D%>7 D%=7
LC%=32+D%
MR%=0
N�
O�R%<15 �
PC%=95+�(3)
Q�
R
� R%<80 �
SC%=131+�(4)
T�
UC%=(R%-80)�4
V�C%>11 C%=11
WC%=11-C%
X�
Y�
Z�
[map%!i%=(R%*65536) � C%
\�
]
^
�"Saving"
_3�("SAVE FlyMap "+�~map%+" +"+�~(size%*size%*4))
`�
a
b��faultx(x1%,x2%,z%)
c
z%+=z%
dgrad=(x2%-x1%)/size%
ex=x1%-1
f�y%=0�(size%-1)
gP%=map%+(y%<<sizes%)
h�x%=0� �x:!P%+=z%:P%+=4:�
ix+=grad
j�
k�
l
m��faulty(y1%,y2%,z%)
n
z%+=z%
ograd=(y2%-y1%)/size%
py=y1%-1
q�x%=0�size%-1
rP%=map%+(x%<<2)
s#�y%=0� �y:!P%+=z%:P%+=size%*4:�
ty+=grad
u�
v�
w
xݤstar(a%,b%)
ya%=a%�(size%-1)
zb%=b%�(size%-1)
{ =map%!((a%<<2)+(b%<<sizes%))
|
}ݤaddr(a%,b%)
~a%=a%�(size%-1)
b%=b%�(size%-1)
� =map%+((a%<<2)+(b%<<sizes%))
�
00000000  0d 00 01 0f f4 3e 47 65  6e 46 6c 79 4d 61 70 0d  |.....>GenFlyMap.|
00000010  00 02 1c f4 3e 57 72 69  74 65 6e 20 62 79 20 4d  |....>Writen by M|
00000020  6f 72 67 61 6e 20 48 65  6e 72 79 0d 00 03 04 0d  |organ Henry.....|
00000030  00 04 1a ee 85 20 f1 f6  24 3b 22 20 61 74 20 6c  |..... ..$;" at l|
00000040  69 6e 65 20 22 3b 9e 3a  e0 0d 00 05 32 73 69 7a  |ine ";.:....2siz|
00000050  65 25 3d 31 32 38 3a 73  69 7a 65 73 25 3d 37 2b  |e%=128:sizes%=7+|
00000060  32 20 20 20 3a f4 20 73  69 7a 65 25 3d 31 32 38  |2   :. size%=128|
00000070  3a 73 69 7a 65 73 25 3d  37 2b 32 0d 00 06 18 de  |:sizes%=7+2.....|
00000080  20 6d 61 70 25 20 73 69  7a 65 25 2a 73 69 7a 65  | map% size%*size|
00000090  25 2a 34 0d 00 07 04 0d  00 08 19 4c 25 3d 31 38  |%*4........L%=18|
000000a0  20 20 20 3a f4 20 66 61  75 6c 74 20 73 69 7a 65  |   :. fault size|
000000b0  0d 00 09 1f 4b 25 3d 36  38 20 20 20 3a f4 20 6e  |....K%=68   :. n|
000000c0  75 6d 62 65 72 20 6f 66  20 66 61 75 6c 74 73 0d  |umber of faults.|
000000d0  00 0a 04 0d 00 0b 0c 69  25 3d b3 28 2d 91 29 0d  |.......i%=.(-.).|
000000e0  00 0c 0e f1 22 5a 65 72  6f 69 6e 67 22 0d 00 0d  |...."Zeroing"...|
000000f0  2a e3 69 25 3d 30 b8 28  73 69 7a 65 25 2a 73 69  |*.i%=0.(size%*si|
00000100  7a 65 25 2d 31 29 3a 6d  61 70 25 21 28 69 25 3c  |ze%-1):map%!(i%<|
00000110  3c 32 29 3d 30 3a ed 0d  00 0e 04 0d 00 0f 0f f1  |<2)=0:..........|
00000120  22 46 61 75 6c 74 69 6e  67 22 0d 00 10 10 e3 69  |"Faulting".....i|
00000130  25 3d 4b 25 b8 31 20 88  2d 31 0d 00 11 07 f1 69  |%=K%.1 .-1.....i|
00000140  25 0d 00 12 0d c8 8e 20  b3 28 34 29 20 ca 0d 00  |%...... .(4) ...|
00000150  13 28 c9 20 31 3a f2 66  61 75 6c 74 78 28 b3 28  |.(. 1:.faultx(.(|
00000160  73 69 7a 65 25 29 2c b3  28 73 69 7a 65 25 29 2c  |size%),.(size%),|
00000170  b3 28 4c 25 29 29 0d 00  14 28 c9 20 32 3a f2 66  |.(L%))...(. 2:.f|
00000180  61 75 6c 74 79 28 b3 28  73 69 7a 65 25 29 2c b3  |aulty(.(size%),.|
00000190  28 73 69 7a 65 25 29 2c  b3 28 4c 25 29 29 0d 00  |(size%),.(L%))..|
000001a0  15 29 c9 20 33 3a f2 66  61 75 6c 74 78 28 b3 28  |.). 3:.faultx(.(|
000001b0  73 69 7a 65 25 29 2c b3  28 73 69 7a 65 25 29 2c  |size%),.(size%),|
000001c0  2d b3 28 4c 25 29 29 0d  00 16 29 c9 20 34 3a f2  |-.(L%))...). 4:.|
000001d0  66 61 75 6c 74 79 28 b3  28 73 69 7a 65 25 29 2c  |faulty(.(size%),|
000001e0  b3 28 73 69 7a 65 25 29  2c 2d b3 28 4c 25 29 29  |.(size%),-.(L%))|
000001f0  0d 00 17 05 cb 0d 00 18  05 ed 0d 00 19 04 0d 00  |................|
00000200  1a 14 f1 22 50 6f 6e 74  69 66 69 63 61 74 69 6e  |..."Pontificatin|
00000210  67 22 0d 00 1b 11 e3 78  25 3d 30 b8 73 69 7a 65  |g".....x%=0.size|
00000220  25 2d 31 0d 00 1c 13 50  25 3d 6d 61 70 25 2b 28  |%-1....P%=map%+(|
00000230  78 25 3c 3c 32 29 0d 00  1d 11 51 25 3d 50 25 2b  |x%<<2)....Q%=P%+|
00000240  73 69 7a 65 25 2a 34 0d  00 1e 1b 57 25 3d 50 25  |size%*4....W%=P%|
00000250  2b 73 69 7a 65 25 2a 34  2a 28 73 69 7a 65 25 2d  |+size%*4*(size%-|
00000260  31 29 0d 00 1f 19 21 50  25 3d 21 51 25 2b 28 28  |1)....!P%=!Q%+((|
00000270  21 57 25 2d 21 51 25 29  81 32 29 0d 00 20 05 ed  |!W%-!Q%).2).. ..|
00000280  0d 00 21 11 e3 79 25 3d  30 b8 73 69 7a 65 25 2d  |..!..y%=0.size%-|
00000290  31 0d 00 22 18 50 25 3d  6d 61 70 25 2b 28 79 25  |1..".P%=map%+(y%|
000002a0  3c 3c 73 69 7a 65 73 25  29 0d 00 23 0b 51 25 3d  |<<sizes%)..#.Q%=|
000002b0  50 25 2b 34 0d 00 24 15  57 25 3d 50 25 2b 28 73  |P%+4..$.W%=P%+(s|
000002c0  69 7a 65 25 2d 31 29 2a  34 0d 00 25 19 21 50 25  |ize%-1)*4..%.!P%|
000002d0  3d 21 51 25 2b 28 28 21  57 25 2d 21 51 25 29 81  |=!Q%+((!W%-!Q%).|
000002e0  32 29 0d 00 26 05 ed 0d  00 27 04 0d 00 28 11 f1  |2)..&....'...(..|
000002f0  22 57 65 61 74 68 65 72  69 6e 67 22 0d 00 29 11  |"Weathering"..).|
00000300  e3 79 25 3d 30 b8 73 69  7a 65 25 2d 31 0d 00 2a  |.y%=0.size%-1..*|
00000310  11 e3 78 25 3d 30 b8 73  69 7a 65 25 2d 31 0d 00  |..x%=0.size%-1..|
00000320  2b 17 45 25 3d a4 73 74  61 72 28 78 25 2d 31 2c  |+.E%=.star(x%-1,|
00000330  79 25 2d 31 29 0d 00 2c  15 52 25 3d a4 73 74 61  |y%-1)..,.R%=.sta|
00000340  72 28 78 25 2c 79 25 2d  31 29 0d 00 2d 17 54 25  |r(x%,y%-1)..-.T%|
00000350  3d a4 73 74 61 72 28 78  25 2b 31 2c 79 25 2d 31  |=.star(x%+1,y%-1|
00000360  29 0d 00 2e 15 44 25 3d  a4 73 74 61 72 28 78 25  |)....D%=.star(x%|
00000370  2d 31 2c 79 25 29 0d 00  2f 13 46 25 3d a4 73 74  |-1,y%)../.F%=.st|
00000380  61 72 28 78 25 2c 79 25  29 0d 00 30 15 47 25 3d  |ar(x%,y%)..0.G%=|
00000390  a4 73 74 61 72 28 78 25  2b 31 2c 79 25 29 0d 00  |.star(x%+1,y%)..|
000003a0  31 17 43 25 3d a4 73 74  61 72 28 78 25 2d 31 2c  |1.C%=.star(x%-1,|
000003b0  79 25 2b 31 29 0d 00 32  15 56 25 3d a4 73 74 61  |y%+1)..2.V%=.sta|
000003c0  72 28 78 25 2c 79 25 2b  31 29 0d 00 33 17 42 25  |r(x%,y%+1)..3.B%|
000003d0  3d a4 73 74 61 72 28 78  25 2b 31 2c 79 25 2b 31  |=.star(x%+1,y%+1|
000003e0  29 0d 00 34 24 21 a4 61  64 64 72 28 78 25 2d 31  |)..4$!.addr(x%-1|
000003f0  2c 79 25 2d 31 29 3d 45  25 2b 28 28 46 25 2d 45  |,y%-1)=E%+((F%-E|
00000400  25 29 81 36 29 0d 00 35  22 21 a4 61 64 64 72 28  |%).6)..5"!.addr(|
00000410  78 25 2c 79 25 2d 31 29  3d 52 25 2b 28 28 46 25  |x%,y%-1)=R%+((F%|
00000420  2d 52 25 29 81 34 29 0d  00 36 24 21 a4 61 64 64  |-R%).4)..6$!.add|
00000430  72 28 78 25 2b 31 2c 79  25 2d 31 29 3d 54 25 2b  |r(x%+1,y%-1)=T%+|
00000440  28 28 46 25 2d 54 25 29  81 36 29 0d 00 37 22 21  |((F%-T%).6)..7"!|
00000450  a4 61 64 64 72 28 78 25  2d 31 2c 79 25 29 3d 44  |.addr(x%-1,y%)=D|
00000460  25 2b 28 28 46 25 2d 44  25 29 81 34 29 0d 00 38  |%+((F%-D%).4)..8|
00000470  22 21 a4 61 64 64 72 28  78 25 2b 31 2c 79 25 29  |"!.addr(x%+1,y%)|
00000480  3d 47 25 2b 28 28 46 25  2d 47 25 29 81 34 29 0d  |=G%+((F%-G%).4).|
00000490  00 39 24 21 a4 61 64 64  72 28 78 25 2d 31 2c 79  |.9$!.addr(x%-1,y|
000004a0  25 2b 31 29 3d 43 25 2b  28 28 46 25 2d 43 25 29  |%+1)=C%+((F%-C%)|
000004b0  81 36 29 0d 00 3a 22 21  a4 61 64 64 72 28 78 25  |.6)..:"!.addr(x%|
000004c0  2c 79 25 2b 31 29 3d 56  25 2b 28 28 46 25 2d 56  |,y%+1)=V%+((F%-V|
000004d0  25 29 81 34 29 0d 00 3b  24 21 a4 61 64 64 72 28  |%).4)..;$!.addr(|
000004e0  78 25 2b 31 2c 79 25 2b  31 29 3d 42 25 2b 28 28  |x%+1,y%+1)=B%+((|
000004f0  46 25 2d 42 25 29 81 36  29 0d 00 3c 05 ed 0d 00  |F%-B%).6)..<....|
00000500  3d 07 f1 79 25 0d 00 3e  05 ed 0d 00 3f 04 0d 00  |=..y%..>....?...|
00000510  40 0f f1 22 46 6c 6f 6f  64 69 6e 67 22 0d 00 41  |@.."Flooding"..A|
00000520  0b 50 25 3d 6d 61 70 25  0d 00 42 08 54 25 3d 30  |.P%=map%..B.T%=0|
00000530  0d 00 43 26 e3 69 25 3d  31 b8 20 73 69 7a 65 25  |..C&.i%=1. size%|
00000540  2a 73 69 7a 65 25 3a 54  25 2b 3d 21 50 25 3a 50  |*size%:T%+=!P%:P|
00000550  25 2b 3d 34 3a ed 0d 00  44 19 54 25 3d 54 25 81  |%+=4:...D.T%=T%.|
00000560  28 73 69 7a 65 25 2a 73  69 7a 65 25 2a 33 29 0d  |(size%*size%*3).|
00000570  00 45 04 0d 00 46 10 f1  22 43 6f 6c 6f 75 72 69  |.E...F.."Colouri|
00000580  6e 67 22 0d 00 47 1d e3  69 25 3d 30 b8 20 73 69  |ng"..G..i%=0. si|
00000590  7a 65 25 2a 73 69 7a 65  25 2a 34 2d 34 20 88 34  |ze%*size%*4-4 .4|
000005a0  0d 00 48 11 52 25 3d 6d  61 70 25 21 69 25 2d 54  |..H.R%=map%!i%-T|
000005b0  25 0d 00 49 0c e7 52 25  3c 3d 30 20 8c 0d 00 4a  |%..I..R%<=0 ...J|
000005c0  0c 44 25 3d 2d 52 25 81  32 0d 00 4b 0f e7 20 44  |.D%=-R%.2..K.. D|
000005d0  25 3e 37 20 44 25 3d 37  0d 00 4c 0c 43 25 3d 33  |%>7 D%=7..L.C%=3|
000005e0  32 2b 44 25 0d 00 4d 08  52 25 3d 30 0d 00 4e 05  |2+D%..M.R%=0..N.|
000005f0  cc 0d 00 4f 0c e7 52 25  3c 31 35 20 8c 0d 00 50  |...O..R%<15 ...P|
00000600  0e 43 25 3d 39 35 2b b3  28 33 29 0d 00 51 05 cc  |.C%=95+.(3)..Q..|
00000610  0d 00 52 0d e7 20 52 25  3c 38 30 20 8c 0d 00 53  |..R.. R%<80 ...S|
00000620  0f 43 25 3d 31 33 31 2b  b3 28 34 29 0d 00 54 05  |.C%=131+.(4)..T.|
00000630  cc 0d 00 55 10 43 25 3d  28 52 25 2d 38 30 29 81  |...U.C%=(R%-80).|
00000640  34 0d 00 56 10 e7 43 25  3e 31 31 20 43 25 3d 31  |4..V..C%>11 C%=1|
00000650  31 0d 00 57 0c 43 25 3d  31 31 2d 43 25 0d 00 58  |1..W.C%=11-C%..X|
00000660  05 cd 0d 00 59 05 cd 0d  00 5a 05 cd 0d 00 5b 1b  |....Y....Z....[.|
00000670  6d 61 70 25 21 69 25 3d  28 52 25 2a 36 35 35 33  |map%!i%=(R%*6553|
00000680  36 29 20 84 20 43 25 0d  00 5c 05 ed 0d 00 5d 04  |6) . C%..\....].|
00000690  0d 00 5e 0d f1 22 53 61  76 69 6e 67 22 0d 00 5f  |..^.."Saving".._|
000006a0  33 ff 28 22 53 41 56 45  20 46 6c 79 4d 61 70 20  |3.("SAVE FlyMap |
000006b0  22 2b c3 7e 6d 61 70 25  2b 22 20 2b 22 2b c3 7e  |"+.~map%+" +"+.~|
000006c0  28 73 69 7a 65 25 2a 73  69 7a 65 25 2a 34 29 29  |(size%*size%*4))|
000006d0  0d 00 60 05 e0 0d 00 61  04 0d 00 62 18 dd f2 66  |..`....a...b...f|
000006e0  61 75 6c 74 78 28 78 31  25 2c 78 32 25 2c 7a 25  |aultx(x1%,x2%,z%|
000006f0  29 0d 00 63 0a 7a 25 2b  3d 7a 25 0d 00 64 18 67  |)..c.z%+=z%..d.g|
00000700  72 61 64 3d 28 78 32 25  2d 78 31 25 29 2f 73 69  |rad=(x2%-x1%)/si|
00000710  7a 65 25 0d 00 65 0b 78  3d 78 31 25 2d 31 0d 00  |ze%..e.x=x1%-1..|
00000720  66 13 e3 79 25 3d 30 b8  28 73 69 7a 65 25 2d 31  |f..y%=0.(size%-1|
00000730  29 0d 00 67 18 50 25 3d  6d 61 70 25 2b 28 79 25  |)..g.P%=map%+(y%|
00000740  3c 3c 73 69 7a 65 73 25  29 0d 00 68 1d e3 78 25  |<<sizes%)..h..x%|
00000750  3d 30 b8 20 a8 78 3a 21  50 25 2b 3d 7a 25 3a 50  |=0. .x:!P%+=z%:P|
00000760  25 2b 3d 34 3a ed 0d 00  69 0b 78 2b 3d 67 72 61  |%+=4:...i.x+=gra|
00000770  64 0d 00 6a 05 ed 0d 00  6b 05 e1 0d 00 6c 04 0d  |d..j....k....l..|
00000780  00 6d 18 dd f2 66 61 75  6c 74 79 28 79 31 25 2c  |.m...faulty(y1%,|
00000790  79 32 25 2c 7a 25 29 0d  00 6e 0a 7a 25 2b 3d 7a  |y2%,z%)..n.z%+=z|
000007a0  25 0d 00 6f 18 67 72 61  64 3d 28 79 32 25 2d 79  |%..o.grad=(y2%-y|
000007b0  31 25 29 2f 73 69 7a 65  25 0d 00 70 0b 79 3d 79  |1%)/size%..p.y=y|
000007c0  31 25 2d 31 0d 00 71 11  e3 78 25 3d 30 b8 73 69  |1%-1..q..x%=0.si|
000007d0  7a 65 25 2d 31 0d 00 72  13 50 25 3d 6d 61 70 25  |ze%-1..r.P%=map%|
000007e0  2b 28 78 25 3c 3c 32 29  0d 00 73 23 e3 79 25 3d  |+(x%<<2)..s#.y%=|
000007f0  30 b8 20 a8 79 3a 21 50  25 2b 3d 7a 25 3a 50 25  |0. .y:!P%+=z%:P%|
00000800  2b 3d 73 69 7a 65 25 2a  34 3a ed 0d 00 74 0b 79  |+=size%*4:...t.y|
00000810  2b 3d 67 72 61 64 0d 00  75 05 ed 0d 00 76 05 e1  |+=grad..u....v..|
00000820  0d 00 77 04 0d 00 78 11  dd a4 73 74 61 72 28 61  |..w...x...star(a|
00000830  25 2c 62 25 29 0d 00 79  13 61 25 3d 61 25 80 28  |%,b%)..y.a%=a%.(|
00000840  73 69 7a 65 25 2d 31 29  0d 00 7a 13 62 25 3d 62  |size%-1)..z.b%=b|
00000850  25 80 28 73 69 7a 65 25  2d 31 29 0d 00 7b 20 3d  |%.(size%-1)..{ =|
00000860  6d 61 70 25 21 28 28 61  25 3c 3c 32 29 2b 28 62  |map%!((a%<<2)+(b|
00000870  25 3c 3c 73 69 7a 65 73  25 29 29 0d 00 7c 04 0d  |%<<sizes%))..|..|
00000880  00 7d 11 dd a4 61 64 64  72 28 61 25 2c 62 25 29  |.}...addr(a%,b%)|
00000890  0d 00 7e 13 61 25 3d 61  25 80 28 73 69 7a 65 25  |..~.a%=a%.(size%|
000008a0  2d 31 29 0d 00 7f 13 62  25 3d 62 25 80 28 73 69  |-1)....b%=b%.(si|
000008b0  7a 65 25 2d 31 29 0d 00  80 20 3d 6d 61 70 25 2b  |ze%-1)... =map%+|
000008c0  28 28 61 25 3c 3c 32 29  2b 28 62 25 3c 3c 73 69  |((a%<<2)+(b%<<si|
000008d0  7a 65 73 25 29 29 0d ff                           |zes%))..|
000008d8

© Dominic Ford 2021–2025.

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