Home » Archimedes archive » Archimedes World » AW-1995-01-Disc1.adf » Disk1Jan95 » !AWJan95/Goodies/DrawBasic/!DrawBasic/Resources/Transforms

!AWJan95/Goodies/DrawBasic/!DrawBasic/Resources/Transforms

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-01-Disc1.adf » Disk1Jan95
Filename: !AWJan95/Goodies/DrawBasic/!DrawBasic/Resources/Transforms
Read OK: ✔
File size: 1916 bytes
Load address: 0000
Exec address: 0000
Duplicates

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

File contents
   10REM > DrawBasic:Resources.Transforms
   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 TRANSFORMS & OBJECTS
  170REM
  180REM ************************
  190
  200DEF FNTransformStore=HIMEM+184
  210
  220DEF FNCreateTransform(A(),b())
  230LOCAL _transform,_a,_b
  240 _a=FNFRAME_x-FNFrame_x/FNX_Scale : _b=FNFRAME_y-FNFrame_y/FNY_Scale
  250  b(0)+=A(0,0)*_a+A(0,1)*_b-_a
  260  b(1)+=A(1,0)*_a+A(1,1)*_b-_b
  270 _transform=FNTransformStore
  280 _transform!0=INT(A(0,0)*2^16+.5)
  290 _transform!4=INT(A(1,0)*2^16+.5)
  300 _transform!8=INT(A(0,1)*2^16+.5)
  310 _transform!12=INT(A(1,1)*2^16+.5)
  320 _transform!16=INT(b(0)*FNX_Scale+.5)
  330 _transform!20=INT(b(1)*FNY_Scale+.5)
  340=_transform
  350
  360REM ================
  370REM 1.1 Copying
  380REM ================
  390
  400DEF FNCopy(path%)
  410 REM ---------------------------------
  420 REM
  430 REM Makes copy of path or text object
  440 REM
  450 REM ----------------------------------
  460 CASE FNObjectType(path%) OF
  470  WHEN 2    : =FNCopyPath(path%)
  480  WHEN 12   : =FNCopyText(path%)
  490  OTHERWISE : ERROR 0,"Object to copy not text/path!"
  500 ENDCASE
  510
  520DEF FNCopyText(path%)
  530LOCAL _length%,_Path%,_i%
  540   _length%=(path%!4) : _Path%=!HIMEM
  550   IF (!(HIMEM+4))-(!HIMEM)<_length%+1 THEN ERROR 0,"Out of memory"
  560   FOR _i%=0 TO _length%-4 STEP 4
  570   PROCDraw_AddWord(path%!_i%)
  580   NEXT
  590=_Path%
  600
  610DEF FNCopyPath(path%)
  620LOCAL _length%,_Path%,_i%
  630 path%=!path% : _length%=(path%!4)
  640 IF (!(HIMEM+4))-(!HIMEM)<_length%+1 THEN ERROR 0,"Out of memory"
  650 !(HIMEM+4)-=4 : _Path%=!(HIMEM+4) : !_Path%=!HIMEM
  660 FOR _i%=0 TO _length%-4 STEP 4
  670  PROCDraw_AddWord(path%!_i%)
  680  NEXT
  690=_Path%
  700
  710REM ================
  720REM 1.2 Affine
  730REM ================
  740
  750DEF FNTransform(path,A(),b())
  760LOCAL _Path
  770_Path=FNCopy(path)
  780 PROCTransform(_Path,A(),b())
  790=_Path
  800
  810DEF PROCTransform(path,A(),b())
  820 REM --------------------------------
  830 REM
  840 REM Replaces path/text using
  850 REM       X()=A().x()+b()
  860 REM
  870 REM --------------------------------
  880 LOCAL _transform,_dx,_dy
  890 CASE FNObjectType(path) OF
  900  WHEN 2   : PROCTransformPath(path,A(),b())
  910  WHEN 12  : PROCTransformText(path,A(),b())
  920  OTHERWISE : ERROR 0,"Can't transform. Must be path/text."
  930 ENDCASE
  940ENDPROC
  950
  960DEF PROCTransformPath(path,A(),b())
  970LOCAL _path%,_Style%,_transform
  980_transform=FNCreateTransform(A(),b())
  990_path%=!path : _Style%=_path%!36 : _path%+=40
 1000IF (_Style% AND (1<<7))<>0 THEN _path%+=4*(_path%!4)+8
 1010SYS "Draw_TransformPath",_path%,0,_transform,0
 1020PROCDrawPath(path)
 1030ENDPROC
 1040
 1050DEF PROCTransformText(path,A(),b())
 1060LOCAL _A(),_x(),_i%,_x%,_y%,_text$
 1070DIM _A(1,1),_x(1)
 1080_x(0)=(path!72-FNFrame_x)/FNX_Scale+FNFRAME_x
 1090_x(1)=(path!76-FNFrame_y)/FNY_Scale+FNFRAME_y
 1100_A(0,0)=(path!24)/(1<<16) : _A(0,1)=(path!32)/(1<<16)
 1110_A(1,0)=(path!28)/(1<<16) : _A(1,1)=(path!36)/(1<<16)
 1120_x()=A()._x() : _x()=_x()+b()
 1130 path!72=FNDraw_X(_x(0))
 1140 path!76=FNDraw_Y(_x(1))
 1150 A()=A()._A()
 1160 path!24=INT(A(0,0)*2^16+.5) : path!32=INT(A(0,1)*2^16+.5)
 1170 path!28=INT(A(1,0)*2^16+.5) : path!36=INT(A(1,1)*2^16+.5)
 1180 _i%=80
 1190  WHILE (path?_i%)<>0 : _text$+=CHR$(path?_i%) : _i%+=1 : ENDWHILE
 1200  _x%=path!72 : _x%+=!(HIMEM+112)  : _x%=400*(_x%>>8)
 1210  _y%=path!76 : _y%+=!(HIMEM+116)  : _y%=400*(_y%>>8)
 1220  SYS "Font_Paint",,_text$,%1000000,_x%,_y%,,path+24
 1230  path!52=FNFontColour
 1240  path!60=FNCurrentFont
 1250  path!64=FNFontSize
 1260  path!68=FNFontSize
 1270ENDPROC
 1280
 1290REM ================
 1300REM 1.3 Translation
 1310REM ================
 1320
 1330DEF PROCTranslate(path,dx,dy)
 1340 REM ------------------------------------
 1350 REM
 1360 REM Translates in (x,y) plane
 1370 REM
 1380 REM ------------------------------------
 1390 LOCAL _A(),_b()
 1400 DIM _A(1,1),_b(1) : _A()=1,0,0,1 : _b()=dx,dy
 1410 PROCTransform(path,_A(),_b())
 1420 ENDPROC
 1430
 1440DEF FNTranslate(path,dx,dy)
 1450LOCAL _Path%
 1460_Path%=FNCopy(path)
 1470PROCTranslate(_Path%,dx,dy)
 1480=_Path%
 1490
 1500REM ================
 1510REM 1.4 Magnify
 1520REM ================
 1530
 1540DEF PROCMagnify(path,a,b,factor)
 1550 REM ---------------------------------
 1560 REM Magnifies
 1570 REM I.e.
 1580 REM           -     -        -     -
 1590 REM           | a b |  = m * | a b |
 1600 REM           | c d |        | c d |
 1610 REM           -     -        -     -
 1620 REM ---------------------------------
 1630 LOCAL _transform,_A(),_b()
 1640 DIM _A(1,1),_b(1)
 1650 a=a*(1-factor)
 1660 b=b*(1-factor)
 1670 _A()=factor,0,0,factor
 1680 _b()=a,b
 1690 PROCTransform(path,_A(),_b())
 1700 ENDPROC
 1710
 1720DEF FNMagnify(path,a,b,factor)
 1730LOCAL _Path%
 1740_Path%=FNCopy(path)
 1750PROCMagnify(_Path%,a,b,factor)
 1760=_Path%
 1770
 1780REM ===========
 1790REM 1.5 Rotate
 1800REM ===========
 1810
 1820DEF PROCRotate(path,a,b,angle)
 1830 REM ---------------------------------
 1840 REM
 1850 REM Creates a rotation
 1860 REM
 1870 REM ---------------------------------
 1880 LOCAL _transform,_A(),_b(),_c,_s
 1890 DIM _A(1,1),_b(1)
 1900 _c=COSangle : _s=SINangle
 1910 _A(0,0)=_c : _A(0,1)=-_s : _A(1,0)=_s : _A(1,1)=_c
 1920 _b(0)=a-_c*a+_s*b
 1930 _b(1)=b-_s*a-_c*b
 1940 PROCTransform(path,_A(),_b())
 1950 ENDPROC
 1960
 1970DEF FNRotate(path,a,b,angle)
 1980LOCAL _Path%
 1990_Path%=FNCopy(path)
 2000PROCRotate(_Path%,a,b,angle)
 2010=_Path%
 2020
 2030REM ================
 2040REM 1.4 Tesselation
 2050REM ================
 2060
 2070DEF PROCTile(path,rows%,columns%)
 2080 REM --------------------------------
 2090 REM
 2100 REM Tiles the path
 2110 REM
 2120 REM --------------------------------
 2130 LOCAL _i%,_j%,_Path,_dx,_dy
 2140 CASE FNObjectType(path) OF
 2150 WHEN 2
 2160  PROCDraw_BoundingBox(path,_dx,_dy)
 2170  _dx=_dx/FNX_Scale : _dy=_dy/FNY_Scale
 2180  FOR _i%=0 TO rows%
 2190  FOR _j%=0 TO columns%
 2200   IF _i%+_j%<>0 THEN _Path=FNTranslate(path,_i%*_dx,_j%*_dy)
 2210   NEXT
 2220   NEXT
 2230 OTHERWISE
 2240  ERROR 0,"Only path objects can be tiled."
 2250 ENDCASE
 2260 ENDPROC
 2270
 2280
 2290DEF PROCDraw_BoundingBox(path,RETURN dx%,RETURN dy%)
 2300LOCAL _path%,_Style%,_xmin%,_xmax%,_ymin%,_ymax%,_i%,_length%
 2310 _path%=!path : _length%=_path%+(_path%!4)
 2320 _Style%=_path%!36 : _path%+=40
 2330 IF (_Style% AND (1<<7))<>0 THEN _path%+=4*(_path%!4)+8
 2340 _xmin%=2^30:_xmax%=-_xmin%
 2350 _ymin%=2^30:_ymax%=-_ymin%
 2360 _i%=_path%
 2370 REPEAT
 2380  CASE !_i% OF
 2390   WHEN 0,5 :
 2400   WHEN 2,8 : PROCDraw_Bound
 2410   WHEN 6   : PROCDraw_Bound : PROCDraw_Bound : PROCDraw_Bound
 2420   OTHERWISE : ERROR 0,"Something wrong!"
 2430  ENDCASE
 2440  _i%+=4
 2450 UNTIL _i%>=_length%
 2460 dx%=_xmax%-_xmin%
 2470 dy%=_ymax%-_ymin%
 2480ENDPROC
 2490
 2500DEF PROCDraw_Bound
 2510_i%+=4
 2520IF !_i%<_xmin% THEN _xmin%=!_i%
 2530IF !_i%>_xmax% THEN _xmax%=!_i%
 2540_i%+=4
 2550IF !_i%<_ymin% THEN _ymin%=!_i%
 2560IF !_i%>_ymax% THEN _ymax%=!_i%
 2570ENDPROC
 2580
 2590
 2600
 2610
 2620


