� >MakeCity
� by DCA
� for 32-bit machines
(� (c) BAU August 1993
2:
<� 9
F�
Pȑ 640,512
Zsc=5
drange=64
nmax_depth=1
xȕ (1<<(max_depth+4))<range
� max_depth+=1
��
�� dx(3),dy(3),c(max_depth)
�dx()=-32,0,32,0
�dy()=0,32,0,-32
��rand_road(0,0,�(4)-1)
�out%=�("objects.world3")
��#out%,"rem: >world3"
�
�#out%,""
��#out%,"include: house"
��#out%,"include: scraper"
�
�#out%,""
�-�split_world(-range,-range,range,range,0)


�#out%

 *SETTYPE objects.world3 text

� 4

"$ȓ -range,-range,2*range,2*range

,�

6:

@� �rand_road(x,y,d)

J� d2

T;ȕ �x+dx(d),y+dy(d))=0 � (�x+dx(d),y+dy(d))=7 � �(8)=1)

^ � 7

h � x,y,x+dx(d),y+dy(d)

r � i=0 � 31 � 16

|  d2=(d+1) � 4

�  � �(3)<3 �

�   x2=x+dx(d)*i/31+dx(d2)/8

�   y2=y+dy(d)*i/31+dy(d2)/8

�   � �x2,y2)=0 �

�    � 1

�    Ȓ x2,y2

�   �

�  �

�  � �(3)<3 �

�   d2=(d+3) � 4

�   x2=x+dx(d)*i/31+dx(d2)/4

�   y2=y+dy(d)*i/31+dy(d2)/4

�   � �x2,y2)=0 �
    � 1
    Ȓ x2,y2
   �
&  �
0 �
:
 x+=dx(d)
D
 y+=dy(d)
N � �(3)=1 �
X*  � �(2)=1 d2=(d+1) � 4 � d2=(d+3) � 4
b  �rand_road(x,y,d2)
l �
v�
��
�:
�%� �split_world(x0,y0,x1,y1,depth)
�� mx,my,xx,yy
�� depth=max_depth �
�> �#out%,"object: area_"+�depth+"_"+�(c(depth)):c(depth)+=1
� �#out%,""
� � xx=x0 � x1-1 � 4
�  � yy=y0 � y1-1 � 4
�   Ȏ �xx,yy) �
�    � 1:
�     Ȏ �(10) �
�      � 1,2:
A       �#out%," scraper3: "+�(sc*(xx-x0))+",0,"+�(sc*(yy-y0))
      � 3:
A       �#out%," scraper6: "+�(sc*(xx-x0))+",0,"+�(sc*(yy-y0))
 
     
*A      �#out%," house: "+�(sc*(xx-x0)+2)+",0,"+�(sc*(yy-y0)+5)
4
     �
>    � 7:
H;     �#out%," road: "+�(sc*(xx-x0))+",0,"+�(sc*(yy-y0))
R   �
\  �
f �
p �#out%,""
z�
� mx=(x0+x1) � 2
� my=(y0+y1) � 2
�& �split_world(x0,y0,mx,my,depth+1)
�& �split_world(mx,y0,x1,my,depth+1)
�& �split_world(mx,my,x1,y1,depth+1)
�& �split_world(x0,my,mx,y1,depth+1)
��
�r� depth=0 �#out%,"object: world" � � depth<max_depth �#out%,"object: area_"+�depth+"_"+�(c(depth)):c(depth)+=1
�
�#out%,""
�� depth<max_depth �
� � i=0 � 3
�  Ȏ i �
�   � 0:xx=x0:yy=y0
   � 1:xx=mx:yy=y0
   � 2:xx=mx:yy=my
   � 3:xx=x0:yy=my
