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

!AWFeb94/Goodies/Basic/!PathLib/OS_units/Paths

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/!PathLib/OS_units/Paths
Read OK: ✔
File size: 1563 bytes
Load address: 0000
Exec address: 0000
File contents
    1REM > PathLib:OS_units.Paths
    2
    3REM ************************************************************************
    4REM
    5REM UTILITIES
    6REM
    7REM ************************************************************************
    8
    9DEF PROCPath_ObjectBegin(RETURN pathobject%,words%)
   10 REM -------------------------------
   11 REM Creates an empty path of length
   12 REM ( Number of words ) words%
   13 REM -------------------------------
   14 DIM pathobject%  4*words%
   15 path%=pathobject%
   16 path_length%=path%+4*words% 
   17 ENDPROC
   18
   19DEF PROCPath_Add(x%)
   20 REM ----------------------------------------------------------
   21 REM Adds word (4 bytes) x%
   22 REM to path object
   23 REM
   24 REM N.B.
   25 REM        path% and path_length% are reserved variable names
   26 REM ---------------------------------------------------------
   27 IF path%>path_length% THEN ERROR 0,"Path buffer too short"
   28 !path%=x%
   29 path%+=4
   30 ENDPROC
   31
   32REM ************************************************************************
   33REM
   34REM SOME PATH ELEMENTS
   35REM
   36REM ************************************************************************
   37
   38DEF PROCPath_ObjectEnd
   39 REM -----------
   40 REM End of path
   41 REM
   42 REM 2 words ( x 4 bytes)
   43 REM -----------
   44 PROCPath_Add(0) : PROCPath_Add(path_length%-path%-4)
   45ENDPROC
   46
   47DEF PROCPath_Move(x%,y%)
   48 REM ----------------------------------
   49 REM Move to x%,y% starting new subpath
   50 REM This DOES affect winding numbers
   51 REM so path is filled normally
   52 REM
   53 REM 3 words ( x 4 bytes)
   54 REM ----------------------------------
   55 PROCPath_Add(2) : PROCPath_Add(x%*256) : PROCPath_Add(y%*256)
   56 ENDPROC
   57
   58DEF PROCPath_Draw(x%,y%)
   59 REM -------------
   60 REM Line to (x,y)
   61 REM
   62 REM 3 words ( x 4 bytes)
   63 REM -------------
   64 PROCPath_Add(8) : PROCPath_Add(x%*256) : PROCPath_Add(y%*256)
   65 ENDPROC
   66
   67DEF PROCPath_Cubic(a%,b%,c%,d%,x%,y%)
   68 REM ---------------------------------------------------
   69 REM Cubic curve passing through current point and (x,y)
   70 REM with control points (a,b) and (c,d)
   71 REM
   72 REM 7 words ( x 4 bytes)
   73 REM ---------------------------------------------------
   74 PROCPath_Add(6)
   75 PROCPath_Add(a%*256) : PROCPath_Add(b%*256)
   76 PROCPath_Add(c%*256) : PROCPath_Add(d%*256)
   77 PROCPath_Add(x%*256) : PROCPath_Add(y%*256)
   78 ENDPROC
   79 
   80DEF PROCPath_CloseWithGap
   81 REM --------------------------------
   82 REM Close current subpath with a gap
   83 REM
   84 REM 1 word
   85 REM --------------------------------
   86 PROCPath_Add(4)
   87 ENDPROC
   88
   89DEF PROCPath_CloseWithLine
   90 REM ---------------------------------
   91 REM Close current subpath with a line
   92 REM
   93 REM 1 word
   94 REM ---------------------------------
   95 PROCPath_Add(5)
   96 ENDPROC
   97
   98REM ************************************************************************
   99REM
  100REM SOME SUB-PATHS
  101REM
  102REM ************************************************************************
  103
  104DEF PROCPath_Rectangle(x%,y%,width%,height%)
  105 REM ------------------------
  106 REM Rectangle centre (x%,y%)
  107 REM
  108 REM 13 words
  109 REM ------------------------
  110 LOCAL hx%,hy%
  111 hx%=width% DIV 2 : hy%=height% DIV 2
  112 PROCPath_Move(x%+hx%,y%+hy%)
  113 PROCPath_Draw(x%-hx%,y%+hy%)
  114 PROCPath_Draw(x%-hx%,y%-hy%)
  115 PROCPath_Draw(x%+hx%,y%-hy%)
  116 PROCPath_CloseWithLine
  117 ENDPROC
  118
  119DEF PROCPath_Square(x%,y%,width%)
  120 REM ------------------------
  121 REM Square centre (x%,y%)
  122 REM
  123 REM 13 words
  124 REM ------------------------
  125 PROCPath_Rectangle(x%,y%,width%,width%)
  126 ENDPROC
  127
  128DEF PROCPath_Triangle(A%,a%,B%,b%,C%,c%)
  129 REM ----------------------------
  130 REM Triangle  (A,a) (B,b) (C,c)
  131 REM
  132 REM 10 words
  133 REM ----------------------------
  134 PROCPath_Move(A%,a%)
  135 PROCPath_Draw(B%,b%)
  136 PROCPath_Draw(C%,c%)
  137 PROCPath_CloseWithLine
  138 ENDPROC
  139
  140DEF PROCPath_RegularPolygon(x%,y%,radius%,n%)
  141 REM ------------------------------
  142 REM Regular polygon centre (x%,y%)
  143 REM
  144 REM Number of sides=n%
  145 REM
  146 REM 3*n%+1 words
  147 REM ------------------------------
  148 PROCPath_Move(x%+radius%,y%)
  149 FOR i%=1 TO n%-1
  150  X%=x%+radius%*COS(2*PI*i%/n%)
  151  Y%=y%+radius%*SIN(2*PI*i%/n%)
  152  PROCPath_Draw(X%,Y%)
  153  NEXT
  154 PROCPath_CloseWithLine
  155 ENDPROC
  156
  157DEF PROCPath_Circle(x%,y%,radius)
  158 REM ------------------------
  159 REM Circle centre (x%,y%)
  160 REM
  161 REM 32 words
  162 REM ------------------------
  163 LOCAL a : a=radius*4*(SQR2-1)/3 
  164 PROCPath_Move(x%,y%+radius)
  165 PROCPath_Cubic(x%+a,y%+radius,x%+radius,y%+a,x%+radius,y%)
  166 PROCPath_Cubic(x%+radius,y%-a,x%+a,y%-radius,x%,y%-radius)
  167 PROCPath_Cubic(x%-a,y%-radius,x%-radius,y%-a,x%-radius,y%)
  168 PROCPath_Cubic(x%-radius,y%+a,x%-a,y%+radius,x%,y%+radius) 
  169 PROCPath_CloseWithGap
  170 ENDPROC
  171 
  172REM ************************************************************************
  173REM
  174REM SOME PATH OBJECTS
  175REM
  176REM ************************************************************************
  177
  178DEF FNPath_CreateRectangle(x%,y%,width%,height%)
  179 LOCAL rectangle%
  180 PROCPath_ObjectBegin(rectangle%,15)
  181 PROCPath_Rectangle(x%,y%,width%,height%)
  182 PROCPath_ObjectEnd
  183=rectangle%
  184
  185DEF FNPath_CreateSquare(x%,y%,width%)
  186 LOCAL square%
  187 PROCPath_ObjectBegin(square%,15)
  188 PROCPath_Square(x%,y%,width%)
  189 PROCPath_ObjectEnd
  190=square%
  191
  192DEF FNPath_CreateTriangle(A%,a%,B%,b%,C%,c%)
  193 LOCAL triangle%
  194 PROCPath_ObjectBegin(triangle%,12)
  195 PROCPath_Triangle(A%,a%,B%,b%,C%,c%)
  196 PROCPath_ObjectEnd
  197=triangle%
  198
  199DEF FNPath_CreateRegularPolygon(x%,y%,radius%,n%)
  200 LOCAL polygon%
  201 PROCPath_ObjectBegin(polygon%,3*n%+3)
  202 PROCPath_RegularPolygon(x%,y%,radius%,n%)
  203 PROCPath_ObjectEnd
  204=polygon%
  205
  206DEF FNPath_CreateCircle(x%,y%,radius%)
  207 LOCAL circle%
  208 PROCPath_ObjectBegin(circle%,33)
  209 PROCPath_Circle(x%,y%,radius%)
  210 PROCPath_ObjectEnd
  211=circle% 
  212

