Home » Archimedes archive » Archimedes World » AW-1994-02-Disc1.adf » Disk1Feb94 » !AWFeb94/Goodies/Basic/House/House

!AWFeb94/Goodies/Basic/House/House

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 » Archimedes World » AW-1994-02-Disc1.adf » Disk1Feb94
Filename: !AWFeb94/Goodies/Basic/House/House
Read OK: ✔
File size: 08D4 bytes
Load address: 0000
Exec address: 0000
File contents
   10PROCList
   20LIBRARY "PathLib:OS_units.Paths"
   30PROCCreate_House
   40SYS "Draw_Stroke",house%
   50END
   60
   70
   80DEF PROCCreate_House
   90PROCPath_ObjectBegin(house%,200)
  100 x%=0 : y%=0 : w%=400 : h%=300
  110 PROCPath_Rectangle(x%+w%DIV2,y%+h%DIV2,w%,h%)            : REM body of house
  120 PROCPath_Rectangle(x%+w%DIV2,y%+h%DIV6,w%DIV8,h%DIV3)    : REM door
  130 PROCPath_Rectangle(x%+w%DIV4,y%+2*h%DIV3,w%DIV8,h%DIV4)  : REM window
  140  PROCPath_Move(x%+3*w%DIV16,y%+2*h%DIV3)
  150  PROCPath_Draw(x%+5*w%DIV16,y%+2*h%DIV3)
  160  PROCPath_Move(x%+w%DIV4,y%+2*h%DIV3-h%DIV8)
  170  PROCPath_Draw(x%+w%DIV4,y%+2*h%DIV3+h%DIV8)
  180 PROCPath_Rectangle(x%+3*w%DIV4,y%+2*h%DIV3,w%DIV8,h%DIV4): REM window
  190  PROCPath_Move(x%+11*w%DIV16,y%+2*h%DIV3)
  200  PROCPath_Draw(x%+13*w%DIV16,y%+2*h%DIV3)
  210  PROCPath_Move(x%+3*w%DIV4,y%+2*h%DIV3-h%DIV8)
  220  PROCPath_Draw(x%+3*w%DIV4,y%+2*h%DIV3+h%DIV8)
  230 PROCPath_Move(x%,y%+h%)                                  : REM Roof
  240  PROCPath_Draw(x%+w%DIV8,y%+h%+h%DIV4)
  250  PROCPath_Draw(x%+7*w%DIV8,y%+h%+h%DIV4)
  260  PROCPath_Draw(x%+w%,y%+h%)
  270 PROCPath_Rectangle(x%+w%DIV4+w%DIV32,y%+5*h%DIV4+h%DIV16,w%DIV16,h%DIV8)
  280PROCPath_ObjectEnd
  290ENDPROC
  300
  310DEF PROCList
  320MODE MODE
  330FOR i%=1 TO  22 : READ x$ : PRINT x$ :NEXT
  340DATA "DEF PROCCreate_House"
  350DATA " PROCPath_ObjectBegin(house%,200)"
  360DATA "  x%=0 : y%=0 : w%=400 : h%=300"
  370DATA "  PROCPath_Rectangle(x%+w%DIV2,y%+h%DIV2,w%,h%)            : REM body of house"
  380DATA "  PROCPath_Rectangle(x%+w%DIV2,y%+h%DIV6,w%DIV8,h%DIV3)    : REM door"
  390DATA "  PROCPath_Rectangle(x%+w%DIV4,y%+2*h%DIV3,w%DIV8,h%DIV4)  : REM window"
  400DATA "   PROCPath_Move(x%+3*w%DIV16,y%+2*h%DIV3)"
  410DATA "   PROCPath_Draw(x%+5*w%DIV16,y%+2*h%DIV3)"
  420DATA "   PROCPath_Move(x%+w%DIV4,y%+2*h%DIV3-h%DIV8)"
  430DATA "   PROCPath_Draw(x%+w%DIV4,y%+2*h%DIV3+h%DIV8)"
  440DATA "  PROCPath_Rectangle(x%+3*w%DIV4,y%+2*h%DIV3,w%DIV8,h%DIV4): REM window"
  450DATA "   PROCPath_Move(x%+11*w%DIV16,y%+2*h%DIV3)"
  460DATA "   PROCPath_Draw(x%+13*w%DIV16,y%+2*h%DIV3)"
  470DATA "   PROCPath_Move(x%+3*w%DIV4,y%+2*h%DIV3-h%DIV8)"
  480DATA "   PROCPath_Draw(x%+3*w%DIV4,y%+2*h%DIV3+h%DIV8)"
  490DATA "  PROCPath_Move(x%,y%+h%)                                  : REM Roof"
  500DATA "   PROCPath_Draw(x%+w%DIV8,y%+h%+h%DIV4)"
  510DATA "   PROCPath_Draw(x%+7*w%DIV8,y%+h%+h%DIV4)"
  520DATA "   PROCPath_Draw(x%+w%,y%+h%)"
  530DATA "  PROCPath_Rectangle(x%+w%DIV4+w%DIV32,y%+5*h%DIV4+h%DIV16,w%DIV16,h%DIV8)"
  540DATA " PROCPath_ObjectEnd"
  550DATA " ENDPROC"
  560ENDPROC


	�List
