Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403.adf » Disk1Mar94 » !AWMar94/Goodies/Basic/!PathLib/Library/OS_units/Paths

!AWMar94/Goodies/Basic/!PathLib/Library/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 » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403.adf » Disk1Mar94
Filename: !AWMar94/Goodies/Basic/!PathLib/Library/OS_units/Paths
Read OK: ✔
File size: 1831 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_HorizontalLine(x%,y%,length%)
  105 REM ---------------------------------
  106 REM Horizontal line staring at (x%,y%)
  107 REM of length length%
  108 REM
  109 REM 6 words
  110 REM ---------------------------------
  111 PROCPath_Move(x%,y%)
  112 PROCPath_Draw(x%+length%,y%)
  113 ENDPROC
  114 
  115DEF PROCPath_Rectangle(x%,y%,width%,height%)
  116 REM ------------------------
  117 REM Rectangle centre (x%,y%)
  118 REM
  119 REM 13 words
  120 REM ------------------------
  121 LOCAL hx%,hy%
  122 hx%=width% DIV 2 : hy%=height% DIV 2
  123 PROCPath_Move(x%+hx%,y%+hy%)
  124 PROCPath_Draw(x%-hx%,y%+hy%)
  125 PROCPath_Draw(x%-hx%,y%-hy%)
  126 PROCPath_Draw(x%+hx%,y%-hy%)
  127 PROCPath_CloseWithLine
  128 ENDPROC
  129
  130DEF PROCPath_Square(x%,y%,width%)
  131 REM ------------------------
  132 REM Square centre (x%,y%)
  133 REM
  134 REM 13 words
  135 REM ------------------------
  136 PROCPath_Rectangle(x%,y%,width%,width%)
  137 ENDPROC
  138
  139DEF PROCPath_Triangle(A%,a%,B%,b%,C%,c%)
  140 REM ----------------------------
  141 REM Triangle  (A,a) (B,b) (C,c)
  142 REM
  143 REM 10 words
  144 REM ----------------------------
  145 PROCPath_Move(A%,a%)
  146 PROCPath_Draw(B%,b%)
  147 PROCPath_Draw(C%,c%)
  148 PROCPath_CloseWithLine
  149 ENDPROC
  150 
  151DEF PROCPath_Cross(x%,y%,width%)
  152 REM ------------------------------
  153 REM 
  154 REM Cross centre (x,y)
  155 REM 
  156 REM 12 words
  157 REM ------------------------------
  158 PROCPath_Move(x%-width%,y%) : PROCPath_Draw(x%+width%,y%)
  159 PROCPath_Move(x%,y%-width%) : PROCPath_Draw(x%,y%+width%) 
  160 ENDPROC
  161 
  162DEF PROCPath_RegularPolygon(x%,y%,radius%,n%)
  163 REM ------------------------------
  164 REM Regular polygon centre (x%,y%)
  165 REM
  166 REM Number of sides=n%
  167 REM
  168 REM 3*n%+1 words
  169 REM ------------------------------
  170 PROCPath_Move(x%+radius%,y%)
  171 FOR i%=1 TO n%-1
  172  X%=x%+radius%*COS(2*PI*i%/n%)
  173  Y%=y%+radius%*SIN(2*PI*i%/n%)
  174  PROCPath_Draw(X%,Y%)
  175  NEXT
  176 PROCPath_CloseWithLine
  177 ENDPROC
  178
  179DEF PROCPath_Circle(x%,y%,radius)
  180 REM ------------------------
  181 REM Circle centre (x%,y%)
  182 REM
  183 REM 32 words
  184 REM ------------------------
  185 LOCAL a : a=radius*4*(SQR2-1)/3 
  186 PROCPath_Move(x%,y%+radius)
  187 PROCPath_Cubic(x%+a,y%+radius,x%+radius,y%+a,x%+radius,y%)
  188 PROCPath_Cubic(x%+radius,y%-a,x%+a,y%-radius,x%,y%-radius)
  189 PROCPath_Cubic(x%-a,y%-radius,x%-radius,y%-a,x%-radius,y%)
  190 PROCPath_Cubic(x%-radius,y%+a,x%-a,y%+radius,x%,y%+radius) 
  191 PROCPath_CloseWithGap
  192 ENDPROC
  193 
  194REM ************************************************************************
  195REM
  196REM SOME PATH OBJECTS
  197REM
  198REM ************************************************************************
  199
  200DEF FNPath_CreateHorizontalLine(x%,y%,length%)
  201LOCAL line%
  202 PROCPath_ObjectBegin(line%,7)
  203 PROCPath_HorizontalLine(x%,y%,length%)
  204 PROCPath_ObjectEnd
  205 =line%
  206 
  207DEF FNPath_CreateRectangle(x%,y%,width%,height%)
  208 LOCAL rectangle%
  209 PROCPath_ObjectBegin(rectangle%,15)
  210 PROCPath_Rectangle(x%,y%,width%,height%)
  211 PROCPath_ObjectEnd
  212=rectangle%
  213
  214DEF FNPath_CreateSquare(x%,y%,width%)
  215 LOCAL square%
  216 PROCPath_ObjectBegin(square%,15)
  217 PROCPath_Square(x%,y%,width%)
  218 PROCPath_ObjectEnd
  219=square%
  220
  221DEF FNPath_CreateTriangle(A%,a%,B%,b%,C%,c%)
  222 LOCAL triangle%
  223 PROCPath_ObjectBegin(triangle%,12)
  224 PROCPath_Triangle(A%,a%,B%,b%,C%,c%)
  225 PROCPath_ObjectEnd
  226=triangle%
  227
  228DEF FNPath_CreateRegularPolygon(x%,y%,radius%,n%)
  229 LOCAL polygon%
  230 PROCPath_ObjectBegin(polygon%,3*n%+3)
  231 PROCPath_RegularPolygon(x%,y%,radius%,n%)
  232 PROCPath_ObjectEnd
  233=polygon%
  234
  235DEF FNPath_CreateCircle(x%,y%,radius%)
  236 LOCAL circle%
  237 PROCPath_ObjectBegin(circle%,33)
  238 PROCPath_Circle(x%,y%,radius%)
  239 PROCPath_ObjectEnd
  240=circle% 
  241