� > PathLib:OS_units.Paths

N� ************************************************************************
�
� UTILITIES
�
N� ************************************************************************

	-� �Path_ObjectBegin(� pathobject%,words%)

& � -------------------------------
& � Creates an empty path of length
! � ( Number of words ) words%

& � -------------------------------
 � pathobject%  4*words%
 path%=pathobject%
! path_length%=path%+4*words% 
 �

� �Path_Add(x%)
A � ----------------------------------------------------------
 � Adds word (4 bytes) x%
 � to path object
 �
 � N.B.
@ �        path% and path_length% are reserved variable names
@ � ---------------------------------------------------------
7 � path%>path_length% � � 0,"Path buffer too short"
 !path%=x%

 path%+=4
 �

 N� ************************************************************************
!�
"� SOME PATH ELEMENTS
#�
$N� ************************************************************************
%
&� �Path_ObjectEnd
' � -----------
( � End of path
) �
* � 2 words ( x 4 bytes)
+ � -----------
,3 �Path_Add(0) : �Path_Add(path_length%-path%-4)
-�
.
/� �Path_Move(x%,y%)
0) � ----------------------------------
1) � Move to x%,y% starting new subpath
2' � This DOES affect winding numbers
3! � so path is filled normally
4 �
5 � 3 words ( x 4 bytes)
6) � ----------------------------------
79 �Path_Add(2) : �Path_Add(x%*256) : �Path_Add(y%*256)
8 �
9
:� �Path_Draw(x%,y%)
; � -------------
< � Line to (x,y)
= �
> � 3 words ( x 4 bytes)
? � -------------
@9 �Path_Add(8) : �Path_Add(x%*256) : �Path_Add(y%*256)
A �
B
C$� �Path_Cubic(a%,b%,c%,d%,x%,y%)
D: � ---------------------------------------------------
E: � Cubic curve passing through current point and (x,y)
F* � with control points (a,b) and (c,d)
G �
H � 7 words ( x 4 bytes)
I: � ---------------------------------------------------
J �Path_Add(6)
K* �Path_Add(a%*256) : �Path_Add(b%*256)
L* �Path_Add(c%*256) : �Path_Add(d%*256)
M* �Path_Add(x%*256) : �Path_Add(y%*256)
N �
O 
P� �Path_CloseWithGap
Q' � --------------------------------
R' � Close current subpath with a gap
S �
T
 � 1 word