$  �
.S  �#out%," area_"+�(depth+1)+"_"+�(c(depth+1)-4+i)+": "+�(sc*xx)+",0,"+�(sc*yy)
8 �
B �#out%,""
L�
V�
`�
�

00000000  0d 00 0a 0f f4 20 3e 4d  61 6b 65 43 69 74 79 0d  |..... >MakeCity.|
00000010  00 14 0c f4 20 62 79 20  44 43 41 0d 00 1e 19 f4  |.... by DCA.....|
00000020  20 66 6f 72 20 33 32 2d  62 69 74 20 6d 61 63 68  | for 32-bit mach|
00000030  69 6e 65 73 0d 00 28 19  f4 20 28 63 29 20 42 41  |ines..(.. (c) BA|
00000040  55 20 41 75 67 75 73 74  20 31 39 39 33 0d 00 32  |U August 1993..2|
00000050  05 3a 0d 00 3c 07 eb 20  39 0d 00 46 05 87 0d 00  |.:..<.. 9..F....|
00000060  50 0e c8 91 20 36 34 30  2c 35 31 32 0d 00 5a 08  |P... 640,512..Z.|
00000070  73 63 3d 35 0d 00 64 0c  72 61 6e 67 65 3d 36 34  |sc=5..d.range=64|
00000080  0d 00 6e 0f 6d 61 78 5f  64 65 70 74 68 3d 31 0d  |..n.max_depth=1.|
00000090  00 78 1f c8 95 20 28 31  3c 3c 28 6d 61 78 5f 64  |.x... (1<<(max_d|
000000a0  65 70 74 68 2b 34 29 29  3c 72 61 6e 67 65 0d 00  |epth+4))<range..|
000000b0  82 11 20 6d 61 78 5f 64  65 70 74 68 2b 3d 31 0d  |.. max_depth+=1.|
000000c0  00 8c 05 ce 0d 00 96 1e  de 20 64 78 28 33 29 2c  |......... dx(3),|
000000d0  64 79 28 33 29 2c 63 28  6d 61 78 5f 64 65 70 74  |dy(3),c(max_dept|
000000e0  68 29 0d 00 a0 13 64 78  28 29 3d 2d 33 32 2c 30  |h)....dx()=-32,0|
000000f0  2c 33 32 2c 30 0d 00 aa  13 64 79 28 29 3d 30 2c  |,32,0....dy()=0,|
00000100  33 32 2c 30 2c 2d 33 32  0d 00 b4 1a f2 72 61 6e  |32,0,-32.....ran|
00000110  64 5f 72 6f 61 64 28 30  2c 30 2c b3 28 34 29 2d  |d_road(0,0,.(4)-|
00000120  31 29 0d 00 be 1c 6f 75  74 25 3d ae 28 22 6f 62  |1)....out%=.("ob|
00000130  6a 65 63 74 73 2e 77 6f  72 6c 64 33 22 29 0d 00  |jects.world3")..|
00000140  c8 19 d5 23 6f 75 74 25  2c 22 72 65 6d 3a 20 3e  |...#out%,"rem: >|
00000150  77 6f 72 6c 64 33 22 0d  00 d2 0d d5 23 6f 75 74  |world3".....#out|
00000160  25 2c 22 22 0d 00 dc 1b  d5 23 6f 75 74 25 2c 22  |%,"".....#out%,"|
00000170  69 6e 63 6c 75 64 65 3a  20 68 6f 75 73 65 22 0d  |include: house".|
00000180  00 e6 1d d5 23 6f 75 74  25 2c 22 69 6e 63 6c 75  |....#out%,"inclu|
00000190  64 65 3a 20 73 63 72 61  70 65 72 22 0d 00 f0 0d  |de: scraper"....|
000001a0  d5 23 6f 75 74 25 2c 22  22 0d 00 fa 2d f2 73 70  |.#out%,""...-.sp|
000001b0  6c 69 74 5f 77 6f 72 6c  64 28 2d 72 61 6e 67 65  |lit_world(-range|
000001c0  2c 2d 72 61 6e 67 65 2c  72 61 6e 67 65 2c 72 61  |,-range,range,ra|
000001d0  6e 67 65 2c 30 29 0d 01  04 0a d9 23 6f 75 74 25  |nge,0).....#out%|
000001e0  0d 01 0e 20 2a 53 45 54  54 59 50 45 20 6f 62 6a  |... *SETTYPE obj|
000001f0  65 63 74 73 2e 77 6f 72  6c 64 33 20 74 65 78 74  |ects.world3 text|
00000200  0d 01 18 07 e6 20 34 0d  01 22 24 c8 93 20 2d 72  |..... 4.."$.. -r|
00000210  61 6e 67 65 2c 2d 72 61  6e 67 65 2c 32 2a 72 61  |ange,-range,2*ra|
00000220  6e 67 65 2c 32 2a 72 61  6e 67 65 0d 01 2c 05 e0  |nge,2*range..,..|
00000230  0d 01 36 05 3a 0d 01 40  17 dd 20 f2 72 61 6e 64  |..6.:..@.. .rand|
00000240  5f 72 6f 61 64 28 78 2c  79 2c 64 29 0d 01 4a 08  |_road(x,y,d)..J.|
00000250  ea 20 64 32 0d 01 54 3b  c8 95 20 b0 78 2b 64 78  |. d2..T;.. .x+dx|
00000260  28 64 29 2c 79 2b 64 79  28 64 29 29 3d 30 20 84  |(d),y+dy(d))=0 .|
00000270  20 28 b0 78 2b 64 78 28  64 29 2c 79 2b 64 79 28  | (.x+dx(d),y+dy(|
00000280  64 29 29 3d 37 20 80 20  b3 28 38 29 3d 31 29 0d  |d))=7 . .(8)=1).|
00000290  01 5e 08 20 e6 20 37 0d  01 68 1a 20 86 20 78 2c  |.^. . 7..h. . x,|
000002a0  79 2c 78 2b 64 78 28 64  29 2c 79 2b 64 79 28 64  |y,x+dx(d),y+dy(d|
000002b0  29 0d 01 72 14 20 e3 20  69 3d 30 20 b8 20 33 31  |)..r. . i=0 . 31|
000002c0  20 88 20 31 36 0d 01 7c  12 20 20 64 32 3d 28 64  | . 16..|.  d2=(d|
000002d0  2b 31 29 20 83 20 34 0d  01 86 10 20 20 e7 20 b3  |+1) . 4....  . .|
000002e0  28 33 29 3c 33 20 8c 0d  01 90 1f 20 20 20 78 32  |(3)<3 .....   x2|
000002f0  3d 78 2b 64 78 28 64 29  2a 69 2f 33 31 2b 64 78  |=x+dx(d)*i/31+dx|
00000300  28 64 32 29 2f 38 0d 01  9a 1f 20 20 20 79 32 3d  |(d2)/8....   y2=|
00000310  79 2b 64 79 28 64 29 2a  69 2f 33 31 2b 64 79 28  |y+dy(d)*i/31+dy(|
00000320  64 32 29 2f 38 0d 01 a4  14 20 20 20 e7 20 b0 78  |d2)/8....   . .x|
00000330  32 2c 79 32 29 3d 30 20  8c 0d 01 ae 0b 20 20 20  |2,y2)=0 .....   |
00000340  20 e6 20 31 0d 01 b8 10  20 20 20 20 c8 92 20 78  | . 1....    .. x|
00000350  32 2c 79 32 0d 01 c2 08  20 20 20 cd 0d 01 cc 07  |2,y2....   .....|
00000360  20 20 cd 0d 01 d6 10 20  20 e7 20 b3 28 33 29 3c  |  .....  . .(3)<|
00000370  33 20 8c 0d 01 e0 13 20  20 20 64 32 3d 28 64 2b  |3 .....   d2=(d+|
00000380  33 29 20 83 20 34 0d 01  ea 1f 20 20 20 78 32 3d  |3) . 4....   x2=|
00000390  78 2b 64 78 28 64 29 2a  69 2f 33 31 2b 64 78 28  |x+dx(d)*i/31+dx(|
000003a0  64 32 29 2f 34 0d 01 f4  1f 20 20 20 79 32 3d 79  |d2)/4....   y2=y|
000003b0  2b 64 79 28 64 29 2a 69  2f 33 31 2b 64 79 28 64  |+dy(d)*i/31+dy(d|
000003c0  32 29 2f 34 0d 01 fe 14  20 20 20 e7 20 b0 78 32  |2)/4....   . .x2|
000003d0  2c 79 32 29 3d 30 20 8c  0d 02 08 0b 20 20 20 20  |,y2)=0 .....    |
000003e0  e6 20 31 0d 02 12 10 20  20 20 20 c8 92 20 78 32  |. 1....    .. x2|
000003f0  2c 79 32 0d 02 1c 08 20  20 20 cd 0d 02 26 07 20  |,y2....   ...&. |
00000400  20 cd 0d 02 30 06 20 ed  0d 02 3a 0d 20 78 2b 3d  | ...0. ...:. x+=|
00000410  64 78 28 64 29 0d 02 44  0d 20 79 2b 3d 64 79 28  |dx(d)..D. y+=dy(|
00000420  64 29 0d 02 4e 0f 20 e7  20 b3 28 33 29 3d 31 20  |d)..N. . .(3)=1 |
00000430  8c 0d 02 58 2a 20 20 e7  20 b3 28 32 29 3d 31 20  |...X*  . .(2)=1 |
00000440  64 32 3d 28 64 2b 31 29  20 83 20 34 20 8b 20 64  |d2=(d+1) . 4 . d|
00000450  32 3d 28 64 2b 33 29 20  83 20 34 0d 02 62 18 20  |2=(d+3) . 4..b. |
00000460  20 f2 72 61 6e 64 5f 72  6f 61 64 28 78 2c 79 2c  | .rand_road(x,y,|
00000470  64 32 29 0d 02 6c 06 20  cd 0d 02 76 05 ce 0d 02  |d2)..l. ...v....|
00000480  80 05 e1 0d 02 8a 05 3a  0d 02 94 25 dd 20 f2 73  |.......:...%. .s|
00000490  70 6c 69 74 5f 77 6f 72  6c 64 28 78 30 2c 79 30  |plit_world(x0,y0|
000004a0  2c 78 31 2c 79 31 2c 64  65 70 74 68 29 0d 02 9e  |,x1,y1,depth)...|
000004b0  11 ea 20 6d 78 2c 6d 79  2c 78 78 2c 79 79 0d 02  |.. mx,my,xx,yy..|
000004c0  a8 17 e7 20 64 65 70 74  68 3d 6d 61 78 5f 64 65  |... depth=max_de|
000004d0  70 74 68 20 8c 0d 02 b2  3e 20 d5 23 6f 75 74 25  |pth ....> .#out%|
000004e0  2c 22 6f 62 6a 65 63 74  3a 20 61 72 65 61 5f 22  |,"object: area_"|
000004f0  2b c3 64 65 70 74 68 2b  22 5f 22 2b c3 28 63 28  |+.depth+"_"+.(c(|
00000500  64 65 70 74 68 29 29 3a  63 28 64 65 70 74 68 29  |depth)):c(depth)|
00000510  2b 3d 31 0d 02 bc 0e 20  d5 23 6f 75 74 25 2c 22  |+=1.... .#out%,"|
00000520  22 0d 02 c6 17 20 e3 20  78 78 3d 78 30 20 b8 20  |".... . xx=x0 . |
00000530  78 31 2d 31 20 88 20 34  0d 02 d0 18 20 20 e3 20  |x1-1 . 4....  . |
00000540  79 79 3d 79 30 20 b8 20  79 31 2d 31 20 88 20 34  |yy=y0 . y1-1 . 4|
00000550  0d 02 da 13 20 20 20 c8  8e 20 b0 78 78 2c 79 79  |....   .. .xx,yy|
00000560  29 20 ca 0d 02 e4 0c 20  20 20 20 c9 20 31 3a 0d  |) .....    . 1:.|
00000570  02 ee 13 20 20 20 20 20  c8 8e 20 b3 28 31 30 29  |...     .. .(10)|
00000580  20 ca 0d 02 f8 10 20 20  20 20 20 20 c9 20 31 2c  | .....      . 1,|
00000590  32 3a 0d 03 02 41 20 20  20 20 20 20 20 d5 23 6f  |2:...A       .#o|
000005a0  75 74 25 2c 22 20 73 63  72 61 70 65 72 33 3a 20  |ut%," scraper3: |
000005b0  22 2b c3 28 73 63 2a 28  78 78 2d 78 30 29 29 2b  |"+.(sc*(xx-x0))+|
000005c0  22 2c 30 2c 22 2b c3 28  73 63 2a 28 79 79 2d 79  |",0,"+.(sc*(yy-y|
000005d0  30 29 29 0d 03 0c 0e 20  20 20 20 20 20 c9 20 33  |0))....      . 3|
000005e0  3a 0d 03 16 41 20 20 20  20 20 20 20 d5 23 6f 75  |:...A       .#ou|
000005f0  74 25 2c 22 20 73 63 72  61 70 65 72 36 3a 20 22  |t%," scraper6: "|
00000600  2b c3 28 73 63 2a 28 78  78 2d 78 30 29 29 2b 22  |+.(sc*(xx-x0))+"|
00000610  2c 30 2c 22 2b c3 28 73  63 2a 28 79 79 2d 79 30  |,0,"+.(sc*(yy-y0|
00000620  29 29 0d 03 20 0a 20 20  20 20 20 7f 0d 03 2a 41  |)).. .     ...*A|
00000630  20 20 20 20 20 20 d5 23  6f 75 74 25 2c 22 20 68  |      .#out%," h|
00000640  6f 75 73 65 3a 20 22 2b  c3 28 73 63 2a 28 78 78  |ouse: "+.(sc*(xx|
00000650  2d 78 30 29 2b 32 29 2b  22 2c 30 2c 22 2b c3 28  |-x0)+2)+",0,"+.(|
00000660  73 63 2a 28 79 79 2d 79  30 29 2b 35 29 0d 03 34  |sc*(yy-y0)+5)..4|
00000670  0a 20 20 20 20 20 cb 0d  03 3e 0c 20 20 20 20 c9  |.     ...>.    .|
00000680  20 37 3a 0d 03 48 3b 20  20 20 20 20 d5 23 6f 75  | 7:..H;     .#ou|
00000690  74 25 2c 22 20 72 6f 61  64 3a 20 22 2b c3 28 73  |t%," road: "+.(s|
000006a0  63 2a 28 78 78 2d 78 30  29 29 2b 22 2c 30 2c 22  |c*(xx-x0))+",0,"|
000006b0  2b c3 28 73 63 2a 28 79  79 2d 79 30 29 29 0d 03  |+.(sc*(yy-y0))..|
000006c0  52 08 20 20 20 cb 0d 03  5c 07 20 20 ed 0d 03 66  |R.   ...\.  ...f|
000006d0  06 20 ed 0d 03 70 0e 20  d5 23 6f 75 74 25 2c 22  |. ...p. .#out%,"|
000006e0  22 0d 03 7a 05 cc 0d 03  84 13 20 6d 78 3d 28 78  |"..z...... mx=(x|
000006f0  30 2b 78 31 29 20 81 20  32 0d 03 8e 13 20 6d 79  |0+x1) . 2.... my|
00000700  3d 28 79 30 2b 79 31 29  20 81 20 32 0d 03 98 26  |=(y0+y1) . 2...&|
00000710  20 f2 73 70 6c 69 74 5f  77 6f 72 6c 64 28 78 30  | .split_world(x0|
00000720  2c 79 30 2c 6d 78 2c 6d  79 2c 64 65 70 74 68 2b  |,y0,mx,my,depth+|
00000730  31 29 0d 03 a2 26 20 f2  73 70 6c 69 74 5f 77 6f  |1)...& .split_wo|
00000740  72 6c 64 28 6d 78 2c 79  30 2c 78 31 2c 6d 79 2c  |rld(mx,y0,x1,my,|
00000750  64 65 70 74 68 2b 31 29  0d 03 ac 26 20 f2 73 70  |depth+1)...& .sp|
00000760  6c 69 74 5f 77 6f 72 6c  64 28 6d 78 2c 6d 79 2c  |lit_world(mx,my,|
00000770  78 31 2c 79 31 2c 64 65  70 74 68 2b 31 29 0d 03  |x1,y1,depth+1)..|
00000780  b6 26 20 f2 73 70 6c 69  74 5f 77 6f 72 6c 64 28  |.& .split_world(|
00000790  78 30 2c 6d 79 2c 6d 78  2c 79 31 2c 64 65 70 74  |x0,my,mx,y1,dept|
000007a0  68 2b 31 29 0d 03 c0 05  cd 0d 03 ca 72 e7 20 64  |h+1)........r. d|
000007b0  65 70 74 68 3d 30 20 d5  23 6f 75 74 25 2c 22 6f  |epth=0 .#out%,"o|
000007c0  62 6a 65 63 74 3a 20 77  6f 72 6c 64 22 20 8b 20  |bject: world" . |
000007d0  e7 20 64 65 70 74 68 3c  6d 61 78 5f 64 65 70 74  |. depth<max_dept|
000007e0  68 20 d5 23 6f 75 74 25  2c 22 6f 62 6a 65 63 74  |h .#out%,"object|
000007f0  3a 20 61 72 65 61 5f 22  2b c3 64 65 70 74 68 2b  |: area_"+.depth+|
00000800  22 5f 22 2b c3 28 63 28  64 65 70 74 68 29 29 3a  |"_"+.(c(depth)):|
00000810  63 28 64 65 70 74 68 29  2b 3d 31 0d 03 d4 0d d5  |c(depth)+=1.....|
00000820  23 6f 75 74 25 2c 22 22  0d 03 de 17 e7 20 64 65  |#out%,""..... de|
00000830  70 74 68 3c 6d 61 78 5f  64 65 70 74 68 20 8c 0d  |pth<max_depth ..|
00000840  03 e8 0e 20 e3 20 69 3d  30 20 b8 20 33 0d 03 f2  |... . i=0 . 3...|
00000850  0c 20 20 c8 8e 20 69 20  ca 0d 03 fc 16 20 20 20  |.  .. i .....   |
00000860  c9 20 30 3a 78 78 3d 78  30 3a 79 79 3d 79 30 0d  |. 0:xx=x0:yy=y0.|
00000870  04 06 16 20 20 20 c9 20  31 3a 78 78 3d 6d 78 3a  |...   . 1:xx=mx:|
00000880  79 79 3d 79 30 0d 04 10  16 20 20 20 c9 20 32 3a  |yy=y0....   . 2:|
00000890  78 78 3d 6d 78 3a 79 79  3d 6d 79 0d 04 1a 16 20  |xx=mx:yy=my.... |
000008a0  20 20 c9 20 33 3a 78 78  3d 78 30 3a 79 79 3d 6d  |  . 3:xx=x0:yy=m|
000008b0  79 0d 04 24 07 20 20 cb  0d 04 2e 53 20 20 d5 23  |y..$.  ....S  .#|
000008c0  6f 75 74 25 2c 22 20 61  72 65 61 5f 22 2b c3 28  |out%," area_"+.(|
000008d0  64 65 70 74 68 2b 31 29  2b 22 5f 22 2b c3 28 63  |depth+1)+"_"+.(c|
000008e0  28 64 65 70 74 68 2b 31  29 2d 34 2b 69 29 2b 22  |(depth+1)-4+i)+"|
000008f0  3a 20 22 2b c3 28 73 63  2a 78 78 29 2b 22 2c 30  |: "+.(sc*xx)+",0|
00000900  2c 22 2b c3 28 73 63 2a  79 79 29 0d 04 38 06 20  |,"+.(sc*yy)..8. |
00000910  ed 0d 04 42 0e 20 d5 23  6f 75 74 25 2c 22 22 0d  |...B. .#out%,"".|
00000920  04 4c 05 cc 0d 04 56 05  cd 0d 04 60 05 e1 0d ff  |.L....V....`....|
00000930