&� > DrawBasic:Resources.Transforms

=� =======================================================
(�
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=� =======================================================
�
�� ************************
��
�� TRANSFORMS & OBJECTS
��
�� ************************
�
�� �TransformStore=�+184
�
�� �CreateTransform(A(),b())
�� _transform,_a,_b
�B _a=�FRAME_x-�Frame_x/�X_Scale : _b=�FRAME_y-�Frame_y/�Y_Scale
�"  b(0)+=A(0,0)*_a+A(0,1)*_b-_a
"  b(1)+=A(1,0)*_a+A(1,1)*_b-_b
 _transform=�TransformStore
# _transform!0=�(A(0,0)*2^16+.5)
"# _transform!4=�(A(1,0)*2^16+.5)
,# _transform!8=�(A(0,1)*2^16+.5)
6$ _transform!12=�(A(1,1)*2^16+.5)
@& _transform!16=�(b(0)*�X_Scale+.5)
J& _transform!20=�(b(1)*�Y_Scale+.5)
T=_transform
^
h� ================
r� 1.1 Copying
|� ================
�
�� �Copy(path%)
�( � ---------------------------------
� �
�( � Makes copy of path or text object
� �
�) � ----------------------------------
� Ȏ �ObjectType(path%) �
�   � 2    : =�CopyPath(path%)
�   � 12   : =�CopyText(path%)
�-   : � 0,"Object to copy not text/path!"
� �
�
� �CopyText(path%)
� _length%,_Path%,_i%
%   _length%=(path%!4) : _Path%=!�
&7   � (!(�+4))-(!�)<_length%+1 � � 0,"Out of memory"
0   � _i%=0 � _length%-4 � 4
:   �Draw_AddWord(path%!_i%)
D   �
N=_Path%
X
b� �CopyPath(path%)
l� _length%,_Path%,_i%
v& path%=!path% : _length%=(path%!4)
�5 � (!(�+4))-(!�)<_length%+1 � � 0,"Out of memory"
�+ !(�+4)-=4 : _Path%=!(�+4) : !_Path%=!�
� � _i%=0 � _length%-4 � 4
�  �Draw_AddWord(path%!_i%)
�  �
�=_Path%
�
�� ================
�� 1.2 Affine
�� ================
�
�� �Transform(path,A(),b())
�� _Path
_Path=�Copy(path)
 �Transform(_Path,A(),b())

=_Path
 
*� �Transform(path,A(),b())
4' � --------------------------------
> �
H � Replaces path/text using
R �       X()=A().x()+b()
\ �
f' � --------------------------------
p � _transform,_dx,_dy
z Ȏ �ObjectType(path) �
�*  � 2   : �TransformPath(path,A(),b())
�*  � 12  : �TransformText(path,A(),b())
�3   : � 0,"Can't transform. Must be path/text."
� �
��
�
�"� �TransformPath(path,A(),b())
�� _path%,_Style%,_transform
�(_transform=�CreateTransform(A(),b())
�1_path%=!path : _Style%=_path%!36 : _path%+=40
�4� (_Style% � (1<<7))<>0 � _path%+=4*(_path%!4)+8
�1ș "Draw_TransformPath",_path%,0,_transform,0
��DrawPath(path)
�

"� �TransformText(path,A(),b())
$"� _A(),_x(),_i%,_x%,_y%,_text$
.� _A(1,1),_x(1)
8._x(0)=(path!72-�Frame_x)/�X_Scale+�FRAME_x
B._x(1)=(path!76-�Frame_y)/�Y_Scale+�FRAME_y
L9_A(0,0)=(path!24)/(1<<16) : _A(0,1)=(path!32)/(1<<16)
V9_A(1,0)=(path!28)/(1<<16) : _A(1,1)=(path!36)/(1<<16)
`!_x()=A()._x() : _x()=_x()+b()
j path!72=�Draw_X(_x(0))
t path!76=�Draw_Y(_x(1))
~ A()=A()._A()
�: path!24=�(A(0,0)*2^16+.5) : path!32=�(A(0,1)*2^16+.5)
�: path!28=�(A(1,0)*2^16+.5) : path!36=�(A(1,1)*2^16+.5)
� _i%=80
�9  ȕ (path?_i%)<>0 : _text$+=�(path?_i%) : _i%+=1 : �
�5  _x%=path!72 : _x%+=!(�+112)  : _x%=400*(_x%>>8)
�5  _y%=path!76 : _y%+=!(�+116)  : _y%=400*(_y%>>8)
�7  ș "Font_Paint",,_text$,%1000000,_x%,_y%,,path+24
�  path!52=�FontColour
�  path!60=�CurrentFont
�  path!64=�FontSize
�  path!68=�FontSize
��


� ================
� 1.3 Translation
� ================
(
2� �Translate(path,dx,dy)
<+ � ------------------------------------
F �
P  � Translates in (x,y) plane
Z �
d+ � ------------------------------------
n � _A(),_b()
x0 � _A(1,1),_b(1) : _A()=1,0,0,1 : _b()=dx,dy
� �Transform(path,_A(),_b())
� �
�
�� �Translate(path,dx,dy)
�� _Path%
�_Path%=�Copy(path)
��Translate(_Path%,dx,dy)
�=_Path%
�
�� ================
�� 1.4 Magnify
�� ================
�
� �Magnify(path,a,b,factor)
( � ---------------------------------
 � Magnifies
" � I.e.
,' �           -     -        -     -
6' �           | a b |  = m * | a b |
@' �           | c d |        | c d |
J' �           -     -        -     -
T( � ---------------------------------
^ � _transform,_A(),_b()
h � _A(1,1),_b(1)
r a=a*(1-factor)
| b=b*(1-factor)
� _A()=factor,0,0,factor
�
 _b()=a,b
� �Transform(path,_A(),_b())
� �
�
�� �Magnify(path,a,b,factor)
�� _Path%
�_Path%=�Copy(path)
��Magnify(_Path%,a,b,factor)
�=_Path%
�
�� ===========
�� 1.5 Rotate
� ===========

� �Rotate(path,a,b,angle)
&( � ---------------------------------
0 �
: � Creates a rotation
D �
N( � ---------------------------------
X! � _transform,_A(),_b(),_c,_s
b � _A(1,1),_b(1)
l _c=�angle : _s=�angle
v7 _A(0,0)=_c : _A(0,1)=-_s : _A(1,0)=_s : _A(1,1)=_c
� _b(0)=a-_c*a+_s*b
� _b(1)=b-_s*a-_c*b
� �Transform(path,_A(),_b())
� �
�
�� �Rotate(path,a,b,angle)
�� _Path%
�_Path%=�Copy(path)
��Rotate(_Path%,a,b,angle)
�=_Path%
�
�� ================
�� 1.4 Tesselation
� ================

 � �Tile(path,rows%,columns%)
 ' � --------------------------------
* �
4 � Tiles the path
> �
H' � --------------------------------
R � _i%,_j%,_Path,_dx,_dy
\ Ȏ �ObjectType(path) �
f � 2
p%  �Draw_BoundingBox(path,_dx,_dy)
z)  _dx=_dx/�X_Scale : _dy=_dy/�Y_Scale
�  � _i%=0 � rows%
�  � _j%=0 � columns%
�<   � _i%+_j%<>0 � _Path=�Translate(path,_i%*_dx,_j%*_dy)
�   �
�   �
� 
�+  � 0,"Only path objects can be tiled."
� �
� �
�
�
�)� �Draw_BoundingBox(path,� dx%,� dy%)
�=� _path%,_Style%,_xmin%,_xmax%,_ymin%,_ymax%,_i%,_length%
	. _path%=!path : _length%=_path%+(_path%!4)
	# _Style%=_path%!36 : _path%+=40
	5 � (_Style% � (1<<7))<>0 � _path%+=4*(_path%!4)+8
	$ _xmin%=2^30:_xmax%=-_xmin%
	. _ymin%=2^30:_ymax%=-_ymin%
	8 _i%=_path%
	B �
	L  Ȏ !_i% �
	V   � 0,5 :
	`   � 2,8 : �Draw_Bound
	j6   � 6   : �Draw_Bound : �Draw_Bound : �Draw_Bound
	t!    : � 0,"Something wrong!"
	~  �
	�  _i%+=4
	� � _i%>=_length%
	� dx%=_xmax%-_xmin%
	� dy%=_ymax%-_ymin%
	��
	�
	�� �Draw_Bound
	�
_i%+=4
	�� !_i%<_xmin% � _xmin%=!_i%
	�� !_i%>_xmax% � _xmax%=!_i%
	�
_i%+=4
	�� !_i%<_ymin% � _ymin%=!_i%
� !_i%>_ymax% � _ymax%=!_i%

�


(
2
<
�
00000000  0d 00 0a 26 f4 20 3e 20  44 72 61 77 42 61 73 69  |...&. > DrawBasi|
00000010  63 3a 52 65 73 6f 75 72  63 65 73 2e 54 72 61 6e  |c:Resources.Tran|
00000020  73 66 6f 72 6d 73 0d 00  14 04 0d 00 1e 3d f4 20  |sforms.......=. |
00000030  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000060  3d 3d 3d 3d 3d 3d 3d 0d  00 28 05 f4 0d 00 32 24  |=======..(....2$|
00000070  f4 20 63 6f 70 79 72 69  67 68 74 20 4a 6f 65 20  |. copyright Joe |
00000080  54 61 79 6c 6f 72 20 4a  75 6e 65 20 31 39 39 34  |Taylor June 1994|
00000090  0d 00 3c 05 f4 0d 00 46  3b f4 20 4e 2e 42 2e 20  |..<....F;. N.B. |
000000a0  46 6f 72 20 45 52 52 4f  52 20 54 48 52 4f 57 42  |For ERROR THROWB|
000000b0  41 43 4b 20 74 6f 20 77  6f 72 6b 20 54 68 65 20  |ACK to work The |
000000c0  66 69 72 73 74 20 6c 69  6e 65 20 61 62 6f 76 65  |first line above|
000000d0  0d 00 50 37 f4 20 20 20  20 20 20 4d 55 53 54 20  |..P7.      MUST |
000000e0  68 61 76 65 20 74 68 65  20 63 6f 72 72 65 63 74  |have the correct|
000000f0  20 70 61 74 68 6e 61 6d  65 20 6f 66 20 74 68 69  | pathname of thi|
00000100  73 20 66 69 6c 65 2e 0d  00 5a 3b f4 20 20 20 20  |s file...Z;.    |
00000110  20 20 49 66 20 79 6f 75  20 6d 6f 76 65 20 74 68  |  If you move th|
00000120  65 20 6c 6f 63 61 74 69  6f 6e 20 6f 66 20 74 68  |e location of th|
00000130  65 20 66 69 6c 65 20 72  65 6d 65 6d 62 65 72 20  |e file remember |
00000140  74 6f 0d 00 64 1f f4 20  20 20 20 20 20 61 6c 74  |to..d..      alt|
00000150  65 72 20 74 68 69 73 20  70 61 74 68 6e 61 6d 65  |er this pathname|
00000160  2e 0d 00 6e 05 f4 0d 00  78 3d f4 20 3d 3d 3d 3d  |...n....x=. ====|
00000170  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
000001a0  3d 3d 3d 0d 00 82 04 0d  00 8c 1e f4 20 2a 2a 2a  |===......... ***|
000001b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000001c0  2a 2a 2a 2a 2a 0d 00 96  05 f4 0d 00 a0 1a f4 20  |*****.......... |
000001d0  54 52 41 4e 53 46 4f 52  4d 53 20 26 20 4f 42 4a  |TRANSFORMS & OBJ|
000001e0  45 43 54 53 0d 00 aa 05  f4 0d 00 b4 1e f4 20 2a  |ECTS.......... *|
000001f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000200  2a 2a 2a 2a 2a 2a 2a 0d  00 be 04 0d 00 c8 1b dd  |*******.........|
00000210  20 a4 54 72 61 6e 73 66  6f 72 6d 53 74 6f 72 65  | .TransformStore|
00000220  3d 93 2b 31 38 34 0d 00  d2 04 0d 00 dc 1f dd 20  |=.+184......... |
00000230  a4 43 72 65 61 74 65 54  72 61 6e 73 66 6f 72 6d  |.CreateTransform|
00000240  28 41 28 29 2c 62 28 29  29 0d 00 e6 16 ea 20 5f  |(A(),b())..... _|
00000250  74 72 61 6e 73 66 6f 72  6d 2c 5f 61 2c 5f 62 0d  |transform,_a,_b.|
00000260  00 f0 42 20 5f 61 3d a4  46 52 41 4d 45 5f 78 2d  |..B _a=.FRAME_x-|
00000270  a4 46 72 61 6d 65 5f 78  2f a4 58 5f 53 63 61 6c  |.Frame_x/.X_Scal|
00000280  65 20 3a 20 5f 62 3d a4  46 52 41 4d 45 5f 79 2d  |e : _b=.FRAME_y-|
00000290  a4 46 72 61 6d 65 5f 79  2f a4 59 5f 53 63 61 6c  |.Frame_y/.Y_Scal|
000002a0  65 0d 00 fa 22 20 20 62  28 30 29 2b 3d 41 28 30  |e..."  b(0)+=A(0|
000002b0  2c 30 29 2a 5f 61 2b 41  28 30 2c 31 29 2a 5f 62  |,0)*_a+A(0,1)*_b|
000002c0  2d 5f 61 0d 01 04 22 20  20 62 28 31 29 2b 3d 41  |-_a..."  b(1)+=A|
000002d0  28 31 2c 30 29 2a 5f 61  2b 41 28 31 2c 31 29 2a  |(1,0)*_a+A(1,1)*|
000002e0  5f 62 2d 5f 62 0d 01 0e  1f 20 5f 74 72 61 6e 73  |_b-_b.... _trans|
000002f0  66 6f 72 6d 3d a4 54 72  61 6e 73 66 6f 72 6d 53  |form=.TransformS|
00000300  74 6f 72 65 0d 01 18 23  20 5f 74 72 61 6e 73 66  |tore...# _transf|
00000310  6f 72 6d 21 30 3d a8 28  41 28 30 2c 30 29 2a 32  |orm!0=.(A(0,0)*2|
00000320  5e 31 36 2b 2e 35 29 0d  01 22 23 20 5f 74 72 61  |^16+.5).."# _tra|
00000330  6e 73 66 6f 72 6d 21 34  3d a8 28 41 28 31 2c 30  |nsform!4=.(A(1,0|
00000340  29 2a 32 5e 31 36 2b 2e  35 29 0d 01 2c 23 20 5f  |)*2^16+.5)..,# _|
00000350  74 72 61 6e 73 66 6f 72  6d 21 38 3d a8 28 41 28  |transform!8=.(A(|
00000360  30 2c 31 29 2a 32 5e 31  36 2b 2e 35 29 0d 01 36  |0,1)*2^16+.5)..6|
00000370  24 20 5f 74 72 61 6e 73  66 6f 72 6d 21 31 32 3d  |$ _transform!12=|
00000380  a8 28 41 28 31 2c 31 29  2a 32 5e 31 36 2b 2e 35  |.(A(1,1)*2^16+.5|
00000390  29 0d 01 40 26 20 5f 74  72 61 6e 73 66 6f 72 6d  |)..@& _transform|
000003a0  21 31 36 3d a8 28 62 28  30 29 2a a4 58 5f 53 63  |!16=.(b(0)*.X_Sc|
000003b0  61 6c 65 2b 2e 35 29 0d  01 4a 26 20 5f 74 72 61  |ale+.5)..J& _tra|
000003c0  6e 73 66 6f 72 6d 21 32  30 3d a8 28 62 28 31 29  |nsform!20=.(b(1)|
000003d0  2a a4 59 5f 53 63 61 6c  65 2b 2e 35 29 0d 01 54  |*.Y_Scale+.5)..T|
000003e0  0f 3d 5f 74 72 61 6e 73  66 6f 72 6d 0d 01 5e 04  |.=_transform..^.|
000003f0  0d 01 68 16 f4 20 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |..h.. ==========|
00000400  3d 3d 3d 3d 3d 3d 0d 01  72 11 f4 20 31 2e 31 20  |======..r.. 1.1 |
00000410  43 6f 70 79 69 6e 67 0d  01 7c 16 f4 20 3d 3d 3d  |Copying..|.. ===|
00000420  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 0d 01 86  |=============...|
00000430  04 0d 01 90 12 dd 20 a4  43 6f 70 79 28 70 61 74  |...... .Copy(pat|
00000440  68 25 29 0d 01 9a 28 20  f4 20 2d 2d 2d 2d 2d 2d  |h%)...( . ------|
00000450  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000460  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 01 a4 06 20  |-----------.... |
00000470  f4 0d 01 ae 28 20 f4 20  4d 61 6b 65 73 20 63 6f  |....( . Makes co|
00000480  70 79 20 6f 66 20 70 61  74 68 20 6f 72 20 74 65  |py of path or te|
00000490  78 74 20 6f 62 6a 65 63  74 0d 01 b8 06 20 f4 0d  |xt object.... ..|
000004a0  01 c2 29 20 f4 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..) . ----------|
000004b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000004c0  2d 2d 2d 2d 2d 2d 2d 2d  0d 01 cc 1c 20 c8 8e 20  |--------.... .. |
000004d0  a4 4f 62 6a 65 63 74 54  79 70 65 28 70 61 74 68  |.ObjectType(path|
000004e0  25 29 20 ca 0d 01 d6 20  20 20 c9 20 32 20 20 20  |%) ....   . 2   |
000004f0  20 3a 20 3d a4 43 6f 70  79 50 61 74 68 28 70 61  | : =.CopyPath(pa|
00000500  74 68 25 29 0d 01 e0 20  20 20 c9 20 31 32 20 20  |th%)...   . 12  |
00000510  20 3a 20 3d a4 43 6f 70  79 54 65 78 74 28 70 61  | : =.CopyText(pa|
00000520  74 68 25 29 0d 01 ea 2d  20 20 7f 20 3a 20 85 20  |th%)...-  . : . |
00000530  30 2c 22 4f 62 6a 65 63  74 20 74 6f 20 63 6f 70  |0,"Object to cop|
00000540  79 20 6e 6f 74 20 74 65  78 74 2f 70 61 74 68 21  |y not text/path!|
00000550  22 0d 01 f4 06 20 cb 0d  01 fe 04 0d 02 08 16 dd  |".... ..........|
00000560  20 a4 43 6f 70 79 54 65  78 74 28 70 61 74 68 25  | .CopyText(path%|
00000570  29 0d 02 12 19 ea 20 5f  6c 65 6e 67 74 68 25 2c  |)..... _length%,|
00000580  5f 50 61 74 68 25 2c 5f  69 25 0d 02 1c 25 20 20  |_Path%,_i%...%  |
00000590  20 5f 6c 65 6e 67 74 68  25 3d 28 70 61 74 68 25  | _length%=(path%|
000005a0  21 34 29 20 3a 20 5f 50  61 74 68 25 3d 21 93 0d  |!4) : _Path%=!..|
000005b0  02 26 37 20 20 20 e7 20  28 21 28 93 2b 34 29 29  |.&7   . (!(.+4))|
000005c0  2d 28 21 93 29 3c 5f 6c  65 6e 67 74 68 25 2b 31  |-(!.)<_length%+1|
000005d0  20 8c 20 85 20 30 2c 22  4f 75 74 20 6f 66 20 6d  | . . 0,"Out of m|
000005e0  65 6d 6f 72 79 22 0d 02  30 1f 20 20 20 e3 20 5f  |emory"..0.   . _|
000005f0  69 25 3d 30 20 b8 20 5f  6c 65 6e 67 74 68 25 2d  |i%=0 . _length%-|
00000600  34 20 88 20 34 0d 02 3a  1f 20 20 20 f2 44 72 61  |4 . 4..:.   .Dra|
00000610  77 5f 41 64 64 57 6f 72  64 28 70 61 74 68 25 21  |w_AddWord(path%!|
00000620  5f 69 25 29 0d 02 44 08  20 20 20 ed 0d 02 4e 0b  |_i%)..D.   ...N.|
00000630  3d 5f 50 61 74 68 25 0d  02 58 04 0d 02 62 16 dd  |=_Path%..X...b..|
00000640  20 a4 43 6f 70 79 50 61  74 68 28 70 61 74 68 25  | .CopyPath(path%|
00000650  29 0d 02 6c 19 ea 20 5f  6c 65 6e 67 74 68 25 2c  |)..l.. _length%,|
00000660  5f 50 61 74 68 25 2c 5f  69 25 0d 02 76 26 20 70  |_Path%,_i%..v& p|
00000670  61 74 68 25 3d 21 70 61  74 68 25 20 3a 20 5f 6c  |ath%=!path% : _l|
00000680  65 6e 67 74 68 25 3d 28  70 61 74 68 25 21 34 29  |ength%=(path%!4)|
00000690  0d 02 80 35 20 e7 20 28  21 28 93 2b 34 29 29 2d  |...5 . (!(.+4))-|
000006a0  28 21 93 29 3c 5f 6c 65  6e 67 74 68 25 2b 31 20  |(!.)<_length%+1 |
000006b0  8c 20 85 20 30 2c 22 4f  75 74 20 6f 66 20 6d 65  |. . 0,"Out of me|
000006c0  6d 6f 72 79 22 0d 02 8a  2b 20 21 28 93 2b 34 29  |mory"...+ !(.+4)|
000006d0  2d 3d 34 20 3a 20 5f 50  61 74 68 25 3d 21 28 93  |-=4 : _Path%=!(.|
000006e0  2b 34 29 20 3a 20 21 5f  50 61 74 68 25 3d 21 93  |+4) : !_Path%=!.|
000006f0  0d 02 94 1d 20 e3 20 5f  69 25 3d 30 20 b8 20 5f  |.... . _i%=0 . _|
00000700  6c 65 6e 67 74 68 25 2d  34 20 88 20 34 0d 02 9e  |length%-4 . 4...|
00000710  1e 20 20 f2 44 72 61 77  5f 41 64 64 57 6f 72 64  |.  .Draw_AddWord|
00000720  28 70 61 74 68 25 21 5f  69 25 29 0d 02 a8 07 20  |(path%!_i%).... |
00000730  20 ed 0d 02 b2 0b 3d 5f  50 61 74 68 25 0d 02 bc  | .....=_Path%...|
00000740  04 0d 02 c6 16 f4 20 3d  3d 3d 3d 3d 3d 3d 3d 3d  |...... =========|
00000750  3d 3d 3d 3d 3d 3d 3d 0d  02 d0 10 f4 20 31 2e 32  |=======..... 1.2|
00000760  20 41 66 66 69 6e 65 0d  02 da 16 f4 20 3d 3d 3d  | Affine..... ===|
00000770  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 0d 02 e4  |=============...|
00000780  04 0d 02 ee 1e dd 20 a4  54 72 61 6e 73 66 6f 72  |...... .Transfor|
00000790  6d 28 70 61 74 68 2c 41  28 29 2c 62 28 29 29 0d  |m(path,A(),b()).|
000007a0  02 f8 0b ea 20 5f 50 61  74 68 0d 03 02 15 5f 50  |.... _Path...._P|
000007b0  61 74 68 3d a4 43 6f 70  79 28 70 61 74 68 29 0d  |ath=.Copy(path).|
000007c0  03 0c 1e 20 f2 54 72 61  6e 73 66 6f 72 6d 28 5f  |... .Transform(_|
000007d0  50 61 74 68 2c 41 28 29  2c 62 28 29 29 0d 03 16  |Path,A(),b())...|
000007e0  0a 3d 5f 50 61 74 68 0d  03 20 04 0d 03 2a 1e dd  |.=_Path.. ...*..|
000007f0  20 f2 54 72 61 6e 73 66  6f 72 6d 28 70 61 74 68  | .Transform(path|
00000800  2c 41 28 29 2c 62 28 29  29 0d 03 34 27 20 f4 20  |,A(),b())..4' . |
00000810  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000830  0d 03 3e 06 20 f4 0d 03  48 1f 20 f4 20 52 65 70  |..>. ...H. . Rep|
00000840  6c 61 63 65 73 20 70 61  74 68 2f 74 65 78 74 20  |laces path/text |
00000850  75 73 69 6e 67 0d 03 52  1c 20 f4 20 20 20 20 20  |using..R. .     |
00000860  20 20 58 28 29 3d 41 28  29 2e 78 28 29 2b 62 28  |  X()=A().x()+b(|
00000870  29 0d 03 5c 06 20 f4 0d  03 66 27 20 f4 20 2d 2d  |)..\. ...f' . --|
00000880  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000890  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 03  |--------------..|
000008a0  70 19 20 ea 20 5f 74 72  61 6e 73 66 6f 72 6d 2c  |p. . _transform,|
000008b0  5f 64 78 2c 5f 64 79 0d  03 7a 1b 20 c8 8e 20 a4  |_dx,_dy..z. .. .|
000008c0  4f 62 6a 65 63 74 54 79  70 65 28 70 61 74 68 29  |ObjectType(path)|
000008d0  20 ca 0d 03 84 2a 20 20  c9 20 32 20 20 20 3a 20  | ....*  . 2   : |
000008e0  f2 54 72 61 6e 73 66 6f  72 6d 50 61 74 68 28 70  |.TransformPath(p|
000008f0  61 74 68 2c 41 28 29 2c  62 28 29 29 0d 03 8e 2a  |ath,A(),b())...*|
00000900  20 20 c9 20 31 32 20 20  3a 20 f2 54 72 61 6e 73  |  . 12  : .Trans|
00000910  66 6f 72 6d 54 65 78 74  28 70 61 74 68 2c 41 28  |formText(path,A(|
00000920  29 2c 62 28 29 29 0d 03  98 33 20 20 7f 20 3a 20  |),b())...3  . : |
00000930  85 20 30 2c 22 43 61 6e  27 74 20 74 72 61 6e 73  |. 0,"Can't trans|
00000940  66 6f 72 6d 2e 20 4d 75  73 74 20 62 65 20 70 61  |form. Must be pa|
00000950  74 68 2f 74 65 78 74 2e  22 0d 03 a2 06 20 cb 0d  |th/text.".... ..|
00000960  03 ac 05 e1 0d 03 b6 04  0d 03 c0 22 dd 20 f2 54  |...........". .T|
00000970  72 61 6e 73 66 6f 72 6d  50 61 74 68 28 70 61 74  |ransformPath(pat|
00000980  68 2c 41 28 29 2c 62 28  29 29 0d 03 ca 1f ea 20  |h,A(),b())..... |
00000990  5f 70 61 74 68 25 2c 5f  53 74 79 6c 65 25 2c 5f  |_path%,_Style%,_|
000009a0  74 72 61 6e 73 66 6f 72  6d 0d 03 d4 28 5f 74 72  |transform...(_tr|
000009b0  61 6e 73 66 6f 72 6d 3d  a4 43 72 65 61 74 65 54  |ansform=.CreateT|
000009c0  72 61 6e 73 66 6f 72 6d  28 41 28 29 2c 62 28 29  |ransform(A(),b()|
000009d0  29 0d 03 de 31 5f 70 61  74 68 25 3d 21 70 61 74  |)...1_path%=!pat|
000009e0  68 20 3a 20 5f 53 74 79  6c 65 25 3d 5f 70 61 74  |h : _Style%=_pat|
000009f0  68 25 21 33 36 20 3a 20  5f 70 61 74 68 25 2b 3d  |h%!36 : _path%+=|
00000a00  34 30 0d 03 e8 34 e7 20  28 5f 53 74 79 6c 65 25  |40...4. (_Style%|
00000a10  20 80 20 28 31 3c 3c 37  29 29 3c 3e 30 20 8c 20  | . (1<<7))<>0 . |
00000a20  5f 70 61 74 68 25 2b 3d  34 2a 28 5f 70 61 74 68  |_path%+=4*(_path|
00000a30  25 21 34 29 2b 38 0d 03  f2 31 c8 99 20 22 44 72  |%!4)+8...1.. "Dr|
00000a40  61 77 5f 54 72 61 6e 73  66 6f 72 6d 50 61 74 68  |aw_TransformPath|
00000a50  22 2c 5f 70 61 74 68 25  2c 30 2c 5f 74 72 61 6e  |",_path%,0,_tran|
00000a60  73 66 6f 72 6d 2c 30 0d  03 fc 13 f2 44 72 61 77  |sform,0.....Draw|
00000a70  50 61 74 68 28 70 61 74  68 29 0d 04 06 05 e1 0d  |Path(path)......|
00000a80  04 10 04 0d 04 1a 22 dd  20 f2 54 72 61 6e 73 66  |......". .Transf|
00000a90  6f 72 6d 54 65 78 74 28  70 61 74 68 2c 41 28 29  |ormText(path,A()|
00000aa0  2c 62 28 29 29 0d 04 24  22 ea 20 5f 41 28 29 2c  |,b())..$". _A(),|
00000ab0  5f 78 28 29 2c 5f 69 25  2c 5f 78 25 2c 5f 79 25  |_x(),_i%,_x%,_y%|
00000ac0  2c 5f 74 65 78 74 24 0d  04 2e 13 de 20 5f 41 28  |,_text$..... _A(|
00000ad0  31 2c 31 29 2c 5f 78 28  31 29 0d 04 38 2e 5f 78  |1,1),_x(1)..8._x|
00000ae0  28 30 29 3d 28 70 61 74  68 21 37 32 2d a4 46 72  |(0)=(path!72-.Fr|
00000af0  61 6d 65 5f 78 29 2f a4  58 5f 53 63 61 6c 65 2b  |ame_x)/.X_Scale+|
00000b00  a4 46 52 41 4d 45 5f 78  0d 04 42 2e 5f 78 28 31  |.FRAME_x..B._x(1|
00000b10  29 3d 28 70 61 74 68 21  37 36 2d a4 46 72 61 6d  |)=(path!76-.Fram|
00000b20  65 5f 79 29 2f a4 59 5f  53 63 61 6c 65 2b a4 46  |e_y)/.Y_Scale+.F|
00000b30  52 41 4d 45 5f 79 0d 04  4c 39 5f 41 28 30 2c 30  |RAME_y..L9_A(0,0|
00000b40  29 3d 28 70 61 74 68 21  32 34 29 2f 28 31 3c 3c  |)=(path!24)/(1<<|
00000b50  31 36 29 20 3a 20 5f 41  28 30 2c 31 29 3d 28 70  |16) : _A(0,1)=(p|
00000b60  61 74 68 21 33 32 29 2f  28 31 3c 3c 31 36 29 0d  |ath!32)/(1<<16).|
00000b70  04 56 39 5f 41 28 31 2c  30 29 3d 28 70 61 74 68  |.V9_A(1,0)=(path|
00000b80  21 32 38 29 2f 28 31 3c  3c 31 36 29 20 3a 20 5f  |!28)/(1<<16) : _|
00000b90  41 28 31 2c 31 29 3d 28  70 61 74 68 21 33 36 29  |A(1,1)=(path!36)|
00000ba0  2f 28 31 3c 3c 31 36 29  0d 04 60 21 5f 78 28 29  |/(1<<16)..`!_x()|
00000bb0  3d 41 28 29 2e 5f 78 28  29 20 3a 20 5f 78 28 29  |=A()._x() : _x()|
00000bc0  3d 5f 78 28 29 2b 62 28  29 0d 04 6a 1b 20 70 61  |=_x()+b()..j. pa|
00000bd0  74 68 21 37 32 3d a4 44  72 61 77 5f 58 28 5f 78  |th!72=.Draw_X(_x|
00000be0  28 30 29 29 0d 04 74 1b  20 70 61 74 68 21 37 36  |(0))..t. path!76|
00000bf0  3d a4 44 72 61 77 5f 59  28 5f 78 28 31 29 29 0d  |=.Draw_Y(_x(1)).|
00000c00  04 7e 11 20 41 28 29 3d  41 28 29 2e 5f 41 28 29  |.~. A()=A()._A()|
00000c10  0d 04 88 3a 20 70 61 74  68 21 32 34 3d a8 28 41  |...: path!24=.(A|
00000c20  28 30 2c 30 29 2a 32 5e  31 36 2b 2e 35 29 20 3a  |(0,0)*2^16+.5) :|
00000c30  20 70 61 74 68 21 33 32  3d a8 28 41 28 30 2c 31  | path!32=.(A(0,1|
00000c40  29 2a 32 5e 31 36 2b 2e  35 29 0d 04 92 3a 20 70  |)*2^16+.5)...: p|
00000c50  61 74 68 21 32 38 3d a8  28 41 28 31 2c 30 29 2a  |ath!28=.(A(1,0)*|
00000c60  32 5e 31 36 2b 2e 35 29  20 3a 20 70 61 74 68 21  |2^16+.5) : path!|
00000c70  33 36 3d a8 28 41 28 31  2c 31 29 2a 32 5e 31 36  |36=.(A(1,1)*2^16|
00000c80  2b 2e 35 29 0d 04 9c 0b  20 5f 69 25 3d 38 30 0d  |+.5).... _i%=80.|
00000c90  04 a6 39 20 20 c8 95 20  28 70 61 74 68 3f 5f 69  |..9  .. (path?_i|
00000ca0  25 29 3c 3e 30 20 3a 20  5f 74 65 78 74 24 2b 3d  |%)<>0 : _text$+=|
00000cb0  bd 28 70 61 74 68 3f 5f  69 25 29 20 3a 20 5f 69  |.(path?_i%) : _i|
00000cc0  25 2b 3d 31 20 3a 20 ce  0d 04 b0 35 20 20 5f 78  |%+=1 : ....5  _x|
00000cd0  25 3d 70 61 74 68 21 37  32 20 3a 20 5f 78 25 2b  |%=path!72 : _x%+|
00000ce0  3d 21 28 93 2b 31 31 32  29 20 20 3a 20 5f 78 25  |=!(.+112)  : _x%|
00000cf0  3d 34 30 30 2a 28 5f 78  25 3e 3e 38 29 0d 04 ba  |=400*(_x%>>8)...|
00000d00  35 20 20 5f 79 25 3d 70  61 74 68 21 37 36 20 3a  |5  _y%=path!76 :|
00000d10  20 5f 79 25 2b 3d 21 28  93 2b 31 31 36 29 20 20  | _y%+=!(.+116)  |
00000d20  3a 20 5f 79 25 3d 34 30  30 2a 28 5f 79 25 3e 3e  |: _y%=400*(_y%>>|
00000d30  38 29 0d 04 c4 37 20 20  c8 99 20 22 46 6f 6e 74  |8)...7  .. "Font|
00000d40  5f 50 61 69 6e 74 22 2c  2c 5f 74 65 78 74 24 2c  |_Paint",,_text$,|
00000d50  25 31 30 30 30 30 30 30  2c 5f 78 25 2c 5f 79 25  |%1000000,_x%,_y%|
00000d60  2c 2c 70 61 74 68 2b 32  34 0d 04 ce 19 20 20 70  |,,path+24....  p|
00000d70  61 74 68 21 35 32 3d a4  46 6f 6e 74 43 6f 6c 6f  |ath!52=.FontColo|
00000d80  75 72 0d 04 d8 1a 20 20  70 61 74 68 21 36 30 3d  |ur....  path!60=|
00000d90  a4 43 75 72 72 65 6e 74  46 6f 6e 74 0d 04 e2 17  |.CurrentFont....|
00000da0  20 20 70 61 74 68 21 36  34 3d a4 46 6f 6e 74 53  |  path!64=.FontS|
00000db0  69 7a 65 0d 04 ec 17 20  20 70 61 74 68 21 36 38  |ize....  path!68|
00000dc0  3d a4 46 6f 6e 74 53 69  7a 65 0d 04 f6 05 e1 0d  |=.FontSize......|
00000dd0  05 00 04 0d 05 0a 16 f4  20 3d 3d 3d 3d 3d 3d 3d  |........ =======|
00000de0  3d 3d 3d 3d 3d 3d 3d 3d  3d 0d 05 14 15 f4 20 31  |=========..... 1|
00000df0  2e 33 20 54 72 61 6e 73  6c 61 74 69 6f 6e 0d 05  |.3 Translation..|
00000e00  1e 16 f4 20 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |... ============|
00000e10  3d 3d 3d 3d 0d 05 28 04  0d 05 32 1c dd 20 f2 54  |====..(...2.. .T|
00000e20  72 61 6e 73 6c 61 74 65  28 70 61 74 68 2c 64 78  |ranslate(path,dx|
00000e30  2c 64 79 29 0d 05 3c 2b  20 f4 20 2d 2d 2d 2d 2d  |,dy)..<+ . -----|
00000e40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000e50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00000e60  05 46 06 20 f4 0d 05 50  20 20 f4 20 54 72 61 6e  |.F. ...P  . Tran|
00000e70  73 6c 61 74 65 73 20 69  6e 20 28 78 2c 79 29 20  |slates in (x,y) |
00000e80  70 6c 61 6e 65 0d 05 5a  06 20 f4 0d 05 64 2b 20  |plane..Z. ...d+ |
00000e90  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
00000ea0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000eb0  2d 2d 2d 2d 2d 2d 0d 05  6e 10 20 ea 20 5f 41 28  |------..n. . _A(|
00000ec0  29 2c 5f 62 28 29 0d 05  78 30 20 de 20 5f 41 28  |),_b()..x0 . _A(|
00000ed0  31 2c 31 29 2c 5f 62 28  31 29 20 3a 20 5f 41 28  |1,1),_b(1) : _A(|
00000ee0  29 3d 31 2c 30 2c 30 2c  31 20 3a 20 5f 62 28 29  |)=1,0,0,1 : _b()|
00000ef0  3d 64 78 2c 64 79 0d 05  82 1f 20 f2 54 72 61 6e  |=dx,dy.... .Tran|
00000f00  73 66 6f 72 6d 28 70 61  74 68 2c 5f 41 28 29 2c  |sform(path,_A(),|
00000f10  5f 62 28 29 29 0d 05 8c  06 20 e1 0d 05 96 04 0d  |_b()).... ......|
00000f20  05 a0 1c dd 20 a4 54 72  61 6e 73 6c 61 74 65 28  |.... .Translate(|
00000f30  70 61 74 68 2c 64 78 2c  64 79 29 0d 05 aa 0c ea  |path,dx,dy).....|
00000f40  20 5f 50 61 74 68 25 0d  05 b4 16 5f 50 61 74 68  | _Path%...._Path|
00000f50  25 3d a4 43 6f 70 79 28  70 61 74 68 29 0d 05 be  |%=.Copy(path)...|
00000f60  1c f2 54 72 61 6e 73 6c  61 74 65 28 5f 50 61 74  |..Translate(_Pat|
00000f70  68 25 2c 64 78 2c 64 79  29 0d 05 c8 0b 3d 5f 50  |h%,dx,dy)....=_P|
00000f80  61 74 68 25 0d 05 d2 04  0d 05 dc 16 f4 20 3d 3d  |ath%......... ==|
00000f90  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 0d 05  |==============..|
00000fa0  e6 11 f4 20 31 2e 34 20  4d 61 67 6e 69 66 79 0d  |... 1.4 Magnify.|
00000fb0  05 f0 16 f4 20 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |.... ===========|
00000fc0  3d 3d 3d 3d 3d 0d 05 fa  04 0d 06 04 1f dd 20 f2  |=====......... .|
00000fd0  4d 61 67 6e 69 66 79 28  70 61 74 68 2c 61 2c 62  |Magnify(path,a,b|
00000fe0  2c 66 61 63 74 6f 72 29  0d 06 0e 28 20 f4 20 2d  |,factor)...( . -|
00000ff0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001010  0d 06 18 10 20 f4 20 4d  61 67 6e 69 66 69 65 73  |.... . Magnifies|
00001020  0d 06 22 0b 20 f4 20 49  2e 65 2e 0d 06 2c 27 20  |..". . I.e...,' |
00001030  f4 20 20 20 20 20 20 20  20 20 20 20 2d 20 20 20  |.           -   |
00001040  20 20 2d 20 20 20 20 20  20 20 20 2d 20 20 20 20  |  -        -    |
00001050  20 2d 0d 06 36 27 20 f4  20 20 20 20 20 20 20 20  | -..6' .        |
00001060  20 20 20 7c 20 61 20 62  20 7c 20 20 3d 20 6d 20  |   | a b |  = m |
00001070  2a 20 7c 20 61 20 62 20  7c 0d 06 40 27 20 f4 20  |* | a b |..@' . |
00001080  20 20 20 20 20 20 20 20  20 20 7c 20 63 20 64 20  |          | c d |
00001090  7c 20 20 20 20 20 20 20  20 7c 20 63 20 64 20 7c  ||        | c d ||
000010a0  0d 06 4a 27 20 f4 20 20  20 20 20 20 20 20 20 20  |..J' .          |
000010b0  20 2d 20 20 20 20 20 2d  20 20 20 20 20 20 20 20  | -     -        |
000010c0  2d 20 20 20 20 20 2d 0d  06 54 28 20 f4 20 2d 2d  |-     -..T( . --|
000010d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000010e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
000010f0  06 5e 1b 20 ea 20 5f 74  72 61 6e 73 66 6f 72 6d  |.^. . _transform|
00001100  2c 5f 41 28 29 2c 5f 62  28 29 0d 06 68 14 20 de  |,_A(),_b()..h. .|
00001110  20 5f 41 28 31 2c 31 29  2c 5f 62 28 31 29 0d 06  | _A(1,1),_b(1)..|
00001120  72 13 20 61 3d 61 2a 28  31 2d 66 61 63 74 6f 72  |r. a=a*(1-factor|
00001130  29 0d 06 7c 13 20 62 3d  62 2a 28 31 2d 66 61 63  |)..|. b=b*(1-fac|
00001140  74 6f 72 29 0d 06 86 1b  20 5f 41 28 29 3d 66 61  |tor).... _A()=fa|
00001150  63 74 6f 72 2c 30 2c 30  2c 66 61 63 74 6f 72 0d  |ctor,0,0,factor.|
00001160  06 90 0d 20 5f 62 28 29  3d 61 2c 62 0d 06 9a 1f  |... _b()=a,b....|
00001170  20 f2 54 72 61 6e 73 66  6f 72 6d 28 70 61 74 68  | .Transform(path|
00001180  2c 5f 41 28 29 2c 5f 62  28 29 29 0d 06 a4 06 20  |,_A(),_b()).... |
00001190  e1 0d 06 ae 04 0d 06 b8  1f dd 20 a4 4d 61 67 6e  |.......... .Magn|
000011a0  69 66 79 28 70 61 74 68  2c 61 2c 62 2c 66 61 63  |ify(path,a,b,fac|
000011b0  74 6f 72 29 0d 06 c2 0c  ea 20 5f 50 61 74 68 25  |tor)..... _Path%|
000011c0  0d 06 cc 16 5f 50 61 74  68 25 3d a4 43 6f 70 79  |...._Path%=.Copy|
000011d0  28 70 61 74 68 29 0d 06  d6 1f f2 4d 61 67 6e 69  |(path).....Magni|
000011e0  66 79 28 5f 50 61 74 68  25 2c 61 2c 62 2c 66 61  |fy(_Path%,a,b,fa|
000011f0  63 74 6f 72 29 0d 06 e0  0b 3d 5f 50 61 74 68 25  |ctor)....=_Path%|
00001200  0d 06 ea 04 0d 06 f4 11  f4 20 3d 3d 3d 3d 3d 3d  |......... ======|
00001210  3d 3d 3d 3d 3d 0d 06 fe  10 f4 20 31 2e 35 20 52  |=====..... 1.5 R|
00001220  6f 74 61 74 65 0d 07 08  11 f4 20 3d 3d 3d 3d 3d  |otate..... =====|
00001230  3d 3d 3d 3d 3d 3d 0d 07  12 04 0d 07 1c 1d dd 20  |======......... |
00001240  f2 52 6f 74 61 74 65 28  70 61 74 68 2c 61 2c 62  |.Rotate(path,a,b|
00001250  2c 61 6e 67 6c 65 29 0d  07 26 28 20 f4 20 2d 2d  |,angle)..&( . --|
00001260  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001270  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00001280  07 30 06 20 f4 0d 07 3a  19 20 f4 20 43 72 65 61  |.0. ...:. . Crea|
00001290  74 65 73 20 61 20 72 6f  74 61 74 69 6f 6e 0d 07  |tes a rotation..|
000012a0  44 06 20 f4 0d 07 4e 28  20 f4 20 2d 2d 2d 2d 2d  |D. ...N( . -----|
000012b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000012c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 07 58 21  |------------..X!|
000012d0  20 ea 20 5f 74 72 61 6e  73 66 6f 72 6d 2c 5f 41  | . _transform,_A|
000012e0  28 29 2c 5f 62 28 29 2c  5f 63 2c 5f 73 0d 07 62  |(),_b(),_c,_s..b|
000012f0  14 20 de 20 5f 41 28 31  2c 31 29 2c 5f 62 28 31  |. . _A(1,1),_b(1|
00001300  29 0d 07 6c 1a 20 5f 63  3d 9b 61 6e 67 6c 65 20  |)..l. _c=.angle |
00001310  3a 20 5f 73 3d b5 61 6e  67 6c 65 0d 07 76 37 20  |: _s=.angle..v7 |
00001320  5f 41 28 30 2c 30 29 3d  5f 63 20 3a 20 5f 41 28  |_A(0,0)=_c : _A(|
00001330  30 2c 31 29 3d 2d 5f 73  20 3a 20 5f 41 28 31 2c  |0,1)=-_s : _A(1,|
00001340  30 29 3d 5f 73 20 3a 20  5f 41 28 31 2c 31 29 3d  |0)=_s : _A(1,1)=|
00001350  5f 63 0d 07 80 16 20 5f  62 28 30 29 3d 61 2d 5f  |_c.... _b(0)=a-_|
00001360  63 2a 61 2b 5f 73 2a 62  0d 07 8a 16 20 5f 62 28  |c*a+_s*b.... _b(|
00001370  31 29 3d 62 2d 5f 73 2a  61 2d 5f 63 2a 62 0d 07  |1)=b-_s*a-_c*b..|
00001380  94 1f 20 f2 54 72 61 6e  73 66 6f 72 6d 28 70 61  |.. .Transform(pa|
00001390  74 68 2c 5f 41 28 29 2c  5f 62 28 29 29 0d 07 9e  |th,_A(),_b())...|
000013a0  06 20 e1 0d 07 a8 04 0d  07 b2 1d dd 20 a4 52 6f  |. .......... .Ro|
000013b0  74 61 74 65 28 70 61 74  68 2c 61 2c 62 2c 61 6e  |tate(path,a,b,an|
000013c0  67 6c 65 29 0d 07 bc 0c  ea 20 5f 50 61 74 68 25  |gle)..... _Path%|
000013d0  0d 07 c6 16 5f 50 61 74  68 25 3d a4 43 6f 70 79  |...._Path%=.Copy|
000013e0  28 70 61 74 68 29 0d 07  d0 1d f2 52 6f 74 61 74  |(path).....Rotat|
000013f0  65 28 5f 50 61 74 68 25  2c 61 2c 62 2c 61 6e 67  |e(_Path%,a,b,ang|
00001400  6c 65 29 0d 07 da 0b 3d  5f 50 61 74 68 25 0d 07  |le)....=_Path%..|
00001410  e4 04 0d 07 ee 16 f4 20  3d 3d 3d 3d 3d 3d 3d 3d  |....... ========|
00001420  3d 3d 3d 3d 3d 3d 3d 3d  0d 07 f8 15 f4 20 31 2e  |========..... 1.|
00001430  34 20 54 65 73 73 65 6c  61 74 69 6f 6e 0d 08 02  |4 Tesselation...|
00001440  16 f4 20 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |.. =============|
00001450  3d 3d 3d 0d 08 0c 04 0d  08 16 20 dd 20 f2 54 69  |===....... . .Ti|
00001460  6c 65 28 70 61 74 68 2c  72 6f 77 73 25 2c 63 6f  |le(path,rows%,co|
00001470  6c 75 6d 6e 73 25 29 0d  08 20 27 20 f4 20 2d 2d  |lumns%).. ' . --|
00001480  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001490  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 08  |--------------..|
000014a0  2a 06 20 f4 0d 08 34 15  20 f4 20 54 69 6c 65 73  |*. ...4. . Tiles|
000014b0  20 74 68 65 20 70 61 74  68 0d 08 3e 06 20 f4 0d  | the path..>. ..|
000014c0  08 48 27 20 f4 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.H' . ----------|
000014d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000014e0  2d 2d 2d 2d 2d 2d 0d 08  52 1c 20 ea 20 5f 69 25  |------..R. . _i%|
000014f0  2c 5f 6a 25 2c 5f 50 61  74 68 2c 5f 64 78 2c 5f  |,_j%,_Path,_dx,_|
00001500  64 79 0d 08 5c 1b 20 c8  8e 20 a4 4f 62 6a 65 63  |dy..\. .. .Objec|
00001510  74 54 79 70 65 28 70 61  74 68 29 20 ca 0d 08 66  |tType(path) ...f|
00001520  08 20 c9 20 32 0d 08 70  25 20 20 f2 44 72 61 77  |. . 2..p%  .Draw|
00001530  5f 42 6f 75 6e 64 69 6e  67 42 6f 78 28 70 61 74  |_BoundingBox(pat|
00001540  68 2c 5f 64 78 2c 5f 64  79 29 0d 08 7a 29 20 20  |h,_dx,_dy)..z)  |
00001550  5f 64 78 3d 5f 64 78 2f  a4 58 5f 53 63 61 6c 65  |_dx=_dx/.X_Scale|
00001560  20 3a 20 5f 64 79 3d 5f  64 79 2f a4 59 5f 53 63  | : _dy=_dy/.Y_Sc|
00001570  61 6c 65 0d 08 84 15 20  20 e3 20 5f 69 25 3d 30  |ale....  . _i%=0|
00001580  20 b8 20 72 6f 77 73 25  0d 08 8e 18 20 20 e3 20  | . rows%....  . |
00001590  5f 6a 25 3d 30 20 b8 20  63 6f 6c 75 6d 6e 73 25  |_j%=0 . columns%|
000015a0  0d 08 98 3c 20 20 20 e7  20 5f 69 25 2b 5f 6a 25  |...<   . _i%+_j%|
000015b0  3c 3e 30 20 8c 20 5f 50  61 74 68 3d a4 54 72 61  |<>0 . _Path=.Tra|
000015c0  6e 73 6c 61 74 65 28 70  61 74 68 2c 5f 69 25 2a  |nslate(path,_i%*|
000015d0  5f 64 78 2c 5f 6a 25 2a  5f 64 79 29 0d 08 a2 08  |_dx,_j%*_dy)....|
000015e0  20 20 20 ed 0d 08 ac 08  20 20 20 ed 0d 08 b6 06  |   .....   .....|
000015f0  20 7f 0d 08 c0 2b 20 20  85 20 30 2c 22 4f 6e 6c  | ....+  . 0,"Onl|
00001600  79 20 70 61 74 68 20 6f  62 6a 65 63 74 73 20 63  |y path objects c|
00001610  61 6e 20 62 65 20 74 69  6c 65 64 2e 22 0d 08 ca  |an be tiled."...|
00001620  06 20 cb 0d 08 d4 06 20  e1 0d 08 de 04 0d 08 e8  |. ..... ........|
00001630  04 0d 08 f2 29 dd 20 f2  44 72 61 77 5f 42 6f 75  |....). .Draw_Bou|
00001640  6e 64 69 6e 67 42 6f 78  28 70 61 74 68 2c f8 20  |ndingBox(path,. |
00001650  64 78 25 2c f8 20 64 79  25 29 0d 08 fc 3d ea 20  |dx%,. dy%)...=. |
00001660  5f 70 61 74 68 25 2c 5f  53 74 79 6c 65 25 2c 5f  |_path%,_Style%,_|
00001670  78 6d 69 6e 25 2c 5f 78  6d 61 78 25 2c 5f 79 6d  |xmin%,_xmax%,_ym|
00001680  69 6e 25 2c 5f 79 6d 61  78 25 2c 5f 69 25 2c 5f  |in%,_ymax%,_i%,_|
00001690  6c 65 6e 67 74 68 25 0d  09 06 2e 20 5f 70 61 74  |length%.... _pat|
000016a0  68 25 3d 21 70 61 74 68  20 3a 20 5f 6c 65 6e 67  |h%=!path : _leng|
000016b0  74 68 25 3d 5f 70 61 74  68 25 2b 28 5f 70 61 74  |th%=_path%+(_pat|
000016c0  68 25 21 34 29 0d 09 10  23 20 5f 53 74 79 6c 65  |h%!4)...# _Style|
000016d0  25 3d 5f 70 61 74 68 25  21 33 36 20 3a 20 5f 70  |%=_path%!36 : _p|
000016e0  61 74 68 25 2b 3d 34 30  0d 09 1a 35 20 e7 20 28  |ath%+=40...5 . (|
000016f0  5f 53 74 79 6c 65 25 20  80 20 28 31 3c 3c 37 29  |_Style% . (1<<7)|
00001700  29 3c 3e 30 20 8c 20 5f  70 61 74 68 25 2b 3d 34  |)<>0 . _path%+=4|
00001710  2a 28 5f 70 61 74 68 25  21 34 29 2b 38 0d 09 24  |*(_path%!4)+8..$|
00001720  1f 20 5f 78 6d 69 6e 25  3d 32 5e 33 30 3a 5f 78  |. _xmin%=2^30:_x|
00001730  6d 61 78 25 3d 2d 5f 78  6d 69 6e 25 0d 09 2e 1f  |max%=-_xmin%....|
00001740  20 5f 79 6d 69 6e 25 3d  32 5e 33 30 3a 5f 79 6d  | _ymin%=2^30:_ym|
00001750  61 78 25 3d 2d 5f 79 6d  69 6e 25 0d 09 38 0f 20  |ax%=-_ymin%..8. |
00001760  5f 69 25 3d 5f 70 61 74  68 25 0d 09 42 06 20 f5  |_i%=_path%..B. .|
00001770  0d 09 4c 0f 20 20 c8 8e  20 21 5f 69 25 20 ca 0d  |..L.  .. !_i% ..|
00001780  09 56 0e 20 20 20 c9 20  30 2c 35 20 3a 0d 09 60  |.V.   . 0,5 :..`|
00001790  1a 20 20 20 c9 20 32 2c  38 20 3a 20 f2 44 72 61  |.   . 2,8 : .Dra|
000017a0  77 5f 42 6f 75 6e 64 0d  09 6a 36 20 20 20 c9 20  |w_Bound..j6   . |
000017b0  36 20 20 20 3a 20 f2 44  72 61 77 5f 42 6f 75 6e  |6   : .Draw_Boun|
000017c0  64 20 3a 20 f2 44 72 61  77 5f 42 6f 75 6e 64 20  |d : .Draw_Bound |
000017d0  3a 20 f2 44 72 61 77 5f  42 6f 75 6e 64 0d 09 74  |: .Draw_Bound..t|
000017e0  21 20 20 20 7f 20 3a 20  85 20 30 2c 22 53 6f 6d  |!   . : . 0,"Som|
000017f0  65 74 68 69 6e 67 20 77  72 6f 6e 67 21 22 0d 09  |ething wrong!"..|
00001800  7e 07 20 20 cb 0d 09 88  0c 20 20 5f 69 25 2b 3d  |~.  .....  _i%+=|
00001810  34 0d 09 92 14 20 fd 20  5f 69 25 3e 3d 5f 6c 65  |4.... . _i%>=_le|
00001820  6e 67 74 68 25 0d 09 9c  16 20 64 78 25 3d 5f 78  |ngth%.... dx%=_x|
00001830  6d 61 78 25 2d 5f 78 6d  69 6e 25 0d 09 a6 16 20  |max%-_xmin%.... |
00001840  64 79 25 3d 5f 79 6d 61  78 25 2d 5f 79 6d 69 6e  |dy%=_ymax%-_ymin|
00001850  25 0d 09 b0 05 e1 0d 09  ba 04 0d 09 c4 11 dd 20  |%.............. |
00001860  f2 44 72 61 77 5f 42 6f  75 6e 64 0d 09 ce 0a 5f  |.Draw_Bound...._|
00001870  69 25 2b 3d 34 0d 09 d8  1f e7 20 21 5f 69 25 3c  |i%+=4..... !_i%<|
00001880  5f 78 6d 69 6e 25 20 8c  20 5f 78 6d 69 6e 25 3d  |_xmin% . _xmin%=|
00001890  21 5f 69 25 0d 09 e2 1f  e7 20 21 5f 69 25 3e 5f  |!_i%..... !_i%>_|
000018a0  78 6d 61 78 25 20 8c 20  5f 78 6d 61 78 25 3d 21  |xmax% . _xmax%=!|
000018b0  5f 69 25 0d 09 ec 0a 5f  69 25 2b 3d 34 0d 09 f6  |_i%...._i%+=4...|
000018c0  1f e7 20 21 5f 69 25 3c  5f 79 6d 69 6e 25 20 8c  |.. !_i%<_ymin% .|
000018d0  20 5f 79 6d 69 6e 25 3d  21 5f 69 25 0d 0a 00 1f  | _ymin%=!_i%....|
000018e0  e7 20 21 5f 69 25 3e 5f  79 6d 61 78 25 20 8c 20  |. !_i%>_ymax% . |
000018f0  5f 79 6d 61 78 25 3d 21  5f 69 25 0d 0a 0a 05 e1  |_ymax%=!_i%.....|
00001900  0d 0a 14 04 0d 0a 1e 04  0d 0a 28 04 0d 0a 32 04  |..........(...2.|
00001910  0d 0a 3c 04 0d ff                                 |..<...|
00001916

© Dominic Ford 2021–2025.

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