InTheMag/DrawBasic/!DrawBasic/Resources/Paths

Home » Archimedes archive » Archimedes World » AW-1995-05-Disc1.adf » AWMay95_1 » InTheMag/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-1995-05-Disc1.adf » AWMay95_1
Filename:	InTheMag/DrawBasic/!DrawBasic/Resources/Paths
Read OK:	✔
File size:	1942 bytes
Load address:	0000
Exec address:	0000

Duplicates

There are 3 duplicate copies of this file in the archive:

Archimedes archive » Archimedes World » AW-1995-03-Disc1.adf » Disk1Mar95 » !AWMar95/Goodies/DrawBasic/!DrawBasic/Resources/Paths
Archimedes archive » Archimedes World » AW-1995-04-Disc1.adf » Disk1Apr95 » !AWApr95/Goodies/Draw/!DrawBasic/Resources/Paths
Archimedes archive » Archimedes World » AW-1995-05-Disc1.adf » AWMay95_1 » InTheMag/DrawBasic/!DrawBasic/Resources/Paths
Archimedes archive » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95 » !AWFeb95/Goodies/DrawBasic/!DrawBasic/Resources/Paths

File contents

   10REM >DrawBasic:Resources.Paths
   20
   30REM =======================================================
   40REM
   50REM copyright Joe Taylor June 1994
   60REM
   70REM N.B. For ERROR THROWBACK to work The first line above
   80REM      MUST have the correct pathname of this file.
   90REM      If you move the location of the file remember to
  100REM      alter this pathname.
  110REM
  120REM =======================================================
  130
  140REM *****************************************************************
  150REM
  160REM 2. Paths
  170REM
  180REM *****************************************************************
  190
  200REM ==================
  210REM 2.1 Creating Paths
  220REM ==================
  230
  240DEF FNCurrentPath=!(HIMEM+64)
  250
  260DEF PROCCurrentPath(path%)
  270!(HIMEM+64)=path%
  280ENDPROC
  290
  300DEF FNCurrentSubpath=!(HIMEM+68)
  310
  320DEF PROCCurrentSubpath(path%)
  330!(HIMEM+68)=path%
  340ENDPROC
  350
  360DEF PROCPathBegin(RETURN path)
  370 REM -----------------------------
  380 REM
  390 REM Creates path header
  400 REM requires 40 bytes
  410 REM
  420 REM -----------------------------
  430 IF FNCurrentPath<>0 THEN PROCPathEnd
  440 PROCCurrentPath(!HIMEM)
  450   IF FNCurrentPath>=!(HIMEM+4) THEN
  460   
  470    ERROR 0,"Out of memory. Increase the 'Free' slot."
  480    
  490   ELSE
  500   
  510     !(HIMEM+4)-=4
  520     path=!(HIMEM+4)
  530     !path=FNCurrentPath
  540     PROCDraw_PathHeader
  550     IF FNDash<>0 THEN PROCDash@(path,FNDash)
  560     
  570   ENDIF
  580 ENDPROC
  590
  600DEF PROCDraw_PathHeader
  610 PROCDraw_AddWord(0)
  620 PROCDraw_AddWord(44)            : REM Number of bytes in object
  630 PROCDraw_AddWord(-1<<30)        : REM bounding box - xmin
  640 PROCDraw_AddWord(-1<<30)        : REM bounding box - ymin
  650 PROCDraw_AddWord(1<<30)         : REM bounding box - xmax
  660 PROCDraw_AddWord(1<<30)         : REM bounding box - ymax
  670 PROCDraw_AddWord(FNFillColour)  : REM Fill colour.    Default=don't fill
  680 PROCDraw_AddWord(FNLineColour)  : REM Outline colour. Default=black
  690 PROCDraw_AddWord(FNLineWidth)   : REM Line width.     Default=thinnest
  700 PROCDraw_AddWord(FNStyle)       : REM Line style.     Default=mitre+butt
  710ENDPROC
  720
  730DEF PROCPathEnd
  740 REM -----------------------------
  750 REM
  760 REM Closes Draw_Path% Object
  770 REM
  780 REM 1 word
  790 REM -----------------------------
  800 IF FNCurrentPath=0 ENDPROC
  810 IF FNCurrentSubpath=0 OR !FNCurrentPath=0 THEN
  820   !HIMEM=FNCurrentPath
  830   PROCCurrentPath(0)                         : PROCCurrentSubpath(0)   
  840   ELSE   
  850    PROCDraw_AddWord(0)                        : REM Close path
  860    !(FNCurrentPath+4)=(!HIMEM)-FNCurrentPath  : REM Store path length in header
  870    !(FNCurrentPath)=2                         : REM Draw object is a Path
  880    PROCDraw_RenderPath(FNCurrentPath,FNDrawTrans)
  890    PROCCurrentPath(0)                         : PROCCurrentSubpath(0)    
  900   ENDIF
  910 ENDPROC
  920
  930REM ============
  940REM 2.2 SubPaths
  950REM ============
  960
  970DEF FNDrawTrans=HIMEM+96
  980
  990DEF PROCMove(x,y)
 1000 REM ----------------------------------
 1010 REM Move to x,y starting new subpath
 1020 REM This DOES affect winding numbers
 1030 REM so Draw_Path% is filled normally
 1040 REM
 1050 REM 3 words ( x 4 bytes)
 1060 REM ----------------------------------
 1070 LOCAL _path
 1080 IF FNCurrentPath=0 THEN PROCPathBegin(_path)
 1090 PROCDraw_AddWord(2)
 1100 PROCCurrentSubpath(!HIMEM)
 1110 PROCDraw_AddCoords(x,y)
 1120 MOVE (!(HIMEM+112)+FNDraw_X(x))>>8,(!(HIMEM+116)+FNDraw_Y(y))>>8
 1130 ENDPROC
 1140
 1150DEF PROCMOVE(x%,y%)
 1160 REM ----------------------------------
 1170 REM Move to x,y starting new subpath
 1180 REM This DOES affect winding numbers
 1190 REM so Draw_Path% is filled normally
 1200 REM
 1210 REM 3 words ( x 4 bytes)
 1220 REM ----------------------------------
 1230 IF FNCurrentPath=0 THEN ERROR EXT 1,"Can't Move if No PathBegun"
 1240 PROCDraw_AddWord(2)
 1250 PROCCurrentSubpath(!HIMEM)
 1260 PROCDraw_AddWord(x%): : PROCDraw_AddWord(y%)
 1270 MOVE (!(HIMEM+112)+x%)>>8,(!(HIMEM+116)+y%)>>8
 1280 ENDPROC
 1290
 1300DEF PROCDraw(x,y)
 1310 REM --------------------
 1320 REM Line to (x,y)
 1330 REM
 1340 REM 3 words ( x 4 bytes)
 1350 REM --------------------
 1360 LOCAL _path% : _path%=!(HIMEM+4)
 1370 IF FNCurrentPath=0    ERROR EXT 1,"Paths must begin with 'PathBegin()"
 1380 IF FNCurrentSubpath=0 ERROR EXT 0,"Subpaths must begin with a Move before Draw"
 1390 PROCDraw_AddWord(8)
 1400 PROCDraw_AddCoords(x,y)
 1410 DRAW (!(HIMEM+112)+FNDraw_X(x))>>8,(!(HIMEM+116)+FNDraw_Y(y))>>8
 1420 !(FNCurrentPath)=TRUE
 1430ENDPROC
 1440
 1450DEF PROCDRAW(x%,y%)
 1460 REM --------------------
 1470 REM Line to (x,y)
 1480 REM
 1490 REM 3 words ( x 4 bytes)
 1500 REM --------------------
 1510 LOCAL _path% : _path%=!(HIMEM+4)
 1520 IF FNCurrentPath=0    ERROR EXT 1,"Paths must begin with 'PathBegin()"
 1530 IF FNCurrentSubpath=0 ERROR EXT 0,"Subpaths must begin with a Move before Draw"
 1540 PROCDraw_AddWord(8)
 1550 PROCDraw_AddWord(x%) : PROCDraw_AddWord(y%)
 1560 DRAW (!(HIMEM+112)+x%)>>8,(!(HIMEM+116)+y%)>>8
 1570 !(FNCurrentPath)=TRUE
 1580ENDPROC
 1590
 1600
 1610DEF PROCBezier(a,b,c,d,x,y)
 1620 REM ---------------------------------------------------
 1630 REM Bezier curve passing through current point and (x,y)
 1640 REM with control points (a,b) and (c,d)
 1650 REM
 1660 REM 7 words ( x 4 bytes)
 1670 REM ---------------------------------------------------
 1680 LOCAL _path%,_store% : _path%=!(HIMEM+4)
 1690 IF FNCurrentPath=0    ERROR EXT 1,"Can't Draw Bezier if No PathBegun"
 1700 IF FNCurrentSubpath=0 ERROR EXT 0,"Subpath must start with Move before Bezier"
 1710 _path%=!HIMEM : _path%-=12 : _store%=!_path% : !_path%=2
 1720   PROCDraw_AddWord(6)
 1730   PROCDraw_AddCoords(a,b)
 1740   PROCDraw_AddCoords(c,d)
 1750   PROCDraw_AddCoords(x,y)
 1760   PROCDraw_AddWord(0)
 1770   !HIMEM-=4
 1780   SYS "Draw_Stroke",_path%,,FNDrawTrans
 1790   !_path%=_store%
 1800   !(FNCurrentPath)=TRUE
 1810   MOVE (!(HIMEM+112)+FNDraw_X(x))>>8,(!(HIMEM+116)+FNDraw_Y(y))>>8
 1820 ENDPROC
 1830
 1840DEF PROCCloseWithLine
 1850 REM ---------------------------------
 1860 REM Close current subpath with a line
 1870 REM
 1880 REM 1 word
 1890 REM ---------------------------------
 1900 IF  FNCurrentPath<>0 AND FNCurrentPath<>0 THEN 
 1910 LOCAL _x%,_y%
 1920 _x%=!FNCurrentSubpath: _y%=!(FNCurrentSubpath+4)
 1930 DRAW (!(HIMEM+112)+_x%)>>8,(!(HIMEM+116)+_y%)>>8
 1940 PROCDraw_AddWord(5)
 1950 ENDIF
 1960 ENDPROC
 1970
 1980REM =====================
 1990REM 2.3 Polar Coordinates
 2000REM =====================
 2010
 2020DEF PROCDrawPolar(r,theta)
 2030 REM ----------------------------------
 2040 REM Move to x,y starting new subDraw_Path%
 2050 REM This DOES affect winding numbers
 2060 REM so Draw_Path% is filled normally
 2070 REM
 2080 REM 3 words ( x 4 bytes)
 2090 REM ----------------------------------
 2100 PROCDraw(r*COS theta,r*SIN theta)
 2110 ENDPROC
 2120
 2130DEF PROCMovePolar(r,theta)
 2140 REM ----------------------------------
 2150 REM Move to x,y starting new subDraw_Path%
 2160 REM This DOES affect winding numbers
 2170 REM so Draw_Path% is filled normally
 2180 REM
 2190 REM 3 words ( x 4 bytes)
 2200 REM ----------------------------------
 2210 PROCMove(r*COS theta,r*SIN theta)
 2220 ENDPROC
 2230
 2240DEF FNModulus(x,y)=SQR(x*x+y*y)
 2250
 2260DEF FNArgument(y,x)
 2270LOCAL _argument
 2280CASE TRUE OF
 2290 WHEN x=0 : _argument=(PI/2)*SGN y
 2300 WHEN x>0 : _argument=ATN(y/x)
 2310 WHEN x<0 : _argument=PI+ATN(y/x)
 2320ENDCASE
 2330=_argument


 � >DrawBasic:Resources.Paths