ț "PathLib:OS_units.Paths"
�Create_House
(ș "Draw_Stroke",house%
2�
<
F
P� �Create_House
Z!�Path_ObjectBegin(house%,200)
d" x%=0 : y%=0 : w%=400 : h%=300
nH �Path_Rectangle(x%+w%�2,y%+h%�2,w%,h%)            : � body of house
x; �Path_Rectangle(x%+w%�2,y%+h%�6,w%�8,h%�3)    : � door
�= �Path_Rectangle(x%+w%�4,y%+2*h%�3,w%�8,h%�4)  : � window
�&  �Path_Move(x%+3*w%�16,y%+2*h%�3)
�&  �Path_Draw(x%+5*w%�16,y%+2*h%�3)
�(  �Path_Move(x%+w%�4,y%+2*h%�3-h%�8)
�(  �Path_Draw(x%+w%�4,y%+2*h%�3+h%�8)
�= �Path_Rectangle(x%+3*w%�4,y%+2*h%�3,w%�8,h%�4): � window
�'  �Path_Move(x%+11*w%�16,y%+2*h%�3)
�'  �Path_Draw(x%+13*w%�16,y%+2*h%�3)
�*  �Path_Move(x%+3*w%�4,y%+2*h%�3-h%�8)
�*  �Path_Draw(x%+3*w%�4,y%+2*h%�3+h%�8)
�C �Path_Move(x%,y%+h%)                                  : � Roof
�$  �Path_Draw(x%+w%�8,y%+h%+h%�4)
�&  �Path_Draw(x%+7*w%�8,y%+h%+h%�4)
  �Path_Draw(x%+w%,y%+h%)
> �Path_Rectangle(x%+w%�4+w%�32,y%+5*h%�4+h%�16,w%�16,h%�8)
�Path_ObjectEnd
"�
,
6� �List
@� �
J!� i%=1 �  22 : � x$ : � x$ :�
T� "DEF PROCCreate_House"
^)� " PROCPath_ObjectBegin(house%,200)"
h'� "  x%=0 : y%=0 : w%=400 : h%=300"
rV� "  PROCPath_Rectangle(x%+w%DIV2,y%+h%DIV2,w%,h%)            : REM body of house"
|M� "  PROCPath_Rectangle(x%+w%DIV2,y%+h%DIV6,w%DIV8,h%DIV3)    : REM door"
�O� "  PROCPath_Rectangle(x%+w%DIV4,y%+2*h%DIV3,w%DIV8,h%DIV4)  : REM window"
�2� "   PROCPath_Move(x%+3*w%DIV16,y%+2*h%DIV3)"
�2� "   PROCPath_Draw(x%+5*w%DIV16,y%+2*h%DIV3)"
�6� "   PROCPath_Move(x%+w%DIV4,y%+2*h%DIV3-h%DIV8)"
�6� "   PROCPath_Draw(x%+w%DIV4,y%+2*h%DIV3+h%DIV8)"
�O� "  PROCPath_Rectangle(x%+3*w%DIV4,y%+2*h%DIV3,w%DIV8,h%DIV4): REM window"
�3� "   PROCPath_Move(x%+11*w%DIV16,y%+2*h%DIV3)"
�3� "   PROCPath_Draw(x%+13*w%DIV16,y%+2*h%DIV3)"
�8� "   PROCPath_Move(x%+3*w%DIV4,y%+2*h%DIV3-h%DIV8)"
�8� "   PROCPath_Draw(x%+3*w%DIV4,y%+2*h%DIV3+h%DIV8)"
�M� "  PROCPath_Move(x%,y%+h%)                                  : REM Roof"
�0� "   PROCPath_Draw(x%+w%DIV8,y%+h%+h%DIV4)"
�2� "   PROCPath_Draw(x%+7*w%DIV8,y%+h%+h%DIV4)"
%� "   PROCPath_Draw(x%+w%,y%+h%)"
R� "  PROCPath_Rectangle(x%+w%DIV4+w%DIV32,y%+5*h%DIV4+h%DIV16,w%DIV16,h%DIV8)"
� " PROCPath_ObjectEnd"
&� " ENDPROC"
0�
�
00000000  0d 00 0a 09 f2 4c 69 73  74 0d 00 14 1f c8 9b 20  |.....List...... |
00000010  22 50 61 74 68 4c 69 62  3a 4f 53 5f 75 6e 69 74  |"PathLib:OS_unit|
00000020  73 2e 50 61 74 68 73 22  0d 00 1e 11 f2 43 72 65  |s.Paths".....Cre|
00000030  61 74 65 5f 48 6f 75 73  65 0d 00 28 1b c8 99 20  |ate_House..(... |
00000040  22 44 72 61 77 5f 53 74  72 6f 6b 65 22 2c 68 6f  |"Draw_Stroke",ho|
00000050  75 73 65 25 0d 00 32 05  e0 0d 00 3c 04 0d 00 46  |use%..2....<...F|
00000060  04 0d 00 50 13 dd 20 f2  43 72 65 61 74 65 5f 48  |...P.. .Create_H|
00000070  6f 75 73 65 0d 00 5a 21  f2 50 61 74 68 5f 4f 62  |ouse..Z!.Path_Ob|
00000080  6a 65 63 74 42 65 67 69  6e 28 68 6f 75 73 65 25  |jectBegin(house%|
00000090  2c 32 30 30 29 0d 00 64  22 20 78 25 3d 30 20 3a  |,200)..d" x%=0 :|
000000a0  20 79 25 3d 30 20 3a 20  77 25 3d 34 30 30 20 3a  | y%=0 : w%=400 :|
000000b0  20 68 25 3d 33 30 30 0d  00 6e 48 20 f2 50 61 74  | h%=300..nH .Pat|
000000c0  68 5f 52 65 63 74 61 6e  67 6c 65 28 78 25 2b 77  |h_Rectangle(x%+w|
000000d0  25 81 32 2c 79 25 2b 68  25 81 32 2c 77 25 2c 68  |%.2,y%+h%.2,w%,h|
000000e0  25 29 20 20 20 20 20 20  20 20 20 20 20 20 3a 20  |%)            : |
000000f0  f4 20 62 6f 64 79 20 6f  66 20 68 6f 75 73 65 0d  |. body of house.|
00000100  00 78 3b 20 f2 50 61 74  68 5f 52 65 63 74 61 6e  |.x; .Path_Rectan|
00000110  67 6c 65 28 78 25 2b 77  25 81 32 2c 79 25 2b 68  |gle(x%+w%.2,y%+h|
00000120  25 81 36 2c 77 25 81 38  2c 68 25 81 33 29 20 20  |%.6,w%.8,h%.3)  |
00000130  20 20 3a 20 f4 20 64 6f  6f 72 0d 00 82 3d 20 f2  |  : . door...= .|
00000140  50 61 74 68 5f 52 65 63  74 61 6e 67 6c 65 28 78  |Path_Rectangle(x|
00000150  25 2b 77 25 81 34 2c 79  25 2b 32 2a 68 25 81 33  |%+w%.4,y%+2*h%.3|
00000160  2c 77 25 81 38 2c 68 25  81 34 29 20 20 3a 20 f4  |,w%.8,h%.4)  : .|
00000170  20 77 69 6e 64 6f 77 0d  00 8c 26 20 20 f2 50 61  | window...&  .Pa|
00000180  74 68 5f 4d 6f 76 65 28  78 25 2b 33 2a 77 25 81  |th_Move(x%+3*w%.|
00000190  31 36 2c 79 25 2b 32 2a  68 25 81 33 29 0d 00 96  |16,y%+2*h%.3)...|
000001a0  26 20 20 f2 50 61 74 68  5f 44 72 61 77 28 78 25  |&  .Path_Draw(x%|
000001b0  2b 35 2a 77 25 81 31 36  2c 79 25 2b 32 2a 68 25  |+5*w%.16,y%+2*h%|
000001c0  81 33 29 0d 00 a0 28 20  20 f2 50 61 74 68 5f 4d  |.3)...(  .Path_M|
000001d0  6f 76 65 28 78 25 2b 77  25 81 34 2c 79 25 2b 32  |ove(x%+w%.4,y%+2|
000001e0  2a 68 25 81 33 2d 68 25  81 38 29 0d 00 aa 28 20  |*h%.3-h%.8)...( |
000001f0  20 f2 50 61 74 68 5f 44  72 61 77 28 78 25 2b 77  | .Path_Draw(x%+w|
00000200  25 81 34 2c 79 25 2b 32  2a 68 25 81 33 2b 68 25  |%.4,y%+2*h%.3+h%|
00000210  81 38 29 0d 00 b4 3d 20  f2 50 61 74 68 5f 52 65  |.8)...= .Path_Re|
00000220  63 74 61 6e 67 6c 65 28  78 25 2b 33 2a 77 25 81  |ctangle(x%+3*w%.|
00000230  34 2c 79 25 2b 32 2a 68  25 81 33 2c 77 25 81 38  |4,y%+2*h%.3,w%.8|
00000240  2c 68 25 81 34 29 3a 20  f4 20 77 69 6e 64 6f 77  |,h%.4): . window|
00000250  0d 00 be 27 20 20 f2 50  61 74 68 5f 4d 6f 76 65  |...'  .Path_Move|
00000260  28 78 25 2b 31 31 2a 77  25 81 31 36 2c 79 25 2b  |(x%+11*w%.16,y%+|
00000270  32 2a 68 25 81 33 29 0d  00 c8 27 20 20 f2 50 61  |2*h%.3)...'  .Pa|
00000280  74 68 5f 44 72 61 77 28  78 25 2b 31 33 2a 77 25  |th_Draw(x%+13*w%|
00000290  81 31 36 2c 79 25 2b 32  2a 68 25 81 33 29 0d 00  |.16,y%+2*h%.3)..|
000002a0  d2 2a 20 20 f2 50 61 74  68 5f 4d 6f 76 65 28 78  |.*  .Path_Move(x|
000002b0  25 2b 33 2a 77 25 81 34  2c 79 25 2b 32 2a 68 25  |%+3*w%.4,y%+2*h%|
000002c0  81 33 2d 68 25 81 38 29  0d 00 dc 2a 20 20 f2 50  |.3-h%.8)...*  .P|
000002d0  61 74 68 5f 44 72 61 77  28 78 25 2b 33 2a 77 25  |ath_Draw(x%+3*w%|
000002e0  81 34 2c 79 25 2b 32 2a  68 25 81 33 2b 68 25 81  |.4,y%+2*h%.3+h%.|
000002f0  38 29 0d 00 e6 43 20 f2  50 61 74 68 5f 4d 6f 76  |8)...C .Path_Mov|
00000300  65 28 78 25 2c 79 25 2b  68 25 29 20 20 20 20 20  |e(x%,y%+h%)     |
00000310  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000320  20 20 20 20 20 20 20 20  20 20 20 20 20 3a 20 f4  |             : .|
00000330  20 52 6f 6f 66 0d 00 f0  24 20 20 f2 50 61 74 68  | Roof...$  .Path|
00000340  5f 44 72 61 77 28 78 25  2b 77 25 81 38 2c 79 25  |_Draw(x%+w%.8,y%|
00000350  2b 68 25 2b 68 25 81 34  29 0d 00 fa 26 20 20 f2  |+h%+h%.4)...&  .|
00000360  50 61 74 68 5f 44 72 61  77 28 78 25 2b 37 2a 77  |Path_Draw(x%+7*w|
00000370  25 81 38 2c 79 25 2b 68  25 2b 68 25 81 34 29 0d  |%.8,y%+h%+h%.4).|
00000380  01 04 1d 20 20 f2 50 61  74 68 5f 44 72 61 77 28  |...  .Path_Draw(|
00000390  78 25 2b 77 25 2c 79 25  2b 68 25 29 0d 01 0e 3e  |x%+w%,y%+h%)...>|
000003a0  20 f2 50 61 74 68 5f 52  65 63 74 61 6e 67 6c 65  | .Path_Rectangle|
000003b0  28 78 25 2b 77 25 81 34  2b 77 25 81 33 32 2c 79  |(x%+w%.4+w%.32,y|
000003c0  25 2b 35 2a 68 25 81 34  2b 68 25 81 31 36 2c 77  |%+5*h%.4+h%.16,w|
000003d0  25 81 31 36 2c 68 25 81  38 29 0d 01 18 13 f2 50  |%.16,h%.8).....P|
000003e0  61 74 68 5f 4f 62 6a 65  63 74 45 6e 64 0d 01 22  |ath_ObjectEnd.."|
000003f0  05 e1 0d 01 2c 04 0d 01  36 0b dd 20 f2 4c 69 73  |....,...6.. .Lis|
00000400  74 0d 01 40 07 eb 20 eb  0d 01 4a 21 e3 20 69 25  |t..@.. ...J!. i%|
00000410  3d 31 20 b8 20 20 32 32  20 3a 20 f3 20 78 24 20  |=1 .  22 : . x$ |
00000420  3a 20 f1 20 78 24 20 3a  ed 0d 01 54 1c dc 20 22  |: . x$ :...T.. "|
00000430  44 45 46 20 50 52 4f 43  43 72 65 61 74 65 5f 48  |DEF PROCCreate_H|
00000440  6f 75 73 65 22 0d 01 5e  29 dc 20 22 20 50 52 4f  |ouse"..^). " PRO|
00000450  43 50 61 74 68 5f 4f 62  6a 65 63 74 42 65 67 69  |CPath_ObjectBegi|
00000460  6e 28 68 6f 75 73 65 25  2c 32 30 30 29 22 0d 01  |n(house%,200)"..|
00000470  68 27 dc 20 22 20 20 78  25 3d 30 20 3a 20 79 25  |h'. "  x%=0 : y%|
00000480  3d 30 20 3a 20 77 25 3d  34 30 30 20 3a 20 68 25  |=0 : w%=400 : h%|
00000490  3d 33 30 30 22 0d 01 72  56 dc 20 22 20 20 50 52  |=300"..rV. "  PR|
000004a0  4f 43 50 61 74 68 5f 52  65 63 74 61 6e 67 6c 65  |OCPath_Rectangle|
000004b0  28 78 25 2b 77 25 44 49  56 32 2c 79 25 2b 68 25  |(x%+w%DIV2,y%+h%|
000004c0  44 49 56 32 2c 77 25 2c  68 25 29 20 20 20 20 20  |DIV2,w%,h%)     |
000004d0  20 20 20 20 20 20 20 3a  20 52 45 4d 20 62 6f 64  |       : REM bod|
000004e0  79 20 6f 66 20 68 6f 75  73 65 22 0d 01 7c 4d dc  |y of house"..|M.|
000004f0  20 22 20 20 50 52 4f 43  50 61 74 68 5f 52 65 63  | "  PROCPath_Rec|
00000500  74 61 6e 67 6c 65 28 78  25 2b 77 25 44 49 56 32  |tangle(x%+w%DIV2|
00000510  2c 79 25 2b 68 25 44 49  56 36 2c 77 25 44 49 56  |,y%+h%DIV6,w%DIV|
00000520  38 2c 68 25 44 49 56 33  29 20 20 20 20 3a 20 52  |8,h%DIV3)    : R|
00000530  45 4d 20 64 6f 6f 72 22  0d 01 86 4f dc 20 22 20  |EM door"...O. " |
00000540  20 50 52 4f 43 50 61 74  68 5f 52 65 63 74 61 6e  | PROCPath_Rectan|
00000550  67 6c 65 28 78 25 2b 77  25 44 49 56 34 2c 79 25  |gle(x%+w%DIV4,y%|
00000560  2b 32 2a 68 25 44 49 56  33 2c 77 25 44 49 56 38  |+2*h%DIV3,w%DIV8|
00000570  2c 68 25 44 49 56 34 29  20 20 3a 20 52 45 4d 20  |,h%DIV4)  : REM |
00000580  77 69 6e 64 6f 77 22 0d  01 90 32 dc 20 22 20 20  |window"...2. "  |
00000590  20 50 52 4f 43 50 61 74  68 5f 4d 6f 76 65 28 78  | PROCPath_Move(x|
000005a0  25 2b 33 2a 77 25 44 49  56 31 36 2c 79 25 2b 32  |%+3*w%DIV16,y%+2|
000005b0  2a 68 25 44 49 56 33 29  22 0d 01 9a 32 dc 20 22  |*h%DIV3)"...2. "|
000005c0  20 20 20 50 52 4f 43 50  61 74 68 5f 44 72 61 77  |   PROCPath_Draw|
000005d0  28 78 25 2b 35 2a 77 25  44 49 56 31 36 2c 79 25  |(x%+5*w%DIV16,y%|
000005e0  2b 32 2a 68 25 44 49 56  33 29 22 0d 01 a4 36 dc  |+2*h%DIV3)"...6.|
000005f0  20 22 20 20 20 50 52 4f  43 50 61 74 68 5f 4d 6f  | "   PROCPath_Mo|
00000600  76 65 28 78 25 2b 77 25  44 49 56 34 2c 79 25 2b  |ve(x%+w%DIV4,y%+|
00000610  32 2a 68 25 44 49 56 33  2d 68 25 44 49 56 38 29  |2*h%DIV3-h%DIV8)|
00000620  22 0d 01 ae 36 dc 20 22  20 20 20 50 52 4f 43 50  |"...6. "   PROCP|
00000630  61 74 68 5f 44 72 61 77  28 78 25 2b 77 25 44 49  |ath_Draw(x%+w%DI|
00000640  56 34 2c 79 25 2b 32 2a  68 25 44 49 56 33 2b 68  |V4,y%+2*h%DIV3+h|
00000650  25 44 49 56 38 29 22 0d  01 b8 4f dc 20 22 20 20  |%DIV8)"...O. "  |
00000660  50 52 4f 43 50 61 74 68  5f 52 65 63 74 61 6e 67  |PROCPath_Rectang|
00000670  6c 65 28 78 25 2b 33 2a  77 25 44 49 56 34 2c 79  |le(x%+3*w%DIV4,y|
00000680  25 2b 32 2a 68 25 44 49  56 33 2c 77 25 44 49 56  |%+2*h%DIV3,w%DIV|
00000690  38 2c 68 25 44 49 56 34  29 3a 20 52 45 4d 20 77  |8,h%DIV4): REM w|
000006a0  69 6e 64 6f 77 22 0d 01  c2 33 dc 20 22 20 20 20  |indow"...3. "   |
000006b0  50 52 4f 43 50 61 74 68  5f 4d 6f 76 65 28 78 25  |PROCPath_Move(x%|
000006c0  2b 31 31 2a 77 25 44 49  56 31 36 2c 79 25 2b 32  |+11*w%DIV16,y%+2|
000006d0  2a 68 25 44 49 56 33 29  22 0d 01 cc 33 dc 20 22  |*h%DIV3)"...3. "|
000006e0  20 20 20 50 52 4f 43 50  61 74 68 5f 44 72 61 77  |   PROCPath_Draw|
000006f0  28 78 25 2b 31 33 2a 77  25 44 49 56 31 36 2c 79  |(x%+13*w%DIV16,y|
00000700  25 2b 32 2a 68 25 44 49  56 33 29 22 0d 01 d6 38  |%+2*h%DIV3)"...8|
00000710  dc 20 22 20 20 20 50 52  4f 43 50 61 74 68 5f 4d  |. "   PROCPath_M|
00000720  6f 76 65 28 78 25 2b 33  2a 77 25 44 49 56 34 2c  |ove(x%+3*w%DIV4,|
00000730  79 25 2b 32 2a 68 25 44  49 56 33 2d 68 25 44 49  |y%+2*h%DIV3-h%DI|
00000740  56 38 29 22 0d 01 e0 38  dc 20 22 20 20 20 50 52  |V8)"...8. "   PR|
00000750  4f 43 50 61 74 68 5f 44  72 61 77 28 78 25 2b 33  |OCPath_Draw(x%+3|
00000760  2a 77 25 44 49 56 34 2c  79 25 2b 32 2a 68 25 44  |*w%DIV4,y%+2*h%D|
00000770  49 56 33 2b 68 25 44 49  56 38 29 22 0d 01 ea 4d  |IV3+h%DIV8)"...M|
00000780  dc 20 22 20 20 50 52 4f  43 50 61 74 68 5f 4d 6f  |. "  PROCPath_Mo|
00000790  76 65 28 78 25 2c 79 25  2b 68 25 29 20 20 20 20  |ve(x%,y%+h%)    |
000007a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000007b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a 20  |              : |
000007c0  52 45 4d 20 52 6f 6f 66  22 0d 01 f4 30 dc 20 22  |REM Roof"...0. "|
000007d0  20 20 20 50 52 4f 43 50  61 74 68 5f 44 72 61 77  |   PROCPath_Draw|
000007e0  28 78 25 2b 77 25 44 49  56 38 2c 79 25 2b 68 25  |(x%+w%DIV8,y%+h%|
000007f0  2b 68 25 44 49 56 34 29  22 0d 01 fe 32 dc 20 22  |+h%DIV4)"...2. "|
00000800  20 20 20 50 52 4f 43 50  61 74 68 5f 44 72 61 77  |   PROCPath_Draw|
00000810  28 78 25 2b 37 2a 77 25  44 49 56 38 2c 79 25 2b  |(x%+7*w%DIV8,y%+|
00000820  68 25 2b 68 25 44 49 56  34 29 22 0d 02 08 25 dc  |h%+h%DIV4)"...%.|
00000830  20 22 20 20 20 50 52 4f  43 50 61 74 68 5f 44 72  | "   PROCPath_Dr|
00000840  61 77 28 78 25 2b 77 25  2c 79 25 2b 68 25 29 22  |aw(x%+w%,y%+h%)"|
00000850  0d 02 12 52 dc 20 22 20  20 50 52 4f 43 50 61 74  |...R. "  PROCPat|
00000860  68 5f 52 65 63 74 61 6e  67 6c 65 28 78 25 2b 77  |h_Rectangle(x%+w|
00000870  25 44 49 56 34 2b 77 25  44 49 56 33 32 2c 79 25  |%DIV4+w%DIV32,y%|
00000880  2b 35 2a 68 25 44 49 56  34 2b 68 25 44 49 56 31  |+5*h%DIV4+h%DIV1|
00000890  36 2c 77 25 44 49 56 31  36 2c 68 25 44 49 56 38  |6,w%DIV16,h%DIV8|
000008a0  29 22 0d 02 1c 1b dc 20  22 20 50 52 4f 43 50 61  |)"..... " PROCPa|
000008b0  74 68 5f 4f 62 6a 65 63  74 45 6e 64 22 0d 02 26  |th_ObjectEnd"..&|
000008c0  10 dc 20 22 20 45 4e 44  50 52 4f 43 22 0d 02 30  |.. " ENDPROC"..0|
000008d0  05 e1 0d ff                                       |....|
000008d4

© Dominic Ford 2021–2025.

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