U' � --------------------------------
V �Path_Add(4)
W �
X
Y� �Path_CloseWithLine
Z( � ---------------------------------
[( � Close current subpath with a line
\ �
]
 � 1 word
^( � ---------------------------------
_ �Path_Add(5)
` �
a
bN� ************************************************************************
c�
d� SOME SUB-PATHS
e�
fN� ************************************************************************
g
h+� �Path_Rectangle(x%,y%,width%,height%)
i � ------------------------
j � Rectangle centre (x%,y%)
k �
l � 13 words
m � ------------------------
n � hx%,hy%
o% hx%=width% � 2 : hy%=height% � 2
p �Path_Move(x%+hx%,y%+hy%)
q �Path_Draw(x%-hx%,y%+hy%)
r �Path_Draw(x%-hx%,y%-hy%)
s �Path_Draw(x%+hx%,y%-hy%)
t �Path_CloseWithLine
u �
v
w � �Path_Square(x%,y%,width%)
x � ------------------------
y � Square centre (x%,y%)
z �
{ � 13 words
| � ------------------------
}) �Path_Rectangle(x%,y%,width%,width%)
~ �

�'� �Path_Triangle(A%,a%,B%,b%,C%,c%)
�# � ----------------------------
�" � Triangle  (A,a) (B,b) (C,c)
� �
� � 10 words
�# � ----------------------------
� �Path_Move(A%,a%)
� �Path_Draw(B%,b%)
� �Path_Draw(C%,c%)
� �Path_CloseWithLine
� �
�
�,� �Path_RegularPolygon(x%,y%,radius%,n%)
�% � ------------------------------
�% � Regular polygon centre (x%,y%)
� �
� � Number of sides=n%
� �
� � 3*n%+1 words
�% � ------------------------------
� �Path_Move(x%+radius%,y%)
� � i%=1 � n%-1
�   X%=x%+radius%*�(2*�*i%/n%)
�   Y%=y%+radius%*�(2*�*i%/n%)
�  �Path_Draw(X%,Y%)
�  �
� �Path_CloseWithLine
� �
�
� � �Path_Circle(x%,y%,radius)
� � ------------------------
� � Circle centre (x%,y%)
� �
� � 32 words
� � ------------------------
� � a : a=radius*4*(�2-1)/3 
� �Path_Move(x%,y%+radius)
�< �Path_Cubic(x%+a,y%+radius,x%+radius,y%+a,x%+radius,y%)
�< �Path_Cubic(x%+radius,y%-a,x%+a,y%-radius,x%,y%-radius)
�< �Path_Cubic(x%-a,y%-radius,x%-radius,y%-a,x%-radius,y%)
�= �Path_Cubic(x%-radius,y%+a,x%-a,y%+radius,x%,y%+radius) 
� �Path_CloseWithGap
� �
� 
�N� ************************************************************************
��
�� SOME PATH OBJECTS
��
�N� ************************************************************************
�
�1� �Path_CreateRectangle(x%,y%,width%,height%)
� � rectangle%
�% �Path_ObjectBegin(rectangle%,15)
�* �Path_Rectangle(x%,y%,width%,height%)
� �Path_ObjectEnd
�=rectangle%
�
�&� �Path_CreateSquare(x%,y%,width%)
� � square%
�" �Path_ObjectBegin(square%,15)
� �Path_Square(x%,y%,width%)
� �Path_ObjectEnd
�=square%
�
�-� �Path_CreateTriangle(A%,a%,B%,b%,C%,c%)
� � triangle%
�$ �Path_ObjectBegin(triangle%,12)
�& �Path_Triangle(A%,a%,B%,b%,C%,c%)
� �Path_ObjectEnd
�=triangle%
�
�2� �Path_CreateRegularPolygon(x%,y%,radius%,n%)
� � polygon%
�' �Path_ObjectBegin(polygon%,3*n%+3)
�+ �Path_RegularPolygon(x%,y%,radius%,n%)
� �Path_ObjectEnd
�
=polygon%
�
�'� �Path_CreateCircle(x%,y%,radius%)
� � circle%
�" �Path_ObjectBegin(circle%,33)
�  �Path_Circle(x%,y%,radius%)
� �Path_ObjectEnd
�
=circle% 
�
�
00000000  0d 00 01 1e f4 20 3e 20  50 61 74 68 4c 69 62 3a  |..... > PathLib:|
00000010  4f 53 5f 75 6e 69 74 73  2e 50 61 74 68 73 0d 00  |OS_units.Paths..|
00000020  02 04 0d 00 03 4e f4 20  2a 2a 2a 2a 2a 2a 2a 2a  |.....N. ********|
00000030  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000070  0d 00 04 05 f4 0d 00 05  0f f4 20 55 54 49 4c 49  |.......... UTILI|
00000080  54 49 45 53 0d 00 06 05  f4 0d 00 07 4e f4 20 2a  |TIES........N. *|
00000090  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000000d0  2a 2a 2a 2a 2a 2a 2a 0d  00 08 04 0d 00 09 2d dd  |*******.......-.|
000000e0  20 f2 50 61 74 68 5f 4f  62 6a 65 63 74 42 65 67  | .Path_ObjectBeg|
000000f0  69 6e 28 f8 20 70 61 74  68 6f 62 6a 65 63 74 25  |in(. pathobject%|
00000100  2c 77 6f 72 64 73 25 29  0d 00 0a 26 20 f4 20 2d  |,words%)...& . -|
00000110  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000120  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 00  |--------------..|
00000130  0b 26 20 f4 20 43 72 65  61 74 65 73 20 61 6e 20  |.& . Creates an |
00000140  65 6d 70 74 79 20 70 61  74 68 20 6f 66 20 6c 65  |empty path of le|
00000150  6e 67 74 68 0d 00 0c 21  20 f4 20 28 20 4e 75 6d  |ngth...! . ( Num|
00000160  62 65 72 20 6f 66 20 77  6f 72 64 73 20 29 20 77  |ber of words ) w|
00000170  6f 72 64 73 25 0d 00 0d  26 20 f4 20 2d 2d 2d 2d  |ords%...& . ----|
00000180  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000190  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 00 0e 1c 20  |-----------.... |
000001a0  de 20 70 61 74 68 6f 62  6a 65 63 74 25 20 20 34  |. pathobject%  4|
000001b0  2a 77 6f 72 64 73 25 0d  00 0f 16 20 70 61 74 68  |*words%.... path|
000001c0  25 3d 70 61 74 68 6f 62  6a 65 63 74 25 0d 00 10  |%=pathobject%...|
000001d0  21 20 70 61 74 68 5f 6c  65 6e 67 74 68 25 3d 70  |! path_length%=p|
000001e0  61 74 68 25 2b 34 2a 77  6f 72 64 73 25 20 0d 00  |ath%+4*words% ..|
000001f0  11 06 20 e1 0d 00 12 04  0d 00 13 13 dd 20 f2 50  |.. .......... .P|
00000200  61 74 68 5f 41 64 64 28  78 25 29 0d 00 14 41 20  |ath_Add(x%)...A |
00000210  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00000220  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000240  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 00 15 1d  |------------....|
00000250  20 f4 20 41 64 64 73 20  77 6f 72 64 20 28 34 20  | . Adds word (4 |
00000260  62 79 74 65 73 29 20 78  25 0d 00 16 15 20 f4 20  |bytes) x%.... . |
00000270  74 6f 20 70 61 74 68 20  6f 62 6a 65 63 74 0d 00  |to path object..|
00000280  17 06 20 f4 0d 00 18 0b  20 f4 20 4e 2e 42 2e 0d  |.. ..... . N.B..|
00000290  00 19 40 20 f4 20 20 20  20 20 20 20 20 70 61 74  |..@ .        pat|
000002a0  68 25 20 61 6e 64 20 70  61 74 68 5f 6c 65 6e 67  |h% and path_leng|
000002b0  74 68 25 20 61 72 65 20  72 65 73 65 72 76 65 64  |th% are reserved|
000002c0  20 76 61 72 69 61 62 6c  65 20 6e 61 6d 65 73 0d  | variable names.|
000002d0  00 1a 40 20 f4 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..@ . ----------|
000002e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000300  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00000310  00 1b 37 20 e7 20 70 61  74 68 25 3e 70 61 74 68  |..7 . path%>path|
00000320  5f 6c 65 6e 67 74 68 25  20 8c 20 85 20 30 2c 22  |_length% . . 0,"|
00000330  50 61 74 68 20 62 75 66  66 65 72 20 74 6f 6f 20  |Path buffer too |
00000340  73 68 6f 72 74 22 0d 00  1c 0e 20 21 70 61 74 68  |short".... !path|
00000350  25 3d 78 25 0d 00 1d 0d  20 70 61 74 68 25 2b 3d  |%=x%.... path%+=|
00000360  34 0d 00 1e 06 20 e1 0d  00 1f 04 0d 00 20 4e f4  |4.... ....... N.|
00000370  20 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ***************|
00000380  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000003b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 00 21 05 f4 0d 00  |*********..!....|
000003c0  22 18 f4 20 53 4f 4d 45  20 50 41 54 48 20 45 4c  |".. SOME PATH EL|
000003d0  45 4d 45 4e 54 53 0d 00  23 05 f4 0d 00 24 4e f4  |EMENTS..#....$N.|
000003e0  20 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ***************|
000003f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000420  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 00 25 04 0d 00 26  |*********..%...&|
00000430  15 dd 20 f2 50 61 74 68  5f 4f 62 6a 65 63 74 45  |.. .Path_ObjectE|
00000440  6e 64 0d 00 27 12 20 f4  20 2d 2d 2d 2d 2d 2d 2d  |nd..'. . -------|
00000450  2d 2d 2d 2d 0d 00 28 12  20 f4 20 45 6e 64 20 6f  |----..(. . End o|
00000460  66 20 70 61 74 68 0d 00  29 06 20 f4 0d 00 2a 1b  |f path..). ...*.|
00000470  20 f4 20 32 20 77 6f 72  64 73 20 28 20 78 20 34  | . 2 words ( x 4|
00000480  20 62 79 74 65 73 29 0d  00 2b 12 20 f4 20 2d 2d  | bytes)..+. . --|
00000490  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 00 2c 33 20 f2 50  |---------..,3 .P|
000004a0  61 74 68 5f 41 64 64 28  30 29 20 3a 20 f2 50 61  |ath_Add(0) : .Pa|
000004b0  74 68 5f 41 64 64 28 70  61 74 68 5f 6c 65 6e 67  |th_Add(path_leng|
000004c0  74 68 25 2d 70 61 74 68  25 2d 34 29 0d 00 2d 05  |th%-path%-4)..-.|
000004d0  e1 0d 00 2e 04 0d 00 2f  17 dd 20 f2 50 61 74 68  |......./.. .Path|
000004e0  5f 4d 6f 76 65 28 78 25  2c 79 25 29 0d 00 30 29  |_Move(x%,y%)..0)|
000004f0  20 f4 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | . -------------|
00000500  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000510  2d 2d 2d 2d 2d 0d 00 31  29 20 f4 20 4d 6f 76 65  |-----..1) . Move|
00000520  20 74 6f 20 78 25 2c 79  25 20 73 74 61 72 74 69  | to x%,y% starti|
00000530  6e 67 20 6e 65 77 20 73  75 62 70 61 74 68 0d 00  |ng new subpath..|
00000540  32 27 20 f4 20 54 68 69  73 20 44 4f 45 53 20 61  |2' . This DOES a|
00000550  66 66 65 63 74 20 77 69  6e 64 69 6e 67 20 6e 75  |ffect winding nu|
00000560  6d 62 65 72 73 0d 00 33  21 20 f4 20 73 6f 20 70  |mbers..3! . so p|
00000570  61 74 68 20 69 73 20 66  69 6c 6c 65 64 20 6e 6f  |ath is filled no|
00000580  72 6d 61 6c 6c 79 0d 00  34 06 20 f4 0d 00 35 1b  |rmally..4. ...5.|
00000590  20 f4 20 33 20 77 6f 72  64 73 20 28 20 78 20 34  | . 3 words ( x 4|
000005a0  20 62 79 74 65 73 29 0d  00 36 29 20 f4 20 2d 2d  | bytes)..6) . --|
000005b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000005d0  0d 00 37 39 20 f2 50 61  74 68 5f 41 64 64 28 32  |..79 .Path_Add(2|
000005e0  29 20 3a 20 f2 50 61 74  68 5f 41 64 64 28 78 25  |) : .Path_Add(x%|
000005f0  2a 32 35 36 29 20 3a 20  f2 50 61 74 68 5f 41 64  |*256) : .Path_Ad|
00000600  64 28 79 25 2a 32 35 36  29 0d 00 38 06 20 e1 0d  |d(y%*256)..8. ..|
00000610  00 39 04 0d 00 3a 17 dd  20 f2 50 61 74 68 5f 44  |.9...:.. .Path_D|
00000620  72 61 77 28 78 25 2c 79  25 29 0d 00 3b 14 20 f4  |raw(x%,y%)..;. .|
00000630  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 00  | -------------..|
00000640  3c 14 20 f4 20 4c 69 6e  65 20 74 6f 20 28 78 2c  |<. . Line to (x,|
00000650  79 29 0d 00 3d 06 20 f4  0d 00 3e 1b 20 f4 20 33  |y)..=. ...>. . 3|
00000660  20 77 6f 72 64 73 20 28  20 78 20 34 20 62 79 74  | words ( x 4 byt|
00000670  65 73 29 0d 00 3f 14 20  f4 20 2d 2d 2d 2d 2d 2d  |es)..?. . ------|
00000680  2d 2d 2d 2d 2d 2d 2d 0d  00 40 39 20 f2 50 61 74  |-------..@9 .Pat|
00000690  68 5f 41 64 64 28 38 29  20 3a 20 f2 50 61 74 68  |h_Add(8) : .Path|
000006a0  5f 41 64 64 28 78 25 2a  32 35 36 29 20 3a 20 f2  |_Add(x%*256) : .|
000006b0  50 61 74 68 5f 41 64 64  28 79 25 2a 32 35 36 29  |Path_Add(y%*256)|
000006c0  0d 00 41 06 20 e1 0d 00  42 04 0d 00 43 24 dd 20  |..A. ...B...C$. |
000006d0  f2 50 61 74 68 5f 43 75  62 69 63 28 61 25 2c 62  |.Path_Cubic(a%,b|
000006e0  25 2c 63 25 2c 64 25 2c  78 25 2c 79 25 29 0d 00  |%,c%,d%,x%,y%)..|
000006f0  44 3a 20 f4 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |D: . -----------|
00000700  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000720  2d 2d 2d 2d 2d 2d 2d 2d  0d 00 45 3a 20 f4 20 43  |--------..E: . C|
00000730  75 62 69 63 20 63 75 72  76 65 20 70 61 73 73 69  |ubic curve passi|
00000740  6e 67 20 74 68 72 6f 75  67 68 20 63 75 72 72 65  |ng through curre|
00000750  6e 74 20 70 6f 69 6e 74  20 61 6e 64 20 28 78 2c  |nt point and (x,|
00000760  79 29 0d 00 46 2a 20 f4  20 77 69 74 68 20 63 6f  |y)..F* . with co|
00000770  6e 74 72 6f 6c 20 70 6f  69 6e 74 73 20 28 61 2c  |ntrol points (a,|
00000780  62 29 20 61 6e 64 20 28  63 2c 64 29 0d 00 47 06  |b) and (c,d)..G.|
00000790  20 f4 0d 00 48 1b 20 f4  20 37 20 77 6f 72 64 73  | ...H. . 7 words|
000007a0  20 28 20 78 20 34 20 62  79 74 65 73 29 0d 00 49  | ( x 4 bytes)..I|
000007b0  3a 20 f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |: . ------------|
000007c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000007e0  2d 2d 2d 2d 2d 2d 2d 0d  00 4a 11 20 f2 50 61 74  |-------..J. .Pat|
000007f0  68 5f 41 64 64 28 36 29  0d 00 4b 2a 20 f2 50 61  |h_Add(6)..K* .Pa|
00000800  74 68 5f 41 64 64 28 61  25 2a 32 35 36 29 20 3a  |th_Add(a%*256) :|
00000810  20 f2 50 61 74 68 5f 41  64 64 28 62 25 2a 32 35  | .Path_Add(b%*25|
00000820  36 29 0d 00 4c 2a 20 f2  50 61 74 68 5f 41 64 64  |6)..L* .Path_Add|
00000830  28 63 25 2a 32 35 36 29  20 3a 20 f2 50 61 74 68  |(c%*256) : .Path|
00000840  5f 41 64 64 28 64 25 2a  32 35 36 29 0d 00 4d 2a  |_Add(d%*256)..M*|
00000850  20 f2 50 61 74 68 5f 41  64 64 28 78 25 2a 32 35  | .Path_Add(x%*25|
00000860  36 29 20 3a 20 f2 50 61  74 68 5f 41 64 64 28 79  |6) : .Path_Add(y|
00000870  25 2a 32 35 36 29 0d 00  4e 06 20 e1 0d 00 4f 05  |%*256)..N. ...O.|
00000880  20 0d 00 50 18 dd 20 f2  50 61 74 68 5f 43 6c 6f  | ..P.. .Path_Clo|
00000890  73 65 57 69 74 68 47 61  70 0d 00 51 27 20 f4 20  |seWithGap..Q' . |
000008a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000008c0  0d 00 52 27 20 f4 20 43  6c 6f 73 65 20 63 75 72  |..R' . Close cur|
000008d0  72 65 6e 74 20 73 75 62  70 61 74 68 20 77 69 74  |rent subpath wit|
000008e0  68 20 61 20 67 61 70 0d  00 53 06 20 f4 0d 00 54  |h a gap..S. ...T|
000008f0  0d 20 f4 20 31 20 77 6f  72 64 0d 00 55 27 20 f4  |. . 1 word..U' .|
00000900  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00000910  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000920  2d 0d 00 56 11 20 f2 50  61 74 68 5f 41 64 64 28  |-..V. .Path_Add(|
00000930  34 29 0d 00 57 06 20 e1  0d 00 58 04 0d 00 59 19  |4)..W. ...X...Y.|
00000940  dd 20 f2 50 61 74 68 5f  43 6c 6f 73 65 57 69 74  |. .Path_CloseWit|
00000950  68 4c 69 6e 65 0d 00 5a  28 20 f4 20 2d 2d 2d 2d  |hLine..Z( . ----|
00000960  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000970  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 00 5b  |-------------..[|
00000980  28 20 f4 20 43 6c 6f 73  65 20 63 75 72 72 65 6e  |( . Close curren|
00000990  74 20 73 75 62 70 61 74  68 20 77 69 74 68 20 61  |t subpath with a|
000009a0  20 6c 69 6e 65 0d 00 5c  06 20 f4 0d 00 5d 0d 20  | line..\. ...]. |
000009b0  f4 20 31 20 77 6f 72 64  0d 00 5e 28 20 f4 20 2d  |. 1 word..^( . -|
000009c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000009e0  0d 00 5f 11 20 f2 50 61  74 68 5f 41 64 64 28 35  |.._. .Path_Add(5|
000009f0  29 0d 00 60 06 20 e1 0d  00 61 04 0d 00 62 4e f4  |)..`. ...a...bN.|
00000a00  20 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ***************|
00000a10  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000a40  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 00 63 05 f4 0d 00  |*********..c....|
00000a50  64 14 f4 20 53 4f 4d 45  20 53 55 42 2d 50 41 54  |d.. SOME SUB-PAT|
00000a60  48 53 0d 00 65 05 f4 0d  00 66 4e f4 20 2a 2a 2a  |HS..e....fN. ***|
00000a70  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000ab0  2a 2a 2a 2a 2a 0d 00 67  04 0d 00 68 2b dd 20 f2  |*****..g...h+. .|
00000ac0  50 61 74 68 5f 52 65 63  74 61 6e 67 6c 65 28 78  |Path_Rectangle(x|
00000ad0  25 2c 79 25 2c 77 69 64  74 68 25 2c 68 65 69 67  |%,y%,width%,heig|
00000ae0  68 74 25 29 0d 00 69 1f  20 f4 20 2d 2d 2d 2d 2d  |ht%)..i. . -----|
00000af0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000b00  2d 2d 2d 0d 00 6a 1f 20  f4 20 52 65 63 74 61 6e  |---..j. . Rectan|
00000b10  67 6c 65 20 63 65 6e 74  72 65 20 28 78 25 2c 79  |gle centre (x%,y|
00000b20  25 29 0d 00 6b 06 20 f4  0d 00 6c 0f 20 f4 20 31  |%)..k. ...l. . 1|
00000b30  33 20 77 6f 72 64 73 0d  00 6d 1f 20 f4 20 2d 2d  |3 words..m. . --|
00000b40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000b50  2d 2d 2d 2d 2d 2d 0d 00  6e 0e 20 ea 20 68 78 25  |------..n. . hx%|
00000b60  2c 68 79 25 0d 00 6f 25  20 68 78 25 3d 77 69 64  |,hy%..o% hx%=wid|
00000b70  74 68 25 20 81 20 32 20  3a 20 68 79 25 3d 68 65  |th% . 2 : hy%=he|
00000b80  69 67 68 74 25 20 81 20  32 0d 00 70 1e 20 f2 50  |ight% . 2..p. .P|
00000b90  61 74 68 5f 4d 6f 76 65  28 78 25 2b 68 78 25 2c  |ath_Move(x%+hx%,|
00000ba0  79 25 2b 68 79 25 29 0d  00 71 1e 20 f2 50 61 74  |y%+hy%)..q. .Pat|
00000bb0  68 5f 44 72 61 77 28 78  25 2d 68 78 25 2c 79 25  |h_Draw(x%-hx%,y%|
00000bc0  2b 68 79 25 29 0d 00 72  1e 20 f2 50 61 74 68 5f  |+hy%)..r. .Path_|
00000bd0  44 72 61 77 28 78 25 2d  68 78 25 2c 79 25 2d 68  |Draw(x%-hx%,y%-h|
00000be0  79 25 29 0d 00 73 1e 20  f2 50 61 74 68 5f 44 72  |y%)..s. .Path_Dr|
00000bf0  61 77 28 78 25 2b 68 78  25 2c 79 25 2d 68 79 25  |aw(x%+hx%,y%-hy%|
00000c00  29 0d 00 74 18 20 f2 50  61 74 68 5f 43 6c 6f 73  |)..t. .Path_Clos|
00000c10  65 57 69 74 68 4c 69 6e  65 0d 00 75 06 20 e1 0d  |eWithLine..u. ..|
00000c20  00 76 04 0d 00 77 20 dd  20 f2 50 61 74 68 5f 53  |.v...w . .Path_S|
00000c30  71 75 61 72 65 28 78 25  2c 79 25 2c 77 69 64 74  |quare(x%,y%,widt|
00000c40  68 25 29 0d 00 78 1f 20  f4 20 2d 2d 2d 2d 2d 2d  |h%)..x. . ------|
00000c50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000c60  2d 2d 0d 00 79 1c 20 f4  20 53 71 75 61 72 65 20  |--..y. . Square |
00000c70  63 65 6e 74 72 65 20 28  78 25 2c 79 25 29 0d 00  |centre (x%,y%)..|
00000c80  7a 06 20 f4 0d 00 7b 0f  20 f4 20 31 33 20 77 6f  |z. ...{. . 13 wo|
00000c90  72 64 73 0d 00 7c 1f 20  f4 20 2d 2d 2d 2d 2d 2d  |rds..|. . ------|
00000ca0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000cb0  2d 2d 0d 00 7d 29 20 f2  50 61 74 68 5f 52 65 63  |--..}) .Path_Rec|
00000cc0  74 61 6e 67 6c 65 28 78  25 2c 79 25 2c 77 69 64  |tangle(x%,y%,wid|
00000cd0  74 68 25 2c 77 69 64 74  68 25 29 0d 00 7e 06 20  |th%,width%)..~. |
00000ce0  e1 0d 00 7f 04 0d 00 80  27 dd 20 f2 50 61 74 68  |........'. .Path|
00000cf0  5f 54 72 69 61 6e 67 6c  65 28 41 25 2c 61 25 2c  |_Triangle(A%,a%,|
00000d00  42 25 2c 62 25 2c 43 25  2c 63 25 29 0d 00 81 23  |B%,b%,C%,c%)...#|
00000d10  20 f4 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | . -------------|
00000d20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00000d30  00 82 22 20 f4 20 54 72  69 61 6e 67 6c 65 20 20  |.." . Triangle  |
00000d40  28 41 2c 61 29 20 28 42  2c 62 29 20 28 43 2c 63  |(A,a) (B,b) (C,c|
00000d50  29 0d 00 83 06 20 f4 0d  00 84 0f 20 f4 20 31 30  |).... ..... . 10|
00000d60  20 77 6f 72 64 73 0d 00  85 23 20 f4 20 2d 2d 2d  | words...# . ---|
00000d70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000d80  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 00 86 16 20 f2 50  |---------.... .P|
00000d90  61 74 68 5f 4d 6f 76 65  28 41 25 2c 61 25 29 0d  |ath_Move(A%,a%).|
00000da0  00 87 16 20 f2 50 61 74  68 5f 44 72 61 77 28 42  |... .Path_Draw(B|
00000db0  25 2c 62 25 29 0d 00 88  16 20 f2 50 61 74 68 5f  |%,b%).... .Path_|
00000dc0  44 72 61 77 28 43 25 2c  63 25 29 0d 00 89 18 20  |Draw(C%,c%).... |
00000dd0  f2 50 61 74 68 5f 43 6c  6f 73 65 57 69 74 68 4c  |.Path_CloseWithL|
00000de0  69 6e 65 0d 00 8a 06 20  e1 0d 00 8b 04 0d 00 8c  |ine.... ........|
00000df0  2c dd 20 f2 50 61 74 68  5f 52 65 67 75 6c 61 72  |,. .Path_Regular|
00000e00  50 6f 6c 79 67 6f 6e 28  78 25 2c 79 25 2c 72 61  |Polygon(x%,y%,ra|
00000e10  64 69 75 73 25 2c 6e 25  29 0d 00 8d 25 20 f4 20  |dius%,n%)...% . |
00000e20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000e30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 00  |--------------..|
00000e40  8e 25 20 f4 20 52 65 67  75 6c 61 72 20 70 6f 6c  |.% . Regular pol|
00000e50  79 67 6f 6e 20 63 65 6e  74 72 65 20 28 78 25 2c  |ygon centre (x%,|
00000e60  79 25 29 0d 00 8f 06 20  f4 0d 00 90 19 20 f4 20  |y%).... ..... . |
00000e70  4e 75 6d 62 65 72 20 6f  66 20 73 69 64 65 73 3d  |Number of sides=|
00000e80  6e 25 0d 00 91 06 20 f4  0d 00 92 13 20 f4 20 33  |n%.... ..... . 3|
00000e90  2a 6e 25 2b 31 20 77 6f  72 64 73 0d 00 93 25 20  |*n%+1 words...% |
00000ea0  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00000eb0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000ec0  0d 00 94 1e 20 f2 50 61  74 68 5f 4d 6f 76 65 28  |.... .Path_Move(|
00000ed0  78 25 2b 72 61 64 69 75  73 25 2c 79 25 29 0d 00  |x%+radius%,y%)..|
00000ee0  95 12 20 e3 20 69 25 3d  31 20 b8 20 6e 25 2d 31  |.. . i%=1 . n%-1|
00000ef0  0d 00 96 20 20 20 58 25  3d 78 25 2b 72 61 64 69  |...   X%=x%+radi|
00000f00  75 73 25 2a 9b 28 32 2a  af 2a 69 25 2f 6e 25 29  |us%*.(2*.*i%/n%)|
00000f10  0d 00 97 20 20 20 59 25  3d 79 25 2b 72 61 64 69  |...   Y%=y%+radi|
00000f20  75 73 25 2a b5 28 32 2a  af 2a 69 25 2f 6e 25 29  |us%*.(2*.*i%/n%)|
00000f30  0d 00 98 17 20 20 f2 50  61 74 68 5f 44 72 61 77  |....  .Path_Draw|
00000f40  28 58 25 2c 59 25 29 0d  00 99 07 20 20 ed 0d 00  |(X%,Y%)....  ...|
00000f50  9a 18 20 f2 50 61 74 68  5f 43 6c 6f 73 65 57 69  |.. .Path_CloseWi|
00000f60  74 68 4c 69 6e 65 0d 00  9b 06 20 e1 0d 00 9c 04  |thLine.... .....|
00000f70  0d 00 9d 20 dd 20 f2 50  61 74 68 5f 43 69 72 63  |... . .Path_Circ|
00000f80  6c 65 28 78 25 2c 79 25  2c 72 61 64 69 75 73 29  |le(x%,y%,radius)|
00000f90  0d 00 9e 1f 20 f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.... . ---------|
00000fa0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00000fb0  00 9f 1c 20 f4 20 43 69  72 63 6c 65 20 63 65 6e  |... . Circle cen|
00000fc0  74 72 65 20 28 78 25 2c  79 25 29 0d 00 a0 06 20  |tre (x%,y%).... |
00000fd0  f4 0d 00 a1 0f 20 f4 20  33 32 20 77 6f 72 64 73  |..... . 32 words|
00000fe0  0d 00 a2 1f 20 f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.... . ---------|
00000ff0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00001000  00 a3 1f 20 ea 20 61 20  3a 20 61 3d 72 61 64 69  |... . a : a=radi|
00001010  75 73 2a 34 2a 28 b6 32  2d 31 29 2f 33 20 0d 00  |us*4*(.2-1)/3 ..|
00001020  a4 1d 20 f2 50 61 74 68  5f 4d 6f 76 65 28 78 25  |.. .Path_Move(x%|
00001030  2c 79 25 2b 72 61 64 69  75 73 29 0d 00 a5 3c 20  |,y%+radius)...< |
00001040  f2 50 61 74 68 5f 43 75  62 69 63 28 78 25 2b 61  |.Path_Cubic(x%+a|
00001050  2c 79 25 2b 72 61 64 69  75 73 2c 78 25 2b 72 61  |,y%+radius,x%+ra|
00001060  64 69 75 73 2c 79 25 2b  61 2c 78 25 2b 72 61 64  |dius,y%+a,x%+rad|
00001070  69 75 73 2c 79 25 29 0d  00 a6 3c 20 f2 50 61 74  |ius,y%)...< .Pat|
00001080  68 5f 43 75 62 69 63 28  78 25 2b 72 61 64 69 75  |h_Cubic(x%+radiu|
00001090  73 2c 79 25 2d 61 2c 78  25 2b 61 2c 79 25 2d 72  |s,y%-a,x%+a,y%-r|
000010a0  61 64 69 75 73 2c 78 25  2c 79 25 2d 72 61 64 69  |adius,x%,y%-radi|
000010b0  75 73 29 0d 00 a7 3c 20  f2 50 61 74 68 5f 43 75  |us)...< .Path_Cu|
000010c0  62 69 63 28 78 25 2d 61  2c 79 25 2d 72 61 64 69  |bic(x%-a,y%-radi|
000010d0  75 73 2c 78 25 2d 72 61  64 69 75 73 2c 79 25 2d  |us,x%-radius,y%-|
000010e0  61 2c 78 25 2d 72 61 64  69 75 73 2c 79 25 29 0d  |a,x%-radius,y%).|
000010f0  00 a8 3d 20 f2 50 61 74  68 5f 43 75 62 69 63 28  |..= .Path_Cubic(|
00001100  78 25 2d 72 61 64 69 75  73 2c 79 25 2b 61 2c 78  |x%-radius,y%+a,x|
00001110  25 2d 61 2c 79 25 2b 72  61 64 69 75 73 2c 78 25  |%-a,y%+radius,x%|
00001120  2c 79 25 2b 72 61 64 69  75 73 29 20 0d 00 a9 17  |,y%+radius) ....|
00001130  20 f2 50 61 74 68 5f 43  6c 6f 73 65 57 69 74 68  | .Path_CloseWith|
00001140  47 61 70 0d 00 aa 06 20  e1 0d 00 ab 05 20 0d 00  |Gap.... ..... ..|
00001150  ac 4e f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.N. ************|
00001160  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00001190  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 00 ad 05  |************....|
000011a0  f4 0d 00 ae 17 f4 20 53  4f 4d 45 20 50 41 54 48  |...... SOME PATH|
000011b0  20 4f 42 4a 45 43 54 53  0d 00 af 05 f4 0d 00 b0  | OBJECTS........|
000011c0  4e f4 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |N. *************|
000011d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00001200  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 00 b1 04 0d  |***********.....|
00001210  00 b2 31 dd 20 a4 50 61  74 68 5f 43 72 65 61 74  |..1. .Path_Creat|
00001220  65 52 65 63 74 61 6e 67  6c 65 28 78 25 2c 79 25  |eRectangle(x%,y%|
00001230  2c 77 69 64 74 68 25 2c  68 65 69 67 68 74 25 29  |,width%,height%)|
00001240  0d 00 b3 11 20 ea 20 72  65 63 74 61 6e 67 6c 65  |.... . rectangle|
00001250  25 0d 00 b4 25 20 f2 50  61 74 68 5f 4f 62 6a 65  |%...% .Path_Obje|
00001260  63 74 42 65 67 69 6e 28  72 65 63 74 61 6e 67 6c  |ctBegin(rectangl|
00001270  65 25 2c 31 35 29 0d 00  b5 2a 20 f2 50 61 74 68  |e%,15)...* .Path|
00001280  5f 52 65 63 74 61 6e 67  6c 65 28 78 25 2c 79 25  |_Rectangle(x%,y%|
00001290  2c 77 69 64 74 68 25 2c  68 65 69 67 68 74 25 29  |,width%,height%)|
000012a0  0d 00 b6 14 20 f2 50 61  74 68 5f 4f 62 6a 65 63  |.... .Path_Objec|
000012b0  74 45 6e 64 0d 00 b7 0f  3d 72 65 63 74 61 6e 67  |tEnd....=rectang|
000012c0  6c 65 25 0d 00 b8 04 0d  00 b9 26 dd 20 a4 50 61  |le%.......&. .Pa|
000012d0  74 68 5f 43 72 65 61 74  65 53 71 75 61 72 65 28  |th_CreateSquare(|
000012e0  78 25 2c 79 25 2c 77 69  64 74 68 25 29 0d 00 ba  |x%,y%,width%)...|
000012f0  0e 20 ea 20 73 71 75 61  72 65 25 0d 00 bb 22 20  |. . square%..." |
00001300  f2 50 61 74 68 5f 4f 62  6a 65 63 74 42 65 67 69  |.Path_ObjectBegi|
00001310  6e 28 73 71 75 61 72 65  25 2c 31 35 29 0d 00 bc  |n(square%,15)...|
00001320  1f 20 f2 50 61 74 68 5f  53 71 75 61 72 65 28 78  |. .Path_Square(x|
00001330  25 2c 79 25 2c 77 69 64  74 68 25 29 0d 00 bd 14  |%,y%,width%)....|
00001340  20 f2 50 61 74 68 5f 4f  62 6a 65 63 74 45 6e 64  | .Path_ObjectEnd|
00001350  0d 00 be 0c 3d 73 71 75  61 72 65 25 0d 00 bf 04  |....=square%....|
00001360  0d 00 c0 2d dd 20 a4 50  61 74 68 5f 43 72 65 61  |...-. .Path_Crea|
00001370  74 65 54 72 69 61 6e 67  6c 65 28 41 25 2c 61 25  |teTriangle(A%,a%|
00001380  2c 42 25 2c 62 25 2c 43  25 2c 63 25 29 0d 00 c1  |,B%,b%,C%,c%)...|
00001390  10 20 ea 20 74 72 69 61  6e 67 6c 65 25 0d 00 c2  |. . triangle%...|
000013a0  24 20 f2 50 61 74 68 5f  4f 62 6a 65 63 74 42 65  |$ .Path_ObjectBe|
000013b0  67 69 6e 28 74 72 69 61  6e 67 6c 65 25 2c 31 32  |gin(triangle%,12|
000013c0  29 0d 00 c3 26 20 f2 50  61 74 68 5f 54 72 69 61  |)...& .Path_Tria|
000013d0  6e 67 6c 65 28 41 25 2c  61 25 2c 42 25 2c 62 25  |ngle(A%,a%,B%,b%|
000013e0  2c 43 25 2c 63 25 29 0d  00 c4 14 20 f2 50 61 74  |,C%,c%).... .Pat|
000013f0  68 5f 4f 62 6a 65 63 74  45 6e 64 0d 00 c5 0e 3d  |h_ObjectEnd....=|
00001400  74 72 69 61 6e 67 6c 65  25 0d 00 c6 04 0d 00 c7  |triangle%.......|
00001410  32 dd 20 a4 50 61 74 68  5f 43 72 65 61 74 65 52  |2. .Path_CreateR|
00001420  65 67 75 6c 61 72 50 6f  6c 79 67 6f 6e 28 78 25  |egularPolygon(x%|
00001430  2c 79 25 2c 72 61 64 69  75 73 25 2c 6e 25 29 0d  |,y%,radius%,n%).|
00001440  00 c8 0f 20 ea 20 70 6f  6c 79 67 6f 6e 25 0d 00  |... . polygon%..|
00001450  c9 27 20 f2 50 61 74 68  5f 4f 62 6a 65 63 74 42  |.' .Path_ObjectB|
00001460  65 67 69 6e 28 70 6f 6c  79 67 6f 6e 25 2c 33 2a  |egin(polygon%,3*|
00001470  6e 25 2b 33 29 0d 00 ca  2b 20 f2 50 61 74 68 5f  |n%+3)...+ .Path_|
00001480  52 65 67 75 6c 61 72 50  6f 6c 79 67 6f 6e 28 78  |RegularPolygon(x|
00001490  25 2c 79 25 2c 72 61 64  69 75 73 25 2c 6e 25 29  |%,y%,radius%,n%)|
000014a0  0d 00 cb 14 20 f2 50 61  74 68 5f 4f 62 6a 65 63  |.... .Path_Objec|
000014b0  74 45 6e 64 0d 00 cc 0d  3d 70 6f 6c 79 67 6f 6e  |tEnd....=polygon|
000014c0  25 0d 00 cd 04 0d 00 ce  27 dd 20 a4 50 61 74 68  |%.......'. .Path|
000014d0  5f 43 72 65 61 74 65 43  69 72 63 6c 65 28 78 25  |_CreateCircle(x%|
000014e0  2c 79 25 2c 72 61 64 69  75 73 25 29 0d 00 cf 0e  |,y%,radius%)....|
000014f0  20 ea 20 63 69 72 63 6c  65 25 0d 00 d0 22 20 f2  | . circle%..." .|
00001500  50 61 74 68 5f 4f 62 6a  65 63 74 42 65 67 69 6e  |Path_ObjectBegin|
00001510  28 63 69 72 63 6c 65 25  2c 33 33 29 0d 00 d1 20  |(circle%,33)... |
00001520  20 f2 50 61 74 68 5f 43  69 72 63 6c 65 28 78 25  | .Path_Circle(x%|
00001530  2c 79 25 2c 72 61 64 69  75 73 25 29 0d 00 d2 14  |,y%,radius%)....|
00001540  20 f2 50 61 74 68 5f 4f  62 6a 65 63 74 45 6e 64  | .Path_ObjectEnd|
00001550  0d 00 d3 0d 3d 63 69 72  63 6c 65 25 20 0d 00 d4  |....=circle% ...|
00001560  04 0d ff                                          |...|
00001563

© Dominic Ford 2021–2025.

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