=� =======================================================
(�
2$� copyright Joe Taylor June 1994
<�
F;� N.B. For ERROR THROWBACK to work The first line above
P7�      MUST have the correct pathname of this file.
Z;�      If you move the location of the file remember to
d�      alter this pathname.
n�
x=� =======================================================
�
�G� *****************************************************************
��
�� 2. Paths
��
�G� *****************************************************************
�
�� ==================
�� 2.1 Creating Paths
�� ==================
�
�� �CurrentPath=!(�+64)
�
� �CurrentPath(path%)
!(�+64)=path%
�
"
,� �CurrentSubpath=!(�+68)
6
@� �CurrentSubpath(path%)
J!(�+68)=path%
T�
^
h� �PathBegin(� path)
r$ � -----------------------------
| �
� � Creates path header
� � requires 40 bytes
� �
�$ � -----------------------------
�! � �CurrentPath<>0 � �PathEnd
� �CurrentPath(!�)
�   � �CurrentPath>=!(�+4) �
�   
�6    � 0,"Out of memory. Increase the 'Free' slot."
�    
�   �
�   
�     !(�+4)-=4
     path=!(�+4)
     !path=�CurrentPath
     �Draw_PathHeader
&(     � �Dash<>0 � �Dash@(path,�Dash)
0	     
:   �
D �
N
X� �Draw_PathHeader
b �Draw_AddWord(0)
l? �Draw_AddWord(44)            : � Number of bytes in object
v9 �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
�E �Draw_AddWord(�LineWidth)   : � Line width.     Default=thinnest
�G �Draw_AddWord(�Style)       : � Line style.     Default=mitre+butt
��
�
�� �PathEnd
�$ � -----------------------------
� �
� � Closes Draw_Path% Object
 �

 � 1 word
$ � -----------------------------
  � �CurrentPath=0 �
*, � �CurrentSubpath=0 � !�CurrentPath=0 �
4   !�=�CurrentPath
>F   �CurrentPath(0)                         : �CurrentSubpath(0)   
H   �   
R>    �Draw_AddWord(0)                        : � Close path
\L    !(�CurrentPath+4)=(!�)-�CurrentPath  : � Store path length in header
fK    !(�CurrentPath)=2                         : � Draw object is a Path
p1    �Draw_RenderPath(�CurrentPath,�DrawTrans)
zH    �CurrentPath(0)                         : �CurrentSubpath(0)    
�   �
� �
�
�� ============
�� 2.2 SubPaths
�� ============
�
�� �DrawTrans=�+96
�
�� �Move(x,y)
�) � ----------------------------------
�' � Move to x,y starting new subpath
�' � This DOES affect winding numbers
' � so Draw_Path% is filled normally
 �
 � 3 words ( x 4 bytes)
$) � ----------------------------------
. � _path
8) � �CurrentPath=0 � �PathBegin(_path)
B �Draw_AddWord(2)
L �CurrentSubpath(!�)
V �Draw_AddCoords(x,y)
`8 � (!(�+112)+�Draw_X(x))>>8,(!(�+116)+�Draw_Y(y))>>8
j �
t
~� �MOVE(x%,y%)
�) � ----------------------------------
�' � Move to x,y starting new subpath
�' � This DOES affect winding numbers
�' � so Draw_Path% is filled normally
� �
� � 3 words ( x 4 bytes)
�) � ----------------------------------
�: � �CurrentPath=0 � � � 1,"Can't Move if No PathBegun"
� �Draw_AddWord(2)
� �CurrentSubpath(!�)
�+ �Draw_AddWord(x%): : �Draw_AddWord(y%)
�( � (!(�+112)+x%)>>8,(!(�+116)+y%)>>8
 �


� �Draw(x,y)
 � --------------------
( � Line to (x,y)
2 �
< � 3 words ( x 4 bytes)
F � --------------------
P � _path% : _path%=!(�+4)
ZC � �CurrentPath=0    � � 1,"Paths must begin with 'PathBegin()"
dL � �CurrentSubpath=0 � � 0,"Subpaths must begin with a Move before Draw"
n �Draw_AddWord(8)
x �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)=�
,�
6
@
J� �Bezier(a,b,c,d,x,y)
T: � ---------------------------------------------------
^; � Bezier curve passing through current point and (x,y)
h* � with control points (a,b) and (c,d)
r �
| � 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
 �
&
0� �CloseWithLine
:( � ---------------------------------
D( � Close current subpath with a line
N �
X
 � 1 word
b( � ---------------------------------
l, �  �CurrentPath<>0 � �CurrentPath<>0 � 
v � _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)
*) � ----------------------------------
4 �Draw(r*� theta,r*� theta)
> �
H
R� �MovePolar(r,theta)
\) � ----------------------------------
f- � Move to x,y starting new subDraw_Path%
p' � This DOES affect winding numbers
z' � 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 0a 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 14 04 0d 00 1e 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 28 05 f4 0d 00  32 24 f4 20 63 6f 70 79  |=..(....2$. 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 3c 05 f4 0d  | June 1994..<...|
00000090  00 46 3b f4 20 4e 2e 42  2e 20 46 6f 72 20 45 52  |.F;. 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 50 37 f4 20  |line above..P7. |
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 5a 3b f4 20 20  20 20 20 20 49 66 20 79  |...Z;.      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 64 1f  | remember to..d.|
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 6e 05 f4  |s pathname...n..|
00000160  0d 00 78 3d f4 20 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |..x=. ==========|
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 82  |=============...|
000001a0  04 0d 00 8c 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 96 05 f4 0d 00 a0  |********........|
000001f0  0e f4 20 32 2e 20 50 61  74 68 73 0d 00 aa 05 f4  |.. 2. Paths.....|
00000200  0d 00 b4 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 be 04 0d 00 c8 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 d2 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 dc 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 e6 04 0d  00 f0 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 fa 04 0d 01 04  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 01  |entPath(path%)..|
000002d0  0e 11 21 28 93 2b 36 34  29 3d 70 61 74 68 25 0d  |..!(.+64)=path%.|
000002e0  01 18 05 e1 0d 01 22 04  0d 01 2c 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 01 36  04 0d 01 40 1c dd 20 f2  |.+68)..6...@.. .|
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 01 4a  11 21 28 93 2b 36 38 29  |ath%)..J.!(.+68)|
00000330  3d 70 61 74 68 25 0d 01  54 05 e1 0d 01 5e 04 0d  |=path%..T....^..|
00000340  01 68 18 dd 20 f2 50 61  74 68 42 65 67 69 6e 28  |.h.. .PathBegin(|
00000350  f8 20 70 61 74 68 29 0d  01 72 24 20 f4 20 2d 2d  |. path)..r$ . --|
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 01 7c 06 20  |-----------..|. |
00000380  f4 0d 01 86 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 01 90 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 01 9a 06 20  f4 0d 01 a4 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 01 ae  |-------------...|
000003e0  21 20 e7 20 a4 43 75 72  72 65 6e 74 50 61 74 68  |! . .CurrentPath|
000003f0  3c 3e 30 20 8c 20 f2 50  61 74 68 45 6e 64 0d 01  |<>0 . .PathEnd..|
00000400  b8 15 20 f2 43 75 72 72  65 6e 74 50 61 74 68 28  |.. .CurrentPath(|
00000410  21 93 29 0d 01 c2 1f 20  20 20 e7 20 a4 43 75 72  |!.)....   . .Cur|
00000420  72 65 6e 74 50 61 74 68  3e 3d 21 28 93 2b 34 29  |rentPath>=!(.+4)|
00000430  20 8c 0d 01 cc 07 20 20  20 0d 01 d6 36 20 20 20  | .....   ...6   |
00000440  20 85 20 30 2c 22 4f 75  74 20 6f 66 20 6d 65 6d  | . 0,"Out of mem|
00000450  6f 72 79 2e 20 49 6e 63  72 65 61 73 65 20 74 68  |ory. Increase th|
00000460  65 20 27 46 72 65 65 27  20 73 6c 6f 74 2e 22 0d  |e 'Free' slot.".|
00000470  01 e0 08 20 20 20 20 0d  01 ea 08 20 20 20 cc 0d  |...    ....   ..|
00000480  01 f4 07 20 20 20 0d 01  fe 12 20 20 20 20 20 21  |...   ....     !|
00000490  28 93 2b 34 29 2d 3d 34  0d 02 08 14 20 20 20 20  |(.+4)-=4....    |
000004a0  20 70 61 74 68 3d 21 28  93 2b 34 29 0d 02 12 1b  | path=!(.+4)....|
000004b0  20 20 20 20 20 21 70 61  74 68 3d a4 43 75 72 72  |     !path=.Curr|
000004c0  65 6e 74 50 61 74 68 0d  02 1c 19 20 20 20 20 20  |entPath....     |
000004d0  f2 44 72 61 77 5f 50 61  74 68 48 65 61 64 65 72  |.Draw_PathHeader|
000004e0  0d 02 26 28 20 20 20 20  20 e7 20 a4 44 61 73 68  |..&(     . .Dash|
000004f0  3c 3e 30 20 8c 20 f2 44  61 73 68 40 28 70 61 74  |<>0 . .Dash@(pat|
00000500  68 2c a4 44 61 73 68 29  0d 02 30 09 20 20 20 20  |h,.Dash)..0.    |
00000510  20 0d 02 3a 08 20 20 20  cd 0d 02 44 06 20 e1 0d  | ..:.   ...D. ..|
00000520  02 4e 04 0d 02 58 16 dd  20 f2 44 72 61 77 5f 50  |.N...X.. .Draw_P|
00000530  61 74 68 48 65 61 64 65  72 0d 02 62 15 20 f2 44  |athHeader..b. .D|
00000540  72 61 77 5f 41 64 64 57  6f 72 64 28 30 29 0d 02  |raw_AddWord(0)..|
00000550  6c 3f 20 f2 44 72 61 77  5f 41 64 64 57 6f 72 64  |l? .Draw_AddWord|
00000560  28 34 34 29 20 20 20 20  20 20 20 20 20 20 20 20  |(44)            |
00000570  3a 20 f4 20 4e 75 6d 62  65 72 20 6f 66 20 62 79  |: . Number of by|
00000580  74 65 73 20 69 6e 20 6f  62 6a 65 63 74 0d 02 76  |tes in object..v|
00000590  39 20 f2 44 72 61 77 5f  41 64 64 57 6f 72 64 28  |9 .Draw_AddWord(|
000005a0  2d 31 3c 3c 33 30 29 20  20 20 20 20 20 20 20 3a  |-1<<30)        :|
000005b0  20 f4 20 62 6f 75 6e 64  69 6e 67 20 62 6f 78 20  | . bounding box |
000005c0  2d 20 78 6d 69 6e 0d 02  80 39 20 f2 44 72 61 77  |- xmin...9 .Draw|
000005d0  5f 41 64 64 57 6f 72 64  28 2d 31 3c 3c 33 30 29  |_AddWord(-1<<30)|
000005e0  20 20 20 20 20 20 20 20  3a 20 f4 20 62 6f 75 6e  |        : . boun|
000005f0  64 69 6e 67 20 62 6f 78  20 2d 20 79 6d 69 6e 0d  |ding box - ymin.|
00000600  02 8a 39 20 f2 44 72 61  77 5f 41 64 64 57 6f 72  |..9 .Draw_AddWor|
00000610  64 28 31 3c 3c 33 30 29  20 20 20 20 20 20 20 20  |d(1<<30)        |
00000620  20 3a 20 f4 20 62 6f 75  6e 64 69 6e 67 20 62 6f  | : . bounding bo|
00000630  78 20 2d 20 78 6d 61 78  0d 02 94 39 20 f2 44 72  |x - xmax...9 .Dr|
00000640  61 77 5f 41 64 64 57 6f  72 64 28 31 3c 3c 33 30  |aw_AddWord(1<<30|
00000650  29 20 20 20 20 20 20 20  20 20 3a 20 f4 20 62 6f  |)         : . bo|
00000660  75 6e 64 69 6e 67 20 62  6f 78 20 2d 20 79 6d 61  |unding box - yma|
00000670  78 0d 02 9e 47 20 f2 44  72 61 77 5f 41 64 64 57  |x...G .Draw_AddW|
00000680  6f 72 64 28 a4 46 69 6c  6c 43 6f 6c 6f 75 72 29  |ord(.FillColour)|
00000690  20 20 3a 20 f4 20 46 69  6c 6c 20 63 6f 6c 6f 75  |  : . Fill colou|
000006a0  72 2e 20 20 20 20 44 65  66 61 75 6c 74 3d 64 6f  |r.    Default=do|
000006b0  6e 27 74 20 66 69 6c 6c  0d 02 a8 42 20 f2 44 72  |n't fill...B .Dr|
000006c0  61 77 5f 41 64 64 57 6f  72 64 28 a4 4c 69 6e 65  |aw_AddWord(.Line|
000006d0  43 6f 6c 6f 75 72 29 20  20 3a 20 f4 20 4f 75 74  |Colour)  : . Out|
000006e0  6c 69 6e 65 20 63 6f 6c  6f 75 72 2e 20 44 65 66  |line colour. Def|
000006f0  61 75 6c 74 3d 62 6c 61  63 6b 0d 02 b2 45 20 f2  |ault=black...E .|
00000700  44 72 61 77 5f 41 64 64  57 6f 72 64 28 a4 4c 69  |Draw_AddWord(.Li|
00000710  6e 65 57 69 64 74 68 29  20 20 20 3a 20 f4 20 4c  |neWidth)   : . L|
00000720  69 6e 65 20 77 69 64 74  68 2e 20 20 20 20 20 44  |ine width.     D|
00000730  65 66 61 75 6c 74 3d 74  68 69 6e 6e 65 73 74 0d  |efault=thinnest.|
00000740  02 bc 47 20 f2 44 72 61  77 5f 41 64 64 57 6f 72  |..G .Draw_AddWor|
00000750  64 28 a4 53 74 79 6c 65  29 20 20 20 20 20 20 20  |d(.Style)       |
00000760  3a 20 f4 20 4c 69 6e 65  20 73 74 79 6c 65 2e 20  |: . Line style. |
00000770  20 20 20 20 44 65 66 61  75 6c 74 3d 6d 69 74 72  |    Default=mitr|
00000780  65 2b 62 75 74 74 0d 02  c6 05 e1 0d 02 d0 04 0d  |e+butt..........|
00000790  02 da 0e dd 20 f2 50 61  74 68 45 6e 64 0d 02 e4  |.... .PathEnd...|
000007a0  24 20 f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |$ . ------------|
000007b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000007c0  2d 0d 02 ee 06 20 f4 0d  02 f8 1f 20 f4 20 43 6c  |-.... ..... . Cl|
000007d0  6f 73 65 73 20 44 72 61  77 5f 50 61 74 68 25 20  |oses Draw_Path% |
000007e0  4f 62 6a 65 63 74 0d 03  02 06 20 f4 0d 03 0c 0d  |Object.... .....|
000007f0  20 f4 20 31 20 77 6f 72  64 0d 03 16 24 20 f4 20  | . 1 word...$ . |
00000800  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000810  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 03 20  |-------------.. |
00000820  17 20 e7 20 a4 43 75 72  72 65 6e 74 50 61 74 68  |. . .CurrentPath|
00000830  3d 30 20 e1 0d 03 2a 2c  20 e7 20 a4 43 75 72 72  |=0 ...*, . .Curr|
00000840  65 6e 74 53 75 62 70 61  74 68 3d 30 20 84 20 21  |entSubpath=0 . !|
00000850  a4 43 75 72 72 65 6e 74  50 61 74 68 3d 30 20 8c  |.CurrentPath=0 .|
00000860  0d 03 34 16 20 20 20 21  93 3d a4 43 75 72 72 65  |..4.   !.=.Curre|
00000870  6e 74 50 61 74 68 0d 03  3e 46 20 20 20 f2 43 75  |ntPath..>F   .Cu|
00000880  72 72 65 6e 74 50 61 74  68 28 30 29 20 20 20 20  |rrentPath(0)    |
00000890  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000008a0  20 20 20 20 20 3a 20 f2  43 75 72 72 65 6e 74 53  |     : .CurrentS|
000008b0  75 62 70 61 74 68 28 30  29 20 20 20 0d 03 48 0b  |ubpath(0)   ..H.|
000008c0  20 20 20 cc 20 20 20 0d  03 52 3e 20 20 20 20 f2  |   .   ..R>    .|
000008d0  44 72 61 77 5f 41 64 64  57 6f 72 64 28 30 29 20  |Draw_AddWord(0) |
000008e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000008f0  20 20 20 20 20 20 20 3a  20 f4 20 43 6c 6f 73 65  |       : . Close|
00000900  20 70 61 74 68 0d 03 5c  4c 20 20 20 20 21 28 a4  | path..\L    !(.|
00000910  43 75 72 72 65 6e 74 50  61 74 68 2b 34 29 3d 28  |CurrentPath+4)=(|
00000920  21 93 29 2d a4 43 75 72  72 65 6e 74 50 61 74 68  |!.)-.CurrentPath|
00000930  20 20 3a 20 f4 20 53 74  6f 72 65 20 70 61 74 68  |  : . Store path|
00000940  20 6c 65 6e 67 74 68 20  69 6e 20 68 65 61 64 65  | length in heade|
00000950  72 0d 03 66 4b 20 20 20  20 21 28 a4 43 75 72 72  |r..fK    !(.Curr|
00000960  65 6e 74 50 61 74 68 29  3d 32 20 20 20 20 20 20  |entPath)=2      |
00000970  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000980  20 20 20 3a 20 f4 20 44  72 61 77 20 6f 62 6a 65  |   : . Draw obje|
00000990  63 74 20 69 73 20 61 20  50 61 74 68 0d 03 70 31  |ct is a Path..p1|
000009a0  20 20 20 20 f2 44 72 61  77 5f 52 65 6e 64 65 72  |    .Draw_Render|
000009b0  50 61 74 68 28 a4 43 75  72 72 65 6e 74 50 61 74  |Path(.CurrentPat|
000009c0  68 2c a4 44 72 61 77 54  72 61 6e 73 29 0d 03 7a  |h,.DrawTrans)..z|
000009d0  48 20 20 20 20 f2 43 75  72 72 65 6e 74 50 61 74  |H    .CurrentPat|
000009e0  68 28 30 29 20 20 20 20  20 20 20 20 20 20 20 20  |h(0)            |
000009f0  20 20 20 20 20 20 20 20  20 20 20 20 20 3a 20 f2  |             : .|
00000a00  43 75 72 72 65 6e 74 53  75 62 70 61 74 68 28 30  |CurrentSubpath(0|
00000a10  29 20 20 20 20 0d 03 84  08 20 20 20 cd 0d 03 8e  |)    ....   ....|
00000a20  06 20 e1 0d 03 98 04 0d  03 a2 12 f4 20 3d 3d 3d  |. .......... ===|
00000a30  3d 3d 3d 3d 3d 3d 3d 3d  3d 0d 03 ac 12 f4 20 32  |=========..... 2|
00000a40  2e 32 20 53 75 62 50 61  74 68 73 0d 03 b6 12 f4  |.2 SubPaths.....|
00000a50  20 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 0d 03 c0  | ============...|
00000a60  04 0d 03 ca 15 dd 20 a4  44 72 61 77 54 72 61 6e  |...... .DrawTran|
00000a70  73 3d 93 2b 39 36 0d 03  d4 04 0d 03 de 10 dd 20  |s=.+96......... |
00000a80  f2 4d 6f 76 65 28 78 2c  79 29 0d 03 e8 29 20 f4  |.Move(x,y)...) .|
00000a90  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00000aa0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000ab0  2d 2d 2d 0d 03 f2 27 20  f4 20 4d 6f 76 65 20 74  |---...' . Move t|
00000ac0  6f 20 78 2c 79 20 73 74  61 72 74 69 6e 67 20 6e  |o x,y starting n|
00000ad0  65 77 20 73 75 62 70 61  74 68 0d 03 fc 27 20 f4  |ew subpath...' .|
00000ae0  20 54 68 69 73 20 44 4f  45 53 20 61 66 66 65 63  | This DOES affec|
00000af0  74 20 77 69 6e 64 69 6e  67 20 6e 75 6d 62 65 72  |t winding number|
00000b00  73 0d 04 06 27 20 f4 20  73 6f 20 44 72 61 77 5f  |s...' . so Draw_|
00000b10  50 61 74 68 25 20 69 73  20 66 69 6c 6c 65 64 20  |Path% is filled |
00000b20  6e 6f 72 6d 61 6c 6c 79  0d 04 10 06 20 f4 0d 04  |normally.... ...|
00000b30  1a 1b 20 f4 20 33 20 77  6f 72 64 73 20 28 20 78  |.. . 3 words ( x|
00000b40  20 34 20 62 79 74 65 73  29 0d 04 24 29 20 f4 20  | 4 bytes)..$) . |
00000b50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000b70  2d 2d 0d 04 2e 0c 20 ea  20 5f 70 61 74 68 0d 04  |--.... . _path..|
00000b80  38 29 20 e7 20 a4 43 75  72 72 65 6e 74 50 61 74  |8) . .CurrentPat|
00000b90  68 3d 30 20 8c 20 f2 50  61 74 68 42 65 67 69 6e  |h=0 . .PathBegin|
00000ba0  28 5f 70 61 74 68 29 0d  04 42 15 20 f2 44 72 61  |(_path)..B. .Dra|
00000bb0  77 5f 41 64 64 57 6f 72  64 28 32 29 0d 04 4c 18  |w_AddWord(2)..L.|
00000bc0  20 f2 43 75 72 72 65 6e  74 53 75 62 70 61 74 68  | .CurrentSubpath|
00000bd0  28 21 93 29 0d 04 56 19  20 f2 44 72 61 77 5f 41  |(!.)..V. .Draw_A|
00000be0  64 64 43 6f 6f 72 64 73  28 78 2c 79 29 0d 04 60  |ddCoords(x,y)..`|
00000bf0  38 20 ec 20 28 21 28 93  2b 31 31 32 29 2b a4 44  |8 . (!(.+112)+.D|
00000c00  72 61 77 5f 58 28 78 29  29 3e 3e 38 2c 28 21 28  |raw_X(x))>>8,(!(|
00000c10  93 2b 31 31 36 29 2b a4  44 72 61 77 5f 59 28 79  |.+116)+.Draw_Y(y|
00000c20  29 29 3e 3e 38 0d 04 6a  06 20 e1 0d 04 74 04 0d  |))>>8..j. ...t..|
00000c30  04 7e 12 dd 20 f2 4d 4f  56 45 28 78 25 2c 79 25  |.~.. .MOVE(x%,y%|
00000c40  29 0d 04 88 29 20 f4 20  2d 2d 2d 2d 2d 2d 2d 2d  |)...) . --------|
00000c50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000c60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 04 92 27 20 f4  |----------...' .|
00000c70  20 4d 6f 76 65 20 74 6f  20 78 2c 79 20 73 74 61  | Move to x,y sta|
00000c80  72 74 69 6e 67 20 6e 65  77 20 73 75 62 70 61 74  |rting new subpat|
00000c90  68 0d 04 9c 27 20 f4 20  54 68 69 73 20 44 4f 45  |h...' . This DOE|
00000ca0  53 20 61 66 66 65 63 74  20 77 69 6e 64 69 6e 67  |S affect winding|
00000cb0  20 6e 75 6d 62 65 72 73  0d 04 a6 27 20 f4 20 73  | numbers...' . s|
00000cc0  6f 20 44 72 61 77 5f 50  61 74 68 25 20 69 73 20  |o Draw_Path% is |
00000cd0  66 69 6c 6c 65 64 20 6e  6f 72 6d 61 6c 6c 79 0d  |filled normally.|
00000ce0  04 b0 06 20 f4 0d 04 ba  1b 20 f4 20 33 20 77 6f  |... ..... . 3 wo|
00000cf0  72 64 73 20 28 20 78 20  34 20 62 79 74 65 73 29  |rds ( x 4 bytes)|
00000d00  0d 04 c4 29 20 f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...) . ---------|
00000d10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000d20  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 04 ce 3a 20 e7 20  |---------...: . |
00000d30  a4 43 75 72 72 65 6e 74  50 61 74 68 3d 30 20 8c  |.CurrentPath=0 .|
00000d40  20 85 20 a2 20 31 2c 22  43 61 6e 27 74 20 4d 6f  | . . 1,"Can't Mo|
00000d50  76 65 20 69 66 20 4e 6f  20 50 61 74 68 42 65 67  |ve if No PathBeg|
00000d60  75 6e 22 0d 04 d8 15 20  f2 44 72 61 77 5f 41 64  |un".... .Draw_Ad|
00000d70  64 57 6f 72 64 28 32 29  0d 04 e2 18 20 f2 43 75  |dWord(2).... .Cu|
00000d80  72 72 65 6e 74 53 75 62  70 61 74 68 28 21 93 29  |rrentSubpath(!.)|
00000d90  0d 04 ec 2b 20 f2 44 72  61 77 5f 41 64 64 57 6f  |...+ .Draw_AddWo|
00000da0  72 64 28 78 25 29 3a 20  3a 20 f2 44 72 61 77 5f  |rd(x%): : .Draw_|
00000db0  41 64 64 57 6f 72 64 28  79 25 29 0d 04 f6 28 20  |AddWord(y%)...( |
00000dc0  ec 20 28 21 28 93 2b 31  31 32 29 2b 78 25 29 3e  |. (!(.+112)+x%)>|
00000dd0  3e 38 2c 28 21 28 93 2b  31 31 36 29 2b 79 25 29  |>8,(!(.+116)+y%)|
00000de0  3e 3e 38 0d 05 00 06 20  e1 0d 05 0a 04 0d 05 14  |>>8.... ........|
00000df0  10 dd 20 f2 44 72 61 77  28 78 2c 79 29 0d 05 1e  |.. .Draw(x,y)...|
00000e00  1b 20 f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. . ------------|
00000e10  2d 2d 2d 2d 2d 2d 2d 2d  0d 05 28 14 20 f4 20 4c  |--------..(. . L|
00000e20  69 6e 65 20 74 6f 20 28  78 2c 79 29 0d 05 32 06  |ine to (x,y)..2.|
00000e30  20 f4 0d 05 3c 1b 20 f4  20 33 20 77 6f 72 64 73  | ...<. . 3 words|
00000e40  20 28 20 78 20 34 20 62  79 74 65 73 29 0d 05 46  | ( x 4 bytes)..F|
00000e50  1b 20 f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. . ------------|
00000e60  2d 2d 2d 2d 2d 2d 2d 2d  0d 05 50 1d 20 ea 20 5f  |--------..P. . _|
00000e70  70 61 74 68 25 20 3a 20  5f 70 61 74 68 25 3d 21  |path% : _path%=!|
00000e80  28 93 2b 34 29 0d 05 5a  43 20 e7 20 a4 43 75 72  |(.+4)..ZC . .Cur|
00000e90  72 65 6e 74 50 61 74 68  3d 30 20 20 20 20 85 20  |rentPath=0    . |
00000ea0  a2 20 31 2c 22 50 61 74  68 73 20 6d 75 73 74 20  |. 1,"Paths must |
00000eb0  62 65 67 69 6e 20 77 69  74 68 20 27 50 61 74 68  |begin with 'Path|
00000ec0  42 65 67 69 6e 28 29 22  0d 05 64 4c 20 e7 20 a4  |Begin()"..dL . .|
00000ed0  43 75 72 72 65 6e 74 53  75 62 70 61 74 68 3d 30  |CurrentSubpath=0|
00000ee0  20 85 20 a2 20 30 2c 22  53 75 62 70 61 74 68 73  | . . 0,"Subpaths|
00000ef0  20 6d 75 73 74 20 62 65  67 69 6e 20 77 69 74 68  | must begin with|
00000f00  20 61 20 4d 6f 76 65 20  62 65 66 6f 72 65 20 44  | a Move before D|
00000f10  72 61 77 22 0d 05 6e 15  20 f2 44 72 61 77 5f 41  |raw"..n. .Draw_A|
00000f20  64 64 57 6f 72 64 28 38  29 0d 05 78 19 20 f2 44  |ddWord(8)..x. .D|
00000f30  72 61 77 5f 41 64 64 43  6f 6f 72 64 73 28 78 2c  |raw_AddCoords(x,|
00000f40  79 29 0d 05 82 38 20 df  20 28 21 28 93 2b 31 31  |y)...8 . (!(.+11|
00000f50  32 29 2b a4 44 72 61 77  5f 58 28 78 29 29 3e 3e  |2)+.Draw_X(x))>>|
00000f60  38 2c 28 21 28 93 2b 31  31 36 29 2b a4 44 72 61  |8,(!(.+116)+.Dra|
00000f70  77 5f 59 28 79 29 29 3e  3e 38 0d 05 8c 16 20 21  |w_Y(y))>>8.... !|
00000f80  28 a4 43 75 72 72 65 6e  74 50 61 74 68 29 3d b9  |(.CurrentPath)=.|
00000f90  0d 05 96 05 e1 0d 05 a0  04 0d 05 aa 12 dd 20 f2  |.............. .|
00000fa0  44 52 41 57 28 78 25 2c  79 25 29 0d 05 b4 1b 20  |DRAW(x%,y%).... |
00000fb0  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00000fc0  2d 2d 2d 2d 2d 2d 0d 05  be 14 20 f4 20 4c 69 6e  |------.... . Lin|
00000fd0  65 20 74 6f 20 28 78 2c  79 29 0d 05 c8 06 20 f4  |e to (x,y).... .|
00000fe0  0d 05 d2 1b 20 f4 20 33  20 77 6f 72 64 73 20 28  |.... . 3 words (|
00000ff0  20 78 20 34 20 62 79 74  65 73 29 0d 05 dc 1b 20  | x 4 bytes).... |
00001000  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00001010  2d 2d 2d 2d 2d 2d 0d 05  e6 1d 20 ea 20 5f 70 61  |------.... . _pa|
00001020  74 68 25 20 3a 20 5f 70  61 74 68 25 3d 21 28 93  |th% : _path%=!(.|
00001030  2b 34 29 0d 05 f0 43 20  e7 20 a4 43 75 72 72 65  |+4)...C . .Curre|
00001040  6e 74 50 61 74 68 3d 30  20 20 20 20 85 20 a2 20  |ntPath=0    . . |
00001050  31 2c 22 50 61 74 68 73  20 6d 75 73 74 20 62 65  |1,"Paths must be|
00001060  67 69 6e 20 77 69 74 68  20 27 50 61 74 68 42 65  |gin with 'PathBe|
00001070  67 69 6e 28 29 22 0d 05  fa 4c 20 e7 20 a4 43 75  |gin()"...L . .Cu|
00001080  72 72 65 6e 74 53 75 62  70 61 74 68 3d 30 20 85  |rrentSubpath=0 .|
00001090  20 a2 20 30 2c 22 53 75  62 70 61 74 68 73 20 6d  | . 0,"Subpaths m|
000010a0  75 73 74 20 62 65 67 69  6e 20 77 69 74 68 20 61  |ust begin with a|
000010b0  20 4d 6f 76 65 20 62 65  66 6f 72 65 20 44 72 61  | Move before Dra|
000010c0  77 22 0d 06 04 15 20 f2  44 72 61 77 5f 41 64 64  |w".... .Draw_Add|
000010d0  57 6f 72 64 28 38 29 0d  06 0e 2a 20 f2 44 72 61  |Word(8)...* .Dra|
000010e0  77 5f 41 64 64 57 6f 72  64 28 78 25 29 20 3a 20  |w_AddWord(x%) : |
000010f0  f2 44 72 61 77 5f 41 64  64 57 6f 72 64 28 79 25  |.Draw_AddWord(y%|
00001100  29 0d 06 18 28 20 df 20  28 21 28 93 2b 31 31 32  |)...( . (!(.+112|
00001110  29 2b 78 25 29 3e 3e 38  2c 28 21 28 93 2b 31 31  |)+x%)>>8,(!(.+11|
00001120  36 29 2b 79 25 29 3e 3e  38 0d 06 22 16 20 21 28  |6)+y%)>>8..". !(|
00001130  a4 43 75 72 72 65 6e 74  50 61 74 68 29 3d b9 0d  |.CurrentPath)=..|
00001140  06 2c 05 e1 0d 06 36 04  0d 06 40 04 0d 06 4a 1a  |.,....6...@...J.|
00001150  dd 20 f2 42 65 7a 69 65  72 28 61 2c 62 2c 63 2c  |. .Bezier(a,b,c,|
00001160  64 2c 78 2c 79 29 0d 06  54 3a 20 f4 20 2d 2d 2d  |d,x,y)..T: . ---|
00001170  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000011a0  0d 06 5e 3b 20 f4 20 42  65 7a 69 65 72 20 63 75  |..^; . Bezier cu|
000011b0  72 76 65 20 70 61 73 73  69 6e 67 20 74 68 72 6f  |rve passing thro|
000011c0  75 67 68 20 63 75 72 72  65 6e 74 20 70 6f 69 6e  |ugh current poin|
000011d0  74 20 61 6e 64 20 28 78  2c 79 29 0d 06 68 2a 20  |t and (x,y)..h* |
000011e0  f4 20 77 69 74 68 20 63  6f 6e 74 72 6f 6c 20 70  |. with control p|
000011f0  6f 69 6e 74 73 20 28 61  2c 62 29 20 61 6e 64 20  |oints (a,b) and |
00001200  28 63 2c 64 29 0d 06 72  06 20 f4 0d 06 7c 1b 20  |(c,d)..r. ...|. |
00001210  f4 20 37 20 77 6f 72 64  73 20 28 20 78 20 34 20  |. 7 words ( x 4 |
00001220  62 79 74 65 73 29 0d 06  86 3a 20 f4 20 2d 2d 2d  |bytes)...: . ---|
00001230  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001260  0d 06 90 25 20 ea 20 5f  70 61 74 68 25 2c 5f 73  |...% . _path%,_s|
00001270  74 6f 72 65 25 20 3a 20  5f 70 61 74 68 25 3d 21  |tore% : _path%=!|
00001280  28 93 2b 34 29 0d 06 9a  42 20 e7 20 a4 43 75 72  |(.+4)...B . .Cur|
00001290  72 65 6e 74 50 61 74 68  3d 30 20 20 20 20 85 20  |rentPath=0    . |
000012a0  a2 20 31 2c 22 43 61 6e  27 74 20 44 72 61 77 20  |. 1,"Can't Draw |
000012b0  42 65 7a 69 65 72 20 69  66 20 4e 6f 20 50 61 74  |Bezier if No Pat|
000012c0  68 42 65 67 75 6e 22 0d  06 a4 4b 20 e7 20 a4 43  |hBegun"...K . .C|
000012d0  75 72 72 65 6e 74 53 75  62 70 61 74 68 3d 30 20  |urrentSubpath=0 |
000012e0  85 20 a2 20 30 2c 22 53  75 62 70 61 74 68 20 6d  |. . 0,"Subpath m|
000012f0  75 73 74 20 73 74 61 72  74 20 77 69 74 68 20 4d  |ust start with M|
00001300  6f 76 65 20 62 65 66 6f  72 65 20 42 65 7a 69 65  |ove before Bezie|
00001310  72 22 0d 06 ae 39 20 5f  70 61 74 68 25 3d 21 93  |r"...9 _path%=!.|
00001320  20 3a 20 5f 70 61 74 68  25 2d 3d 31 32 20 3a 20  | : _path%-=12 : |
00001330  5f 73 74 6f 72 65 25 3d  21 5f 70 61 74 68 25 20  |_store%=!_path% |
00001340  3a 20 21 5f 70 61 74 68  25 3d 32 0d 06 b8 17 20  |: !_path%=2.... |
00001350  20 20 f2 44 72 61 77 5f  41 64 64 57 6f 72 64 28  |  .Draw_AddWord(|
00001360  36 29 0d 06 c2 1b 20 20  20 f2 44 72 61 77 5f 41  |6)....   .Draw_A|
00001370  64 64 43 6f 6f 72 64 73  28 61 2c 62 29 0d 06 cc  |ddCoords(a,b)...|
00001380  1b 20 20 20 f2 44 72 61  77 5f 41 64 64 43 6f 6f  |.   .Draw_AddCoo|
00001390  72 64 73 28 63 2c 64 29  0d 06 d6 1b 20 20 20 f2  |rds(c,d)....   .|
000013a0  44 72 61 77 5f 41 64 64  43 6f 6f 72 64 73 28 78  |Draw_AddCoords(x|
000013b0  2c 79 29 0d 06 e0 17 20  20 20 f2 44 72 61 77 5f  |,y)....   .Draw_|
000013c0  41 64 64 57 6f 72 64 28  30 29 0d 06 ea 0c 20 20  |AddWord(0)....  |
000013d0  20 21 93 2d 3d 34 0d 06  f4 2a 20 20 20 c8 99 20  | !.-=4...*   .. |
000013e0  22 44 72 61 77 5f 53 74  72 6f 6b 65 22 2c 5f 70  |"Draw_Stroke",_p|
000013f0  61 74 68 25 2c 2c a4 44  72 61 77 54 72 61 6e 73  |ath%,,.DrawTrans|
00001400  0d 06 fe 16 20 20 20 21  5f 70 61 74 68 25 3d 5f  |....   !_path%=_|
00001410  73 74 6f 72 65 25 0d 07  08 18 20 20 20 21 28 a4  |store%....   !(.|
00001420  43 75 72 72 65 6e 74 50  61 74 68 29 3d b9 0d 07  |CurrentPath)=...|
00001430  12 3a 20 20 20 ec 20 28  21 28 93 2b 31 31 32 29  |.:   . (!(.+112)|
00001440  2b a4 44 72 61 77 5f 58  28 78 29 29 3e 3e 38 2c  |+.Draw_X(x))>>8,|
00001450  28 21 28 93 2b 31 31 36  29 2b a4 44 72 61 77 5f  |(!(.+116)+.Draw_|
00001460  59 28 79 29 29 3e 3e 38  0d 07 1c 06 20 e1 0d 07  |Y(y))>>8.... ...|
00001470  26 04 0d 07 30 14 dd 20  f2 43 6c 6f 73 65 57 69  |&...0.. .CloseWi|
00001480  74 68 4c 69 6e 65 0d 07  3a 28 20 f4 20 2d 2d 2d  |thLine..:( . ---|
00001490  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000014a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 07  |--------------..|
000014b0  44 28 20 f4 20 43 6c 6f  73 65 20 63 75 72 72 65  |D( . Close curre|
000014c0  6e 74 20 73 75 62 70 61  74 68 20 77 69 74 68 20  |nt subpath with |
000014d0  61 20 6c 69 6e 65 0d 07  4e 06 20 f4 0d 07 58 0d  |a line..N. ...X.|
000014e0  20 f4 20 31 20 77 6f 72  64 0d 07 62 28 20 f4 20  | . 1 word..b( . |
000014f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001510  2d 0d 07 6c 2c 20 e7 20  20 a4 43 75 72 72 65 6e  |-..l, .  .Curren|
00001520  74 50 61 74 68 3c 3e 30  20 80 20 a4 43 75 72 72  |tPath<>0 . .Curr|
00001530  65 6e 74 50 61 74 68 3c  3e 30 20 8c 20 0d 07 76  |entPath<>0 . ..v|
00001540  0e 20 ea 20 5f 78 25 2c  5f 79 25 0d 07 80 33 20  |. . _x%,_y%...3 |
00001550  5f 78 25 3d 21 a4 43 75  72 72 65 6e 74 53 75 62  |_x%=!.CurrentSub|
00001560  70 61 74 68 3a 20 5f 79  25 3d 21 28 a4 43 75 72  |path: _y%=!(.Cur|
00001570  72 65 6e 74 53 75 62 70  61 74 68 2b 34 29 0d 07  |rentSubpath+4)..|
00001580  8a 2a 20 df 20 28 21 28  93 2b 31 31 32 29 2b 5f  |.* . (!(.+112)+_|
00001590  78 25 29 3e 3e 38 2c 28  21 28 93 2b 31 31 36 29  |x%)>>8,(!(.+116)|
000015a0  2b 5f 79 25 29 3e 3e 38  0d 07 94 15 20 f2 44 72  |+_y%)>>8.... .Dr|
000015b0  61 77 5f 41 64 64 57 6f  72 64 28 35 29 0d 07 9e  |aw_AddWord(5)...|
000015c0  06 20 cd 0d 07 a8 06 20  e1 0d 07 b2 04 0d 07 bc  |. ..... ........|
000015d0  1b f4 20 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |.. =============|
000015e0  3d 3d 3d 3d 3d 3d 3d 3d  0d 07 c6 1b f4 20 32 2e  |========..... 2.|
000015f0  33 20 50 6f 6c 61 72 20  43 6f 6f 72 64 69 6e 61  |3 Polar Coordina|
00001600  74 65 73 0d 07 d0 1b f4  20 3d 3d 3d 3d 3d 3d 3d  |tes..... =======|
00001610  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 0d 07  |==============..|
00001620  da 04 0d 07 e4 19 dd 20  f2 44 72 61 77 50 6f 6c  |....... .DrawPol|
00001630  61 72 28 72 2c 74 68 65  74 61 29 0d 07 ee 29 20  |ar(r,theta)...) |
00001640  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00001650  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001660  2d 2d 2d 2d 0d 07 f8 2d  20 f4 20 4d 6f 76 65 20  |----...- . Move |
00001670  74 6f 20 78 2c 79 20 73  74 61 72 74 69 6e 67 20  |to x,y starting |
00001680  6e 65 77 20 73 75 62 44  72 61 77 5f 50 61 74 68  |new subDraw_Path|
00001690  25 0d 08 02 27 20 f4 20  54 68 69 73 20 44 4f 45  |%...' . This DOE|
000016a0  53 20 61 66 66 65 63 74  20 77 69 6e 64 69 6e 67  |S affect winding|
000016b0  20 6e 75 6d 62 65 72 73  0d 08 0c 27 20 f4 20 73  | numbers...' . s|
000016c0  6f 20 44 72 61 77 5f 50  61 74 68 25 20 69 73 20  |o Draw_Path% is |
000016d0  66 69 6c 6c 65 64 20 6e  6f 72 6d 61 6c 6c 79 0d  |filled normally.|
000016e0  08 16 06 20 f4 0d 08 20  1b 20 f4 20 33 20 77 6f  |... ... . . 3 wo|
000016f0  72 64 73 20 28 20 78 20  34 20 62 79 74 65 73 29  |rds ( x 4 bytes)|
00001700  0d 08 2a 29 20 f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..*) . ---------|
00001710  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001720  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 08 34 1f 20 f2 44  |---------..4. .D|
00001730  72 61 77 28 72 2a 9b 20  74 68 65 74 61 2c 72 2a  |raw(r*. theta,r*|
00001740  b5 20 74 68 65 74 61 29  0d 08 3e 06 20 e1 0d 08  |. theta)..>. ...|
00001750  48 04 0d 08 52 19 dd 20  f2 4d 6f 76 65 50 6f 6c  |H...R.. .MovePol|
00001760  61 72 28 72 2c 74 68 65  74 61 29 0d 08 5c 29 20  |ar(r,theta)..\) |
00001770  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00001780  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001790  2d 2d 2d 2d 0d 08 66 2d  20 f4 20 4d 6f 76 65 20  |----..f- . Move |
000017a0  74 6f 20 78 2c 79 20 73  74 61 72 74 69 6e 67 20  |to x,y starting |
000017b0  6e 65 77 20 73 75 62 44  72 61 77 5f 50 61 74 68  |new subDraw_Path|
000017c0  25 0d 08 70 27 20 f4 20  54 68 69 73 20 44 4f 45  |%..p' . This DOE|
000017d0  53 20 61 66 66 65 63 74  20 77 69 6e 64 69 6e 67  |S affect winding|
000017e0  20 6e 75 6d 62 65 72 73  0d 08 7a 27 20 f4 20 73  | numbers..z' . s|
000017f0  6f 20 44 72 61 77 5f 50  61 74 68 25 20 69 73 20  |o Draw_Path% is |
00001800  66 69 6c 6c 65 64 20 6e  6f 72 6d 61 6c 6c 79 0d  |filled normally.|
00001810  08 84 06 20 f4 0d 08 8e  1b 20 f4 20 33 20 77 6f  |... ..... . 3 wo|
00001820  72 64 73 20 28 20 78 20  34 20 62 79 74 65 73 29  |rds ( x 4 bytes)|
00001830  0d 08 98 29 20 f4 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |...) . ---------|
00001840  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001850  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 08 a2 1f 20 f2 4d  |---------.... .M|
00001860  6f 76 65 28 72 2a 9b 20  74 68 65 74 61 2c 72 2a  |ove(r*. theta,r*|
00001870  b5 20 74 68 65 74 61 29  0d 08 ac 06 20 e1 0d 08  |. theta).... ...|
00001880  b6 04 0d 08 c0 1e dd 20  a4 4d 6f 64 75 6c 75 73  |....... .Modulus|
00001890  28 78 2c 79 29 3d b6 28  78 2a 78 2b 79 2a 79 29  |(x,y)=.(x*x+y*y)|
000018a0  0d 08 ca 04 0d 08 d4 14  dd 20 a4 41 72 67 75 6d  |......... .Argum|
000018b0  65 6e 74 28 79 2c 78 29  0d 08 de 0f ea 20 5f 61  |ent(y,x)..... _a|
000018c0  72 67 75 6d 65 6e 74 0d  08 e8 0a c8 8e 20 b9 20  |rgument...... . |
000018d0  ca 0d 08 f2 20 20 c9 20  78 3d 30 20 3a 20 5f 61  |....  . x=0 : _a|
000018e0  72 67 75 6d 65 6e 74 3d  28 af 2f 32 29 2a b4 20  |rgument=(./2)*. |
000018f0  79 0d 08 fc 1d 20 c9 20  78 3e 30 20 3a 20 5f 61  |y.... . x>0 : _a|
00001900  72 67 75 6d 65 6e 74 3d  99 28 79 2f 78 29 0d 09  |rgument=.(y/x)..|
00001910  06 1f 20 c9 20 78 3c 30  20 3a 20 5f 61 72 67 75  |.. . x<0 : _argu|
00001920  6d 65 6e 74 3d af 2b 99  28 79 2f 78 29 0d 09 10  |ment=.+.(y/x)...|
00001930  05 cb 0d 09 1a 0e 3d 5f  61 72 67 75 6d 65 6e 74  |......=_argument|
00001940  0d ff                                             |..|
00001942

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