!AWDec94/Goodies/DrawBasic/!DrawBasic/Resources/Paths

Home » Archimedes archive » Archimedes World » AW-1994-12-Disc1.adf » Disk1Dec94 » !AWDec94/Goodies/DrawBasic/!DrawBasic/Resources/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-12-Disc1.adf » Disk1Dec94
Filename:	!AWDec94/Goodies/DrawBasic/!DrawBasic/Resources/Paths
Read OK:	✔
File size:	19C6 bytes
Load address:	0000
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Archimedes archive » Archimedes World » AW-1994-12-Disc1.adf » Disk1Dec94 » !AWDec94/Goodies/DrawBasic/!DrawBasic/Resources/Paths
Archimedes archive » Archimedes World » AW-1995-01-Disc1.adf » Disk1Jan95 » !AWJan95/Goodies/DrawBasic/!DrawBasic/Resources/Paths

File contents

    1REM >DrawBasic:Resources.Paths
    2
    3REM =======================================================
    4REM
    5REM copyright Joe Taylor June 1994
    6REM
    7REM N.B. For ERROR THROWBACK to work The first line above
    8REM      MUST have the correct pathname of this file.
    9REM      If you move the location of the file remember to
   10REM      alter this pathname.
   11REM
   12REM =======================================================
   13
   14REM *****************************************************************
   15REM
   16REM 2. Paths
   17REM
   18REM *****************************************************************
   19
   20REM ==================
   21REM 2.1 Creating Paths
   22REM ==================
   23
   24DEF FNCurrentPath=!(HIMEM+64)
   25
   26DEF PROCCurrentPath(path%)
   27!(HIMEM+64)=path%
   28ENDPROC
   29
   30DEF FNCurrentSubpath=!(HIMEM+68)
   31
   32DEF PROCCurrentSubpath(path%)
   33!(HIMEM+68)=path%
   34ENDPROC
   35
   36DEF PROCPathBegin(RETURN path)
   37 REM -----------------------------
   38 REM
   39 REM Creates path header
   40 REM requires 40 bytes
   41 REM
   42 REM -----------------------------
   43 IF FNCurrentPath<>0 THEN ERROR 0,"Can't begin path until previous path ended"
   44 PROCCurrentPath(!HIMEM)
   45   IF FNCurrentPath>=!(HIMEM+4) THEN
   46    ERROR 0,"Out of memory. Increase the 'Free' slot."
   47   ELSE
   48     !(HIMEM+4)-=4
   49     path=!(HIMEM+4)
   50     !path=FNCurrentPath
   51     PROCDraw_PathHeader
   52     IF FNDash<>0 THEN PROCDash@(path,FNDash)
   53   ENDIF
   54 ENDPROC
   55
   56DEF PROCDraw_PathHeader
   57 PROCDraw_AddWord(0)
   58 PROCDraw_AddWord(44)            : REM Number of bytes in object
   59 PROCDraw_AddWord(-1<<30)        : REM bounding box - xmin
   60 PROCDraw_AddWord(-1<<30)        : REM bounding box - ymin
   61 PROCDraw_AddWord(1<<30)         : REM bounding box - xmax
   62 PROCDraw_AddWord(1<<30)         : REM bounding box - ymax
   63 PROCDraw_AddWord(FNFillColour)  : REM Fill colour.    Default=don't fill
   64 PROCDraw_AddWord(FNLineColour)  : REM Outline colour. Default=black
   65 PROCDraw_AddWord(FNLineWidth)   : REM Line width.     Default=thinnest
   66 PROCDraw_AddWord(FNStyle)       : REM Line style.     Default=mitre+butt
   67ENDPROC
   68
   69DEF PROCPathEnd
   70 REM -----------------------------
   71 REM
   72 REM Closes Draw_Path% Object
   73 REM
   74 REM 1 word
   75 REM -----------------------------
   76 IF FNCurrentPath=0 ERROR 0,"A path must begin with 'PathBegin()'"
   77 IF FNCurrentSubpath=0 OR !FNCurrentPath=0 THEN
   78   !HIMEM=FNCurrentPath
   79   PROCCurrentPath(0)                         : PROCCurrentSubpath(0)
   80   ELSE
   81    PROCDraw_AddWord(0)                        : REM Close path
   82    !(FNCurrentPath+4)=(!HIMEM)-FNCurrentPath  : REM Store path length in header
   83    !(FNCurrentPath)=2                         : REM Draw object is a Path
   84    PROCDraw_RenderPath(FNCurrentPath,FNDrawTrans)
   85    PROCCurrentPath(0)                         : PROCCurrentSubpath(0)
   86   ENDIF
   87 ENDPROC
   88
   89REM ============
   90REM 2.2 SubPaths
   91REM ============
   92
   93DEF FNDrawTrans=HIMEM+96
   94
   95DEF PROCMove(x,y)
   96 REM ----------------------------------
   97 REM Move to x,y starting new subpath
   98 REM This DOES affect winding numbers
   99 REM so Draw_Path% is filled normally
  100 REM
  101 REM 3 words ( x 4 bytes)
  102 REM ----------------------------------
  103 IF FNCurrentPath=0 THEN ERROR EXT 1,"Can't Move if No PathBegun"
  104 PROCDraw_AddWord(2)
  105 PROCCurrentSubpath(!HIMEM)
  106 PROCDraw_AddCoords(x,y)
  107 MOVE (!(HIMEM+112)+FNDraw_X(x))>>8,(!(HIMEM+116)+FNDraw_Y(y))>>8
  108 ENDPROC
  109
  110DEF PROCMOVE(x%,y%)
  111 REM ----------------------------------
  112 REM Move to x,y starting new subpath
  113 REM This DOES affect winding numbers
  114 REM so Draw_Path% is filled normally
  115 REM
  116 REM 3 words ( x 4 bytes)
  117 REM ----------------------------------
  118 IF FNCurrentPath=0 THEN ERROR EXT 1,"Can't Move if No PathBegun"
  119 PROCDraw_AddWord(2)
  120 PROCCurrentSubpath(!HIMEM)
  121 PROCDraw_AddWord(x%): : PROCDraw_AddWord(y%)
  122 MOVE (!(HIMEM+112)+x%)>>8,(!(HIMEM+116)+y%)>>8
  123 ENDPROC
  124
  125DEF PROCDraw(x,y)
  126 REM --------------------
  127 REM Line to (x,y)
  128 REM
  129 REM 3 words ( x 4 bytes)
  130 REM --------------------
  131 LOCAL _path% : _path%=!(HIMEM+4)
  132 IF FNCurrentPath=0    ERROR EXT 1,"Paths must begin with 'PathBegin()"
  133 IF FNCurrentSubpath=0 ERROR EXT 0,"Subpaths must begin with a Move before Draw"
  134 PROCDraw_AddWord(8)
  135 PROCDraw_AddCoords(x,y)
  136 DRAW (!(HIMEM+112)+FNDraw_X(x))>>8,(!(HIMEM+116)+FNDraw_Y(y))>>8
  137 !(FNCurrentPath)=TRUE
  138ENDPROC
  139
  140DEF PROCDRAW(x%,y%)
  141 REM --------------------
  142 REM Line to (x,y)
  143 REM
  144 REM 3 words ( x 4 bytes)
  145 REM --------------------
  146 LOCAL _path% : _path%=!(HIMEM+4)
  147 IF FNCurrentPath=0    ERROR EXT 1,"Paths must begin with 'PathBegin()"
  148 IF FNCurrentSubpath=0 ERROR EXT 0,"Subpaths must begin with a Move before Draw"
  149 PROCDraw_AddWord(8)
  150 PROCDraw_AddWord(x%) : PROCDraw_AddWord(y%)
  151 DRAW (!(HIMEM+112)+x%)>>8,(!(HIMEM+116)+y%)>>8
  152 !(FNCurrentPath)=TRUE
  153ENDPROC
  154
  155
  156DEF PROCBezier(a,b,c,d,x,y)
  157 REM ---------------------------------------------------
  158 REM Bezier curve passing through current point and (x,y)
  159 REM with control points (a,b) and (c,d)
  160 REM
  161 REM 7 words ( x 4 bytes)
  162 REM ---------------------------------------------------
  163 LOCAL _path%,_store% : _path%=!(HIMEM+4)
  164 IF FNCurrentPath=0    ERROR EXT 1,"Can't Draw Bezier if No PathBegun"
  165 IF FNCurrentSubpath=0 ERROR EXT 0,"Subpath must start with Move before Bezier"
  166 _path%=!HIMEM : _path%-=12 : _store%=!_path% : !_path%=2
  167   PROCDraw_AddWord(6)
  168   PROCDraw_AddCoords(a,b)
  169   PROCDraw_AddCoords(c,d)
  170   PROCDraw_AddCoords(x,y)
  171   PROCDraw_AddWord(0)
  172   !HIMEM-=4
  173   SYS "Draw_Stroke",_path%,,FNDrawTrans
  174   !_path%=_store%
  175   !(FNCurrentPath)=TRUE
  176   MOVE (!(HIMEM+112)+FNDraw_X(x))>>8,(!(HIMEM+116)+FNDraw_Y(y))>>8
  177 ENDPROC
  178
  179DEF PROCCloseWithLine
  180 REM ---------------------------------
  181 REM Close current subpath with a line
  182 REM
  183 REM 1 word
  184 REM ---------------------------------
  185 IF  FNCurrentPath=0 ERROR EXT 1,"Can't closewithline if No PathBegun"
  186 IF  FNCurrentSubpath=0 ERROR EXT 0,"Can't closewithline without a Move"
  187 LOCAL _x%,_y%
  188 _x%=!FNCurrentSubpath: _y%=!(FNCurrentSubpath+4)
  189 DRAW (!(HIMEM+112)+_x%)>>8,(!(HIMEM+116)+_y%)>>8
  190 PROCDraw_AddWord(5)
  191 ENDPROC
  192
  193REM =====================
  194REM 2.3 Polar Coordinates
  195REM =====================
  196
  197DEF PROCDrawPolar(r,theta)
  198 REM ----------------------------------
  199 REM Move to x,y starting new subDraw_Path%
  200 REM This DOES affect winding numbers
  201 REM so Draw_Path% is filled normally
  202 REM
  203 REM 3 words ( x 4 bytes)
  204 REM ----------------------------------
  205 PROCDraw(r*COStheta,r*SINtheta)
  206 ENDPROC
  207
  208DEF PROCMovePolar(r,theta)
  209 REM ----------------------------------
  210 REM Move to x,y starting new subDraw_Path%
  211 REM This DOES affect winding numbers
  212 REM so Draw_Path% is filled normally
  213 REM
  214 REM 3 words ( x 4 bytes)
  215 REM ----------------------------------
  216 PROCMove(r*COStheta,r*SINtheta)
  217 ENDPROC
  218
  219DEF FNModulus(x,y)=SQR(x*x+y*y)
  220
  221DEF FNArgument(y,x)
  222LOCAL _argument
  223CASE TRUE OF
  224 WHEN x=0 : _argument=(PI/2)*SGNy
  225 WHEN x>0 : _argument=ATN(y/x)
  226 WHEN x<0 : _argument=PI+ATN(y/x)
  227ENDCASE
  228=_argument
  229
  230

 � >DrawBasic:Resources.Paths