� > 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_HorizontalLine(x%,y%,length%)
i( � ---------------------------------
j) � Horizontal line staring at (x%,y%)
k � of length length%
l �
m � 6 words
n( � ---------------------------------
o �Path_Move(x%,y%)
p �Path_Draw(x%+length%,y%)
q �
r 
s+� �Path_Rectangle(x%,y%,width%,height%)
t � ------------------------
u � Rectangle centre (x%,y%)
v �
w � 13 words
x � ------------------------
y � hx%,hy%
z% hx%=width% � 2 : hy%=height% � 2
{ �Path_Move(x%+hx%,y%+hy%)
| �Path_Draw(x%-hx%,y%+hy%)
} �Path_Draw(x%-hx%,y%-hy%)
~ �Path_Draw(x%+hx%,y%-hy%)
 �Path_CloseWithLine
� �
�
� � �Path_Square(x%,y%,width%)
� � ------------------------
� � Square centre (x%,y%)
� �
� � 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_Cross(x%,y%,width%)
�% � ------------------------------
� � 
� � Cross centre (x,y)
� � 
� � 12 words
�% � ------------------------------
�8 �Path_Move(x%-width%,y%) : �Path_Draw(x%+width%,y%)
�9 �Path_Move(x%,y%-width%) : �Path_Draw(x%,y%+width%) 
� �
� 
�,� �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� ************************************************************************
�
�/� �Path_CreateHorizontalLine(x%,y%,length%)
�� line%
� �Path_ObjectBegin(line%,7)
�( �Path_HorizontalLine(x%,y%,length%)
� �Path_ObjectEnd
� =line%
� 
�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 29 dd 20 f2  |*****..g...h). .|
00000ac0  50 61 74 68 5f 48 6f 72  69 7a 6f 6e 74 61 6c 4c  |Path_HorizontalL|
00000ad0  69 6e 65 28 78 25 2c 79  25 2c 6c 65 6e 67 74 68  |ine(x%,y%,length|
00000ae0  25 29 0d 00 69 28 20 f4  20 2d 2d 2d 2d 2d 2d 2d  |%)..i( . -------|
00000af0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000b00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 00 6a 29 20 f4  |----------..j) .|
00000b10  20 48 6f 72 69 7a 6f 6e  74 61 6c 20 6c 69 6e 65  | Horizontal line|
00000b20  20 73 74 61 72 69 6e 67  20 61 74 20 28 78 25 2c  | staring at (x%,|
00000b30  79 25 29 0d 00 6b 18 20  f4 20 6f 66 20 6c 65 6e  |y%)..k. . of len|
00000b40  67 74 68 20 6c 65 6e 67  74 68 25 0d 00 6c 06 20  |gth length%..l. |
00000b50  f4 0d 00 6d 0e 20 f4 20  36 20 77 6f 72 64 73 0d  |...m. . 6 words.|
00000b60  00 6e 28 20 f4 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.n( . ----------|
00000b70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000b80  2d 2d 2d 2d 2d 2d 2d 0d  00 6f 16 20 f2 50 61 74  |-------..o. .Pat|
00000b90  68 5f 4d 6f 76 65 28 78  25 2c 79 25 29 0d 00 70  |h_Move(x%,y%)..p|
00000ba0  1e 20 f2 50 61 74 68 5f  44 72 61 77 28 78 25 2b  |. .Path_Draw(x%+|
00000bb0  6c 65 6e 67 74 68 25 2c  79 25 29 0d 00 71 06 20  |length%,y%)..q. |
00000bc0  e1 0d 00 72 05 20 0d 00  73 2b dd 20 f2 50 61 74  |...r. ..s+. .Pat|
00000bd0  68 5f 52 65 63 74 61 6e  67 6c 65 28 78 25 2c 79  |h_Rectangle(x%,y|
00000be0  25 2c 77 69 64 74 68 25  2c 68 65 69 67 68 74 25  |%,width%,height%|
00000bf0  29 0d 00 74 1f 20 f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |)..t. . --------|
00000c00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000c10  0d 00 75 1f 20 f4 20 52  65 63 74 61 6e 67 6c 65  |..u. . Rectangle|
00000c20  20 63 65 6e 74 72 65 20  28 78 25 2c 79 25 29 0d  | centre (x%,y%).|
00000c30  00 76 06 20 f4 0d 00 77  0f 20 f4 20 31 33 20 77  |.v. ...w. . 13 w|
00000c40  6f 72 64 73 0d 00 78 1f  20 f4 20 2d 2d 2d 2d 2d  |ords..x. . -----|
00000c50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000c60  2d 2d 2d 0d 00 79 0e 20  ea 20 68 78 25 2c 68 79  |---..y. . hx%,hy|
00000c70  25 0d 00 7a 25 20 68 78  25 3d 77 69 64 74 68 25  |%..z% hx%=width%|
00000c80  20 81 20 32 20 3a 20 68  79 25 3d 68 65 69 67 68  | . 2 : hy%=heigh|
00000c90  74 25 20 81 20 32 0d 00  7b 1e 20 f2 50 61 74 68  |t% . 2..{. .Path|
00000ca0  5f 4d 6f 76 65 28 78 25  2b 68 78 25 2c 79 25 2b  |_Move(x%+hx%,y%+|
00000cb0  68 79 25 29 0d 00 7c 1e  20 f2 50 61 74 68 5f 44  |hy%)..|. .Path_D|
00000cc0  72 61 77 28 78 25 2d 68  78 25 2c 79 25 2b 68 79  |raw(x%-hx%,y%+hy|
00000cd0  25 29 0d 00 7d 1e 20 f2  50 61 74 68 5f 44 72 61  |%)..}. .Path_Dra|
00000ce0  77 28 78 25 2d 68 78 25  2c 79 25 2d 68 79 25 29  |w(x%-hx%,y%-hy%)|
00000cf0  0d 00 7e 1e 20 f2 50 61  74 68 5f 44 72 61 77 28  |..~. .Path_Draw(|
00000d00  78 25 2b 68 78 25 2c 79  25 2d 68 79 25 29 0d 00  |x%+hx%,y%-hy%)..|
00000d10  7f 18 20 f2 50 61 74 68  5f 43 6c 6f 73 65 57 69  |.. .Path_CloseWi|
00000d20  74 68 4c 69 6e 65 0d 00  80 06 20 e1 0d 00 81 04  |thLine.... .....|
00000d30  0d 00 82 20 dd 20 f2 50  61 74 68 5f 53 71 75 61  |... . .Path_Squa|
00000d40  72 65 28 78 25 2c 79 25  2c 77 69 64 74 68 25 29  |re(x%,y%,width%)|
00000d50  0d 00 83 1f 20 f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.... . ---------|
00000d60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00000d70  00 84 1c 20 f4 20 53 71  75 61 72 65 20 63 65 6e  |... . Square cen|
00000d80  74 72 65 20 28 78 25 2c  79 25 29 0d 00 85 06 20  |tre (x%,y%).... |
00000d90  f4 0d 00 86 0f 20 f4 20  31 33 20 77 6f 72 64 73  |..... . 13 words|
00000da0  0d 00 87 1f 20 f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.... . ---------|
00000db0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00000dc0  00 88 29 20 f2 50 61 74  68 5f 52 65 63 74 61 6e  |..) .Path_Rectan|
00000dd0  67 6c 65 28 78 25 2c 79  25 2c 77 69 64 74 68 25  |gle(x%,y%,width%|
00000de0  2c 77 69 64 74 68 25 29  0d 00 89 06 20 e1 0d 00  |,width%).... ...|
00000df0  8a 04 0d 00 8b 27 dd 20  f2 50 61 74 68 5f 54 72  |.....'. .Path_Tr|
00000e00  69 61 6e 67 6c 65 28 41  25 2c 61 25 2c 42 25 2c  |iangle(A%,a%,B%,|
00000e10  62 25 2c 43 25 2c 63 25  29 0d 00 8c 23 20 f4 20  |b%,C%,c%)...# . |
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 0d 00 8d 22  |------------..."|
00000e40  20 f4 20 54 72 69 61 6e  67 6c 65 20 20 28 41 2c  | . Triangle  (A,|
00000e50  61 29 20 28 42 2c 62 29  20 28 43 2c 63 29 0d 00  |a) (B,b) (C,c)..|
00000e60  8e 06 20 f4 0d 00 8f 0f  20 f4 20 31 30 20 77 6f  |.. ..... . 10 wo|
00000e70  72 64 73 0d 00 90 23 20  f4 20 2d 2d 2d 2d 2d 2d  |rds...# . ------|
00000e80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000e90  2d 2d 2d 2d 2d 2d 0d 00  91 16 20 f2 50 61 74 68  |------.... .Path|
00000ea0  5f 4d 6f 76 65 28 41 25  2c 61 25 29 0d 00 92 16  |_Move(A%,a%)....|
00000eb0  20 f2 50 61 74 68 5f 44  72 61 77 28 42 25 2c 62  | .Path_Draw(B%,b|
00000ec0  25 29 0d 00 93 16 20 f2  50 61 74 68 5f 44 72 61  |%).... .Path_Dra|
00000ed0  77 28 43 25 2c 63 25 29  0d 00 94 18 20 f2 50 61  |w(C%,c%).... .Pa|
00000ee0  74 68 5f 43 6c 6f 73 65  57 69 74 68 4c 69 6e 65  |th_CloseWithLine|
00000ef0  0d 00 95 06 20 e1 0d 00  96 05 20 0d 00 97 1f dd  |.... ..... .....|
00000f00  20 f2 50 61 74 68 5f 43  72 6f 73 73 28 78 25 2c  | .Path_Cross(x%,|
00000f10  79 25 2c 77 69 64 74 68  25 29 0d 00 98 25 20 f4  |y%,width%)...% .|
00000f20  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00000f30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00000f40  00 99 07 20 f4 20 0d 00  9a 19 20 f4 20 43 72 6f  |... . .... . Cro|
00000f50  73 73 20 63 65 6e 74 72  65 20 28 78 2c 79 29 0d  |ss centre (x,y).|
00000f60  00 9b 07 20 f4 20 0d 00  9c 0f 20 f4 20 31 32 20  |... . .... . 12 |
00000f70  77 6f 72 64 73 0d 00 9d  25 20 f4 20 2d 2d 2d 2d  |words...% . ----|
00000f80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000f90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 00 9e 38 20 f2  |----------...8 .|
00000fa0  50 61 74 68 5f 4d 6f 76  65 28 78 25 2d 77 69 64  |Path_Move(x%-wid|
00000fb0  74 68 25 2c 79 25 29 20  3a 20 f2 50 61 74 68 5f  |th%,y%) : .Path_|
00000fc0  44 72 61 77 28 78 25 2b  77 69 64 74 68 25 2c 79  |Draw(x%+width%,y|
00000fd0  25 29 0d 00 9f 39 20 f2  50 61 74 68 5f 4d 6f 76  |%)...9 .Path_Mov|
00000fe0  65 28 78 25 2c 79 25 2d  77 69 64 74 68 25 29 20  |e(x%,y%-width%) |
00000ff0  3a 20 f2 50 61 74 68 5f  44 72 61 77 28 78 25 2c  |: .Path_Draw(x%,|
00001000  79 25 2b 77 69 64 74 68  25 29 20 0d 00 a0 06 20  |y%+width%) .... |
00001010  e1 0d 00 a1 05 20 0d 00  a2 2c dd 20 f2 50 61 74  |..... ...,. .Pat|
00001020  68 5f 52 65 67 75 6c 61  72 50 6f 6c 79 67 6f 6e  |h_RegularPolygon|
00001030  28 78 25 2c 79 25 2c 72  61 64 69 75 73 25 2c 6e  |(x%,y%,radius%,n|
00001040  25 29 0d 00 a3 25 20 f4  20 2d 2d 2d 2d 2d 2d 2d  |%)...% . -------|
00001050  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001060  2d 2d 2d 2d 2d 2d 2d 0d  00 a4 25 20 f4 20 52 65  |-------...% . Re|
00001070  67 75 6c 61 72 20 70 6f  6c 79 67 6f 6e 20 63 65  |gular polygon ce|
00001080  6e 74 72 65 20 28 78 25  2c 79 25 29 0d 00 a5 06  |ntre (x%,y%)....|
00001090  20 f4 0d 00 a6 19 20 f4  20 4e 75 6d 62 65 72 20  | ..... . Number |
000010a0  6f 66 20 73 69 64 65 73  3d 6e 25 0d 00 a7 06 20  |of sides=n%.... |
000010b0  f4 0d 00 a8 13 20 f4 20  33 2a 6e 25 2b 31 20 77  |..... . 3*n%+1 w|
000010c0  6f 72 64 73 0d 00 a9 25  20 f4 20 2d 2d 2d 2d 2d  |ords...% . -----|
000010d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000010e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 00 aa 1e 20 f2 50  |---------.... .P|
000010f0  61 74 68 5f 4d 6f 76 65  28 78 25 2b 72 61 64 69  |ath_Move(x%+radi|
00001100  75 73 25 2c 79 25 29 0d  00 ab 12 20 e3 20 69 25  |us%,y%).... . i%|
00001110  3d 31 20 b8 20 6e 25 2d  31 0d 00 ac 20 20 20 58  |=1 . n%-1...   X|
00001120  25 3d 78 25 2b 72 61 64  69 75 73 25 2a 9b 28 32  |%=x%+radius%*.(2|
00001130  2a af 2a 69 25 2f 6e 25  29 0d 00 ad 20 20 20 59  |*.*i%/n%)...   Y|
00001140  25 3d 79 25 2b 72 61 64  69 75 73 25 2a b5 28 32  |%=y%+radius%*.(2|
00001150  2a af 2a 69 25 2f 6e 25  29 0d 00 ae 17 20 20 f2  |*.*i%/n%)....  .|
00001160  50 61 74 68 5f 44 72 61  77 28 58 25 2c 59 25 29  |Path_Draw(X%,Y%)|
00001170  0d 00 af 07 20 20 ed 0d  00 b0 18 20 f2 50 61 74  |....  ..... .Pat|
00001180  68 5f 43 6c 6f 73 65 57  69 74 68 4c 69 6e 65 0d  |h_CloseWithLine.|
00001190  00 b1 06 20 e1 0d 00 b2  04 0d 00 b3 20 dd 20 f2  |... ........ . .|
000011a0  50 61 74 68 5f 43 69 72  63 6c 65 28 78 25 2c 79  |Path_Circle(x%,y|
000011b0  25 2c 72 61 64 69 75 73  29 0d 00 b4 1f 20 f4 20  |%,radius).... . |
000011c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000011d0  2d 2d 2d 2d 2d 2d 2d 2d  0d 00 b5 1c 20 f4 20 43  |--------.... . C|
000011e0  69 72 63 6c 65 20 63 65  6e 74 72 65 20 28 78 25  |ircle centre (x%|
000011f0  2c 79 25 29 0d 00 b6 06  20 f4 0d 00 b7 0f 20 f4  |,y%).... ..... .|
00001200  20 33 32 20 77 6f 72 64  73 0d 00 b8 1f 20 f4 20  | 32 words.... . |
00001210  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001220  2d 2d 2d 2d 2d 2d 2d 2d  0d 00 b9 1f 20 ea 20 61  |--------.... . a|
00001230  20 3a 20 61 3d 72 61 64  69 75 73 2a 34 2a 28 b6  | : a=radius*4*(.|
00001240  32 2d 31 29 2f 33 20 0d  00 ba 1d 20 f2 50 61 74  |2-1)/3 .... .Pat|
00001250  68 5f 4d 6f 76 65 28 78  25 2c 79 25 2b 72 61 64  |h_Move(x%,y%+rad|
00001260  69 75 73 29 0d 00 bb 3c  20 f2 50 61 74 68 5f 43  |ius)...< .Path_C|
00001270  75 62 69 63 28 78 25 2b  61 2c 79 25 2b 72 61 64  |ubic(x%+a,y%+rad|
00001280  69 75 73 2c 78 25 2b 72  61 64 69 75 73 2c 79 25  |ius,x%+radius,y%|
00001290  2b 61 2c 78 25 2b 72 61  64 69 75 73 2c 79 25 29  |+a,x%+radius,y%)|
000012a0  0d 00 bc 3c 20 f2 50 61  74 68 5f 43 75 62 69 63  |...< .Path_Cubic|
000012b0  28 78 25 2b 72 61 64 69  75 73 2c 79 25 2d 61 2c  |(x%+radius,y%-a,|
000012c0  78 25 2b 61 2c 79 25 2d  72 61 64 69 75 73 2c 78  |x%+a,y%-radius,x|
000012d0  25 2c 79 25 2d 72 61 64  69 75 73 29 0d 00 bd 3c  |%,y%-radius)...<|
000012e0  20 f2 50 61 74 68 5f 43  75 62 69 63 28 78 25 2d  | .Path_Cubic(x%-|
000012f0  61 2c 79 25 2d 72 61 64  69 75 73 2c 78 25 2d 72  |a,y%-radius,x%-r|
00001300  61 64 69 75 73 2c 79 25  2d 61 2c 78 25 2d 72 61  |adius,y%-a,x%-ra|
00001310  64 69 75 73 2c 79 25 29  0d 00 be 3d 20 f2 50 61  |dius,y%)...= .Pa|
00001320  74 68 5f 43 75 62 69 63  28 78 25 2d 72 61 64 69  |th_Cubic(x%-radi|
00001330  75 73 2c 79 25 2b 61 2c  78 25 2d 61 2c 79 25 2b  |us,y%+a,x%-a,y%+|
00001340  72 61 64 69 75 73 2c 78  25 2c 79 25 2b 72 61 64  |radius,x%,y%+rad|
00001350  69 75 73 29 20 0d 00 bf  17 20 f2 50 61 74 68 5f  |ius) .... .Path_|
00001360  43 6c 6f 73 65 57 69 74  68 47 61 70 0d 00 c0 06  |CloseWithGap....|
00001370  20 e1 0d 00 c1 05 20 0d  00 c2 4e f4 20 2a 2a 2a  | ..... ...N. ***|
00001380  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000013c0  2a 2a 2a 2a 2a 0d 00 c3  05 f4 0d 00 c4 17 f4 20  |*****.......... |
000013d0  53 4f 4d 45 20 50 41 54  48 20 4f 42 4a 45 43 54  |SOME PATH OBJECT|
000013e0  53 0d 00 c5 05 f4 0d 00  c6 4e f4 20 2a 2a 2a 2a  |S........N. ****|
000013f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00001430  2a 2a 2a 2a 0d 00 c7 04  0d 00 c8 2f dd 20 a4 50  |****......./. .P|
00001440  61 74 68 5f 43 72 65 61  74 65 48 6f 72 69 7a 6f  |ath_CreateHorizo|
00001450  6e 74 61 6c 4c 69 6e 65  28 78 25 2c 79 25 2c 6c  |ntalLine(x%,y%,l|
00001460  65 6e 67 74 68 25 29 0d  00 c9 0b ea 20 6c 69 6e  |ength%)..... lin|
00001470  65 25 0d 00 ca 1f 20 f2  50 61 74 68 5f 4f 62 6a  |e%.... .Path_Obj|
00001480  65 63 74 42 65 67 69 6e  28 6c 69 6e 65 25 2c 37  |ectBegin(line%,7|
00001490  29 0d 00 cb 28 20 f2 50  61 74 68 5f 48 6f 72 69  |)...( .Path_Hori|
000014a0  7a 6f 6e 74 61 6c 4c 69  6e 65 28 78 25 2c 79 25  |zontalLine(x%,y%|
000014b0  2c 6c 65 6e 67 74 68 25  29 0d 00 cc 14 20 f2 50  |,length%).... .P|
000014c0  61 74 68 5f 4f 62 6a 65  63 74 45 6e 64 0d 00 cd  |ath_ObjectEnd...|
000014d0  0b 20 3d 6c 69 6e 65 25  0d 00 ce 05 20 0d 00 cf  |. =line%.... ...|
000014e0  31 dd 20 a4 50 61 74 68  5f 43 72 65 61 74 65 52  |1. .Path_CreateR|
000014f0  65 63 74 61 6e 67 6c 65  28 78 25 2c 79 25 2c 77  |ectangle(x%,y%,w|
00001500  69 64 74 68 25 2c 68 65  69 67 68 74 25 29 0d 00  |idth%,height%)..|
00001510  d0 11 20 ea 20 72 65 63  74 61 6e 67 6c 65 25 0d  |.. . rectangle%.|
00001520  00 d1 25 20 f2 50 61 74  68 5f 4f 62 6a 65 63 74  |..% .Path_Object|
00001530  42 65 67 69 6e 28 72 65  63 74 61 6e 67 6c 65 25  |Begin(rectangle%|
00001540  2c 31 35 29 0d 00 d2 2a  20 f2 50 61 74 68 5f 52  |,15)...* .Path_R|
00001550  65 63 74 61 6e 67 6c 65  28 78 25 2c 79 25 2c 77  |ectangle(x%,y%,w|
00001560  69 64 74 68 25 2c 68 65  69 67 68 74 25 29 0d 00  |idth%,height%)..|
00001570  d3 14 20 f2 50 61 74 68  5f 4f 62 6a 65 63 74 45  |.. .Path_ObjectE|
00001580  6e 64 0d 00 d4 0f 3d 72  65 63 74 61 6e 67 6c 65  |nd....=rectangle|
00001590  25 0d 00 d5 04 0d 00 d6  26 dd 20 a4 50 61 74 68  |%.......&. .Path|
000015a0  5f 43 72 65 61 74 65 53  71 75 61 72 65 28 78 25  |_CreateSquare(x%|
000015b0  2c 79 25 2c 77 69 64 74  68 25 29 0d 00 d7 0e 20  |,y%,width%).... |
000015c0  ea 20 73 71 75 61 72 65  25 0d 00 d8 22 20 f2 50  |. square%..." .P|
000015d0  61 74 68 5f 4f 62 6a 65  63 74 42 65 67 69 6e 28  |ath_ObjectBegin(|
000015e0  73 71 75 61 72 65 25 2c  31 35 29 0d 00 d9 1f 20  |square%,15).... |
000015f0  f2 50 61 74 68 5f 53 71  75 61 72 65 28 78 25 2c  |.Path_Square(x%,|
00001600  79 25 2c 77 69 64 74 68  25 29 0d 00 da 14 20 f2  |y%,width%).... .|
00001610  50 61 74 68 5f 4f 62 6a  65 63 74 45 6e 64 0d 00  |Path_ObjectEnd..|
00001620  db 0c 3d 73 71 75 61 72  65 25 0d 00 dc 04 0d 00  |..=square%......|
00001630  dd 2d dd 20 a4 50 61 74  68 5f 43 72 65 61 74 65  |.-. .Path_Create|
00001640  54 72 69 61 6e 67 6c 65  28 41 25 2c 61 25 2c 42  |Triangle(A%,a%,B|
00001650  25 2c 62 25 2c 43 25 2c  63 25 29 0d 00 de 10 20  |%,b%,C%,c%).... |
00001660  ea 20 74 72 69 61 6e 67  6c 65 25 0d 00 df 24 20  |. triangle%...$ |
00001670  f2 50 61 74 68 5f 4f 62  6a 65 63 74 42 65 67 69  |.Path_ObjectBegi|
00001680  6e 28 74 72 69 61 6e 67  6c 65 25 2c 31 32 29 0d  |n(triangle%,12).|
00001690  00 e0 26 20 f2 50 61 74  68 5f 54 72 69 61 6e 67  |..& .Path_Triang|
000016a0  6c 65 28 41 25 2c 61 25  2c 42 25 2c 62 25 2c 43  |le(A%,a%,B%,b%,C|
000016b0  25 2c 63 25 29 0d 00 e1  14 20 f2 50 61 74 68 5f  |%,c%).... .Path_|
000016c0  4f 62 6a 65 63 74 45 6e  64 0d 00 e2 0e 3d 74 72  |ObjectEnd....=tr|
000016d0  69 61 6e 67 6c 65 25 0d  00 e3 04 0d 00 e4 32 dd  |iangle%.......2.|
000016e0  20 a4 50 61 74 68 5f 43  72 65 61 74 65 52 65 67  | .Path_CreateReg|
000016f0  75 6c 61 72 50 6f 6c 79  67 6f 6e 28 78 25 2c 79  |ularPolygon(x%,y|
00001700  25 2c 72 61 64 69 75 73  25 2c 6e 25 29 0d 00 e5  |%,radius%,n%)...|
00001710  0f 20 ea 20 70 6f 6c 79  67 6f 6e 25 0d 00 e6 27  |. . polygon%...'|
00001720  20 f2 50 61 74 68 5f 4f  62 6a 65 63 74 42 65 67  | .Path_ObjectBeg|
00001730  69 6e 28 70 6f 6c 79 67  6f 6e 25 2c 33 2a 6e 25  |in(polygon%,3*n%|
00001740  2b 33 29 0d 00 e7 2b 20  f2 50 61 74 68 5f 52 65  |+3)...+ .Path_Re|
00001750  67 75 6c 61 72 50 6f 6c  79 67 6f 6e 28 78 25 2c  |gularPolygon(x%,|
00001760  79 25 2c 72 61 64 69 75  73 25 2c 6e 25 29 0d 00  |y%,radius%,n%)..|
00001770  e8 14 20 f2 50 61 74 68  5f 4f 62 6a 65 63 74 45  |.. .Path_ObjectE|
00001780  6e 64 0d 00 e9 0d 3d 70  6f 6c 79 67 6f 6e 25 0d  |nd....=polygon%.|
00001790  00 ea 04 0d 00 eb 27 dd  20 a4 50 61 74 68 5f 43  |......'. .Path_C|
000017a0  72 65 61 74 65 43 69 72  63 6c 65 28 78 25 2c 79  |reateCircle(x%,y|
000017b0  25 2c 72 61 64 69 75 73  25 29 0d 00 ec 0e 20 ea  |%,radius%).... .|
000017c0  20 63 69 72 63 6c 65 25  0d 00 ed 22 20 f2 50 61  | circle%..." .Pa|
000017d0  74 68 5f 4f 62 6a 65 63  74 42 65 67 69 6e 28 63  |th_ObjectBegin(c|
000017e0  69 72 63 6c 65 25 2c 33  33 29 0d 00 ee 20 20 f2  |ircle%,33)...  .|
000017f0  50 61 74 68 5f 43 69 72  63 6c 65 28 78 25 2c 79  |Path_Circle(x%,y|
00001800  25 2c 72 61 64 69 75 73  25 29 0d 00 ef 14 20 f2  |%,radius%).... .|
00001810  50 61 74 68 5f 4f 62 6a  65 63 74 45 6e 64 0d 00  |Path_ObjectEnd..|
00001820  f0 0d 3d 63 69 72 63 6c  65 25 20 0d 00 f1 04 0d  |..=circle% .....|
00001830  ff                                                |.|
00001831

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 10 Jun 2024, 13:20 UTC
Website designed by .