=� =======================================================
�
$� copyright Joe Taylor June 1994
�
;� N.B. For ERROR THROWBACK to work The first line above
7�      MUST have the correct pathname of this file.
	;�      If you move the location of the file remember to

�      alter this pathname.
�
=� =======================================================


G� *****************************************************************
�
� 2. Paths
�
G� *****************************************************************

� ==================
� 2.1 Creating Paths
� ==================

� �CurrentPath=!(�+64)

� �CurrentPath(path%)
!(�+64)=path%
�

� �CurrentSubpath=!(�+68)

 � �CurrentSubpath(path%)
!!(�+68)=path%
"�
#
$� �PathBegin(� path)
%$ � -----------------------------
& �
' � Creates path header
( � requires 40 bytes
) �
*$ � -----------------------------
+I � �CurrentPath<>0 � � 0,"Can't begin path until previous path ended"
, �CurrentPath(!�)
-   � �CurrentPath>=!(�+4) �
.6    � 0,"Out of memory. Increase the 'Free' slot."
/   �
0     !(�+4)-=4
1     path=!(�+4)
2     !path=�CurrentPath
3     �Draw_PathHeader
4(     � �Dash<>0 � �Dash@(path,�Dash)
5   �
6 �
7
8� �Draw_PathHeader
9 �Draw_AddWord(0)
:? �Draw_AddWord(44)            : � Number of bytes in object
;9 �Draw_AddWord(-1<<30)        : � bounding box - xmin
<9 �Draw_AddWord(-1<<30)        : � bounding box - ymin
=9 �Draw_AddWord(1<<30)         : � bounding box - xmax
>9 �Draw_AddWord(1<<30)         : � bounding box - ymax
?G �Draw_AddWord(�FillColour)  : � Fill colour.    Default=don't fill
@B �Draw_AddWord(�LineColour)  : � Outline colour. Default=black
AE �Draw_AddWord(�LineWidth)   : � Line width.     Default=thinnest
BG �Draw_AddWord(�Style)       : � Line style.     Default=mitre+butt
C�
D
E� �PathEnd
F$ � -----------------------------
G �
H � Closes Draw_Path% Object
I �
J
 � 1 word
K$ � -----------------------------
L@ � �CurrentPath=0 � 0,"A path must begin with 'PathBegin()'"
M, � �CurrentSubpath=0 � !�CurrentPath=0 �
N   !�=�CurrentPath
OC   �CurrentPath(0)                         : �CurrentSubpath(0)
P   �
Q>    �Draw_AddWord(0)                        : � Close path
RL    !(�CurrentPath+4)=(!�)-�CurrentPath  : � Store path length in header
SK    !(�CurrentPath)=2                         : � Draw object is a Path
T1    �Draw_RenderPath(�CurrentPath,�DrawTrans)
UD    �CurrentPath(0)                         : �CurrentSubpath(0)
V   �
W �
X
Y� ============
Z� 2.2 SubPaths
[� ============
\
]� �DrawTrans=�+96
^
_� �Move(x,y)
`) � ----------------------------------
a' � Move to x,y starting new subpath
b' � This DOES affect winding numbers
c' � so Draw_Path% is filled normally
d �
e � 3 words ( x 4 bytes)
f) � ----------------------------------
g: � �CurrentPath=0 � � � 1,"Can't Move if No PathBegun"
h �Draw_AddWord(2)
i �CurrentSubpath(!�)
j �Draw_AddCoords(x,y)
k8 � (!(�+112)+�Draw_X(x))>>8,(!(�+116)+�Draw_Y(y))>>8
l �
m
n� �MOVE(x%,y%)
o) � ----------------------------------
p' � Move to x,y starting new subpath
q' � This DOES affect winding numbers
r' � so Draw_Path% is filled normally
s �
t � 3 words ( x 4 bytes)
u) � ----------------------------------
v: � �CurrentPath=0 � � � 1,"Can't Move if No PathBegun"
w �Draw_AddWord(2)
x �CurrentSubpath(!�)
y+ �Draw_AddWord(x%): : �Draw_AddWord(y%)
z( � (!(�+112)+x%)>>8,(!(�+116)+y%)>>8
{ �
|
}� �Draw(x,y)
~ � --------------------
 � Line to (x,y)
� �
� � 3 words ( x 4 bytes)
� � --------------------
� � _path% : _path%=!(�+4)
�C � �CurrentPath=0    � � 1,"Paths must begin with 'PathBegin()"
�L � �CurrentSubpath=0 � � 0,"Subpaths must begin with a Move before Draw"
� �Draw_AddWord(8)
� �Draw_AddCoords(x,y)
�8 � (!(�+112)+�Draw_X(x))>>8,(!(�+116)+�Draw_Y(y))>>8
� !(�CurrentPath)=�
��
�
�� �DRAW(x%,y%)
� � --------------------
� � Line to (x,y)
� �
� � 3 words ( x 4 bytes)
� � --------------------
� � _path% : _path%=!(�+4)
�C � �CurrentPath=0    � � 1,"Paths must begin with 'PathBegin()"
�L � �CurrentSubpath=0 � � 0,"Subpaths must begin with a Move before Draw"
� �Draw_AddWord(8)
�* �Draw_AddWord(x%) : �Draw_AddWord(y%)
�( � (!(�+112)+x%)>>8,(!(�+116)+y%)>>8
� !(�CurrentPath)=�
��
�
�
�� �Bezier(a,b,c,d,x,y)
�: � ---------------------------------------------------
�; � Bezier curve passing through current point and (x,y)
�* � with control points (a,b) and (c,d)
� �
� � 7 words ( x 4 bytes)
�: � ---------------------------------------------------
�% � _path%,_store% : _path%=!(�+4)
�B � �CurrentPath=0    � � 1,"Can't Draw Bezier if No PathBegun"
�K � �CurrentSubpath=0 � � 0,"Subpath must start with Move before Bezier"
�9 _path%=!� : _path%-=12 : _store%=!_path% : !_path%=2
�   �Draw_AddWord(6)
�   �Draw_AddCoords(a,b)
�   �Draw_AddCoords(c,d)
�   �Draw_AddCoords(x,y)
�   �Draw_AddWord(0)
�   !�-=4
�*   ș "Draw_Stroke",_path%,,�DrawTrans
�   !_path%=_store%
�   !(�CurrentPath)=�
�:   � (!(�+112)+�Draw_X(x))>>8,(!(�+116)+�Draw_Y(y))>>8
� �
�
�� �CloseWithLine
�( � ---------------------------------
�( � Close current subpath with a line
� �
�
 � 1 word
�( � ---------------------------------
�B �  �CurrentPath=0 � � 1,"Can't closewithline if No PathBegun"
�D �  �CurrentSubpath=0 � � 0,"Can't closewithline without a Move"
� � _x%,_y%
�3 _x%=!�CurrentSubpath: _y%=!(�CurrentSubpath+4)
�* � (!(�+112)+_x%)>>8,(!(�+116)+_y%)>>8
� �Draw_AddWord(5)
� �
�
�� =====================
�� 2.3 Polar Coordinates
�� =====================
�
�� �DrawPolar(r,theta)
�) � ----------------------------------
�- � Move to x,y starting new subDraw_Path%
�' � This DOES affect winding numbers
�' � so Draw_Path% is filled normally
� �
� � 3 words ( x 4 bytes)
�) � ----------------------------------
� �Draw(r*�theta,r*�theta)
� �
�
�� �MovePolar(r,theta)
�) � ----------------------------------
�- � Move to x,y starting new subDraw_Path%
�' � This DOES affect winding numbers
�' � so Draw_Path% is filled normally
� �
� � 3 words ( x 4 bytes)
�) � ----------------------------------
� �Move(r*�theta,r*�theta)
� �
�
�� �Modulus(x,y)=�(x*x+y*y)
�
�� �Argument(y,x)
�� _argument
�
Ȏ � �
� � x=0 : _argument=(�/2)*�y
� � x>0 : _argument=�(y/x)
� � x<0 : _argument=�+�(y/x)
��
�=_argument
�
�
�

00000000  0d 00 01 20 f4 20 3e 44  72 61 77 42 61 73 69 63  |... . >DrawBasic|
00000010  3a 52 65 73 6f 75 72 63  65 73 2e 50 61 74 68 73  |:Resources.Paths|
00000020  0d 00 02 04 0d 00 03 3d  f4 20 3d 3d 3d 3d 3d 3d  |.......=. ======|
00000030  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000060  3d 0d 00 04 05 f4 0d 00  05 24 f4 20 63 6f 70 79  |=........$. copy|
00000070  72 69 67 68 74 20 4a 6f  65 20 54 61 79 6c 6f 72  |right Joe Taylor|
00000080  20 4a 75 6e 65 20 31 39  39 34 0d 00 06 05 f4 0d  | June 1994......|
00000090  00 07 3b f4 20 4e 2e 42  2e 20 46 6f 72 20 45 52  |..;. N.B. For ER|
000000a0  52 4f 52 20 54 48 52 4f  57 42 41 43 4b 20 74 6f  |ROR THROWBACK to|
000000b0  20 77 6f 72 6b 20 54 68  65 20 66 69 72 73 74 20  | work The first |
000000c0  6c 69 6e 65 20 61 62 6f  76 65 0d 00 08 37 f4 20  |line above...7. |
000000d0  20 20 20 20 20 4d 55 53  54 20 68 61 76 65 20 74  |     MUST have t|
000000e0  68 65 20 63 6f 72 72 65  63 74 20 70 61 74 68 6e  |he correct pathn|
000000f0  61 6d 65 20 6f 66 20 74  68 69 73 20 66 69 6c 65  |ame of this file|
00000100  2e 0d 00 09 3b f4 20 20  20 20 20 20 49 66 20 79  |....;.      If y|
00000110  6f 75 20 6d 6f 76 65 20  74 68 65 20 6c 6f 63 61  |ou move the loca|
00000120  74 69 6f 6e 20 6f 66 20  74 68 65 20 66 69 6c 65  |tion of the file|
00000130  20 72 65 6d 65 6d 62 65  72 20 74 6f 0d 00 0a 1f  | remember to....|
00000140  f4 20 20 20 20 20 20 61  6c 74 65 72 20 74 68 69  |.      alter thi|
00000150  73 20 70 61 74 68 6e 61  6d 65 2e 0d 00 0b 05 f4  |s pathname......|
00000160  0d 00 0c 3d f4 20 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |...=. ==========|
00000170  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000190  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 0d 00 0d  |=============...|
000001a0  04 0d 00 0e 47 f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |....G. *********|
000001b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000001e0  2a 2a 2a 2a 2a 2a 2a 2a  0d 00 0f 05 f4 0d 00 10  |********........|
000001f0  0e f4 20 32 2e 20 50 61  74 68 73 0d 00 11 05 f4  |.. 2. Paths.....|
00000200  0d 00 12 47 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...G. **********|
00000210  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000240  2a 2a 2a 2a 2a 2a 2a 0d  00 13 04 0d 00 14 18 f4  |*******.........|
00000250  20 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  | ===============|
00000260  3d 3d 3d 0d 00 15 18 f4  20 32 2e 31 20 43 72 65  |===..... 2.1 Cre|
00000270  61 74 69 6e 67 20 50 61  74 68 73 0d 00 16 18 f4  |ating Paths.....|
00000280  20 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  | ===============|
00000290  3d 3d 3d 0d 00 17 04 0d  00 18 1a dd 20 a4 43 75  |===......... .Cu|
000002a0  72 72 65 6e 74 50 61 74  68 3d 21 28 93 2b 36 34  |rrentPath=!(.+64|
000002b0  29 0d 00 19 04 0d 00 1a  19 dd 20 f2 43 75 72 72  |)......... .Curr|
000002c0  65 6e 74 50 61 74 68 28  70 61 74 68 25 29 0d 00  |entPath(path%)..|
000002d0  1b 11 21 28 93 2b 36 34  29 3d 70 61 74 68 25 0d  |..!(.+64)=path%.|
000002e0  00 1c 05 e1 0d 00 1d 04  0d 00 1e 1d dd 20 a4 43  |............. .C|
000002f0  75 72 72 65 6e 74 53 75  62 70 61 74 68 3d 21 28  |urrentSubpath=!(|
00000300  93 2b 36 38 29 0d 00 1f  04 0d 00 20 1c dd 20 f2  |.+68)...... .. .|
00000310  43 75 72 72 65 6e 74 53  75 62 70 61 74 68 28 70  |CurrentSubpath(p|
00000320  61 74 68 25 29 0d 00 21  11 21 28 93 2b 36 38 29  |ath%)..!.!(.+68)|
00000330  3d 70 61 74 68 25 0d 00  22 05 e1 0d 00 23 04 0d  |=path%.."....#..|
00000340  00 24 18 dd 20 f2 50 61  74 68 42 65 67 69 6e 28  |.$.. .PathBegin(|
00000350  f8 20 70 61 74 68 29 0d  00 25 24 20 f4 20 2d 2d  |. path)..%$ . --|
00000360  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000370  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 00 26 06 20  |-----------..&. |
00000380  f4 0d 00 27 1a 20 f4 20  43 72 65 61 74 65 73 20  |...'. . Creates |
00000390  70 61 74 68 20 68 65 61  64 65 72 0d 00 28 18 20  |path header..(. |
000003a0  f4 20 72 65 71 75 69 72  65 73 20 34 30 20 62 79  |. requires 40 by|
000003b0  74 65 73 0d 00 29 06 20  f4 0d 00 2a 24 20 f4 20  |tes..). ...*$ . |
000003c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000003d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 00 2b  |-------------..+|
000003e0  49 20 e7 20 a4 43 75 72  72 65 6e 74 50 61 74 68  |I . .CurrentPath|
000003f0  3c 3e 30 20 8c 20 85 20  30 2c 22 43 61 6e 27 74  |<>0 . . 0,"Can't|
00000400  20 62 65 67 69 6e 20 70  61 74 68 20 75 6e 74 69  | begin path unti|
00000410  6c 20 70 72 65 76 69 6f  75 73 20 70 61 74 68 20  |l previous path |
00000420  65 6e 64 65 64 22 0d 00  2c 15 20 f2 43 75 72 72  |ended"..,. .Curr|
00000430  65 6e 74 50 61 74 68 28  21 93 29 0d 00 2d 1f 20  |entPath(!.)..-. |
00000440  20 20 e7 20 a4 43 75 72  72 65 6e 74 50 61 74 68  |  . .CurrentPath|
00000450  3e 3d 21 28 93 2b 34 29  20 8c 0d 00 2e 36 20 20  |>=!(.+4) ....6  |
00000460  20 20 85 20 30 2c 22 4f  75 74 20 6f 66 20 6d 65  |  . 0,"Out of me|
00000470  6d 6f 72 79 2e 20 49 6e  63 72 65 61 73 65 20 74  |mory. Increase t|
00000480  68 65 20 27 46 72 65 65  27 20 73 6c 6f 74 2e 22  |he 'Free' slot."|
00000490  0d 00 2f 08 20 20 20 cc  0d 00 30 12 20 20 20 20  |../.   ...0.    |
000004a0  20 21 28 93 2b 34 29 2d  3d 34 0d 00 31 14 20 20  | !(.+4)-=4..1.  |
000004b0  20 20 20 70 61 74 68 3d  21 28 93 2b 34 29 0d 00  |   path=!(.+4)..|
000004c0  32 1b 20 20 20 20 20 21  70 61 74 68 3d a4 43 75  |2.     !path=.Cu|
000004d0  72 72 65 6e 74 50 61 74  68 0d 00 33 19 20 20 20  |rrentPath..3.   |
000004e0  20 20 f2 44 72 61 77 5f  50 61 74 68 48 65 61 64  |  .Draw_PathHead|
000004f0  65 72 0d 00 34 28 20 20  20 20 20 e7 20 a4 44 61  |er..4(     . .Da|
00000500  73 68 3c 3e 30 20 8c 20  f2 44 61 73 68 40 28 70  |sh<>0 . .Dash@(p|
00000510  61 74 68 2c a4 44 61 73  68 29 0d 00 35 08 20 20  |ath,.Dash)..5.  |
00000520  20 cd 0d 00 36 06 20 e1  0d 00 37 04 0d 00 38 16  | ...6. ...7...8.|
00000530  dd 20 f2 44 72 61 77 5f  50 61 74 68 48 65 61 64  |. .Draw_PathHead|
00000540  65 72 0d 00 39 15 20 f2  44 72 61 77 5f 41 64 64  |er..9. .Draw_Add|
00000550  57 6f 72 64 28 30 29 0d  00 3a 3f 20 f2 44 72 61  |Word(0)..:? .Dra|
00000560  77 5f 41 64 64 57 6f 72  64 28 34 34 29 20 20 20  |w_AddWord(44)   |
00000570  20 20 20 20 20 20 20 20  20 3a 20 f4 20 4e 75 6d  |         : . Num|
00000580  62 65 72 20 6f 66 20 62  79 74 65 73 20 69 6e 20  |ber of bytes in |
00000590  6f 62 6a 65 63 74 0d 00  3b 39 20 f2 44 72 61 77  |object..;9 .Draw|
000005a0  5f 41 64 64 57 6f 72 64  28 2d 31 3c 3c 33 30 29  |_AddWord(-1<<30)|
000005b0  20 20 20 20 20 20 20 20  3a 20 f4 20 62 6f 75 6e  |        : . boun|
000005c0  64 69 6e 67 20 62 6f 78  20 2d 20 78 6d 69 6e 0d  |ding box - xmin.|
000005d0  00 3c 39 20 f2 44 72 61  77 5f 41 64 64 57 6f 72  |.<9 .Draw_AddWor|
000005e0  64 28 2d 31 3c 3c 33 30  29 20 20 20 20 20 20 20  |d(-1<<30)       |
000005f0  20 3a 20 f4 20 62 6f 75  6e 64 69 6e 67 20 62 6f  | : . bounding bo|
00000600  78 20 2d 20 79 6d 69 6e  0d 00 3d 39 20 f2 44 72  |x - ymin..=9 .Dr|
00000610  61 77 5f 41 64 64 57 6f  72 64 28 31 3c 3c 33 30  |aw_AddWord(1<<30|
00000620  29 20 20 20 20 20 20 20  20 20 3a 20 f4 20 62 6f  |)         : . bo|
00000630  75 6e 64 69 6e 67 20 62  6f 78 20 2d 20 78 6d 61  |unding box - xma|
00000640  78 0d 00 3e 39 20 f2 44  72 61 77 5f 41 64 64 57  |x..>9 .Draw_AddW|
00000650  6f 72 64 28 31 3c 3c 33  30 29 20 20 20 20 20 20  |ord(1<<30)      |
00000660  20 20 20 3a 20 f4 20 62  6f 75 6e 64 69 6e 67 20  |   : . bounding |
00000670  62 6f 78 20 2d 20 79 6d  61 78 0d 00 3f 47 20 f2  |box - ymax..?G .|
00000680  44 72 61 77 5f 41 64 64  57 6f 72 64 28 a4 46 69  |Draw_AddWord(.Fi|
00000690  6c 6c 43 6f 6c 6f 75 72  29 20 20 3a 20 f4 20 46  |llColour)  : . F|
000006a0  69 6c 6c 20 63 6f 6c 6f  75 72 2e 20 20 20 20 44  |ill colour.    D|
000006b0  65 66 61 75 6c 74 3d 64  6f 6e 27 74 20 66 69 6c  |efault=don't fil|
000006c0  6c 0d 00 40 42 20 f2 44  72 61 77 5f 41 64 64 57  |l..@B .Draw_AddW|
000006d0  6f 72 64 28 a4 4c 69 6e  65 43 6f 6c 6f 75 72 29  |ord(.LineColour)|
000006e0  20 20 3a 20 f4 20 4f 75  74 6c 69 6e 65 20 63 6f  |  : . Outline co|
000006f0  6c 6f 75 72 2e 20 44 65  66 61 75 6c 74 3d 62 6c  |lour. Default=bl|
00000700  61 63 6b 0d 00 41 45 20  f2 44 72 61 77 5f 41 64  |ack..AE .Draw_Ad|
00000710  64 57 6f 72 64 28 a4 4c  69 6e 65 57 69 64 74 68  |dWord(.LineWidth|
00000720  29 20 20 20 3a 20 f4 20  4c 69 6e 65 20 77 69 64  |)   : . Line wid|
00000730  74 68 2e 20 20 20 20 20  44 65 66 61 75 6c 74 3d  |th.     Default=|
00000740  74 68 69 6e 6e 65 73 74  0d 00 42 47 20 f2 44 72  |thinnest..BG .Dr|
00000750  61 77 5f 41 64 64 57 6f  72 64 28 a4 53 74 79 6c  |aw_AddWord(.Styl|
00000760  65 29 20 20 20 20 20 20  20 3a 20 f4 20 4c 69 6e  |e)       : . Lin|
00000770  65 20 73 74 79 6c 65 2e  20 20 20 20 20 44 65 66  |e style.     Def|
00000780  61 75 6c 74 3d 6d 69 74  72 65 2b 62 75 74 74 0d  |ault=mitre+butt.|
00000790  00 43 05 e1 0d 00 44 04  0d 00 45 0e dd 20 f2 50  |.C....D...E.. .P|
000007a0  61 74 68 45 6e 64 0d 00  46 24 20 f4 20 2d 2d 2d  |athEnd..F$ . ---|
000007b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000007c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 00 47 06 20 f4  |----------..G. .|
000007d0  0d 00 48 1f 20 f4 20 43  6c 6f 73 65 73 20 44 72  |..H. . Closes Dr|
000007e0  61 77 5f 50 61 74 68 25  20 4f 62 6a 65 63 74 0d  |aw_Path% Object.|
000007f0  00 49 06 20 f4 0d 00 4a  0d 20 f4 20 31 20 77 6f  |.I. ...J. . 1 wo|
00000800  72 64 0d 00 4b 24 20 f4  20 2d 2d 2d 2d 2d 2d 2d  |rd..K$ . -------|
00000810  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000820  2d 2d 2d 2d 2d 2d 0d 00  4c 40 20 e7 20 a4 43 75  |------..L@ . .Cu|
00000830  72 72 65 6e 74 50 61 74  68 3d 30 20 85 20 30 2c  |rrentPath=0 . 0,|
00000840  22 41 20 70 61 74 68 20  6d 75 73 74 20 62 65 67  |"A path must beg|
00000850  69 6e 20 77 69 74 68 20  27 50 61 74 68 42 65 67  |in with 'PathBeg|
00000860  69 6e 28 29 27 22 0d 00  4d 2c 20 e7 20 a4 43 75  |in()'"..M, . .Cu|
00000870  72 72 65 6e 74 53 75 62  70 61 74 68 3d 30 20 84  |rrentSubpath=0 .|
00000880  20 21 a4 43 75 72 72 65  6e 74 50 61 74 68 3d 30  | !.CurrentPath=0|
00000890  20 8c 0d 00 4e 16 20 20  20 21 93 3d a4 43 75 72  | ...N.   !.=.Cur|
000008a0  72 65 6e 74 50 61 74 68  0d 00 4f 43 20 20 20 f2  |rentPath..OC   .|
000008b0  43 75 72 72 65 6e 74 50  61 74 68 28 30 29 20 20  |CurrentPath(0)  |
000008c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000008d0  20 20 20 20 20 20 20 3a  20 f2 43 75 72 72 65 6e  |       : .Curren|
000008e0  74 53 75 62 70 61 74 68  28 30 29 0d 00 50 08 20  |tSubpath(0)..P. |
000008f0  20 20 cc 0d 00 51 3e 20  20 20 20 f2 44 72 61 77  |  ...Q>    .Draw|
00000900  5f 41 64 64 57 6f 72 64  28 30 29 20 20 20 20 20  |_AddWord(0)     |
00000910  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000920  20 20 20 3a 20 f4 20 43  6c 6f 73 65 20 70 61 74  |   : . Close pat|
00000930  68 0d 00 52 4c 20 20 20  20 21 28 a4 43 75 72 72  |h..RL    !(.Curr|
00000940  65 6e 74 50 61 74 68 2b  34 29 3d 28 21 93 29 2d  |entPath+4)=(!.)-|
00000950  a4 43 75 72 72 65 6e 74  50 61 74 68 20 20 3a 20  |.CurrentPath  : |
00000960  f4 20 53 74 6f 72 65 20  70 61 74 68 20 6c 65 6e  |. Store path len|
00000970  67 74 68 20 69 6e 20 68  65 61 64 65 72 0d 00 53  |gth in header..S|
00000980  4b 20 20 20 20 21 28 a4  43 75 72 72 65 6e 74 50  |K    !(.CurrentP|
00000990  61 74 68 29 3d 32 20 20  20 20 20 20 20 20 20 20  |ath)=2          |
000009a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
000009b0  20 f4 20 44 72 61 77 20  6f 62 6a 65 63 74 20 69  | . Draw object i|
000009c0  73 20 61 20 50 61 74 68  0d 00 54 31 20 20 20 20  |s a Path..T1    |
000009d0  f2 44 72 61 77 5f 52 65  6e 64 65 72 50 61 74 68  |.Draw_RenderPath|
000009e0  28 a4 43 75 72 72 65 6e  74 50 61 74 68 2c a4 44  |(.CurrentPath,.D|
000009f0  72 61 77 54 72 61 6e 73  29 0d 00 55 44 20 20 20  |rawTrans)..UD   |
00000a00  20 f2 43 75 72 72 65 6e  74 50 61 74 68 28 30 29  | .CurrentPath(0)|
00000a10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000a20  20 20 20 20 20 20 20 20  20 3a 20 f2 43 75 72 72  |         : .Curr|
00000a30  65 6e 74 53 75 62 70 61  74 68 28 30 29 0d 00 56  |entSubpath(0)..V|
00000a40  08 20 20 20 cd 0d 00 57  06 20 e1 0d 00 58 04 0d  |.   ...W. ...X..|
00000a50  00 59 12 f4 20 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |.Y.. ===========|
00000a60  3d 0d 00 5a 12 f4 20 32  2e 32 20 53 75 62 50 61  |=..Z.. 2.2 SubPa|
00000a70  74 68 73 0d 00 5b 12 f4  20 3d 3d 3d 3d 3d 3d 3d  |ths..[.. =======|
00000a80  3d 3d 3d 3d 3d 0d 00 5c  04 0d 00 5d 15 dd 20 a4  |=====..\...].. .|
00000a90  44 72 61 77 54 72 61 6e  73 3d 93 2b 39 36 0d 00  |DrawTrans=.+96..|
00000aa0  5e 04 0d 00 5f 10 dd 20  f2 4d 6f 76 65 28 78 2c  |^..._.. .Move(x,|
00000ab0  79 29 0d 00 60 29 20 f4  20 2d 2d 2d 2d 2d 2d 2d  |y)..`) . -------|
00000ac0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000ad0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 00 61 27 20  |-----------..a' |
00000ae0  f4 20 4d 6f 76 65 20 74  6f 20 78 2c 79 20 73 74  |. Move to x,y st|
00000af0  61 72 74 69 6e 67 20 6e  65 77 20 73 75 62 70 61  |arting new subpa|
00000b00  74 68 0d 00 62 27 20 f4  20 54 68 69 73 20 44 4f  |th..b' . This DO|
00000b10  45 53 20 61 66 66 65 63  74 20 77 69 6e 64 69 6e  |ES affect windin|
00000b20  67 20 6e 75 6d 62 65 72  73 0d 00 63 27 20 f4 20  |g numbers..c' . |
00000b30  73 6f 20 44 72 61 77 5f  50 61 74 68 25 20 69 73  |so Draw_Path% is|
00000b40  20 66 69 6c 6c 65 64 20  6e 6f 72 6d 61 6c 6c 79  | filled normally|
00000b50  0d 00 64 06 20 f4 0d 00  65 1b 20 f4 20 33 20 77  |..d. ...e. . 3 w|
00000b60  6f 72 64 73 20 28 20 78  20 34 20 62 79 74 65 73  |ords ( x 4 bytes|
00000b70  29 0d 00 66 29 20 f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |)..f) . --------|
00000b80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000b90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 00 67 3a 20 e7  |----------..g: .|
00000ba0  20 a4 43 75 72 72 65 6e  74 50 61 74 68 3d 30 20  | .CurrentPath=0 |
00000bb0  8c 20 85 20 a2 20 31 2c  22 43 61 6e 27 74 20 4d  |. . . 1,"Can't M|
00000bc0  6f 76 65 20 69 66 20 4e  6f 20 50 61 74 68 42 65  |ove if No PathBe|
00000bd0  67 75 6e 22 0d 00 68 15  20 f2 44 72 61 77 5f 41  |gun"..h. .Draw_A|
00000be0  64 64 57 6f 72 64 28 32  29 0d 00 69 18 20 f2 43  |ddWord(2)..i. .C|
00000bf0  75 72 72 65 6e 74 53 75  62 70 61 74 68 28 21 93  |urrentSubpath(!.|
00000c00  29 0d 00 6a 19 20 f2 44  72 61 77 5f 41 64 64 43  |)..j. .Draw_AddC|
00000c10  6f 6f 72 64 73 28 78 2c  79 29 0d 00 6b 38 20 ec  |oords(x,y)..k8 .|
00000c20  20 28 21 28 93 2b 31 31  32 29 2b a4 44 72 61 77  | (!(.+112)+.Draw|
00000c30  5f 58 28 78 29 29 3e 3e  38 2c 28 21 28 93 2b 31  |_X(x))>>8,(!(.+1|
00000c40  31 36 29 2b a4 44 72 61  77 5f 59 28 79 29 29 3e  |16)+.Draw_Y(y))>|
00000c50  3e 38 0d 00 6c 06 20 e1  0d 00 6d 04 0d 00 6e 12  |>8..l. ...m...n.|
00000c60  dd 20 f2 4d 4f 56 45 28  78 25 2c 79 25 29 0d 00  |. .MOVE(x%,y%)..|
00000c70  6f 29 20 f4 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |o) . -----------|
00000c80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000c90  2d 2d 2d 2d 2d 2d 2d 0d  00 70 27 20 f4 20 4d 6f  |-------..p' . Mo|
00000ca0  76 65 20 74 6f 20 78 2c  79 20 73 74 61 72 74 69  |ve to x,y starti|
00000cb0  6e 67 20 6e 65 77 20 73  75 62 70 61 74 68 0d 00  |ng new subpath..|
00000cc0  71 27 20 f4 20 54 68 69  73 20 44 4f 45 53 20 61  |q' . This DOES a|
00000cd0  66 66 65 63 74 20 77 69  6e 64 69 6e 67 20 6e 75  |ffect winding nu|
00000ce0  6d 62 65 72 73 0d 00 72  27 20 f4 20 73 6f 20 44  |mbers..r' . so D|
00000cf0  72 61 77 5f 50 61 74 68  25 20 69 73 20 66 69 6c  |raw_Path% is fil|
00000d00  6c 65 64 20 6e 6f 72 6d  61 6c 6c 79 0d 00 73 06  |led normally..s.|
00000d10  20 f4 0d 00 74 1b 20 f4  20 33 20 77 6f 72 64 73  | ...t. . 3 words|
00000d20  20 28 20 78 20 34 20 62  79 74 65 73 29 0d 00 75  | ( x 4 bytes)..u|
00000d30  29 20 f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |) . ------------|
00000d40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000d50  2d 2d 2d 2d 2d 2d 0d 00  76 3a 20 e7 20 a4 43 75  |------..v: . .Cu|
00000d60  72 72 65 6e 74 50 61 74  68 3d 30 20 8c 20 85 20  |rrentPath=0 . . |
00000d70  a2 20 31 2c 22 43 61 6e  27 74 20 4d 6f 76 65 20  |. 1,"Can't Move |
00000d80  69 66 20 4e 6f 20 50 61  74 68 42 65 67 75 6e 22  |if No PathBegun"|
00000d90  0d 00 77 15 20 f2 44 72  61 77 5f 41 64 64 57 6f  |..w. .Draw_AddWo|
00000da0  72 64 28 32 29 0d 00 78  18 20 f2 43 75 72 72 65  |rd(2)..x. .Curre|
00000db0  6e 74 53 75 62 70 61 74  68 28 21 93 29 0d 00 79  |ntSubpath(!.)..y|
00000dc0  2b 20 f2 44 72 61 77 5f  41 64 64 57 6f 72 64 28  |+ .Draw_AddWord(|
00000dd0  78 25 29 3a 20 3a 20 f2  44 72 61 77 5f 41 64 64  |x%): : .Draw_Add|
00000de0  57 6f 72 64 28 79 25 29  0d 00 7a 28 20 ec 20 28  |Word(y%)..z( . (|
00000df0  21 28 93 2b 31 31 32 29  2b 78 25 29 3e 3e 38 2c  |!(.+112)+x%)>>8,|
00000e00  28 21 28 93 2b 31 31 36  29 2b 79 25 29 3e 3e 38  |(!(.+116)+y%)>>8|
00000e10  0d 00 7b 06 20 e1 0d 00  7c 04 0d 00 7d 10 dd 20  |..{. ...|...}.. |
00000e20  f2 44 72 61 77 28 78 2c  79 29 0d 00 7e 1b 20 f4  |.Draw(x,y)..~. .|
00000e30  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00000e40  2d 2d 2d 2d 2d 0d 00 7f  14 20 f4 20 4c 69 6e 65  |-----.... . Line|
00000e50  20 74 6f 20 28 78 2c 79  29 0d 00 80 06 20 f4 0d  | to (x,y).... ..|
00000e60  00 81 1b 20 f4 20 33 20  77 6f 72 64 73 20 28 20  |... . 3 words ( |
00000e70  78 20 34 20 62 79 74 65  73 29 0d 00 82 1b 20 f4  |x 4 bytes).... .|
00000e80  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00000e90  2d 2d 2d 2d 2d 0d 00 83  1d 20 ea 20 5f 70 61 74  |-----.... . _pat|
00000ea0  68 25 20 3a 20 5f 70 61  74 68 25 3d 21 28 93 2b  |h% : _path%=!(.+|
00000eb0  34 29 0d 00 84 43 20 e7  20 a4 43 75 72 72 65 6e  |4)...C . .Curren|
00000ec0  74 50 61 74 68 3d 30 20  20 20 20 85 20 a2 20 31  |tPath=0    . . 1|
00000ed0  2c 22 50 61 74 68 73 20  6d 75 73 74 20 62 65 67  |,"Paths must beg|
00000ee0  69 6e 20 77 69 74 68 20  27 50 61 74 68 42 65 67  |in with 'PathBeg|
00000ef0  69 6e 28 29 22 0d 00 85  4c 20 e7 20 a4 43 75 72  |in()"...L . .Cur|
00000f00  72 65 6e 74 53 75 62 70  61 74 68 3d 30 20 85 20  |rentSubpath=0 . |
00000f10  a2 20 30 2c 22 53 75 62  70 61 74 68 73 20 6d 75  |. 0,"Subpaths mu|
00000f20  73 74 20 62 65 67 69 6e  20 77 69 74 68 20 61 20  |st begin with a |
00000f30  4d 6f 76 65 20 62 65 66  6f 72 65 20 44 72 61 77  |Move before Draw|
00000f40  22 0d 00 86 15 20 f2 44  72 61 77 5f 41 64 64 57  |".... .Draw_AddW|
00000f50  6f 72 64 28 38 29 0d 00  87 19 20 f2 44 72 61 77  |ord(8).... .Draw|
00000f60  5f 41 64 64 43 6f 6f 72  64 73 28 78 2c 79 29 0d  |_AddCoords(x,y).|
00000f70  00 88 38 20 df 20 28 21  28 93 2b 31 31 32 29 2b  |..8 . (!(.+112)+|
00000f80  a4 44 72 61 77 5f 58 28  78 29 29 3e 3e 38 2c 28  |.Draw_X(x))>>8,(|
00000f90  21 28 93 2b 31 31 36 29  2b a4 44 72 61 77 5f 59  |!(.+116)+.Draw_Y|
00000fa0  28 79 29 29 3e 3e 38 0d  00 89 16 20 21 28 a4 43  |(y))>>8.... !(.C|
00000fb0  75 72 72 65 6e 74 50 61  74 68 29 3d b9 0d 00 8a  |urrentPath)=....|
00000fc0  05 e1 0d 00 8b 04 0d 00  8c 12 dd 20 f2 44 52 41  |........... .DRA|
00000fd0  57 28 78 25 2c 79 25 29  0d 00 8d 1b 20 f4 20 2d  |W(x%,y%).... . -|
00000fe0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000ff0  2d 2d 2d 0d 00 8e 14 20  f4 20 4c 69 6e 65 20 74  |---.... . Line t|
00001000  6f 20 28 78 2c 79 29 0d  00 8f 06 20 f4 0d 00 90  |o (x,y).... ....|
00001010  1b 20 f4 20 33 20 77 6f  72 64 73 20 28 20 78 20  |. . 3 words ( x |
00001020  34 20 62 79 74 65 73 29  0d 00 91 1b 20 f4 20 2d  |4 bytes).... . -|
00001030  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001040  2d 2d 2d 0d 00 92 1d 20  ea 20 5f 70 61 74 68 25  |---.... . _path%|
00001050  20 3a 20 5f 70 61 74 68  25 3d 21 28 93 2b 34 29  | : _path%=!(.+4)|
00001060  0d 00 93 43 20 e7 20 a4  43 75 72 72 65 6e 74 50  |...C . .CurrentP|
00001070  61 74 68 3d 30 20 20 20  20 85 20 a2 20 31 2c 22  |ath=0    . . 1,"|
00001080  50 61 74 68 73 20 6d 75  73 74 20 62 65 67 69 6e  |Paths must begin|
00001090  20 77 69 74 68 20 27 50  61 74 68 42 65 67 69 6e  | with 'PathBegin|
000010a0  28 29 22 0d 00 94 4c 20  e7 20 a4 43 75 72 72 65  |()"...L . .Curre|
000010b0  6e 74 53 75 62 70 61 74  68 3d 30 20 85 20 a2 20  |ntSubpath=0 . . |
000010c0  30 2c 22 53 75 62 70 61  74 68 73 20 6d 75 73 74  |0,"Subpaths must|
000010d0  20 62 65 67 69 6e 20 77  69 74 68 20 61 20 4d 6f  | begin with a Mo|
000010e0  76 65 20 62 65 66 6f 72  65 20 44 72 61 77 22 0d  |ve before Draw".|
000010f0  00 95 15 20 f2 44 72 61  77 5f 41 64 64 57 6f 72  |... .Draw_AddWor|
00001100  64 28 38 29 0d 00 96 2a  20 f2 44 72 61 77 5f 41  |d(8)...* .Draw_A|
00001110  64 64 57 6f 72 64 28 78  25 29 20 3a 20 f2 44 72  |ddWord(x%) : .Dr|
00001120  61 77 5f 41 64 64 57 6f  72 64 28 79 25 29 0d 00  |aw_AddWord(y%)..|
00001130  97 28 20 df 20 28 21 28  93 2b 31 31 32 29 2b 78  |.( . (!(.+112)+x|
00001140  25 29 3e 3e 38 2c 28 21  28 93 2b 31 31 36 29 2b  |%)>>8,(!(.+116)+|
00001150  79 25 29 3e 3e 38 0d 00  98 16 20 21 28 a4 43 75  |y%)>>8.... !(.Cu|
00001160  72 72 65 6e 74 50 61 74  68 29 3d b9 0d 00 99 05  |rrentPath)=.....|
00001170  e1 0d 00 9a 04 0d 00 9b  04 0d 00 9c 1a dd 20 f2  |.............. .|
00001180  42 65 7a 69 65 72 28 61  2c 62 2c 63 2c 64 2c 78  |Bezier(a,b,c,d,x|
00001190  2c 79 29 0d 00 9d 3a 20  f4 20 2d 2d 2d 2d 2d 2d  |,y)...: . ------|
000011a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000011c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 00 9e  |-------------...|
000011d0  3b 20 f4 20 42 65 7a 69  65 72 20 63 75 72 76 65  |; . Bezier curve|
000011e0  20 70 61 73 73 69 6e 67  20 74 68 72 6f 75 67 68  | passing through|
000011f0  20 63 75 72 72 65 6e 74  20 70 6f 69 6e 74 20 61  | current point a|
00001200  6e 64 20 28 78 2c 79 29  0d 00 9f 2a 20 f4 20 77  |nd (x,y)...* . w|
00001210  69 74 68 20 63 6f 6e 74  72 6f 6c 20 70 6f 69 6e  |ith control poin|
00001220  74 73 20 28 61 2c 62 29  20 61 6e 64 20 28 63 2c  |ts (a,b) and (c,|
00001230  64 29 0d 00 a0 06 20 f4  0d 00 a1 1b 20 f4 20 37  |d).... ..... . 7|
00001240  20 77 6f 72 64 73 20 28  20 78 20 34 20 62 79 74  | words ( x 4 byt|
00001250  65 73 29 0d 00 a2 3a 20  f4 20 2d 2d 2d 2d 2d 2d  |es)...: . ------|
00001260  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001280  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 00 a3  |-------------...|
00001290  25 20 ea 20 5f 70 61 74  68 25 2c 5f 73 74 6f 72  |% . _path%,_stor|
000012a0  65 25 20 3a 20 5f 70 61  74 68 25 3d 21 28 93 2b  |e% : _path%=!(.+|
000012b0  34 29 0d 00 a4 42 20 e7  20 a4 43 75 72 72 65 6e  |4)...B . .Curren|
000012c0  74 50 61 74 68 3d 30 20  20 20 20 85 20 a2 20 31  |tPath=0    . . 1|
000012d0  2c 22 43 61 6e 27 74 20  44 72 61 77 20 42 65 7a  |,"Can't Draw Bez|
000012e0  69 65 72 20 69 66 20 4e  6f 20 50 61 74 68 42 65  |ier if No PathBe|
000012f0  67 75 6e 22 0d 00 a5 4b  20 e7 20 a4 43 75 72 72  |gun"...K . .Curr|
00001300  65 6e 74 53 75 62 70 61  74 68 3d 30 20 85 20 a2  |entSubpath=0 . .|
00001310  20 30 2c 22 53 75 62 70  61 74 68 20 6d 75 73 74  | 0,"Subpath must|
00001320  20 73 74 61 72 74 20 77  69 74 68 20 4d 6f 76 65  | start with Move|
00001330  20 62 65 66 6f 72 65 20  42 65 7a 69 65 72 22 0d  | before Bezier".|
00001340  00 a6 39 20 5f 70 61 74  68 25 3d 21 93 20 3a 20  |..9 _path%=!. : |
00001350  5f 70 61 74 68 25 2d 3d  31 32 20 3a 20 5f 73 74  |_path%-=12 : _st|
00001360  6f 72 65 25 3d 21 5f 70  61 74 68 25 20 3a 20 21  |ore%=!_path% : !|
00001370  5f 70 61 74 68 25 3d 32  0d 00 a7 17 20 20 20 f2  |_path%=2....   .|
00001380  44 72 61 77 5f 41 64 64  57 6f 72 64 28 36 29 0d  |Draw_AddWord(6).|
00001390  00 a8 1b 20 20 20 f2 44  72 61 77 5f 41 64 64 43  |...   .Draw_AddC|
000013a0  6f 6f 72 64 73 28 61 2c  62 29 0d 00 a9 1b 20 20  |oords(a,b)....  |
000013b0  20 f2 44 72 61 77 5f 41  64 64 43 6f 6f 72 64 73  | .Draw_AddCoords|
000013c0  28 63 2c 64 29 0d 00 aa  1b 20 20 20 f2 44 72 61  |(c,d)....   .Dra|
000013d0  77 5f 41 64 64 43 6f 6f  72 64 73 28 78 2c 79 29  |w_AddCoords(x,y)|
000013e0  0d 00 ab 17 20 20 20 f2  44 72 61 77 5f 41 64 64  |....   .Draw_Add|
000013f0  57 6f 72 64 28 30 29 0d  00 ac 0c 20 20 20 21 93  |Word(0)....   !.|
00001400  2d 3d 34 0d 00 ad 2a 20  20 20 c8 99 20 22 44 72  |-=4...*   .. "Dr|
00001410  61 77 5f 53 74 72 6f 6b  65 22 2c 5f 70 61 74 68  |aw_Stroke",_path|
00001420  25 2c 2c a4 44 72 61 77  54 72 61 6e 73 0d 00 ae  |%,,.DrawTrans...|
00001430  16 20 20 20 21 5f 70 61  74 68 25 3d 5f 73 74 6f  |.   !_path%=_sto|
00001440  72 65 25 0d 00 af 18 20  20 20 21 28 a4 43 75 72  |re%....   !(.Cur|
00001450  72 65 6e 74 50 61 74 68  29 3d b9 0d 00 b0 3a 20  |rentPath)=....: |
00001460  20 20 ec 20 28 21 28 93  2b 31 31 32 29 2b a4 44  |  . (!(.+112)+.D|
00001470  72 61 77 5f 58 28 78 29  29 3e 3e 38 2c 28 21 28  |raw_X(x))>>8,(!(|
00001480  93 2b 31 31 36 29 2b a4  44 72 61 77 5f 59 28 79  |.+116)+.Draw_Y(y|
00001490  29 29 3e 3e 38 0d 00 b1  06 20 e1 0d 00 b2 04 0d  |))>>8.... ......|
000014a0  00 b3 14 dd 20 f2 43 6c  6f 73 65 57 69 74 68 4c  |.... .CloseWithL|
000014b0  69 6e 65 0d 00 b4 28 20  f4 20 2d 2d 2d 2d 2d 2d  |ine...( . ------|
000014c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000014d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 00 b5 28 20  |-----------...( |
000014e0  f4 20 43 6c 6f 73 65 20  63 75 72 72 65 6e 74 20  |. Close current |
000014f0  73 75 62 70 61 74 68 20  77 69 74 68 20 61 20 6c  |subpath with a l|
00001500  69 6e 65 0d 00 b6 06 20  f4 0d 00 b7 0d 20 f4 20  |ine.... ..... . |
00001510  31 20 77 6f 72 64 0d 00  b8 28 20 f4 20 2d 2d 2d  |1 word...( . ---|
00001520  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001530  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 00  |--------------..|
00001540  b9 42 20 e7 20 20 a4 43  75 72 72 65 6e 74 50 61  |.B .  .CurrentPa|
00001550  74 68 3d 30 20 85 20 a2  20 31 2c 22 43 61 6e 27  |th=0 . . 1,"Can'|
00001560  74 20 63 6c 6f 73 65 77  69 74 68 6c 69 6e 65 20  |t closewithline |
00001570  69 66 20 4e 6f 20 50 61  74 68 42 65 67 75 6e 22  |if No PathBegun"|
00001580  0d 00 ba 44 20 e7 20 20  a4 43 75 72 72 65 6e 74  |...D .  .Current|
00001590  53 75 62 70 61 74 68 3d  30 20 85 20 a2 20 30 2c  |Subpath=0 . . 0,|
000015a0  22 43 61 6e 27 74 20 63  6c 6f 73 65 77 69 74 68  |"Can't closewith|
000015b0  6c 69 6e 65 20 77 69 74  68 6f 75 74 20 61 20 4d  |line without a M|
000015c0  6f 76 65 22 0d 00 bb 0e  20 ea 20 5f 78 25 2c 5f  |ove".... . _x%,_|
000015d0  79 25 0d 00 bc 33 20 5f  78 25 3d 21 a4 43 75 72  |y%...3 _x%=!.Cur|
000015e0  72 65 6e 74 53 75 62 70  61 74 68 3a 20 5f 79 25  |rentSubpath: _y%|
000015f0  3d 21 28 a4 43 75 72 72  65 6e 74 53 75 62 70 61  |=!(.CurrentSubpa|
00001600  74 68 2b 34 29 0d 00 bd  2a 20 df 20 28 21 28 93  |th+4)...* . (!(.|
00001610  2b 31 31 32 29 2b 5f 78  25 29 3e 3e 38 2c 28 21  |+112)+_x%)>>8,(!|
00001620  28 93 2b 31 31 36 29 2b  5f 79 25 29 3e 3e 38 0d  |(.+116)+_y%)>>8.|
00001630  00 be 15 20 f2 44 72 61  77 5f 41 64 64 57 6f 72  |... .Draw_AddWor|
00001640  64 28 35 29 0d 00 bf 06  20 e1 0d 00 c0 04 0d 00  |d(5).... .......|
00001650  c1 1b f4 20 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |... ============|
00001660  3d 3d 3d 3d 3d 3d 3d 3d  3d 0d 00 c2 1b f4 20 32  |=========..... 2|
00001670  2e 33 20 50 6f 6c 61 72  20 43 6f 6f 72 64 69 6e  |.3 Polar Coordin|
00001680  61 74 65 73 0d 00 c3 1b  f4 20 3d 3d 3d 3d 3d 3d  |ates..... ======|
00001690  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 0d  |===============.|
000016a0  00 c4 04 0d 00 c5 19 dd  20 f2 44 72 61 77 50 6f  |........ .DrawPo|
000016b0  6c 61 72 28 72 2c 74 68  65 74 61 29 0d 00 c6 29  |lar(r,theta)...)|
000016c0  20 f4 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | . -------------|
000016d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000016e0  2d 2d 2d 2d 2d 0d 00 c7  2d 20 f4 20 4d 6f 76 65  |-----...- . Move|
000016f0  20 74 6f 20 78 2c 79 20  73 74 61 72 74 69 6e 67  | to x,y starting|
00001700  20 6e 65 77 20 73 75 62  44 72 61 77 5f 50 61 74  | new subDraw_Pat|
00001710  68 25 0d 00 c8 27 20 f4  20 54 68 69 73 20 44 4f  |h%...' . This DO|
00001720  45 53 20 61 66 66 65 63  74 20 77 69 6e 64 69 6e  |ES affect windin|
00001730  67 20 6e 75 6d 62 65 72  73 0d 00 c9 27 20 f4 20  |g numbers...' . |
00001740  73 6f 20 44 72 61 77 5f  50 61 74 68 25 20 69 73  |so Draw_Path% is|
00001750  20 66 69 6c 6c 65 64 20  6e 6f 72 6d 61 6c 6c 79  | filled normally|
00001760  0d 00 ca 06 20 f4 0d 00  cb 1b 20 f4 20 33 20 77  |.... ..... . 3 w|
00001770  6f 72 64 73 20 28 20 78  20 34 20 62 79 74 65 73  |ords ( x 4 bytes|
00001780  29 0d 00 cc 29 20 f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |)...) . --------|
00001790  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000017a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 00 cd 1d 20 f2  |----------.... .|
000017b0  44 72 61 77 28 72 2a 9b  74 68 65 74 61 2c 72 2a  |Draw(r*.theta,r*|
000017c0  b5 74 68 65 74 61 29 0d  00 ce 06 20 e1 0d 00 cf  |.theta).... ....|
000017d0  04 0d 00 d0 19 dd 20 f2  4d 6f 76 65 50 6f 6c 61  |...... .MovePola|
000017e0  72 28 72 2c 74 68 65 74  61 29 0d 00 d1 29 20 f4  |r(r,theta)...) .|
000017f0  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00001800  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001810  2d 2d 2d 0d 00 d2 2d 20  f4 20 4d 6f 76 65 20 74  |---...- . Move t|
00001820  6f 20 78 2c 79 20 73 74  61 72 74 69 6e 67 20 6e  |o x,y starting n|
00001830  65 77 20 73 75 62 44 72  61 77 5f 50 61 74 68 25  |ew subDraw_Path%|
00001840  0d 00 d3 27 20 f4 20 54  68 69 73 20 44 4f 45 53  |...' . This DOES|
00001850  20 61 66 66 65 63 74 20  77 69 6e 64 69 6e 67 20  | affect winding |
00001860  6e 75 6d 62 65 72 73 0d  00 d4 27 20 f4 20 73 6f  |numbers...' . so|
00001870  20 44 72 61 77 5f 50 61  74 68 25 20 69 73 20 66  | Draw_Path% is f|
00001880  69 6c 6c 65 64 20 6e 6f  72 6d 61 6c 6c 79 0d 00  |illed normally..|
00001890  d5 06 20 f4 0d 00 d6 1b  20 f4 20 33 20 77 6f 72  |.. ..... . 3 wor|
000018a0  64 73 20 28 20 78 20 34  20 62 79 74 65 73 29 0d  |ds ( x 4 bytes).|
000018b0  00 d7 29 20 f4 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..) . ----------|
000018c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000018d0  2d 2d 2d 2d 2d 2d 2d 2d  0d 00 d8 1d 20 f2 4d 6f  |--------.... .Mo|
000018e0  76 65 28 72 2a 9b 74 68  65 74 61 2c 72 2a b5 74  |ve(r*.theta,r*.t|
000018f0  68 65 74 61 29 0d 00 d9  06 20 e1 0d 00 da 04 0d  |heta).... ......|
00001900  00 db 1e dd 20 a4 4d 6f  64 75 6c 75 73 28 78 2c  |.... .Modulus(x,|
00001910  79 29 3d b6 28 78 2a 78  2b 79 2a 79 29 0d 00 dc  |y)=.(x*x+y*y)...|
00001920  04 0d 00 dd 14 dd 20 a4  41 72 67 75 6d 65 6e 74  |...... .Argument|
00001930  28 79 2c 78 29 0d 00 de  0f ea 20 5f 61 72 67 75  |(y,x)..... _argu|
00001940  6d 65 6e 74 0d 00 df 0a  c8 8e 20 b9 20 ca 0d 00  |ment...... . ...|
00001950  e0 1f 20 c9 20 78 3d 30  20 3a 20 5f 61 72 67 75  |.. . x=0 : _argu|
00001960  6d 65 6e 74 3d 28 af 2f  32 29 2a b4 79 0d 00 e1  |ment=(./2)*.y...|
00001970  1d 20 c9 20 78 3e 30 20  3a 20 5f 61 72 67 75 6d  |. . x>0 : _argum|
00001980  65 6e 74 3d 99 28 79 2f  78 29 0d 00 e2 1f 20 c9  |ent=.(y/x).... .|
00001990  20 78 3c 30 20 3a 20 5f  61 72 67 75 6d 65 6e 74  | x<0 : _argument|
000019a0  3d af 2b 99 28 79 2f 78  29 0d 00 e3 05 cb 0d 00  |=.+.(y/x).......|
000019b0  e4 0e 3d 5f 61 72 67 75  6d 65 6e 74 0d 00 e5 04  |..=_argument....|
000019c0  0d 00 e6 04 0d ff                                 |......|
000019c6

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