$*|Start PROCshell_DrawCreateFile
&� �shell_DrawCreateFile(� buffer%)
'� creator$,style_blk%,trans_matrix%
K� EvntShell drawfiles in memory have a 60 byte 'pre-header' which keeps
K� track of current settings. The 'pre-header' must not be saved to disk
/� as the file will not be a valid drawfile!
*buffer% = �shell_HeapBlockFetch(60+24)
Ibuffer%!00   = -1      :� Number of current outline font (-1 if none)
	:buffer%!04   = 60      :� Size of EvntShell pre-header

Sbuffer%!08   = 0       :� File offset to next free address (from start of file)
O|(buffer%+12)=1814.1732:� Current unit multiplier factor (real nr, 5 bytes)
1buffer%!20   = 7       :� Current path colour

1buffer%!24   = -1      :� Current fill colour
Nbuffer%!28   = 0       :� File offset to start of current group definition
0buffer%!32   = 0       :� Current path width
-buffer%!36   = 0       :� Current end cap
Mbuffer%!40   = -1      :� Number of outline fonts declared   (-1 if none)
Vbuffer%!44   = -1      :� File offset to start of font table (-1 if no font table)
Fbuffer%!48   = 0       :� Pointer to path style description block 
$buffer%!52   = 0       :� Unused
G$(buffer% + (buffer%!04))= "Draw"  :� Required to tag as a drawfile
>buffer%!(buffer%!04 + 4) = 201     :� Major version number
>buffer%!(buffer%!04 + 8) = 0       :� Minor version number
W$(buffer% + (buffer%!04 + 12)) = �shell_StringPadTrailing(�shell_GetAppName," ",11)
Lbuffer%!08 = buffer%!04 + 24       :� 24 is length of DrawFile so far...
3� Set extent words of DrawFile to be 0,0,1,1...
!�shell_DrawPutWord(0,buffer%)
!�shell_DrawPutWord(0,buffer%)
!�shell_DrawPutWord(0,buffer%)
!�shell_DrawPutWord(0,buffer%)
*buffer%!48 = �shell_HeapBlockFetch(16)
 style_blk% = buffer%!48
!style_blk%!00 = 0
"style_blk%!04 = 0
#style_blk%!08 = 0
$style_blk%!12 = 0
%*buffer%!52 = �shell_HeapBlockFetch(24)
&trans_matrix% = buffer%!52
')trans_matrix%!00 = 1 << 16 :� x scale
(*trans_matrix%!04 = 0       :� rotation
)*trans_matrix%!08 = 0       :� rotation
*)trans_matrix%!12 = 1 << 16 :� y scale
+3trans_matrix%!16 = 0       :� x position offset
,3trans_matrix%!20 = 0       :� y position offset
-�
.:
/#*|Stop PROCshell_DrawCreateFile
0
1%*|Start PROCshell_DrawOutlineFont
2M� �shell_DrawOutlineFont(� buffer%,text$,ptsize,pthigh,xorigin%,yorigin%)
3/� start%,ptr%,lx%,by%,rx%,ty%,font%,scl_fac
4scl_fac = |(buffer%+12)
5font% = !buffer%
6� text$ <> "" �
73  buffer% = �shell_HeapBlockExtend(buffer%,256)
8#  ptr%    = buffer% + buffer%!8
9  start%  = ptr%
:/  !ptr%   =   1              :� Text object
;D  ptr%    += 24              :� Skip size, object bounds for now
<$  lx%     = (xorigin% * scl_fac)
=$  by%     = (yorigin% * scl_fac)
>6  � PROCshell_Tracef0("DEBUG::font is "+STR$font%)
?P  � PROCshell_Tracef0("DEBUG::font is "+FNshell_DrawFontName(buffer%,font%))
@_  ș "Font_FindFont",,�shell_DrawFontName(buffer%,font%),ptsize * 16, pthigh * 16 � handle%
A  ș "Font_SetFont",handle%
B4  ș "Font_StringBBox",,text$ � ,r1%,r2%,r3%,r4%
C   ș "Font_LoseFont",handle%
D  
E2  � PROCshell_Tracef0("DEBUG::r1% = "+STR$r1%)
F2  � PROCshell_Tracef0("DEBUG::r2% = "+STR$r2%)
G2  � PROCshell_Tracef0("DEBUG::r3% = "+STR$r3%)
H2  � PROCshell_Tracef0("DEBUG::r4% = "+STR$r4%)
I&  rx%     = lx% + ((r3%/1000)*640)
J&  ty%     = by% + ((r4%/1000)*640)
K0  � PROCshell_Tracef0("DEBUG::lx%="+STR$lx%)
L0  � PROCshell_Tracef0("DEBUG::by%="+STR$by%)
M0  � PROCshell_Tracef0("DEBUG::rx%="+STR$rx%)
N0  � PROCshell_Tracef0("DEBUG::ty%="+STR$ty%)
O6  �shell_DrawPutCoords(start% + 8,lx%,by%,rx%,ty%)
P'  !ptr%   = buffer%!20   :ptr% += 4
Q'  !ptr%   = buffer%!24   :ptr% += 4
R'  !ptr%   = font%        :ptr% += 4
S'  !ptr%   = ptsize * 640 :ptr% += 4
T'  !ptr%   = pthigh * 640 :ptr% += 4
U2  !ptr%   = xorigin% * |(buffer%+12):ptr% += 4
V2  !ptr%   = yorigin% * |(buffer%+12):ptr% += 4
W&  �shell_DrawPutString(text$,ptr%)
X  start%!4 = ptr% - start%
Y6  �shell_DrawUpdateBounds(buffer%,lx%,by%,rx%,ty%)
Z>  buffer% = �shell_HeapBlockExtend(buffer%,start%!4 - 256)
[  buffer%!8 += start%!4
\�
]�
^:
_$*|Stop PROCshell_DrawOutlineFont
`
a#*|Start PROCshell_DrawPutString
b%� �shell_DrawPutString(S$,� ptr%)
c$ptr% = S$
dptr% += �S$
e�
f  ?ptr% = 0
g  ptr% += 1
h� ptr% � 4 = 0
i�
j:
k"*|Stop PROCshell_DrawPutString
l
m#*|Start PROCshell_DrawPutCoords
n2� �shell_DrawPutCoords(start%,lx%,by%,rx%,ty%)
ostart%!00 = lx%
pstart%!04 = by% 
qstart%!08 = rx%
rstart%!12 = ty%
s�
t:
u"*|Stop PROCshell_DrawPutCoords
v
w&*|Start PROCshell_DrawSetPathWidth
x,� �shell_DrawSetPathWidth(buffer%,width)
y1buffer%!32 = �((width * |(buffer%+12)) + 0.5)
z�
{:
|%*|Stop PROCshell_DrawSetPathWidth
}
~'*|Start PROCshell_DrawSetPathColour
0� �shell_DrawSetPathColour(buffer%,R%,G%,B%)
�buffer%?20 = 0
�buffer%?21 = R%
�buffer%?22 = G%
�buffer%?23 = B%
��
�:
�&*|Stop PROCshell_DrawSetPathColour
�
�)*|Start PROCshell_DrawSetPathNoColour
�)� �shell_DrawSetPathNoColour(buffer%)
�buffer%!20 = -1
��
�:
�(*|Stop PROCshell_DrawSetPathNoColour
�
�'*|Start PROCshell_DrawSetFillColour
�0� �shell_DrawSetFillColour(buffer%,R%,G%,B%)
�buffer%?24 = 0
�buffer%?25 = R%
�buffer%?26 = G%
�buffer%?27 = B%
��
�:
�&*|Stop PROCshell_DrawSetFillColour
�
�)*|Start PROCshell_DrawSetNoFillColour
�)� �shell_DrawSetNoFillColour(buffer%)
�buffer%!24 = -1
��
�:
�(*|Stop PROCshell_DrawSetNoFillColour
�
�!*|Start PROCshell_DrawPutWord
�&� �shell_DrawPutWord(k%,� buffer%)
�� next%
�/buffer% = �shell_HeapBlockExtend(buffer%,4)
� next% = buffer% + buffer%!08
�!next% = k%
�buffer%!08 += 4
��
�:
� *|Stop PROCshell_DrawPutWord
�
�$*|Start PROCshell_DrawStartGroup
�,� �shell_DrawStartGroup(� buffer%,name$)
�� next%
�3� buffer%!28 > 0 � �shell_DrawEndGroup(buffer%)
�Kbuffer%!28 = buffer%!08:� Store file offset to current group definition
�>� PROCshell_Tracef0("DEBUG::bb_offset = "+STR$~buffer%!28)
�;�shell_DrawPutWord(06,buffer%) :� Object type 6 (group)
�B�shell_DrawPutWord(36,buffer%) :� Current size of group object
�8�shell_DrawPutWord(-1,buffer%)  :� Bounding box xmin
�8�shell_DrawPutWord(-1,buffer%)  :� Bounding box ymin
�7�shell_DrawPutWord(1,buffer%)  :� Bounding box xmax
�7�shell_DrawPutWord(1,buffer%)  :� Bounding box ymax
�0buffer% = �shell_HeapBlockExtend(buffer%,12)
�"next%   = buffer% + buffer%!08
�$next%  = name$
�Abuffer%!08 += 12 :� Update file offset to next free address..
��
�:
�#*|Stop PROCshell_DrawStartGroup
�
�"*|Start PROCshell_DrawEndGroup
�"� �shell_DrawEndGroup(buffer%)
�� start%
�� buffer%!28 > 0 �
�%  start% = buffer% + (buffer%!28)
�/  start%!4 = (buffer% + buffer%!8) - start%
�  buffer%!28 = 0
��
��
�:
�!*|Stop PROCshell_DrawEndGroup
�
�%*|Start PROCshell_DrawDestroyFile
�%� �shell_DrawDestroyFile(buffer%)
�M� �shell_HeapBlockExists(buffer%!48) � �shell_HeapBlockReturn(buffer%!48)
�#�shell_HeapBlockReturn(buffer%)
��
�:
�$*|Stop PROCshell_DrawDestroyFile
�
�"*|Start PROCshell_DrawSaveFile
�(� �shell_DrawSaveFile(buffer%,file$)
�� X%
�%� Add some error trapping here...
�X% = �(file$)
�F� PROCshell_Tracef0("DEBUG::size is "+STR$(buffer%!8 - buffer%!4))
�Aș "OS_GBPB",2,X%,buffer% + (buffer%!4),buffer%!8 - buffer%!4
�	�# X%
� �("SetType "+file$+ " &AFF")
��
�:
�!*|Stop PROCshell_DrawSaveFile
�
� *|Start FNshell_DrawLoadFile
� � �shell_DrawLoadFile(name$)
�� buff%,X%,size%
� �shell_DrawCreateFile(buff%)
�,buff%!8 -= 40 :� don't need the header..
�$size% = �shell_FileLength(name$)
�/buff% = �shell_HeapBlockExtend(buff%,size%)
�X% = �(name$)
�+ș "OS_GBPB",4,X%,buff% + buff%!4,size%
�	�# X%
�buff%!8 = size% + buff%!4
�$�shell_DrawSetScale(buffer%,1,1)
�= buff%
�:
�*|Stop FNshell_DrawLoadFile
�
�!*|Start PROCshell_DrawEllipse
�-� �shell_DrawEllipse(� buffer%,X,Y,Xm,Ym)
�� start%,A,B,C,D,E,K,Xs,Ys
�start% = buffer%!8
�X  = X  * |(buffer%+12)
�Y  = Y  * |(buffer%+12)
�Xm = Xm * |(buffer%+12)
�Ym = Ym * |(buffer%+12)
�*� PROCshell_Tracef0("DEBUG::X="+STR$X)
�*� PROCshell_Tracef0("DEBUG::Y="+STR$Y)
�,� PROCshell_Tracef0("DEBUG::Xm="+STR$Xm)
�,� PROCshell_Tracef0("DEBUG::Ym="+STR$Ym)
�� Xm >= Ym �
�  A = Xm / Xm / 10 + 0.5
�  � Xm / Ym < 2 � A = 0.7
�   � Xm / Ym > 4.5 � A = 0.95

  Xs = A * Xm


(  Ys = �(1 - Xs * Xs / Xm / Xm) * Ym

�

� Ym > Xm �

  A = Ym / Xm / 10 + 0.5

  � Ym / Xm < 2 � A = 0.7

   � Ym / Xm > 4.5 � A = 0.95

  Ys = A * Ym

(  Xs = �(1 - Ys * Ys / Ym / Ym) * Xm

	�


B = Ym + (Ym - Ys) / 3

%K = Xs * Xs + (B - Ys) * (B - Ys)

.C = (�(4 * Xs * Xs + 12 * K) - 2 * Xs) / 6


D = Xm + (Xm - Xs) / 3

%K = Ys * Ys + (D - Xs) * (D - Xs)

.E = (�(4 * Ys * Ys + 12 * K) - 2 * Ys) / 6

C�shell_DrawPutWord(2,buffer%)           :� Object type 2 (path)

K�shell_DrawPutWord(0,buffer%)           :� Size of object (dummy value)

F�shell_DrawPutWord(X - Xm,buffer%):� Set size of bounding box xmin

F�shell_DrawPutWord(Y - Ym,buffer%):� Set size of bounding box ymin

F�shell_DrawPutWord(X + Xm,buffer%):� Set size of bounding box xmax

F�shell_DrawPutWord(Y + Ym,buffer%):� Set size of bounding box ymax

@�shell_DrawUpdateBounds(buffer%,X - Xm,Y - Ym,X + Xm,Y + Ym)

:�shell_DrawPutWord(buffer%!24,buffer%)  :� Fill colour

:�shell_DrawPutWord(buffer%!20,buffer%)  :� Path colour

9�shell_DrawPutWord(buffer%!32,buffer%)  :� Path width

6�shell_DrawPutWord(00,buffer%)          :� Pattern

<�shell_DrawPutWord(2,buffer%)           :� Absolute move

6�shell_DrawPutWord(X + Xs,buffer%)      :� x start

6�shell_DrawPutWord(Y - Ys,buffer%)      :� y start



!�shell_DrawPutWord(6,buffer%)

 %�shell_DrawPutWord(X + C,buffer%)

!%�shell_DrawPutWord(Y - B,buffer%)

"%�shell_DrawPutWord(X - C,buffer%)

#%�shell_DrawPutWord(Y - B,buffer%)

$&�shell_DrawPutWord(X - Xs,buffer%)

%&�shell_DrawPutWord(Y - Ys,buffer%)

&

'!�shell_DrawPutWord(6,buffer%)

(%�shell_DrawPutWord(X - D,buffer%)

)%�shell_DrawPutWord(Y - E,buffer%)

*%�shell_DrawPutWord(X - D,buffer%)

+%�shell_DrawPutWord(Y + E,buffer%)

,&�shell_DrawPutWord(X - Xs,buffer%)

-&�shell_DrawPutWord(Y + Ys,buffer%)

.

/!�shell_DrawPutWord(6,buffer%)

0%�shell_DrawPutWord(X - C,buffer%)

1%�shell_DrawPutWord(Y + B,buffer%)

2%�shell_DrawPutWord(X + C,buffer%)

3%�shell_DrawPutWord(Y + B,buffer%)

4&�shell_DrawPutWord(X + Xs,buffer%)

5&�shell_DrawPutWord(Y + Ys,buffer%)

6

7!�shell_DrawPutWord(6,buffer%)

8%�shell_DrawPutWord(X + D,buffer%)

9%�shell_DrawPutWord(Y + E,buffer%)

:%�shell_DrawPutWord(X + D,buffer%)

;%�shell_DrawPutWord(Y - E,buffer%)

<&�shell_DrawPutWord(X + Xs,buffer%)

=&�shell_DrawPutWord(Y - Ys,buffer%)

>

?>�shell_DrawPutWord(0,buffer%)               :� End of path

@J!(buffer% + start% + 4) = buffer%!8 - start%   :� Store size of object

A�

B:

C *|Stop PROCshell_DrawEllipse

D

E *|Start PROCshell_DrawCircle

F(� �shell_DrawCircle(� buffer%,X,Y,R)

G� start%,A,B,C,style_blk%

Hstyle_blk% = buffer%!48

Istart% = buffer%!8

JX = X * |(buffer%+12)

KY = Y * |(buffer%+12)

LR = R * |(buffer%+12) 

MA = R / � 2

NB = A + R / 2.544

OC = A - R / 2.544      

PG�shell_DrawPutWord(2,buffer%)               :� Object type 2 (path)

QO�shell_DrawPutWord(0,buffer%)               :� Size of object (dummy value)

RU�shell_DrawPutWord(X - R,buffer%)           :� Set size of bounding box xmin     

SP�shell_DrawPutWord(Y - R,buffer%)           :� Set size of bounding box ymin

TP�shell_DrawPutWord(X + R,buffer%)           :� Set size of bounding box xmax

UP�shell_DrawPutWord(Y + R,buffer%)           :� Set size of bounding box ymax

V<�shell_DrawUpdateBounds(buffer%,X - R,Y - R,X + R,Y + R)

W>�shell_DrawPutWord(buffer%!24,buffer%)      :� Fill colour

X>�shell_DrawPutWord(buffer%!20,buffer%)      :� Path colour

Y=�shell_DrawPutWord(buffer%!32,buffer%)      :� Path width

Z=�shell_DrawPutWord(style_blk%!0,buffer%)    :� Style word

[$� (style_blk%?0 � 1 << 7) <> 0 �

\J  �shell_DrawPutWord(style_blk%!04,buffer%) :� Offset to pattern start

]L  �shell_DrawPutWord(style_blk%!08,buffer%) :� Nr of elements in pattern

^I  �shell_DrawPutWord(style_blk%!12,buffer%) :� Length of dash element

_�

`@�shell_DrawPutWord(2,buffer%)               :� Absolute move

a:�shell_DrawPutWord(X + A,buffer%)           :� x start

b:�shell_DrawPutWord(Y - A,buffer%)           :� y start

c!�shell_DrawPutWord(6,buffer%)

d%�shell_DrawPutWord(X + C,buffer%)

e%�shell_DrawPutWord(Y - B,buffer%)

f%�shell_DrawPutWord(X - C,buffer%)

g%�shell_DrawPutWord(Y - B,buffer%)

h%�shell_DrawPutWord(X - A,buffer%)

i%�shell_DrawPutWord(Y - A,buffer%)

j!�shell_DrawPutWord(6,buffer%)

k%�shell_DrawPutWord(X - B,buffer%)

l%�shell_DrawPutWord(Y - C,buffer%)

m%�shell_DrawPutWord(X - B,buffer%)

n%�shell_DrawPutWord(Y + C,buffer%)

o%�shell_DrawPutWord(X - A,buffer%)

p%�shell_DrawPutWord(Y + A,buffer%)

q!�shell_DrawPutWord(6,buffer%)

r%�shell_DrawPutWord(X - C,buffer%)

s%�shell_DrawPutWord(Y + B,buffer%)

t%�shell_DrawPutWord(X + C,buffer%)

u%�shell_DrawPutWord(Y + B,buffer%)

v%�shell_DrawPutWord(X + A,buffer%)

w%�shell_DrawPutWord(Y + A,buffer%)

x!�shell_DrawPutWord(6,buffer%)

y%�shell_DrawPutWord(X + B,buffer%)

z%�shell_DrawPutWord(Y + C,buffer%)

{%�shell_DrawPutWord(X + B,buffer%)

|%�shell_DrawPutWord(Y - C,buffer%)

}%�shell_DrawPutWord(X + A,buffer%)

~%�shell_DrawPutWord(Y - A,buffer%)

>�shell_DrawPutWord(0,buffer%)               :� End of path

�J!(buffer% + start% + 4) = buffer%!8 - start%   :� Store size of object

��

�:

�*|Stop PROCshell_DrawCircle

�

�*|Start PROCshell_DrawBox

�2� �shell_DrawBox(� buffer%,x0,y0,width,height)

�� start%,scl_fac

�start% = buffer%!8

�scl_fac = |(buffer%+12)

�x0     = x0     * scl_fac

�y0     = y0     * scl_fac

�width  = width  * scl_fac

�height = height * scl_fac

�B�shell_DrawPutWord(2,buffer%)          :� Object type 2 (path)

�J�shell_DrawPutWord(0,buffer%)          :� Size of object (dummy value)

�K�shell_DrawPutWord(x0,buffer%)         :� Set size of bounding box xmin

�K�shell_DrawPutWord(y0,buffer%)         :� Set size of bounding box ymin

�K�shell_DrawPutWord(x0 + width,buffer%) :� Set size of bounding box xmax

�K�shell_DrawPutWord(y0 + height,buffer%):� Set size of bounding box ymax

�A�shell_DrawUpdateBounds(buffer%,x0,y0,x0 + width,y0 + height)

�9�shell_DrawPutWord(buffer%!24,buffer%) :� Fill colour

�9�shell_DrawPutWord(buffer%!20,buffer%) :� Path colour

�8�shell_DrawPutWord(buffer%!32,buffer%) :� Path width

�5�shell_DrawPutWord(00,buffer%)         :� Pattern

�;�shell_DrawPutWord(02,buffer%)         :� Absolute move

�5�shell_DrawPutWord(x0,buffer%)         :� x start

�5�shell_DrawPutWord(y0,buffer%)         :� y start

�G�shell_DrawPutWord(08,buffer%)         :� Draw to absolute position

�"�shell_DrawPutWord(x0,buffer%)

�+�shell_DrawPutWord(y0 + height,buffer%)

�"�shell_DrawPutWord(08,buffer%)

�*�shell_DrawPutWord(x0 + width,buffer%)

�+�shell_DrawPutWord(y0 + height,buffer%)

�"�shell_DrawPutWord(08,buffer%)

�*�shell_DrawPutWord(x0 + width,buffer%)

�"�shell_DrawPutWord(y0,buffer%)

�"�shell_DrawPutWord(08,buffer%)

�"�shell_DrawPutWord(x0,buffer%)

�"�shell_DrawPutWord(y0,buffer%)

�;�shell_DrawPutWord(00,buffer%)           :� End of path

�G!(buffer% + start% + 4) = buffer%!8 - start%:� Store size of object

��

�:

�*|Stop PROCshell_DrawBox

�

�&*|Start PROCshell_DrawUpdateBounds

�2� �shell_DrawUpdateBounds(buffer%,x0,y0,x1,y1)

�� bb_start%

�#bb_start% = buffer% + buffer%!4

�4� (bb_start% + 32) = 0 � !(bb_start% + 36) = 0 �

�  !(bb_start% + 24) = x0

�  !(bb_start% + 28) = y0

�  !(bb_start% + 32) = x1

�  !(bb_start% + 36) = y1

��

�7  � x0 < !(bb_start% + 24) � !(bb_start% + 24) = x0

�7  � y0 < !(bb_start% + 28) � !(bb_start% + 28) = y0

�7  � x1 > !(bb_start% + 32) � !(bb_start% + 32) = x1

�7  � y1 > !(bb_start% + 36) � !(bb_start% + 36) = y1

��

�H� buffer%!28 > 0 � �shell_DrawUpdateGroupBounds(buffer%,x0,y0,x1,y1)

��

�:

�%*|Stop PROCshell_DrawUpdateBounds

�

�+*|Start PROCshell_DrawUpdateGroupBounds

�7� �shell_DrawUpdateGroupBounds(buffer%,x0,y0,x1,y1)

�� bb_start%

�$bb_start% = buffer% + buffer%!28

�>� PROCshell_Tracef0("DEBUG::bb_offset = "+STR$~buffer%!28)

�G� PROCshell_Tracef0("DEBUG::current x0 = "+STR$(!(bb_start% + 08)))

�� !(bb_start% + 08) = -1 �

�  !(bb_start% + 08) = x0

��

�7  � x0 < !(bb_start% + 08) � !(bb_start% + 08) = x0

��

�� !(bb_start% + 12) = -1 �

�  !(bb_start% + 12) = y0

��

�7  � y0 < !(bb_start% + 12) � !(bb_start% + 12) = y0

��

�5� x1 > !(bb_start% + 16) � !(bb_start% + 16) = x1

�5� y1 > !(bb_start% + 20) � !(bb_start% + 20) = y1

�.� PROCshell_Tracef0("DEBUG::x0 = "+STR$x0)

�.� PROCshell_Tracef0("DEBUG::y0 = "+STR$y0)

�.� PROCshell_Tracef0("DEBUG::x1 = "+STR$x1)

�.� PROCshell_Tracef0("DEBUG::y1 = "+STR$y1)

�� PROCshell_Tracef0("")

�<� PROCshell_Tracef0("DEBUG::x0 = "+STR$(!(bb_start%+8)))

��

�:

�**|Stop PROCshell_DrawUpdateGroupBounds

�

�*|Start PROCshell_DrawLine

�,� �shell_DrawLine(� buffer%,x0,y0,x1,y1)

�E� start%,pat_blk%,scl_fac,style_blk%,p_width%,cap_width%,cap_len%

�� cap_width2%,cap_len2%

�scl_fac = |(buffer%+12)

�� x1 < x0 � Ȕ x1,x0

�� y1 < y0 � Ȕ y1,y0

�start% = buffer%!8

�Hx0 = x0 * scl_fac :� Convert to draw units using stored scale factor

�y0 = y0 * scl_fac

�x1 = x1 * scl_fac

�y1 = y1 * scl_fac

�p_width%   = buffer%!32

�style_blk% = buffer%!48

�

�C� PROCshell_Tracef0("DEBUG:: "+STR$(style_blk%?0 AND (1 << 2)))

�C� PROCshell_Tracef0("DEBUG:: "+STR$(style_blk%?0 AND (1 << 3)))

�>� (style_blk%?0 � %1100) � (style_blk%?0 � %110000) <> 0 �

�;  � Triangular end caps on the path, check the widths..

�   � (style_blk%?0 � %1100) �

�9    cap_width% = style_blk%?2:� 1/16ths of path width

�9    cap_len%   = style_blk%?3:� 1/16ths of path width

�3    cap_width% = (cap_width% * (p_width% / 16))

�3    cap_len%   = (cap_len%   * (p_width% / 16))

�  �

�"  � (style_blk%?0 � %110000) �

�:    cap_width2% = style_blk%?4:� 1/16ths of path width

�:    cap_len2%   = style_blk%?5:� 1/16ths of path width

�5    cap_width2% = (cap_width2% * (p_width% / 16))

�5    cap_len2%   = (cap_len2%   * (p_width% / 16))

�  �

�;  � cap_width2% > cap_width% � cap_width% = cap_width2%

�9  � cap_len2%   > cap_len%   � cap_len%   = cap_len2%

�A  � PROCshell_Tracef0("DEBUG:: cap_width% = "+STR$cap_width%)
?  � PROCshell_Tracef0("DEBUG:: cap_len%   = "+STR$cap_len%)

�

G�shell_DrawPutWord(2,buffer%)               :� Object type 2 (path)
O�shell_DrawPutWord(0,buffer%)               :� Size of object (dummy value)
P�shell_DrawPutWord(x0-cap_len%,buffer%)     :� Set size of bounding box xmin
[�shell_DrawPutWord(y0-(p_width%/2)-cap_width%,buffer%) :� Set size of bounding box ymin
P�shell_DrawPutWord(x1+cap_len%,buffer%)     :� Set size of bounding box xmax
[�shell_DrawPutWord(y1+(p_width%/2)+cap_width%,buffer%) :� Set size of bounding box ymax
	O�shell_DrawUpdateBounds(buffer%,x0,y0,x1,y1):� Update DrawFile bounding box

Q�shell_DrawPutWord(buffer%!24,buffer%)      :� Fill colour (-1 = do not fill)
P�shell_DrawPutWord(buffer%!20,buffer%)      :� Path colour (-1 = no outline)
=�shell_DrawPutWord(buffer%!32,buffer%)      :� Path width

=�shell_DrawPutWord(style_blk%!0,buffer%)    :� Style word
$� (style_blk%?0 � 1 << 7) <> 0 �
J  �shell_DrawPutWord(style_blk%!04,buffer%) :� Offset to pattern start
L  �shell_DrawPutWord(style_blk%!08,buffer%) :� Nr of elements in pattern
I  �shell_DrawPutWord(style_blk%!12,buffer%) :� Length of dash element
�
@�shell_DrawPutWord(02,buffer%)              :� Absolute move
:�shell_DrawPutWord(x0,buffer%)              :� x start
:�shell_DrawPutWord(y0,buffer%)              :� y start
L�shell_DrawPutWord(08,buffer%)              :� Draw to absolute position
;�shell_DrawPutWord(x1,buffer%)              :� x finish
;�shell_DrawPutWord(y1,buffer%)              :� y finish
>�shell_DrawPutWord(00,buffer%)              :� End of path
J!(buffer% + start% + 4) = buffer%!8 - start%   :� Store size of object
�
:
*|Stop PROCshell_DrawLine

!*|Start PROCshell_DrawSetFont
 '� �shell_DrawSetFont(buffer%,font$)
!3� ft_start%,ft_end%,f_handle%,ptr%,name$,found%
"found%    = �
#f_handle% = 0
$� font$ = "" �
%-  !buffer% = 0 :� Font 0 is system font..
&�
'H  � Search font table to find internal font handle of requested font
(  ft_start% = buffer%!44
)P  � ft_start% = -1 � � 99,"No fonts have been initialised for this drawfile"
*F  ft_start% += buffer% :� Now points to start of font table object
+K  � PROCshell_Tracef0("DEBUG::font table size is = "+STR$(ft_start%!4))
,*  ft_end%    = ft_start%!4 + ft_start%
-   ptr%       = ft_start% + 8
.  �
/&    ft_handle% = ?ptr% : ptr% += 1
0&    name$ = �shell_GetString(ptr%)
1V    � PROCshell_Tracef0("DEBUG::font name found ("+STR$ft_handle%+") '"+name$+"'")
2    ptr% += �name$ + 1
3    ȕ ptr% � 4 <> 0
4      ptr% +=1
5	    �
6    � name$ = font$ �
7)      found% = � : ptr% = ft_end% + 1
8R      � PROCshell_Tracef0("DEBUG::font name match, handle is "+STR$ft_handle%)
9	    �
:0      � PROCshell_Tracef0("DEBUG::NO MATCH")
;	    �
<  � ptr% >= ft_end%
=�
>� found% �
?  !buffer% = ft_handle%
@J  � PROCshell_Tracef0("DEBUG::Setting font handle to "+STR$(!buffer%))
A�
B6  � 99,"Font '"+font$+"' has not been initialised"
C�
D�
E:
F *|Stop PROCshell_DrawSetFont
G
H"*|Start PROCshell_DrawInitFont
I/� �shell_DrawInitFont(� buffer%,font_name$)
J� ft_start%,ptr%,def_start%
K0� �shell_FontIsAvailable(font_name$,12,12) �
L6  buffer%    = �shell_HeapBlockExtend(buffer%,256)
MB  ptr%       = buffer% + buffer%!8   :� Next address in file..
N  def_start% = ptr%
O  � buffer%!40 = -1 �
PJ    � This routine hasn't been called before, so create new font table
QT    buffer%!44 = buffer%!8           :� Store file offset to start of font table
RD    !ptr% = 0:ptr% += 4              :� Create font table object
SD    !ptr% = 0:ptr% += 4              :� Skip object size for now
T?    buffer%!40 = 0                   :� Nr of defined fonts
U  �
VJ  ft_start% = buffer% + buffer%!44   :� Start of font table definition
W@  buffer%!40 += 1                    :� Increment font count
XT  ?ptr% = buffer%!40                 :� Store internal font handle (starts at 1)
YF  $(ptr%+1) = font_name$             :� Store textual name of font
Z  ptr% += �(font_name$) + 2
[G  ?(ptr% - 1) = 0                    :� Terminate name with CHR$(0)
\R  ȕ ptr% � 4 <> 0              :� Pad with trailing spaces to a word boundary
]    ?ptr% = 0
^    ptr% += 1
_  �
`L  ft_start%!04   = ptr% - ft_start%  :� Update size of font table object
aC  buffer%!08 += ptr% - def_start%    :� Update size of DrawFile
b#  � Finally shrink heap block..
cH  buffer% = �shell_HeapBlockExtend(buffer%,(ptr% - ft_start%) - 256)
d�
eh  void% = �shell_MessageWindow(�shell_MessageOneArg("SHELLMSG31",font_name$),0,�shell_GetAppName,"")
f�
g�
h:
i!*|Stop PROCshell_DrawInitFont
j
k$*|Start PROCshell_DrawSetUnitsMM
l$� �shell_DrawSetUnitsMM(buffer%)
m|(buffer% + 12) = 1814.1732
n�
o:
p#*|Stop PROCshell_DrawSetUnitsMM
q
r$*|Start PROCshell_DrawSetUnitsCM
s$� �shell_DrawSetUnitsCM(buffer%)
t|(buffer% + 12) = 18141.732
u�
v:
w#*|Stop PROCshell_DrawSetUnitsCM
x
y$*|Start PROCshell_DrawSetUnitsIN
z$� �shell_DrawSetUnitsIN(buffer%)
{|(buffer% + 12) = 46080
|�
}:
~#*|Stop PROCshell_DrawSetUnitsIN

�$*|Start PROCshell_DrawSetUnitsOS
�$� �shell_DrawSetUnitsOS(buffer%)
�|(buffer% + 12) = 256
��
�:
�#*|Stop PROCshell_DrawSetUnitsOS
�
�$*|Start PROCshell_DrawSetUnitsPT
�$� �shell_DrawSetUnitsPT(buffer%)
�|(buffer% + 12) = 640
��
�:
�#*|Stop PROCshell_DrawSetUnitsPT
�
�(*|Start PROCshell_DrawSetPathPattern
�B� �shell_DrawSetPathPattern(buffer%,dashed%,offset,nr_el%,len)
�� pat_blk%,scl_fac
�pat_blk% = buffer%!48
�scl_fac  = |(buffer% + 12)
�$pat_blk%?0 = pat_blk%?0 � 1 << 7
�� dashed% = 0 �
�&  pat_blk%?0 = pat_blk%?0 � 1 << 7
��
�"pat_blk%!04 = offset * scl_fac
�pat_blk%!08 = nr_el%
�"pat_blk%!12 = len    * scl_fac
��
�:
�'*|Stop PROCshell_DrawSetPathPattern
�
�(*|Start PROCshell_DrawGetBoundingBox
�Q� �shell_DrawGetBoundingBox(buffer%,� xpos,� ypos,� width,� height,os_units%)
�A� drawfile_start%,drawfile_size%,bbox_blk%,trans_matrix%,div%
�+drawfile_start%  = buffer% + buffer%!4 
�,drawfile_size%   = buffer%!8 - buffer%!4
�!trans_matrix%    = buffer%!52
�trans_matrix%!20 = 0
�trans_matrix%!24 = 0
�)bbox_blk% = �shell_HeapBlockFetch(16)
�,� os_units% <> 0 � div% = 256 � div% = 1
�Oș "DrawFile_BBox",0,drawfile_start%,drawfile_size%,trans_matrix%,bbox_blk%
�"xpos   = (bbox_blk%!00) / div%
�"ypos   = (bbox_blk%!04) / div%
�0width  = (bbox_blk%!08 - bbox_blk%!00)/ div%
�0height = (bbox_blk%!12 - bbox_blk%!04)/ div%
�%�shell_HeapBlockReturn(bbox_blk%)
��
�'*|Stop PROCshell_DrawGetBoundingBox
�
�#*|Start FNshell_DrawGetFileSize
�%� �shell_DrawGetFileSize(buffer%)
�= buffer%!8 - buffer%!4
�:
�"*|Stop FNshell_DrawGetFileSize
�
� *|Start FNshell_DrawFontName
�%� �shell_DrawFontName(ptr%,font%)
�<� ft_table%,ft_end%,df_start%,font$,p%,ft_handle%,found%
�L� ptr%!44 = -1 � � 99,"No fonts have been initialised for this drawfile"
�df_start%  = ptr% + ptr%!4
�ft_table%  = ptr%!44 + ptr%
�>� PROCshell_Tracef0("DEBUG::ft_table% = &"+STR$~ft_table%)
�>� PROCshell_Tracef0("DEBUG::df_start% = &"+STR$~df_start%)
�� font% = 0 �
�  font$ = "System Font"
��
�K  � PROCshell_Tracef0("DEBUG::font table size is = "+STR$(ft_table%!4))
�*  ft_end%    = ft_table%!4 + ft_table%
�   p%         = ft_table% + 8
�  �
�"    ft_handle% = ?p% : p% += 1
�$    font$ = �shell_GetString(p%)
�    p%   += �font$ + 1
�    ȕ p% � 4 <> 0
�      p% +=1
�	    �
�    � ft_handle% = font% �
�'      found% = � : p% = ft_end% + 1
�	    �
�  �  p% >= ft_end%
��
�6� found% = 0 � � 99,"Font not found in font table"
�= font$
�:
�*|Stop FNshell_DrawFontName
�
�� Font routines
�
�!*|Start FNshell_FontGetHandle
�%� �shell_FontGetHandle(font$,x,y)
�� font%
�7ș "Font_FindFont",,font$,x * 16,y * 16,0,0 � font%
�= font%
�:
� *|Stop FNshell_FontGetHandle
�
�$*|Start PROCshell_FontForgetFont
�"� �shell_FontForgetFont(font%)
�ș "Font_LoseFont",font%
��
�:
�#*|stop PROCshell_FontForgetFont
�
�#*|start PROCshell_FontSetColour
�'� �shell_FontSetColour(fore%,back%)
�4ș "ColourTrans_SetFontColours",0,back%,fore%,14
��
�:
�"*|stop PROCshell_FontSetColour
�
�$*|Start PROCshell_DrawRenderFile
�4� �shell_DrawRenderFile(buffer%,x%,y%,q%,bound%)
�� drawsc%,draw%,drawlen%
�)� bound%=-1 � bound% = 1 � bound% = 0
�drawsc%  = buffer%!52
�"draw%    = buffer% + buffer%!4
�&drawlen% = buffer%!8 - buffer%!4  
�drawsc%!16 = x% * 256
�drawsc%!20 = y% * 256
�>ș "DrawFile_Render",bound%,draw%,drawlen%,drawsc%,q% + 28
�drawsc%!16 = 0
�drawsc%!20 = 0
��
�:
�#*|Stop PROCshell_DrawRenderFile
�
�$*|Start PROCshell_DrawRenderFile
�@� �shell_DrawRenderFile(buffer%,x%,y%,x_scl,y_scl,q%,bound%)
� drawsc%,draw%,drawlen%

)� bound%=-1 � bound% = 1 � bound% = 0
(drawsc%  = �shell_HeapBlockFetch(24)
"draw%    = buffer% + buffer%!4
&drawlen% = buffer%!8 - buffer%!4  
!drawsc% = �(65536 * x_scl)
drawsc%!04 = 0
drawsc%!08 = 0
!drawsc%!12 = �(65536 * y_scl)
	drawsc%!16 = x% * 256

drawsc%!20 = y% * 256
>ș "DrawFile_Render",bound%,draw%,drawlen%,drawsc%,q% + 28
#�shell_HeapBlockReturn(drawsc%)

�
:
#*|Stop PROCshell_DrawRenderFile

#*|Start PROCshell_DrawTextSpace
R� �shell_DrawTextSpace(ptr%,text$,font%,ptsize,pthigh,� lx%,� by%,� rx%,� ty%)
-� handle%,xscale%,yscale%,r1%,r2%,r3%,r4%
� font% > 0 �
\  ș "Font_FindFont",,�shell_DrawFontName(ptr%,font%),ptsize * 16, pthigh * 16 � handle%
  ș "Font_SetFont",handle%
4  ș "Font_StringBBox",,text$ � ,r1%,r2%,r3%,r4%
2  ș "Font_ReadScaleFactor" � ,xscale%,yscale%
   ș "Font_LoseFont",handle%
1  ty% = �shell_DrawTextCoord(by%,r4%,yscale%)
1  rx% = �shell_DrawTextCoord(lx%,r3%,xscale%)
1  by% = �shell_DrawTextCoord(by%,r2%,yscale%)
1  lx% = �shell_DrawTextCoord(lx%,r1%,xscale%)
�
)  rx% = lx% + ptsize * 2.5 * �(text$)
   ty% = by% + pthigh * 2.5
!�
"�
#:
$"*|Stop PROCshell_DrawTextSpace
%
&!*|Start FNshell_DrawTextCoord
'R� �shell_DrawTextCoord(v%,r%,scale%) = (v% * scale% + r% +scale% / 2) / scale%
(:
) *|Stop FNshell_DrawTextCoord
*
+'*|Start PROCshell_DrawSetEndCapNone
,'� �shell_DrawSetEndCapNone(buffer%)
-� style_blk%
.style_blk% = buffer%!48
/6style_blk%?0 = style_blk%?0  � 1 << 2 :� set bit 2
06style_blk%?0 = style_blk%?0  � 1 << 3 :� set bit 3
17style_blk%?0 = style_blk%?0 � 1 << 2 :� unset bit 2
27style_blk%?0 = style_blk%?0 � 1 << 3 :� unset bit 3
3�
4:
5&*|Stop PROCshell_DrawSetEndCapNone
6
7(*|Start PROCshell_DrawSetEndCapRound
8(� �shell_DrawSetEndCapRound(buffer%)
9� style_blk%
:style_blk% = buffer%!48
;6style_blk%?0 = style_blk%?0  � 1 << 2 :� set bit 2
<6style_blk%?0 = style_blk%?0  � 1 << 3 :� set bit 3
=7style_blk%?0 = style_blk%?0 � 1 << 3 :� unset bit 3
>�
?:
@'*|Stop PROCshell_DrawSetEndCapRound
A
B)*|Start PROCshell_DrawSetEndCapSquare
C)� �shell_DrawSetEndCapSquare(buffer%)
D� style_blk%
Estyle_blk% = buffer%!48
F6style_blk%?0 = style_blk%?0  � 1 << 2 :� set bit 2
G6style_blk%?0 = style_blk%?0  � 1 << 3 :� set bit 3
H7style_blk%?0 = style_blk%?0 � 1 << 2 :� unset bit 2
I�
J:
K(*|Stop PROCshell_DrawSetEndCapSquare
L
M+*|Start PROCshell_DrawSetEndCapTriangle
N7� �shell_DrawSetEndCapTriangle(buffer%,width%,len%)
O� style_blk%,path_width%
P!path_width% = buffer%!32 / 16
Qstyle_blk%  = buffer%!48
R%width% = width% * |(buffer% + 12)
S%len%   = len%   * |(buffer% + 12)
T6style_blk%?0 = style_blk%?0  � 1 << 2 :� set bit 2
U6style_blk%?0 = style_blk%?0  � 1 << 3 :� set bit 3
V'style_blk%?2 = width% / path_width%
W'style_blk%?3 = len%   / path_width%
XA� PROCshell_Tracef0("DEBUG:: path width is "+STR$path_width%)
Y�
Z:
[**|Stop PROCshell_DrawSetEndCapTriangle
\
])*|Start PROCshell_DrawSetStartCapNone
^)� �shell_DrawSetStartCapNone(buffer%)
_� style_blk%
`style_blk% = buffer%!48
a6style_blk%?0 = style_blk%?0  � 1 << 4 :� set bit 4
b6style_blk%?0 = style_blk%?0  � 1 << 5 :� set bit 5
c7style_blk%?0 = style_blk%?0 � 1 << 4 :� unset bit 4
d7style_blk%?0 = style_blk%?0 � 1 << 5 :� unset bit 5
e�
f:
g(*|Stop PROCshell_DrawSetStartCapNone
h
i**|Start PROCshell_DrawSetStartCapRound
j*� �shell_DrawSetStartCapRound(buffer%)
k� style_blk%
lstyle_blk% = buffer%!48
m6style_blk%?0 = style_blk%?0  � 1 << 4 :� set bit 4
n6style_blk%?0 = style_blk%?0  � 1 << 5 :� set bit 5
o7style_blk%?0 = style_blk%?0 � 1 << 5 :� unset bit 5
p�
q:
r)*|Stop PROCshell_DrawSetStartCapRound
s
t+*|Start PROCshell_DrawSetStartCapSquare
u+� �shell_DrawSetStartCapSquare(buffer%)
v� style_blk%
wstyle_blk% = buffer%!48
x6style_blk%?0 = style_blk%?0  � 1 << 4 :� set bit 4
y6style_blk%?0 = style_blk%?0  � 1 << 5 :� set bit 5
z7style_blk%?0 = style_blk%?0 � 1 << 4 :� unset bit 4
{�
|:
}**|Stop PROCshell_DrawSetStartCapSquare
~
-*|Start PROCshell_DrawSetStartCapTriangle
�9� �shell_DrawSetStartCapTriangle(buffer%,width%,len%)
�� style_blk%,path_width%
�style_blk%  = buffer%!48
�!path_width% = buffer%!32 / 16
�%width% = width% * |(buffer% + 12)
�%len%   = len%   * |(buffer% + 12)
�6style_blk%?0 = style_blk%?0  � 1 << 4 :� set bit 4
�6style_blk%?0 = style_blk%?0  � 1 << 5 :� set bit 5
�'style_blk%?2 = width% / path_width%
�'style_blk%?3 = len%   / path_width%
�A� PROCshell_Tracef0("DEBUG:: path width is "+STR$path_width%)
��
�:
�,*|Stop PROCshell_DrawSetStartCapTriangle
�
�"*|Start PROCshell_DrawSetScale
�,� �shell_DrawSetScale(buffer%,xscl,yscl)
�
� matrix%
�matrix%    = buffer%!52
� matrix%!00 = �(65536 * xscl)
� matrix%!12 = �(65536 * yscl)
��
�:
�!*|Stop PROCshell_DrawSetScale
�
�"*|Start PROCshell_DrawGetScale
�0� �shell_DrawGetScale(buffer%,� xscl,� yscl)
�
� matrix%
�matrix% = buffer%!52
� xscl    = matrix%!00 / 65536
� yscl    = matrix%!12 / 65536
��
�:
�!*|Stop PROCshell_DrawGetScale
�
�&*|Start PROCshell_DrawResizeWindow
�:� �shell_DrawResizeWindow(buffer%,wh%,lm%,bm%,rm%,tm%)
�� xpos,ypos,width,height
�?�shell_DrawGetBoundingBox(buffer%,xpos,ypos,width,height,�)
�R�shell_WindowResize(wh%,0,- (tm% + bm% + height + ypos),width + lm% + rm%,0,0)
��
�:
�%*|Stop PROCshell_DrawResizeWindow
�
�'*|Start PROCshell_DrawScaleToWindow
�I� �shell_DrawScaleToWindow(buffer%,wh%,lm%,bm%,rm%,tm%,� xscl,� yscl)
�D� xpos,ypos,width,height,w_blk%,w_width%,w_height%,o_xscl,o_yscl
�.�shell_DrawSetScale(buffer%,o_xscl,o_yscl)
�$�shell_DrawSetScale(buffer%,1,1)
�?�shell_DrawGetBoundingBox(buffer%,xpos,ypos,width,height,�)
�'w_blk%  = �shell_HeapBlockFetch(36)
�!w_blk% = wh%
�$ș "Wimp_GetWindowState",,w_blk%
�Aw_width%  = (w_blk%!12 - w_blk%!04 + w_blk%!20) - (lm% + rm%)
�Aw_height% = (w_blk%!16 - w_blk%!08 + w_blk%!24) - (tm% + bm%)
�*xscl      = (w_width%  / (width  - 0))
�*yscl      = (w_height% / (height - 0))
�,� PROCshell_Tracef0(">>> "+STR$w_width%)
�)� PROCshell_Tracef0(">>> "+STR$width)
�-� PROCshell_Tracef0(">>> "+STR$w_height%)
�*� PROCshell_Tracef0(">>> "+STR$height)
�-� PROCshell_Tracef0(">>> xscl "+STR$xscl)
�-� PROCshell_Tracef0(">>> yscl "+STR$yscl)
�"�shell_HeapBlockReturn(w_blk%)
�.�shell_DrawSetScale(buffer%,o_xscl,o_yscl)
��
�:
�&*|Stop PROCshell_DrawScaleToWindow
�

00000000  0d 00 01 24 2a 7c 53 74  61 72 74 20 50 52 4f 43  |...$*|Start PROC|
00000010  73 68 65 6c 6c 5f 44 72  61 77 43 72 65 61 74 65  |shell_DrawCreate|
00000020  46 69 6c 65 0d 00 02 26  dd 20 f2 73 68 65 6c 6c  |File...&. .shell|
00000030  5f 44 72 61 77 43 72 65  61 74 65 46 69 6c 65 28  |_DrawCreateFile(|
00000040  f8 20 62 75 66 66 65 72  25 29 0d 00 03 27 ea 20  |. buffer%)...'. |
00000050  63 72 65 61 74 6f 72 24  2c 73 74 79 6c 65 5f 62  |creator$,style_b|
00000060  6c 6b 25 2c 74 72 61 6e  73 5f 6d 61 74 72 69 78  |lk%,trans_matrix|
00000070  25 0d 00 04 4b f4 20 45  76 6e 74 53 68 65 6c 6c  |%...K. EvntShell|
00000080  20 64 72 61 77 66 69 6c  65 73 20 69 6e 20 6d 65  | drawfiles in me|
00000090  6d 6f 72 79 20 68 61 76  65 20 61 20 36 30 20 62  |mory have a 60 b|
000000a0  79 74 65 20 27 70 72 65  2d 68 65 61 64 65 72 27  |yte 'pre-header'|
000000b0  20 77 68 69 63 68 20 6b  65 65 70 73 0d 00 05 4b  | which keeps...K|
000000c0  f4 20 74 72 61 63 6b 20  6f 66 20 63 75 72 72 65  |. track of curre|
000000d0  6e 74 20 73 65 74 74 69  6e 67 73 2e 20 54 68 65  |nt settings. The|
000000e0  20 27 70 72 65 2d 68 65  61 64 65 72 27 20 6d 75  | 'pre-header' mu|
000000f0  73 74 20 6e 6f 74 20 62  65 20 73 61 76 65 64 20  |st not be saved |
00000100  74 6f 20 64 69 73 6b 0d  00 06 2f f4 20 61 73 20  |to disk.../. as |
00000110  74 68 65 20 66 69 6c 65  20 77 69 6c 6c 20 6e 6f  |the file will no|
00000120  74 20 62 65 20 61 20 76  61 6c 69 64 20 64 72 61  |t be a valid dra|
00000130  77 66 69 6c 65 21 0d 00  07 2a 62 75 66 66 65 72  |wfile!...*buffer|
00000140  25 20 3d 20 a4 73 68 65  6c 6c 5f 48 65 61 70 42  |% = .shell_HeapB|
00000150  6c 6f 63 6b 46 65 74 63  68 28 36 30 2b 32 34 29  |lockFetch(60+24)|
00000160  0d 00 08 49 62 75 66 66  65 72 25 21 30 30 20 20  |...Ibuffer%!00  |
00000170  20 3d 20 2d 31 20 20 20  20 20 20 3a f4 20 4e 75  | = -1      :. Nu|
00000180  6d 62 65 72 20 6f 66 20  63 75 72 72 65 6e 74 20  |mber of current |
00000190  6f 75 74 6c 69 6e 65 20  66 6f 6e 74 20 28 2d 31  |outline font (-1|
000001a0  20 69 66 20 6e 6f 6e 65  29 0d 00 09 3a 62 75 66  | if none)...:buf|
000001b0  66 65 72 25 21 30 34 20  20 20 3d 20 36 30 20 20  |fer%!04   = 60  |
000001c0  20 20 20 20 3a f4 20 53  69 7a 65 20 6f 66 20 45  |    :. Size of E|
000001d0  76 6e 74 53 68 65 6c 6c  20 70 72 65 2d 68 65 61  |vntShell pre-hea|
000001e0  64 65 72 0d 00 0a 53 62  75 66 66 65 72 25 21 30  |der...Sbuffer%!0|
000001f0  38 20 20 20 3d 20 30 20  20 20 20 20 20 20 3a f4  |8   = 0       :.|
00000200  20 46 69 6c 65 20 6f 66  66 73 65 74 20 74 6f 20  | File offset to |
00000210  6e 65 78 74 20 66 72 65  65 20 61 64 64 72 65 73  |next free addres|
00000220  73 20 28 66 72 6f 6d 20  73 74 61 72 74 20 6f 66  |s (from start of|
00000230  20 66 69 6c 65 29 0d 00  0b 4f 7c 28 62 75 66 66  | file)...O|(buff|
00000240  65 72 25 2b 31 32 29 3d  31 38 31 34 2e 31 37 33  |er%+12)=1814.173|
00000250  32 3a f4 20 43 75 72 72  65 6e 74 20 75 6e 69 74  |2:. Current unit|
00000260  20 6d 75 6c 74 69 70 6c  69 65 72 20 66 61 63 74  | multiplier fact|
00000270  6f 72 20 28 72 65 61 6c  20 6e 72 2c 20 35 20 62  |or (real nr, 5 b|
00000280  79 74 65 73 29 0d 00 0c  31 62 75 66 66 65 72 25  |ytes)...1buffer%|
00000290  21 32 30 20 20 20 3d 20  37 20 20 20 20 20 20 20  |!20   = 7       |
000002a0  3a f4 20 43 75 72 72 65  6e 74 20 70 61 74 68 20  |:. Current path |
000002b0  63 6f 6c 6f 75 72 0d 00  0d 31 62 75 66 66 65 72  |colour...1buffer|
000002c0  25 21 32 34 20 20 20 3d  20 2d 31 20 20 20 20 20  |%!24   = -1     |
000002d0  20 3a f4 20 43 75 72 72  65 6e 74 20 66 69 6c 6c  | :. Current fill|
000002e0  20 63 6f 6c 6f 75 72 0d  00 0e 4e 62 75 66 66 65  | colour...Nbuffe|
000002f0  72 25 21 32 38 20 20 20  3d 20 30 20 20 20 20 20  |r%!28   = 0     |
00000300  20 20 3a f4 20 46 69 6c  65 20 6f 66 66 73 65 74  |  :. File offset|
00000310  20 74 6f 20 73 74 61 72  74 20 6f 66 20 63 75 72  | to start of cur|
00000320  72 65 6e 74 20 67 72 6f  75 70 20 64 65 66 69 6e  |rent group defin|
00000330  69 74 69 6f 6e 0d 00 0f  30 62 75 66 66 65 72 25  |ition...0buffer%|
00000340  21 33 32 20 20 20 3d 20  30 20 20 20 20 20 20 20  |!32   = 0       |
00000350  3a f4 20 43 75 72 72 65  6e 74 20 70 61 74 68 20  |:. Current path |
00000360  77 69 64 74 68 0d 00 10  2d 62 75 66 66 65 72 25  |width...-buffer%|
00000370  21 33 36 20 20 20 3d 20  30 20 20 20 20 20 20 20  |!36   = 0       |
00000380  3a f4 20 43 75 72 72 65  6e 74 20 65 6e 64 20 63  |:. Current end c|
00000390  61 70 0d 00 11 4d 62 75  66 66 65 72 25 21 34 30  |ap...Mbuffer%!40|
000003a0  20 20 20 3d 20 2d 31 20  20 20 20 20 20 3a f4 20  |   = -1      :. |
000003b0  4e 75 6d 62 65 72 20 6f  66 20 6f 75 74 6c 69 6e  |Number of outlin|
000003c0  65 20 66 6f 6e 74 73 20  64 65 63 6c 61 72 65 64  |e fonts declared|
000003d0  20 20 20 28 2d 31 20 69  66 20 6e 6f 6e 65 29 0d  |   (-1 if none).|
000003e0  00 12 56 62 75 66 66 65  72 25 21 34 34 20 20 20  |..Vbuffer%!44   |
000003f0  3d 20 2d 31 20 20 20 20  20 20 3a f4 20 46 69 6c  |= -1      :. Fil|
00000400  65 20 6f 66 66 73 65 74  20 74 6f 20 73 74 61 72  |e offset to star|
00000410  74 20 6f 66 20 66 6f 6e  74 20 74 61 62 6c 65 20  |t of font table |
00000420  28 2d 31 20 69 66 20 6e  6f 20 66 6f 6e 74 20 74  |(-1 if no font t|
00000430  61 62 6c 65 29 0d 00 13  46 62 75 66 66 65 72 25  |able)...Fbuffer%|
00000440  21 34 38 20 20 20 3d 20  30 20 20 20 20 20 20 20  |!48   = 0       |
00000450  3a f4 20 50 6f 69 6e 74  65 72 20 74 6f 20 70 61  |:. Pointer to pa|
00000460  74 68 20 73 74 79 6c 65  20 64 65 73 63 72 69 70  |th style descrip|
00000470  74 69 6f 6e 20 62 6c 6f  63 6b 20 0d 00 14 24 62  |tion block ...$b|
00000480  75 66 66 65 72 25 21 35  32 20 20 20 3d 20 30 20  |uffer%!52   = 0 |
00000490  20 20 20 20 20 20 3a f4  20 55 6e 75 73 65 64 0d  |      :. Unused.|
000004a0  00 15 47 24 28 62 75 66  66 65 72 25 20 2b 20 28  |..G$(buffer% + (|
000004b0  62 75 66 66 65 72 25 21  30 34 29 29 3d 20 22 44  |buffer%!04))= "D|
000004c0  72 61 77 22 20 20 3a f4  20 52 65 71 75 69 72 65  |raw"  :. Require|
000004d0  64 20 74 6f 20 74 61 67  20 61 73 20 61 20 64 72  |d to tag as a dr|
000004e0  61 77 66 69 6c 65 0d 00  16 3e 62 75 66 66 65 72  |awfile...>buffer|
000004f0  25 21 28 62 75 66 66 65  72 25 21 30 34 20 2b 20  |%!(buffer%!04 + |
00000500  34 29 20 3d 20 32 30 31  20 20 20 20 20 3a f4 20  |4) = 201     :. |
00000510  4d 61 6a 6f 72 20 76 65  72 73 69 6f 6e 20 6e 75  |Major version nu|
00000520  6d 62 65 72 0d 00 17 3e  62 75 66 66 65 72 25 21  |mber...>buffer%!|
00000530  28 62 75 66 66 65 72 25  21 30 34 20 2b 20 38 29  |(buffer%!04 + 8)|
00000540  20 3d 20 30 20 20 20 20  20 20 20 3a f4 20 4d 69  | = 0       :. Mi|
00000550  6e 6f 72 20 76 65 72 73  69 6f 6e 20 6e 75 6d 62  |nor version numb|
00000560  65 72 0d 00 18 57 24 28  62 75 66 66 65 72 25 20  |er...W$(buffer% |
00000570  2b 20 28 62 75 66 66 65  72 25 21 30 34 20 2b 20  |+ (buffer%!04 + |
00000580  31 32 29 29 20 3d 20 a4  73 68 65 6c 6c 5f 53 74  |12)) = .shell_St|
00000590  72 69 6e 67 50 61 64 54  72 61 69 6c 69 6e 67 28  |ringPadTrailing(|
000005a0  a4 73 68 65 6c 6c 5f 47  65 74 41 70 70 4e 61 6d  |.shell_GetAppNam|
000005b0  65 2c 22 20 22 2c 31 31  29 0d 00 19 4c 62 75 66  |e," ",11)...Lbuf|
000005c0  66 65 72 25 21 30 38 20  3d 20 62 75 66 66 65 72  |fer%!08 = buffer|
000005d0  25 21 30 34 20 2b 20 32  34 20 20 20 20 20 20 20  |%!04 + 24       |
000005e0  3a f4 20 32 34 20 69 73  20 6c 65 6e 67 74 68 20  |:. 24 is length |
000005f0  6f 66 20 44 72 61 77 46  69 6c 65 20 73 6f 20 66  |of DrawFile so f|
00000600  61 72 2e 2e 2e 0d 00 1a  33 f4 20 53 65 74 20 65  |ar......3. Set e|
00000610  78 74 65 6e 74 20 77 6f  72 64 73 20 6f 66 20 44  |xtent words of D|
00000620  72 61 77 46 69 6c 65 20  74 6f 20 62 65 20 30 2c  |rawFile to be 0,|
00000630  30 2c 31 2c 31 2e 2e 2e  0d 00 1b 21 f2 73 68 65  |0,1,1......!.she|
00000640  6c 6c 5f 44 72 61 77 50  75 74 57 6f 72 64 28 30  |ll_DrawPutWord(0|
00000650  2c 62 75 66 66 65 72 25  29 0d 00 1c 21 f2 73 68  |,buffer%)...!.sh|
00000660  65 6c 6c 5f 44 72 61 77  50 75 74 57 6f 72 64 28  |ell_DrawPutWord(|
00000670  30 2c 62 75 66 66 65 72  25 29 0d 00 1d 21 f2 73  |0,buffer%)...!.s|
00000680  68 65 6c 6c 5f 44 72 61  77 50 75 74 57 6f 72 64  |hell_DrawPutWord|
00000690  28 30 2c 62 75 66 66 65  72 25 29 0d 00 1e 21 f2  |(0,buffer%)...!.|
000006a0  73 68 65 6c 6c 5f 44 72  61 77 50 75 74 57 6f 72  |shell_DrawPutWor|
000006b0  64 28 30 2c 62 75 66 66  65 72 25 29 0d 00 1f 2a  |d(0,buffer%)...*|
000006c0  62 75 66 66 65 72 25 21  34 38 20 3d 20 a4 73 68  |buffer%!48 = .sh|
000006d0  65 6c 6c 5f 48 65 61 70  42 6c 6f 63 6b 46 65 74  |ell_HeapBlockFet|
000006e0  63 68 28 31 36 29 0d 00  20 1b 73 74 79 6c 65 5f  |ch(16).. .style_|
000006f0  62 6c 6b 25 20 3d 20 62  75 66 66 65 72 25 21 34  |blk% = buffer%!4|
00000700  38 0d 00 21 15 73 74 79  6c 65 5f 62 6c 6b 25 21  |8..!.style_blk%!|
00000710  30 30 20 3d 20 30 0d 00  22 15 73 74 79 6c 65 5f  |00 = 0..".style_|
00000720  62 6c 6b 25 21 30 34 20  3d 20 30 0d 00 23 15 73  |blk%!04 = 0..#.s|
00000730  74 79 6c 65 5f 62 6c 6b  25 21 30 38 20 3d 20 30  |tyle_blk%!08 = 0|
00000740  0d 00 24 15 73 74 79 6c  65 5f 62 6c 6b 25 21 31  |..$.style_blk%!1|
00000750  32 20 3d 20 30 0d 00 25  2a 62 75 66 66 65 72 25  |2 = 0..%*buffer%|
00000760  21 35 32 20 3d 20 a4 73  68 65 6c 6c 5f 48 65 61  |!52 = .shell_Hea|
00000770  70 42 6c 6f 63 6b 46 65  74 63 68 28 32 34 29 0d  |pBlockFetch(24).|
00000780  00 26 1e 74 72 61 6e 73  5f 6d 61 74 72 69 78 25  |.&.trans_matrix%|
00000790  20 3d 20 62 75 66 66 65  72 25 21 35 32 0d 00 27  | = buffer%!52..'|
000007a0  29 74 72 61 6e 73 5f 6d  61 74 72 69 78 25 21 30  |)trans_matrix%!0|
000007b0  30 20 3d 20 31 20 3c 3c  20 31 36 20 3a f4 20 78  |0 = 1 << 16 :. x|
000007c0  20 73 63 61 6c 65 0d 00  28 2a 74 72 61 6e 73 5f  | scale..(*trans_|
000007d0  6d 61 74 72 69 78 25 21  30 34 20 3d 20 30 20 20  |matrix%!04 = 0  |
000007e0  20 20 20 20 20 3a f4 20  72 6f 74 61 74 69 6f 6e  |     :. rotation|
000007f0  0d 00 29 2a 74 72 61 6e  73 5f 6d 61 74 72 69 78  |..)*trans_matrix|
00000800  25 21 30 38 20 3d 20 30  20 20 20 20 20 20 20 3a  |%!08 = 0       :|
00000810  f4 20 72 6f 74 61 74 69  6f 6e 0d 00 2a 29 74 72  |. rotation..*)tr|
00000820  61 6e 73 5f 6d 61 74 72  69 78 25 21 31 32 20 3d  |ans_matrix%!12 =|
00000830  20 31 20 3c 3c 20 31 36  20 3a f4 20 79 20 73 63  | 1 << 16 :. y sc|
00000840  61 6c 65 0d 00 2b 33 74  72 61 6e 73 5f 6d 61 74  |ale..+3trans_mat|
00000850  72 69 78 25 21 31 36 20  3d 20 30 20 20 20 20 20  |rix%!16 = 0     |
00000860  20 20 3a f4 20 78 20 70  6f 73 69 74 69 6f 6e 20  |  :. x position |
00000870  6f 66 66 73 65 74 0d 00  2c 33 74 72 61 6e 73 5f  |offset..,3trans_|
00000880  6d 61 74 72 69 78 25 21  32 30 20 3d 20 30 20 20  |matrix%!20 = 0  |
00000890  20 20 20 20 20 3a f4 20  79 20 70 6f 73 69 74 69  |     :. y positi|
000008a0  6f 6e 20 6f 66 66 73 65  74 0d 00 2d 05 e1 0d 00  |on offset..-....|
000008b0  2e 05 3a 0d 00 2f 23 2a  7c 53 74 6f 70 20 50 52  |..:../#*|Stop PR|
000008c0  4f 43 73 68 65 6c 6c 5f  44 72 61 77 43 72 65 61  |OCshell_DrawCrea|
000008d0  74 65 46 69 6c 65 0d 00  30 04 0d 00 31 25 2a 7c  |teFile..0...1%*||
000008e0  53 74 61 72 74 20 50 52  4f 43 73 68 65 6c 6c 5f  |Start PROCshell_|
000008f0  44 72 61 77 4f 75 74 6c  69 6e 65 46 6f 6e 74 0d  |DrawOutlineFont.|
00000900  00 32 4d dd 20 f2 73 68  65 6c 6c 5f 44 72 61 77  |.2M. .shell_Draw|
00000910  4f 75 74 6c 69 6e 65 46  6f 6e 74 28 f8 20 62 75  |OutlineFont(. bu|
00000920  66 66 65 72 25 2c 74 65  78 74 24 2c 70 74 73 69  |ffer%,text$,ptsi|
00000930  7a 65 2c 70 74 68 69 67  68 2c 78 6f 72 69 67 69  |ze,pthigh,xorigi|
00000940  6e 25 2c 79 6f 72 69 67  69 6e 25 29 0d 00 33 2f  |n%,yorigin%)..3/|
00000950  ea 20 73 74 61 72 74 25  2c 70 74 72 25 2c 6c 78  |. start%,ptr%,lx|
00000960  25 2c 62 79 25 2c 72 78  25 2c 74 79 25 2c 66 6f  |%,by%,rx%,ty%,fo|
00000970  6e 74 25 2c 73 63 6c 5f  66 61 63 0d 00 34 1b 73  |nt%,scl_fac..4.s|
00000980  63 6c 5f 66 61 63 20 3d  20 7c 28 62 75 66 66 65  |cl_fac = |(buffe|
00000990  72 25 2b 31 32 29 0d 00  35 14 66 6f 6e 74 25 20  |r%+12)..5.font% |
000009a0  3d 20 21 62 75 66 66 65  72 25 0d 00 36 13 e7 20  |= !buffer%..6.. |
000009b0  74 65 78 74 24 20 3c 3e  20 22 22 20 8c 0d 00 37  |text$ <> "" ...7|
000009c0  33 20 20 62 75 66 66 65  72 25 20 3d 20 a4 73 68  |3  buffer% = .sh|
000009d0  65 6c 6c 5f 48 65 61 70  42 6c 6f 63 6b 45 78 74  |ell_HeapBlockExt|
000009e0  65 6e 64 28 62 75 66 66  65 72 25 2c 32 35 36 29  |end(buffer%,256)|
000009f0  0d 00 38 23 20 20 70 74  72 25 20 20 20 20 3d 20  |..8#  ptr%    = |
00000a00  62 75 66 66 65 72 25 20  2b 20 62 75 66 66 65 72  |buffer% + buffer|
00000a10  25 21 38 0d 00 39 14 20  20 73 74 61 72 74 25 20  |%!8..9.  start% |
00000a20  20 3d 20 70 74 72 25 0d  00 3a 2f 20 20 21 70 74  | = ptr%..:/  !pt|
00000a30  72 25 20 20 20 3d 20 20  20 31 20 20 20 20 20 20  |r%   =   1      |
00000a40  20 20 20 20 20 20 20 20  3a f4 20 54 65 78 74 20  |        :. Text |
00000a50  6f 62 6a 65 63 74 0d 00  3b 44 20 20 70 74 72 25  |object..;D  ptr%|
00000a60  20 20 20 20 2b 3d 20 32  34 20 20 20 20 20 20 20  |    += 24       |
00000a70  20 20 20 20 20 20 20 3a  f4 20 53 6b 69 70 20 73  |       :. Skip s|
00000a80  69 7a 65 2c 20 6f 62 6a  65 63 74 20 62 6f 75 6e  |ize, object boun|
00000a90  64 73 20 66 6f 72 20 6e  6f 77 0d 00 3c 24 20 20  |ds for now..<$  |
00000aa0  6c 78 25 20 20 20 20 20  3d 20 28 78 6f 72 69 67  |lx%     = (xorig|
00000ab0  69 6e 25 20 2a 20 73 63  6c 5f 66 61 63 29 0d 00  |in% * scl_fac)..|
00000ac0  3d 24 20 20 62 79 25 20  20 20 20 20 3d 20 28 79  |=$  by%     = (y|
00000ad0  6f 72 69 67 69 6e 25 20  2a 20 73 63 6c 5f 66 61  |origin% * scl_fa|
00000ae0  63 29 0d 00 3e 36 20 20  f4 20 50 52 4f 43 73 68  |c)..>6  . PROCsh|
00000af0  65 6c 6c 5f 54 72 61 63  65 66 30 28 22 44 45 42  |ell_Tracef0("DEB|
00000b00  55 47 3a 3a 66 6f 6e 74  20 69 73 20 22 2b 53 54  |UG::font is "+ST|
00000b10  52 24 66 6f 6e 74 25 29  0d 00 3f 50 20 20 f4 20  |R$font%)..?P  . |
00000b20  50 52 4f 43 73 68 65 6c  6c 5f 54 72 61 63 65 66  |PROCshell_Tracef|
00000b30  30 28 22 44 45 42 55 47  3a 3a 66 6f 6e 74 20 69  |0("DEBUG::font i|
00000b40  73 20 22 2b 46 4e 73 68  65 6c 6c 5f 44 72 61 77  |s "+FNshell_Draw|
00000b50  46 6f 6e 74 4e 61 6d 65  28 62 75 66 66 65 72 25  |FontName(buffer%|
00000b60  2c 66 6f 6e 74 25 29 29  0d 00 40 5f 20 20 c8 99  |,font%))..@_  ..|
00000b70  20 22 46 6f 6e 74 5f 46  69 6e 64 46 6f 6e 74 22  | "Font_FindFont"|
00000b80  2c 2c a4 73 68 65 6c 6c  5f 44 72 61 77 46 6f 6e  |,,.shell_DrawFon|
00000b90  74 4e 61 6d 65 28 62 75  66 66 65 72 25 2c 66 6f  |tName(buffer%,fo|
00000ba0  6e 74 25 29 2c 70 74 73  69 7a 65 20 2a 20 31 36  |nt%),ptsize * 16|
00000bb0  2c 20 70 74 68 69 67 68  20 2a 20 31 36 20 b8 20  |, pthigh * 16 . |
00000bc0  68 61 6e 64 6c 65 25 0d  00 41 1f 20 20 c8 99 20  |handle%..A.  .. |
00000bd0  22 46 6f 6e 74 5f 53 65  74 46 6f 6e 74 22 2c 68  |"Font_SetFont",h|
00000be0  61 6e 64 6c 65 25 0d 00  42 34 20 20 c8 99 20 22  |andle%..B4  .. "|
00000bf0  46 6f 6e 74 5f 53 74 72  69 6e 67 42 42 6f 78 22  |Font_StringBBox"|
00000c00  2c 2c 74 65 78 74 24 20  b8 20 2c 72 31 25 2c 72  |,,text$ . ,r1%,r|
00000c10  32 25 2c 72 33 25 2c 72  34 25 0d 00 43 20 20 20  |2%,r3%,r4%..C   |
00000c20  c8 99 20 22 46 6f 6e 74  5f 4c 6f 73 65 46 6f 6e  |.. "Font_LoseFon|
00000c30  74 22 2c 68 61 6e 64 6c  65 25 0d 00 44 06 20 20  |t",handle%..D.  |
00000c40  0d 00 45 32 20 20 f4 20  50 52 4f 43 73 68 65 6c  |..E2  . PROCshel|
00000c50  6c 5f 54 72 61 63 65 66  30 28 22 44 45 42 55 47  |l_Tracef0("DEBUG|
00000c60  3a 3a 72 31 25 20 3d 20  22 2b 53 54 52 24 72 31  |::r1% = "+STR$r1|
00000c70  25 29 0d 00 46 32 20 20  f4 20 50 52 4f 43 73 68  |%)..F2  . PROCsh|
00000c80  65 6c 6c 5f 54 72 61 63  65 66 30 28 22 44 45 42  |ell_Tracef0("DEB|
00000c90  55 47 3a 3a 72 32 25 20  3d 20 22 2b 53 54 52 24  |UG::r2% = "+STR$|
00000ca0  72 32 25 29 0d 00 47 32  20 20 f4 20 50 52 4f 43  |r2%)..G2  . PROC|
00000cb0  73 68 65 6c 6c 5f 54 72  61 63 65 66 30 28 22 44  |shell_Tracef0("D|
00000cc0  45 42 55 47 3a 3a 72 33  25 20 3d 20 22 2b 53 54  |EBUG::r3% = "+ST|
00000cd0  52 24 72 33 25 29 0d 00  48 32 20 20 f4 20 50 52  |R$r3%)..H2  . PR|
00000ce0  4f 43 73 68 65 6c 6c 5f  54 72 61 63 65 66 30 28  |OCshell_Tracef0(|
00000cf0  22 44 45 42 55 47 3a 3a  72 34 25 20 3d 20 22 2b  |"DEBUG::r4% = "+|
00000d00  53 54 52 24 72 34 25 29  0d 00 49 26 20 20 72 78  |STR$r4%)..I&  rx|
00000d10  25 20 20 20 20 20 3d 20  6c 78 25 20 2b 20 28 28  |%     = lx% + ((|
00000d20  72 33 25 2f 31 30 30 30  29 2a 36 34 30 29 0d 00  |r3%/1000)*640)..|
00000d30  4a 26 20 20 74 79 25 20  20 20 20 20 3d 20 62 79  |J&  ty%     = by|
00000d40  25 20 2b 20 28 28 72 34  25 2f 31 30 30 30 29 2a  |% + ((r4%/1000)*|
00000d50  36 34 30 29 0d 00 4b 30  20 20 f4 20 50 52 4f 43  |640)..K0  . PROC|
00000d60  73 68 65 6c 6c 5f 54 72  61 63 65 66 30 28 22 44  |shell_Tracef0("D|
00000d70  45 42 55 47 3a 3a 6c 78  25 3d 22 2b 53 54 52 24  |EBUG::lx%="+STR$|
00000d80  6c 78 25 29 0d 00 4c 30  20 20 f4 20 50 52 4f 43  |lx%)..L0  . PROC|
00000d90  73 68 65 6c 6c 5f 54 72  61 63 65 66 30 28 22 44  |shell_Tracef0("D|
00000da0  45 42 55 47 3a 3a 62 79  25 3d 22 2b 53 54 52 24  |EBUG::by%="+STR$|
00000db0  62 79 25 29 0d 00 4d 30  20 20 f4 20 50 52 4f 43  |by%)..M0  . PROC|
00000dc0  73 68 65 6c 6c 5f 54 72  61 63 65 66 30 28 22 44  |shell_Tracef0("D|
00000dd0  45 42 55 47 3a 3a 72 78  25 3d 22 2b 53 54 52 24  |EBUG::rx%="+STR$|
00000de0  72 78 25 29 0d 00 4e 30  20 20 f4 20 50 52 4f 43  |rx%)..N0  . PROC|
00000df0  73 68 65 6c 6c 5f 54 72  61 63 65 66 30 28 22 44  |shell_Tracef0("D|
00000e00  45 42 55 47 3a 3a 74 79  25 3d 22 2b 53 54 52 24  |EBUG::ty%="+STR$|
00000e10  74 79 25 29 0d 00 4f 36  20 20 f2 73 68 65 6c 6c  |ty%)..O6  .shell|
00000e20  5f 44 72 61 77 50 75 74  43 6f 6f 72 64 73 28 73  |_DrawPutCoords(s|
00000e30  74 61 72 74 25 20 2b 20  38 2c 6c 78 25 2c 62 79  |tart% + 8,lx%,by|
00000e40  25 2c 72 78 25 2c 74 79  25 29 0d 00 50 27 20 20  |%,rx%,ty%)..P'  |
00000e50  21 70 74 72 25 20 20 20  3d 20 62 75 66 66 65 72  |!ptr%   = buffer|
00000e60  25 21 32 30 20 20 20 3a  70 74 72 25 20 2b 3d 20  |%!20   :ptr% += |
00000e70  34 0d 00 51 27 20 20 21  70 74 72 25 20 20 20 3d  |4..Q'  !ptr%   =|
00000e80  20 62 75 66 66 65 72 25  21 32 34 20 20 20 3a 70  | buffer%!24   :p|
00000e90  74 72 25 20 2b 3d 20 34  0d 00 52 27 20 20 21 70  |tr% += 4..R'  !p|
00000ea0  74 72 25 20 20 20 3d 20  66 6f 6e 74 25 20 20 20  |tr%   = font%   |
00000eb0  20 20 20 20 20 3a 70 74  72 25 20 2b 3d 20 34 0d  |     :ptr% += 4.|
00000ec0  00 53 27 20 20 21 70 74  72 25 20 20 20 3d 20 70  |.S'  !ptr%   = p|
00000ed0  74 73 69 7a 65 20 2a 20  36 34 30 20 3a 70 74 72  |tsize * 640 :ptr|
00000ee0  25 20 2b 3d 20 34 0d 00  54 27 20 20 21 70 74 72  |% += 4..T'  !ptr|
00000ef0  25 20 20 20 3d 20 70 74  68 69 67 68 20 2a 20 36  |%   = pthigh * 6|
00000f00  34 30 20 3a 70 74 72 25  20 2b 3d 20 34 0d 00 55  |40 :ptr% += 4..U|
00000f10  32 20 20 21 70 74 72 25  20 20 20 3d 20 78 6f 72  |2  !ptr%   = xor|
00000f20  69 67 69 6e 25 20 2a 20  7c 28 62 75 66 66 65 72  |igin% * |(buffer|
00000f30  25 2b 31 32 29 3a 70 74  72 25 20 2b 3d 20 34 0d  |%+12):ptr% += 4.|
00000f40  00 56 32 20 20 21 70 74  72 25 20 20 20 3d 20 79  |.V2  !ptr%   = y|
00000f50  6f 72 69 67 69 6e 25 20  2a 20 7c 28 62 75 66 66  |origin% * |(buff|
00000f60  65 72 25 2b 31 32 29 3a  70 74 72 25 20 2b 3d 20  |er%+12):ptr% += |
00000f70  34 0d 00 57 26 20 20 f2  73 68 65 6c 6c 5f 44 72  |4..W&  .shell_Dr|
00000f80  61 77 50 75 74 53 74 72  69 6e 67 28 74 65 78 74  |awPutString(text|
00000f90  24 2c 70 74 72 25 29 0d  00 58 1e 20 20 73 74 61  |$,ptr%)..X.  sta|
00000fa0  72 74 25 21 34 20 3d 20  70 74 72 25 20 2d 20 73  |rt%!4 = ptr% - s|
00000fb0  74 61 72 74 25 0d 00 59  36 20 20 f2 73 68 65 6c  |tart%..Y6  .shel|
00000fc0  6c 5f 44 72 61 77 55 70  64 61 74 65 42 6f 75 6e  |l_DrawUpdateBoun|
00000fd0  64 73 28 62 75 66 66 65  72 25 2c 6c 78 25 2c 62  |ds(buffer%,lx%,b|
00000fe0  79 25 2c 72 78 25 2c 74  79 25 29 0d 00 5a 3e 20  |y%,rx%,ty%)..Z> |
00000ff0  20 62 75 66 66 65 72 25  20 3d 20 a4 73 68 65 6c  | buffer% = .shel|
00001000  6c 5f 48 65 61 70 42 6c  6f 63 6b 45 78 74 65 6e  |l_HeapBlockExten|
00001010  64 28 62 75 66 66 65 72  25 2c 73 74 61 72 74 25  |d(buffer%,start%|
00001020  21 34 20 2d 20 32 35 36  29 0d 00 5b 1b 20 20 62  |!4 - 256)..[.  b|
00001030  75 66 66 65 72 25 21 38  20 2b 3d 20 73 74 61 72  |uffer%!8 += star|
00001040  74 25 21 34 0d 00 5c 05  cd 0d 00 5d 05 e1 0d 00  |t%!4..\....]....|
00001050  5e 05 3a 0d 00 5f 24 2a  7c 53 74 6f 70 20 50 52  |^.:.._$*|Stop PR|
00001060  4f 43 73 68 65 6c 6c 5f  44 72 61 77 4f 75 74 6c  |OCshell_DrawOutl|
00001070  69 6e 65 46 6f 6e 74 0d  00 60 04 0d 00 61 23 2a  |ineFont..`...a#*|
00001080  7c 53 74 61 72 74 20 50  52 4f 43 73 68 65 6c 6c  ||Start PROCshell|
00001090  5f 44 72 61 77 50 75 74  53 74 72 69 6e 67 0d 00  |_DrawPutString..|
000010a0  62 25 dd 20 f2 73 68 65  6c 6c 5f 44 72 61 77 50  |b%. .shell_DrawP|
000010b0  75 74 53 74 72 69 6e 67  28 53 24 2c f8 20 70 74  |utString(S$,. pt|
000010c0  72 25 29 0d 00 63 0e 24  70 74 72 25 20 3d 20 53  |r%)..c.$ptr% = S|
000010d0  24 0d 00 64 0f 70 74 72  25 20 2b 3d 20 a9 53 24  |$..d.ptr% += .S$|
000010e0  0d 00 65 05 f5 0d 00 66  0f 20 20 3f 70 74 72 25  |..e....f.  ?ptr%|
000010f0  20 3d 20 30 0d 00 67 0f  20 20 70 74 72 25 20 2b  | = 0..g.  ptr% +|
00001100  3d 20 31 0d 00 68 12 fd  20 70 74 72 25 20 83 20  |= 1..h.. ptr% . |
00001110  34 20 3d 20 30 0d 00 69  05 e1 0d 00 6a 05 3a 0d  |4 = 0..i....j.:.|
00001120  00 6b 22 2a 7c 53 74 6f  70 20 50 52 4f 43 73 68  |.k"*|Stop PROCsh|
00001130  65 6c 6c 5f 44 72 61 77  50 75 74 53 74 72 69 6e  |ell_DrawPutStrin|
00001140  67 0d 00 6c 04 0d 00 6d  23 2a 7c 53 74 61 72 74  |g..l...m#*|Start|
00001150  20 50 52 4f 43 73 68 65  6c 6c 5f 44 72 61 77 50  | PROCshell_DrawP|
00001160  75 74 43 6f 6f 72 64 73  0d 00 6e 32 dd 20 f2 73  |utCoords..n2. .s|
00001170  68 65 6c 6c 5f 44 72 61  77 50 75 74 43 6f 6f 72  |hell_DrawPutCoor|
00001180  64 73 28 73 74 61 72 74  25 2c 6c 78 25 2c 62 79  |ds(start%,lx%,by|
00001190  25 2c 72 78 25 2c 74 79  25 29 0d 00 6f 13 73 74  |%,rx%,ty%)..o.st|
000011a0  61 72 74 25 21 30 30 20  3d 20 6c 78 25 0d 00 70  |art%!00 = lx%..p|
000011b0  14 73 74 61 72 74 25 21  30 34 20 3d 20 62 79 25  |.start%!04 = by%|
000011c0  20 0d 00 71 13 73 74 61  72 74 25 21 30 38 20 3d  | ..q.start%!08 =|
000011d0  20 72 78 25 0d 00 72 13  73 74 61 72 74 25 21 31  | rx%..r.start%!1|
000011e0  32 20 3d 20 74 79 25 0d  00 73 05 e1 0d 00 74 05  |2 = ty%..s....t.|
000011f0  3a 0d 00 75 22 2a 7c 53  74 6f 70 20 50 52 4f 43  |:..u"*|Stop PROC|
00001200  73 68 65 6c 6c 5f 44 72  61 77 50 75 74 43 6f 6f  |shell_DrawPutCoo|
00001210  72 64 73 0d 00 76 04 0d  00 77 26 2a 7c 53 74 61  |rds..v...w&*|Sta|
00001220  72 74 20 50 52 4f 43 73  68 65 6c 6c 5f 44 72 61  |rt PROCshell_Dra|
00001230  77 53 65 74 50 61 74 68  57 69 64 74 68 0d 00 78  |wSetPathWidth..x|
00001240  2c dd 20 f2 73 68 65 6c  6c 5f 44 72 61 77 53 65  |,. .shell_DrawSe|
00001250  74 50 61 74 68 57 69 64  74 68 28 62 75 66 66 65  |tPathWidth(buffe|
00001260  72 25 2c 77 69 64 74 68  29 0d 00 79 31 62 75 66  |r%,width)..y1buf|
00001270  66 65 72 25 21 33 32 20  3d 20 a8 28 28 77 69 64  |fer%!32 = .((wid|
00001280  74 68 20 2a 20 7c 28 62  75 66 66 65 72 25 2b 31  |th * |(buffer%+1|
00001290  32 29 29 20 2b 20 30 2e  35 29 0d 00 7a 05 e1 0d  |2)) + 0.5)..z...|
000012a0  00 7b 05 3a 0d 00 7c 25  2a 7c 53 74 6f 70 20 50  |.{.:..|%*|Stop P|
000012b0  52 4f 43 73 68 65 6c 6c  5f 44 72 61 77 53 65 74  |ROCshell_DrawSet|
000012c0  50 61 74 68 57 69 64 74  68 0d 00 7d 04 0d 00 7e  |PathWidth..}...~|
000012d0  27 2a 7c 53 74 61 72 74  20 50 52 4f 43 73 68 65  |'*|Start PROCshe|
000012e0  6c 6c 5f 44 72 61 77 53  65 74 50 61 74 68 43 6f  |ll_DrawSetPathCo|
000012f0  6c 6f 75 72 0d 00 7f 30  dd 20 f2 73 68 65 6c 6c  |lour...0. .shell|
00001300  5f 44 72 61 77 53 65 74  50 61 74 68 43 6f 6c 6f  |_DrawSetPathColo|
00001310  75 72 28 62 75 66 66 65  72 25 2c 52 25 2c 47 25  |ur(buffer%,R%,G%|
00001320  2c 42 25 29 0d 00 80 12  62 75 66 66 65 72 25 3f  |,B%)....buffer%?|
00001330  32 30 20 3d 20 30 0d 00  81 13 62 75 66 66 65 72  |20 = 0....buffer|
00001340  25 3f 32 31 20 3d 20 52  25 0d 00 82 13 62 75 66  |%?21 = R%....buf|
00001350  66 65 72 25 3f 32 32 20  3d 20 47 25 0d 00 83 13  |fer%?22 = G%....|
00001360  62 75 66 66 65 72 25 3f  32 33 20 3d 20 42 25 0d  |buffer%?23 = B%.|
00001370  00 84 05 e1 0d 00 85 05  3a 0d 00 86 26 2a 7c 53  |........:...&*|S|
00001380  74 6f 70 20 50 52 4f 43  73 68 65 6c 6c 5f 44 72  |top PROCshell_Dr|
00001390  61 77 53 65 74 50 61 74  68 43 6f 6c 6f 75 72 0d  |awSetPathColour.|
000013a0  00 87 04 0d 00 88 29 2a  7c 53 74 61 72 74 20 50  |......)*|Start P|
000013b0  52 4f 43 73 68 65 6c 6c  5f 44 72 61 77 53 65 74  |ROCshell_DrawSet|
000013c0  50 61 74 68 4e 6f 43 6f  6c 6f 75 72 0d 00 89 29  |PathNoColour...)|
000013d0  dd 20 f2 73 68 65 6c 6c  5f 44 72 61 77 53 65 74  |. .shell_DrawSet|
000013e0  50 61 74 68 4e 6f 43 6f  6c 6f 75 72 28 62 75 66  |PathNoColour(buf|
000013f0  66 65 72 25 29 0d 00 8a  13 62 75 66 66 65 72 25  |fer%)....buffer%|
00001400  21 32 30 20 3d 20 2d 31  0d 00 8b 05 e1 0d 00 8c  |!20 = -1........|
00001410  05 3a 0d 00 8d 28 2a 7c  53 74 6f 70 20 50 52 4f  |.:...(*|Stop PRO|
00001420  43 73 68 65 6c 6c 5f 44  72 61 77 53 65 74 50 61  |Cshell_DrawSetPa|
00001430  74 68 4e 6f 43 6f 6c 6f  75 72 0d 00 8e 04 0d 00  |thNoColour......|
00001440  8f 27 2a 7c 53 74 61 72  74 20 50 52 4f 43 73 68  |.'*|Start PROCsh|
00001450  65 6c 6c 5f 44 72 61 77  53 65 74 46 69 6c 6c 43  |ell_DrawSetFillC|
00001460  6f 6c 6f 75 72 0d 00 90  30 dd 20 f2 73 68 65 6c  |olour...0. .shel|
00001470  6c 5f 44 72 61 77 53 65  74 46 69 6c 6c 43 6f 6c  |l_DrawSetFillCol|
00001480  6f 75 72 28 62 75 66 66  65 72 25 2c 52 25 2c 47  |our(buffer%,R%,G|
00001490  25 2c 42 25 29 0d 00 91  12 62 75 66 66 65 72 25  |%,B%)....buffer%|
000014a0  3f 32 34 20 3d 20 30 0d  00 92 13 62 75 66 66 65  |?24 = 0....buffe|
000014b0  72 25 3f 32 35 20 3d 20  52 25 0d 00 93 13 62 75  |r%?25 = R%....bu|
000014c0  66 66 65 72 25 3f 32 36  20 3d 20 47 25 0d 00 94  |ffer%?26 = G%...|
000014d0  13 62 75 66 66 65 72 25  3f 32 37 20 3d 20 42 25  |.buffer%?27 = B%|
000014e0  0d 00 95 05 e1 0d 00 96  05 3a 0d 00 97 26 2a 7c  |.........:...&*||
000014f0  53 74 6f 70 20 50 52 4f  43 73 68 65 6c 6c 5f 44  |Stop PROCshell_D|
00001500  72 61 77 53 65 74 46 69  6c 6c 43 6f 6c 6f 75 72  |rawSetFillColour|
00001510  0d 00 98 04 0d 00 99 29  2a 7c 53 74 61 72 74 20  |.......)*|Start |
00001520  50 52 4f 43 73 68 65 6c  6c 5f 44 72 61 77 53 65  |PROCshell_DrawSe|
00001530  74 4e 6f 46 69 6c 6c 43  6f 6c 6f 75 72 0d 00 9a  |tNoFillColour...|
00001540  29 dd 20 f2 73 68 65 6c  6c 5f 44 72 61 77 53 65  |). .shell_DrawSe|
00001550  74 4e 6f 46 69 6c 6c 43  6f 6c 6f 75 72 28 62 75  |tNoFillColour(bu|
00001560  66 66 65 72 25 29 0d 00  9b 13 62 75 66 66 65 72  |ffer%)....buffer|
00001570  25 21 32 34 20 3d 20 2d  31 0d 00 9c 05 e1 0d 00  |%!24 = -1.......|
00001580  9d 05 3a 0d 00 9e 28 2a  7c 53 74 6f 70 20 50 52  |..:...(*|Stop PR|
00001590  4f 43 73 68 65 6c 6c 5f  44 72 61 77 53 65 74 4e  |OCshell_DrawSetN|
000015a0  6f 46 69 6c 6c 43 6f 6c  6f 75 72 0d 00 9f 04 0d  |oFillColour.....|
000015b0  00 a0 21 2a 7c 53 74 61  72 74 20 50 52 4f 43 73  |..!*|Start PROCs|
000015c0  68 65 6c 6c 5f 44 72 61  77 50 75 74 57 6f 72 64  |hell_DrawPutWord|
000015d0  0d 00 a1 26 dd 20 f2 73  68 65 6c 6c 5f 44 72 61  |...&. .shell_Dra|
000015e0  77 50 75 74 57 6f 72 64  28 6b 25 2c f8 20 62 75  |wPutWord(k%,. bu|
000015f0  66 66 65 72 25 29 0d 00  a2 0b ea 20 6e 65 78 74  |ffer%)..... next|
00001600  25 0d 00 a3 2f 62 75 66  66 65 72 25 20 3d 20 a4  |%.../buffer% = .|
00001610  73 68 65 6c 6c 5f 48 65  61 70 42 6c 6f 63 6b 45  |shell_HeapBlockE|
00001620  78 74 65 6e 64 28 62 75  66 66 65 72 25 2c 34 29  |xtend(buffer%,4)|
00001630  0d 00 a4 20 6e 65 78 74  25 20 3d 20 62 75 66 66  |... next% = buff|
00001640  65 72 25 20 2b 20 62 75  66 66 65 72 25 21 30 38  |er% + buffer%!08|
00001650  0d 00 a5 0f 21 6e 65 78  74 25 20 3d 20 6b 25 0d  |....!next% = k%.|
00001660  00 a6 13 62 75 66 66 65  72 25 21 30 38 20 2b 3d  |...buffer%!08 +=|
00001670  20 34 0d 00 a7 05 e1 0d  00 a8 05 3a 0d 00 a9 20  | 4.........:... |
00001680  2a 7c 53 74 6f 70 20 50  52 4f 43 73 68 65 6c 6c  |*|Stop PROCshell|
00001690  5f 44 72 61 77 50 75 74  57 6f 72 64 0d 00 aa 04  |_DrawPutWord....|
000016a0  0d 00 ab 24 2a 7c 53 74  61 72 74 20 50 52 4f 43  |...$*|Start PROC|
000016b0  73 68 65 6c 6c 5f 44 72  61 77 53 74 61 72 74 47  |shell_DrawStartG|
000016c0  72 6f 75 70 0d 00 ac 2c  dd 20 f2 73 68 65 6c 6c  |roup...,. .shell|
000016d0  5f 44 72 61 77 53 74 61  72 74 47 72 6f 75 70 28  |_DrawStartGroup(|
000016e0  f8 20 62 75 66 66 65 72  25 2c 6e 61 6d 65 24 29  |. buffer%,name$)|
000016f0  0d 00 ad 0b ea 20 6e 65  78 74 25 0d 00 ae 33 e7  |..... next%...3.|
00001700  20 62 75 66 66 65 72 25  21 32 38 20 3e 20 30 20  | buffer%!28 > 0 |
00001710  8c 20 f2 73 68 65 6c 6c  5f 44 72 61 77 45 6e 64  |. .shell_DrawEnd|
00001720  47 72 6f 75 70 28 62 75  66 66 65 72 25 29 0d 00  |Group(buffer%)..|
00001730  af 4b 62 75 66 66 65 72  25 21 32 38 20 3d 20 62  |.Kbuffer%!28 = b|
00001740  75 66 66 65 72 25 21 30  38 3a f4 20 53 74 6f 72  |uffer%!08:. Stor|
00001750  65 20 66 69 6c 65 20 6f  66 66 73 65 74 20 74 6f  |e file offset to|
00001760  20 63 75 72 72 65 6e 74  20 67 72 6f 75 70 20 64  | current group d|
00001770  65 66 69 6e 69 74 69 6f  6e 0d 00 b0 3e f4 20 50  |efinition...>. P|
00001780  52 4f 43 73 68 65 6c 6c  5f 54 72 61 63 65 66 30  |ROCshell_Tracef0|
00001790  28 22 44 45 42 55 47 3a  3a 62 62 5f 6f 66 66 73  |("DEBUG::bb_offs|
000017a0  65 74 20 3d 20 22 2b 53  54 52 24 7e 62 75 66 66  |et = "+STR$~buff|
000017b0  65 72 25 21 32 38 29 0d  00 b1 3b f2 73 68 65 6c  |er%!28)...;.shel|
000017c0  6c 5f 44 72 61 77 50 75  74 57 6f 72 64 28 30 36  |l_DrawPutWord(06|
000017d0  2c 62 75 66 66 65 72 25  29 20 3a f4 20 4f 62 6a  |,buffer%) :. Obj|
000017e0  65 63 74 20 74 79 70 65  20 36 20 28 67 72 6f 75  |ect type 6 (grou|
000017f0  70 29 0d 00 b2 42 f2 73  68 65 6c 6c 5f 44 72 61  |p)...B.shell_Dra|
00001800  77 50 75 74 57 6f 72 64  28 33 36 2c 62 75 66 66  |wPutWord(36,buff|
00001810  65 72 25 29 20 3a f4 20  43 75 72 72 65 6e 74 20  |er%) :. Current |
00001820  73 69 7a 65 20 6f 66 20  67 72 6f 75 70 20 6f 62  |size of group ob|
00001830  6a 65 63 74 0d 00 b3 38  f2 73 68 65 6c 6c 5f 44  |ject...8.shell_D|
00001840  72 61 77 50 75 74 57 6f  72 64 28 2d 31 2c 62 75  |rawPutWord(-1,bu|
00001850  66 66 65 72 25 29 20 20  3a f4 20 42 6f 75 6e 64  |ffer%)  :. Bound|
00001860  69 6e 67 20 62 6f 78 20  78 6d 69 6e 0d 00 b4 38  |ing box xmin...8|
00001870  f2 73 68 65 6c 6c 5f 44  72 61 77 50 75 74 57 6f  |.shell_DrawPutWo|
00001880  72 64 28 2d 31 2c 62 75  66 66 65 72 25 29 20 20  |rd(-1,buffer%)  |
00001890  3a f4 20 42 6f 75 6e 64  69 6e 67 20 62 6f 78 20  |:. Bounding box |
000018a0  79 6d 69 6e 0d 00 b5 37  f2 73 68 65 6c 6c 5f 44  |ymin...7.shell_D|
000018b0  72 61 77 50 75 74 57 6f  72 64 28 31 2c 62 75 66  |rawPutWord(1,buf|
000018c0  66 65 72 25 29 20 20 3a  f4 20 42 6f 75 6e 64 69  |fer%)  :. Boundi|
000018d0  6e 67 20 62 6f 78 20 78  6d 61 78 0d 00 b6 37 f2  |ng box xmax...7.|
000018e0  73 68 65 6c 6c 5f 44 72  61 77 50 75 74 57 6f 72  |shell_DrawPutWor|
000018f0  64 28 31 2c 62 75 66 66  65 72 25 29 20 20 3a f4  |d(1,buffer%)  :.|
00001900  20 42 6f 75 6e 64 69 6e  67 20 62 6f 78 20 79 6d  | Bounding box ym|
00001910  61 78 0d 00 b7 30 62 75  66 66 65 72 25 20 3d 20  |ax...0buffer% = |
00001920  a4 73 68 65 6c 6c 5f 48  65 61 70 42 6c 6f 63 6b  |.shell_HeapBlock|
00001930  45 78 74 65 6e 64 28 62  75 66 66 65 72 25 2c 31  |Extend(buffer%,1|
00001940  32 29 0d 00 b8 22 6e 65  78 74 25 20 20 20 3d 20  |2)..."next%   = |
00001950  62 75 66 66 65 72 25 20  2b 20 62 75 66 66 65 72  |buffer% + buffer|
00001960  25 21 30 38 0d 00 b9 13  24 6e 65 78 74 25 20 20  |%!08....$next%  |
00001970  3d 20 6e 61 6d 65 24 0d  00 ba 41 62 75 66 66 65  |= name$...Abuffe|
00001980  72 25 21 30 38 20 2b 3d  20 31 32 20 3a f4 20 55  |r%!08 += 12 :. U|
00001990  70 64 61 74 65 20 66 69  6c 65 20 6f 66 66 73 65  |pdate file offse|
000019a0  74 20 74 6f 20 6e 65 78  74 20 66 72 65 65 20 61  |t to next free a|
000019b0  64 64 72 65 73 73 2e 2e  0d 00 bb 05 e1 0d 00 bc  |ddress..........|
000019c0  05 3a 0d 00 bd 23 2a 7c  53 74 6f 70 20 50 52 4f  |.:...#*|Stop PRO|
000019d0  43 73 68 65 6c 6c 5f 44  72 61 77 53 74 61 72 74  |Cshell_DrawStart|
000019e0  47 72 6f 75 70 0d 00 be  04 0d 00 bf 22 2a 7c 53  |Group......."*|S|
000019f0  74 61 72 74 20 50 52 4f  43 73 68 65 6c 6c 5f 44  |tart PROCshell_D|
00001a00  72 61 77 45 6e 64 47 72  6f 75 70 0d 00 c0 22 dd  |rawEndGroup...".|
00001a10  20 f2 73 68 65 6c 6c 5f  44 72 61 77 45 6e 64 47  | .shell_DrawEndG|
00001a20  72 6f 75 70 28 62 75 66  66 65 72 25 29 0d 00 c1  |roup(buffer%)...|
00001a30  0c ea 20 73 74 61 72 74  25 0d 00 c2 16 e7 20 62  |.. start%..... b|
00001a40  75 66 66 65 72 25 21 32  38 20 3e 20 30 20 8c 0d  |uffer%!28 > 0 ..|
00001a50  00 c3 25 20 20 73 74 61  72 74 25 20 3d 20 62 75  |..%  start% = bu|
00001a60  66 66 65 72 25 20 2b 20  28 62 75 66 66 65 72 25  |ffer% + (buffer%|
00001a70  21 32 38 29 0d 00 c4 2f  20 20 73 74 61 72 74 25  |!28).../  start%|
00001a80  21 34 20 3d 20 28 62 75  66 66 65 72 25 20 2b 20  |!4 = (buffer% + |
00001a90  62 75 66 66 65 72 25 21  38 29 20 2d 20 73 74 61  |buffer%!8) - sta|
00001aa0  72 74 25 0d 00 c5 14 20  20 62 75 66 66 65 72 25  |rt%....  buffer%|
00001ab0  21 32 38 20 3d 20 30 0d  00 c6 05 cd 0d 00 c7 05  |!28 = 0.........|
00001ac0  e1 0d 00 c8 05 3a 0d 00  c9 21 2a 7c 53 74 6f 70  |.....:...!*|Stop|
00001ad0  20 50 52 4f 43 73 68 65  6c 6c 5f 44 72 61 77 45  | PROCshell_DrawE|
00001ae0  6e 64 47 72 6f 75 70 0d  00 ca 04 0d 00 cb 25 2a  |ndGroup.......%*|
00001af0  7c 53 74 61 72 74 20 50  52 4f 43 73 68 65 6c 6c  ||Start PROCshell|
00001b00  5f 44 72 61 77 44 65 73  74 72 6f 79 46 69 6c 65  |_DrawDestroyFile|
00001b10  0d 00 cc 25 dd 20 f2 73  68 65 6c 6c 5f 44 72 61  |...%. .shell_Dra|
00001b20  77 44 65 73 74 72 6f 79  46 69 6c 65 28 62 75 66  |wDestroyFile(buf|
00001b30  66 65 72 25 29 0d 00 cd  4d e7 20 a4 73 68 65 6c  |fer%)...M. .shel|
00001b40  6c 5f 48 65 61 70 42 6c  6f 63 6b 45 78 69 73 74  |l_HeapBlockExist|
00001b50  73 28 62 75 66 66 65 72  25 21 34 38 29 20 8c 20  |s(buffer%!48) . |
00001b60  f2 73 68 65 6c 6c 5f 48  65 61 70 42 6c 6f 63 6b  |.shell_HeapBlock|
00001b70  52 65 74 75 72 6e 28 62  75 66 66 65 72 25 21 34  |Return(buffer%!4|
00001b80  38 29 0d 00 ce 23 f2 73  68 65 6c 6c 5f 48 65 61  |8)...#.shell_Hea|
00001b90  70 42 6c 6f 63 6b 52 65  74 75 72 6e 28 62 75 66  |pBlockReturn(buf|
00001ba0  66 65 72 25 29 0d 00 cf  05 e1 0d 00 d0 05 3a 0d  |fer%).........:.|
00001bb0  00 d1 24 2a 7c 53 74 6f  70 20 50 52 4f 43 73 68  |..$*|Stop PROCsh|
00001bc0  65 6c 6c 5f 44 72 61 77  44 65 73 74 72 6f 79 46  |ell_DrawDestroyF|
00001bd0  69 6c 65 0d 00 d2 04 0d  00 d3 22 2a 7c 53 74 61  |ile......."*|Sta|
00001be0  72 74 20 50 52 4f 43 73  68 65 6c 6c 5f 44 72 61  |rt PROCshell_Dra|
00001bf0  77 53 61 76 65 46 69 6c  65 0d 00 d4 28 dd 20 f2  |wSaveFile...(. .|
00001c00  73 68 65 6c 6c 5f 44 72  61 77 53 61 76 65 46 69  |shell_DrawSaveFi|
00001c10  6c 65 28 62 75 66 66 65  72 25 2c 66 69 6c 65 24  |le(buffer%,file$|
00001c20  29 0d 00 d5 08 ea 20 58  25 0d 00 d6 25 f4 20 41  |)..... X%...%. A|
00001c30  64 64 20 73 6f 6d 65 20  65 72 72 6f 72 20 74 72  |dd some error tr|
00001c40  61 70 70 69 6e 67 20 68  65 72 65 2e 2e 2e 0d 00  |apping here.....|
00001c50  d7 11 58 25 20 3d 20 ae  28 66 69 6c 65 24 29 0d  |..X% = .(file$).|
00001c60  00 d8 46 f4 20 50 52 4f  43 73 68 65 6c 6c 5f 54  |..F. PROCshell_T|
00001c70  72 61 63 65 66 30 28 22  44 45 42 55 47 3a 3a 73  |racef0("DEBUG::s|
00001c80  69 7a 65 20 69 73 20 22  2b 53 54 52 24 28 62 75  |ize is "+STR$(bu|
00001c90  66 66 65 72 25 21 38 20  2d 20 62 75 66 66 65 72  |ffer%!8 - buffer|
00001ca0  25 21 34 29 29 0d 00 d9  41 c8 99 20 22 4f 53 5f  |%!4))...A.. "OS_|
00001cb0  47 42 50 42 22 2c 32 2c  58 25 2c 62 75 66 66 65  |GBPB",2,X%,buffe|
00001cc0  72 25 20 2b 20 28 62 75  66 66 65 72 25 21 34 29  |r% + (buffer%!4)|
00001cd0  2c 62 75 66 66 65 72 25  21 38 20 2d 20 62 75 66  |,buffer%!8 - buf|
00001ce0  66 65 72 25 21 34 0d 00  da 09 d9 23 20 58 25 0d  |fer%!4.....# X%.|
00001cf0  00 db 20 ff 28 22 53 65  74 54 79 70 65 20 22 2b  |.. .("SetType "+|
00001d00  66 69 6c 65 24 2b 20 22  20 26 41 46 46 22 29 0d  |file$+ " &AFF").|
00001d10  00 dc 05 e1 0d 00 dd 05  3a 0d 00 de 21 2a 7c 53  |........:...!*|S|
00001d20  74 6f 70 20 50 52 4f 43  73 68 65 6c 6c 5f 44 72  |top PROCshell_Dr|
00001d30  61 77 53 61 76 65 46 69  6c 65 0d 00 df 04 0d 00  |awSaveFile......|
00001d40  e0 20 2a 7c 53 74 61 72  74 20 46 4e 73 68 65 6c  |. *|Start FNshel|
00001d50  6c 5f 44 72 61 77 4c 6f  61 64 46 69 6c 65 0d 00  |l_DrawLoadFile..|
00001d60  e1 20 dd 20 a4 73 68 65  6c 6c 5f 44 72 61 77 4c  |. . .shell_DrawL|
00001d70  6f 61 64 46 69 6c 65 28  6e 61 6d 65 24 29 0d 00  |oadFile(name$)..|
00001d80  e2 14 ea 20 62 75 66 66  25 2c 58 25 2c 73 69 7a  |... buff%,X%,siz|
00001d90  65 25 0d 00 e3 20 f2 73  68 65 6c 6c 5f 44 72 61  |e%... .shell_Dra|
00001da0  77 43 72 65 61 74 65 46  69 6c 65 28 62 75 66 66  |wCreateFile(buff|
00001db0  25 29 0d 00 e4 2c 62 75  66 66 25 21 38 20 2d 3d  |%)...,buff%!8 -=|
00001dc0  20 34 30 20 3a f4 20 64  6f 6e 27 74 20 6e 65 65  | 40 :. don't nee|
00001dd0  64 20 74 68 65 20 68 65  61 64 65 72 2e 2e 0d 00  |d the header....|
00001de0  e5 24 73 69 7a 65 25 20  3d 20 a4 73 68 65 6c 6c  |.$size% = .shell|
00001df0  5f 46 69 6c 65 4c 65 6e  67 74 68 28 6e 61 6d 65  |_FileLength(name|
00001e00  24 29 0d 00 e6 2f 62 75  66 66 25 20 3d 20 a4 73  |$).../buff% = .s|
00001e10  68 65 6c 6c 5f 48 65 61  70 42 6c 6f 63 6b 45 78  |hell_HeapBlockEx|
00001e20  74 65 6e 64 28 62 75 66  66 25 2c 73 69 7a 65 25  |tend(buff%,size%|
00001e30  29 0d 00 e7 11 58 25 20  3d 20 8e 28 6e 61 6d 65  |)....X% = .(name|
00001e40  24 29 0d 00 e8 2b c8 99  20 22 4f 53 5f 47 42 50  |$)...+.. "OS_GBP|
00001e50  42 22 2c 34 2c 58 25 2c  62 75 66 66 25 20 2b 20  |B",4,X%,buff% + |
00001e60  62 75 66 66 25 21 34 2c  73 69 7a 65 25 0d 00 e9  |buff%!4,size%...|
00001e70  09 d9 23 20 58 25 0d 00  ea 1d 62 75 66 66 25 21  |..# X%....buff%!|
00001e80  38 20 3d 20 73 69 7a 65  25 20 2b 20 62 75 66 66  |8 = size% + buff|
00001e90  25 21 34 0d 00 eb 24 f2  73 68 65 6c 6c 5f 44 72  |%!4...$.shell_Dr|
00001ea0  61 77 53 65 74 53 63 61  6c 65 28 62 75 66 66 65  |awSetScale(buffe|
00001eb0  72 25 2c 31 2c 31 29 0d  00 ec 0b 3d 20 62 75 66  |r%,1,1)....= buf|
00001ec0  66 25 0d 00 ed 05 3a 0d  00 ee 1f 2a 7c 53 74 6f  |f%....:....*|Sto|
00001ed0  70 20 46 4e 73 68 65 6c  6c 5f 44 72 61 77 4c 6f  |p FNshell_DrawLo|
00001ee0  61 64 46 69 6c 65 0d 00  ef 04 0d 00 f0 21 2a 7c  |adFile.......!*||
00001ef0  53 74 61 72 74 20 50 52  4f 43 73 68 65 6c 6c 5f  |Start PROCshell_|
00001f00  44 72 61 77 45 6c 6c 69  70 73 65 0d 00 f1 2d dd  |DrawEllipse...-.|
00001f10  20 f2 73 68 65 6c 6c 5f  44 72 61 77 45 6c 6c 69  | .shell_DrawElli|
00001f20  70 73 65 28 f8 20 62 75  66 66 65 72 25 2c 58 2c  |pse(. buffer%,X,|
00001f30  59 2c 58 6d 2c 59 6d 29  0d 00 f2 1e ea 20 73 74  |Y,Xm,Ym)..... st|
00001f40  61 72 74 25 2c 41 2c 42  2c 43 2c 44 2c 45 2c 4b  |art%,A,B,C,D,E,K|
00001f50  2c 58 73 2c 59 73 0d 00  f3 16 73 74 61 72 74 25  |,Xs,Ys....start%|
00001f60  20 3d 20 62 75 66 66 65  72 25 21 38 0d 00 f4 1b  | = buffer%!8....|
00001f70  58 20 20 3d 20 58 20 20  2a 20 7c 28 62 75 66 66  |X  = X  * |(buff|
00001f80  65 72 25 2b 31 32 29 0d  00 f5 1b 59 20 20 3d 20  |er%+12)....Y  = |
00001f90  59 20 20 2a 20 7c 28 62  75 66 66 65 72 25 2b 31  |Y  * |(buffer%+1|
00001fa0  32 29 0d 00 f6 1b 58 6d  20 3d 20 58 6d 20 2a 20  |2)....Xm = Xm * |
00001fb0  7c 28 62 75 66 66 65 72  25 2b 31 32 29 0d 00 f7  ||(buffer%+12)...|
00001fc0  1b 59 6d 20 3d 20 59 6d  20 2a 20 7c 28 62 75 66  |.Ym = Ym * |(buf|
00001fd0  66 65 72 25 2b 31 32 29  0d 00 f8 2a f4 20 50 52  |fer%+12)...*. PR|
00001fe0  4f 43 73 68 65 6c 6c 5f  54 72 61 63 65 66 30 28  |OCshell_Tracef0(|
00001ff0  22 44 45 42 55 47 3a 3a  58 3d 22 2b 53 54 52 24  |"DEBUG::X="+STR$|
00002000  58 29 0d 00 f9 2a f4 20  50 52 4f 43 73 68 65 6c  |X)...*. PROCshel|
00002010  6c 5f 54 72 61 63 65 66  30 28 22 44 45 42 55 47  |l_Tracef0("DEBUG|
00002020  3a 3a 59 3d 22 2b 53 54  52 24 59 29 0d 00 fa 2c  |::Y="+STR$Y)...,|
00002030  f4 20 50 52 4f 43 73 68  65 6c 6c 5f 54 72 61 63  |. PROCshell_Trac|
00002040  65 66 30 28 22 44 45 42  55 47 3a 3a 58 6d 3d 22  |ef0("DEBUG::Xm="|
00002050  2b 53 54 52 24 58 6d 29  0d 00 fb 2c f4 20 50 52  |+STR$Xm)...,. PR|
00002060  4f 43 73 68 65 6c 6c 5f  54 72 61 63 65 66 30 28  |OCshell_Tracef0(|
00002070  22 44 45 42 55 47 3a 3a  59 6d 3d 22 2b 53 54 52  |"DEBUG::Ym="+STR|
00002080  24 59 6d 29 0d 00 fc 10  e7 20 58 6d 20 3e 3d 20  |$Ym)..... Xm >= |
00002090  59 6d 20 8c 0d 00 fd 1c  20 20 41 20 3d 20 58 6d  |Ym .....  A = Xm|
000020a0  20 2f 20 58 6d 20 2f 20  31 30 20 2b 20 30 2e 35  | / Xm / 10 + 0.5|
000020b0  0d 00 fe 1d 20 20 e7 20  58 6d 20 2f 20 59 6d 20  |....  . Xm / Ym |
000020c0  3c 20 32 20 8c 20 41 20  3d 20 30 2e 37 0d 00 ff  |< 2 . A = 0.7...|
000020d0  20 20 20 e7 20 58 6d 20  2f 20 59 6d 20 3e 20 34  |   . Xm / Ym > 4|
000020e0  2e 35 20 8c 20 41 20 3d  20 30 2e 39 35 0d 01 00  |.5 . A = 0.95...|
000020f0  11 20 20 58 73 20 3d 20  41 20 2a 20 58 6d 0d 01  |.  Xs = A * Xm..|
00002100  01 28 20 20 59 73 20 3d  20 b6 28 31 20 2d 20 58  |.(  Ys = .(1 - X|
00002110  73 20 2a 20 58 73 20 2f  20 58 6d 20 2f 20 58 6d  |s * Xs / Xm / Xm|
00002120  29 20 2a 20 59 6d 0d 01  02 05 cd 0d 01 03 0f e7  |) * Ym..........|
00002130  20 59 6d 20 3e 20 58 6d  20 8c 0d 01 04 1c 20 20  | Ym > Xm .....  |
00002140  41 20 3d 20 59 6d 20 2f  20 58 6d 20 2f 20 31 30  |A = Ym / Xm / 10|
00002150  20 2b 20 30 2e 35 0d 01  05 1d 20 20 e7 20 59 6d  | + 0.5....  . Ym|
00002160  20 2f 20 58 6d 20 3c 20  32 20 8c 20 41 20 3d 20  | / Xm < 2 . A = |
00002170  30 2e 37 0d 01 06 20 20  20 e7 20 59 6d 20 2f 20  |0.7...   . Ym / |
00002180  58 6d 20 3e 20 34 2e 35  20 8c 20 41 20 3d 20 30  |Xm > 4.5 . A = 0|
00002190  2e 39 35 0d 01 07 11 20  20 59 73 20 3d 20 41 20  |.95....  Ys = A |
000021a0  2a 20 59 6d 0d 01 08 28  20 20 58 73 20 3d 20 b6  |* Ym...(  Xs = .|
000021b0  28 31 20 2d 20 59 73 20  2a 20 59 73 20 2f 20 59  |(1 - Ys * Ys / Y|
000021c0  6d 20 2f 20 59 6d 29 20  2a 20 58 6d 0d 01 09 05  |m / Ym) * Xm....|
000021d0  cd 0d 01 0a 1a 42 20 3d  20 59 6d 20 2b 20 28 59  |.....B = Ym + (Y|
000021e0  6d 20 2d 20 59 73 29 20  2f 20 33 0d 01 0b 25 4b  |m - Ys) / 3...%K|
000021f0  20 3d 20 58 73 20 2a 20  58 73 20 2b 20 28 42 20  | = Xs * Xs + (B |
00002200  2d 20 59 73 29 20 2a 20  28 42 20 2d 20 59 73 29  |- Ys) * (B - Ys)|
00002210  0d 01 0c 2e 43 20 3d 20  28 b6 28 34 20 2a 20 58  |....C = (.(4 * X|
00002220  73 20 2a 20 58 73 20 2b  20 31 32 20 2a 20 4b 29  |s * Xs + 12 * K)|
00002230  20 2d 20 32 20 2a 20 58  73 29 20 2f 20 36 0d 01  | - 2 * Xs) / 6..|
00002240  0d 1a 44 20 3d 20 58 6d  20 2b 20 28 58 6d 20 2d  |..D = Xm + (Xm -|
00002250  20 58 73 29 20 2f 20 33  0d 01 0e 25 4b 20 3d 20  | Xs) / 3...%K = |
00002260  59 73 20 2a 20 59 73 20  2b 20 28 44 20 2d 20 58  |Ys * Ys + (D - X|
00002270  73 29 20 2a 20 28 44 20  2d 20 58 73 29 0d 01 0f  |s) * (D - Xs)...|
00002280  2e 45 20 3d 20 28 b6 28  34 20 2a 20 59 73 20 2a  |.E = (.(4 * Ys *|
00002290  20 59 73 20 2b 20 31 32  20 2a 20 4b 29 20 2d 20  | Ys + 12 * K) - |
000022a0  32 20 2a 20 59 73 29 20  2f 20 36 0d 01 10 43 f2  |2 * Ys) / 6...C.|
000022b0  73 68 65 6c 6c 5f 44 72  61 77 50 75 74 57 6f 72  |shell_DrawPutWor|
000022c0  64 28 32 2c 62 75 66 66  65 72 25 29 20 20 20 20  |d(2,buffer%)    |
000022d0  20 20 20 20 20 20 20 3a  f4 20 4f 62 6a 65 63 74  |       :. Object|
000022e0  20 74 79 70 65 20 32 20  28 70 61 74 68 29 0d 01  | type 2 (path)..|
000022f0  11 4b f2 73 68 65 6c 6c  5f 44 72 61 77 50 75 74  |.K.shell_DrawPut|
00002300  57 6f 72 64 28 30 2c 62  75 66 66 65 72 25 29 20  |Word(0,buffer%) |
00002310  20 20 20 20 20 20 20 20  20 20 3a f4 20 53 69 7a  |          :. Siz|
00002320  65 20 6f 66 20 6f 62 6a  65 63 74 20 28 64 75 6d  |e of object (dum|
00002330  6d 79 20 76 61 6c 75 65  29 0d 01 12 46 f2 73 68  |my value)...F.sh|
00002340  65 6c 6c 5f 44 72 61 77  50 75 74 57 6f 72 64 28  |ell_DrawPutWord(|
00002350  58 20 2d 20 58 6d 2c 62  75 66 66 65 72 25 29 3a  |X - Xm,buffer%):|
00002360  f4 20 53 65 74 20 73 69  7a 65 20 6f 66 20 62 6f  |. Set size of bo|
00002370  75 6e 64 69 6e 67 20 62  6f 78 20 78 6d 69 6e 0d  |unding box xmin.|
00002380  01 13 46 f2 73 68 65 6c  6c 5f 44 72 61 77 50 75  |..F.shell_DrawPu|
00002390  74 57 6f 72 64 28 59 20  2d 20 59 6d 2c 62 75 66  |tWord(Y - Ym,buf|
000023a0  66 65 72 25 29 3a f4 20  53 65 74 20 73 69 7a 65  |fer%):. Set size|
000023b0  20 6f 66 20 62 6f 75 6e  64 69 6e 67 20 62 6f 78  | of bounding box|
000023c0  20 79 6d 69 6e 0d 01 14  46 f2 73 68 65 6c 6c 5f  | ymin...F.shell_|
000023d0  44 72 61 77 50 75 74 57  6f 72 64 28 58 20 2b 20  |DrawPutWord(X + |
000023e0  58 6d 2c 62 75 66 66 65  72 25 29 3a f4 20 53 65  |Xm,buffer%):. Se|
000023f0  74 20 73 69 7a 65 20 6f  66 20 62 6f 75 6e 64 69  |t size of boundi|
00002400  6e 67 20 62 6f 78 20 78  6d 61 78 0d 01 15 46 f2  |ng box xmax...F.|
00002410  73 68 65 6c 6c 5f 44 72  61 77 50 75 74 57 6f 72  |shell_DrawPutWor|
00002420  64 28 59 20 2b 20 59 6d  2c 62 75 66 66 65 72 25  |d(Y + Ym,buffer%|
00002430  29 3a f4 20 53 65 74 20  73 69 7a 65 20 6f 66 20  |):. Set size of |
00002440  62 6f 75 6e 64 69 6e 67  20 62 6f 78 20 79 6d 61  |bounding box yma|
00002450  78 0d 01 16 40 f2 73 68  65 6c 6c 5f 44 72 61 77  |x...@.shell_Draw|
00002460  55 70 64 61 74 65 42 6f  75 6e 64 73 28 62 75 66  |UpdateBounds(buf|
00002470  66 65 72 25 2c 58 20 2d  20 58 6d 2c 59 20 2d 20  |fer%,X - Xm,Y - |
00002480  59 6d 2c 58 20 2b 20 58  6d 2c 59 20 2b 20 59 6d  |Ym,X + Xm,Y + Ym|
00002490  29 0d 01 17 3a f2 73 68  65 6c 6c 5f 44 72 61 77  |)...:.shell_Draw|
000024a0  50 75 74 57 6f 72 64 28  62 75 66 66 65 72 25 21  |PutWord(buffer%!|
000024b0  32 34 2c 62 75 66 66 65  72 25 29 20 20 3a f4 20  |24,buffer%)  :. |
000024c0  46 69 6c 6c 20 63 6f 6c  6f 75 72 0d 01 18 3a f2  |Fill colour...:.|
000024d0  73 68 65 6c 6c 5f 44 72  61 77 50 75 74 57 6f 72  |shell_DrawPutWor|
000024e0  64 28 62 75 66 66 65 72  25 21 32 30 2c 62 75 66  |d(buffer%!20,buf|
000024f0  66 65 72 25 29 20 20 3a  f4 20 50 61 74 68 20 63  |fer%)  :. Path c|
00002500  6f 6c 6f 75 72 0d 01 19  39 f2 73 68 65 6c 6c 5f  |olour...9.shell_|
00002510  44 72 61 77 50 75 74 57  6f 72 64 28 62 75 66 66  |DrawPutWord(buff|
00002520  65 72 25 21 33 32 2c 62  75 66 66 65 72 25 29 20  |er%!32,buffer%) |
00002530  20 3a f4 20 50 61 74 68  20 77 69 64 74 68 0d 01  | :. Path width..|
00002540  1a 36 f2 73 68 65 6c 6c  5f 44 72 61 77 50 75 74  |.6.shell_DrawPut|
00002550  57 6f 72 64 28 30 30 2c  62 75 66 66 65 72 25 29  |Word(00,buffer%)|
00002560  20 20 20 20 20 20 20 20  20 20 3a f4 20 50 61 74  |          :. Pat|
00002570  74 65 72 6e 0d 01 1b 3c  f2 73 68 65 6c 6c 5f 44  |tern...<.shell_D|
00002580  72 61 77 50 75 74 57 6f  72 64 28 32 2c 62 75 66  |rawPutWord(2,buf|
00002590  66 65 72 25 29 20 20 20  20 20 20 20 20 20 20 20  |fer%)           |
000025a0  3a f4 20 41 62 73 6f 6c  75 74 65 20 6d 6f 76 65  |:. Absolute move|
000025b0  0d 01 1c 36 f2 73 68 65  6c 6c 5f 44 72 61 77 50  |...6.shell_DrawP|
000025c0  75 74 57 6f 72 64 28 58  20 2b 20 58 73 2c 62 75  |utWord(X + Xs,bu|
000025d0  66 66 65 72 25 29 20 20  20 20 20 20 3a f4 20 78  |ffer%)      :. x|
000025e0  20 73 74 61 72 74 0d 01  1d 36 f2 73 68 65 6c 6c  | start...6.shell|
000025f0  5f 44 72 61 77 50 75 74  57 6f 72 64 28 59 20 2d  |_DrawPutWord(Y -|
00002600  20 59 73 2c 62 75 66 66  65 72 25 29 20 20 20 20  | Ys,buffer%)    |
00002610  20 20 3a f4 20 79 20 73  74 61 72 74 0d 01 1e 04  |  :. y start....|
00002620  0d 01 1f 21 f2 73 68 65  6c 6c 5f 44 72 61 77 50  |...!.shell_DrawP|
00002630  75 74 57 6f 72 64 28 36  2c 62 75 66 66 65 72 25  |utWord(6,buffer%|
00002640  29 0d 01 20 25 f2 73 68  65 6c 6c 5f 44 72 61 77  |).. %.shell_Draw|
00002650  50 75 74 57 6f 72 64 28  58 20 2b 20 43 2c 62 75  |PutWord(X + C,bu|
00002660  66 66 65 72 25 29 0d 01  21 25 f2 73 68 65 6c 6c  |ffer%)..!%.shell|
00002670  5f 44 72 61 77 50 75 74  57 6f 72 64 28 59 20 2d  |_DrawPutWord(Y -|
00002680  20 42 2c 62 75 66 66 65  72 25 29 0d 01 22 25 f2  | B,buffer%).."%.|
00002690  73 68 65 6c 6c 5f 44 72  61 77 50 75 74 57 6f 72  |shell_DrawPutWor|
000026a0  64 28 58 20 2d 20 43 2c  62 75 66 66 65 72 25 29  |d(X - C,buffer%)|
000026b0  0d 01 23 25 f2 73 68 65  6c 6c 5f 44 72 61 77 50  |..#%.shell_DrawP|
000026c0  75 74 57 6f 72 64 28 59  20 2d 20 42 2c 62 75 66  |utWord(Y - B,buf|
000026d0  66 65 72 25 29 0d 01 24  26 f2 73 68 65 6c 6c 5f  |fer%)..$&.shell_|
000026e0  44 72 61 77 50 75 74 57  6f 72 64 28 58 20 2d 20  |DrawPutWord(X - |
000026f0  58 73 2c 62 75 66 66 65  72 25 29 0d 01 25 26 f2  |Xs,buffer%)..%&.|
00002700  73 68 65 6c 6c 5f 44 72  61 77 50 75 74 57 6f 72  |shell_DrawPutWor|
00002710  64 28 59 20 2d 20 59 73  2c 62 75 66 66 65 72 25  |d(Y - Ys,buffer%|
00002720  29 0d 01 26 04 0d 01 27  21 f2 73 68 65 6c 6c 5f  |)..&...'!.shell_|
00002730  44 72 61 77 50 75 74 57  6f 72 64 28 36 2c 62 75  |DrawPutWord(6,bu|
00002740  66 66 65 72 25 29 0d 01  28 25 f2 73 68 65 6c 6c  |ffer%)..(%.shell|
00002750  5f 44 72 61 77 50 75 74  57 6f 72 64 28 58 20 2d  |_DrawPutWord(X -|
00002760  20 44 2c 62 75 66 66 65  72 25 29 0d 01 29 25 f2  | D,buffer%)..)%.|
00002770  73 68 65 6c 6c 5f 44 72  61 77 50 75 74 57 6f 72  |shell_DrawPutWor|
00002780  64 28 59 20 2d 20 45 2c  62 75 66 66 65 72 25 29  |d(Y - E,buffer%)|
00002790  0d 01 2a 25 f2 73 68 65  6c 6c 5f 44 72 61 77 50  |..*%.shell_DrawP|
000027a0  75 74 57 6f 72 64 28 58  20 2d 20 44 2c 62 75 66  |utWord(X - D,buf|
000027b0  66 65 72 25 29 0d 01 2b  25 f2 73 68 65 6c 6c 5f  |fer%)..+%.shell_|
000027c0  44 72 61 77 50 75 74 57  6f 72 64 28 59 20 2b 20  |DrawPutWord(Y + |
000027d0  45 2c 62 75 66 66 65 72  25 29 0d 01 2c 26 f2 73  |E,buffer%)..,&.s|
000027e0  68 65 6c 6c 5f 44 72 61  77 50 75 74 57 6f 72 64  |hell_DrawPutWord|
000027f0  28 58 20 2d 20 58 73 2c  62 75 66 66 65 72 25 29  |(X - Xs,buffer%)|
00002800  0d 01 2d 26 f2 73 68 65  6c 6c 5f 44 72 61 77 50  |..-&.shell_DrawP|
00002810  75 74 57 6f 72 64 28 59  20 2b 20 59 73 2c 62 75  |utWord(Y + Ys,bu|
00002820  66 66 65 72 25 29 0d 01  2e 04 0d 01 2f 21 f2 73  |ffer%)....../!.s|
00002830  68 65 6c 6c 5f 44 72 61  77 50 75 74 57 6f 72 64  |hell_DrawPutWord|
00002840  28 36 2c 62 75 66 66 65  72 25 29 0d 01 30 25 f2  |(6,buffer%)..0%.|
00002850  73 68 65 6c 6c 5f 44 72  61 77 50 75 74 57 6f 72  |shell_DrawPutWor|
00002860  64 28 58 20 2d 20 43 2c  62 75 66 66 65 72 25 29  |d(X - C,buffer%)|
00002870  0d 01 31 25 f2 73 68 65  6c 6c 5f 44 72 61 77 50  |..1%.shell_DrawP|
00002880  75 74 57 6f 72 64 28 59  20 2b 20 42 2c 62 75 66  |utWord(Y + B,buf|
00002890  66 65 72 25 29 0d 01 32  25 f2 73 68 65 6c 6c 5f  |fer%)..2%.shell_|
000028a0  44 72 61 77 50 75 74 57  6f 72 64 28 58 20 2b 20  |DrawPutWord(X + |
000028b0  43 2c 62 75 66 66 65 72  25 29 0d 01 33 25 f2 73  |C,buffer%)..3%.s|
000028c0  68 65 6c 6c 5f 44 72 61  77 50 75 74 57 6f 72 64  |hell_DrawPutWord|
000028d0  28 59 20 2b 20 42 2c 62  75 66 66 65 72 25 29 0d  |(Y + B,buffer%).|
000028e0  01 34 26 f2 73 68 65 6c  6c 5f 44 72 61 77 50 75  |.4&.shell_DrawPu|
000028f0  74 57 6f 72 64 28 58 20  2b 20 58 73 2c 62 75 66  |tWord(X + Xs,buf|
00002900  66 65 72 25 29 0d 01 35  26 f2 73 68 65 6c 6c 5f  |fer%)..5&.shell_|
00002910  44 72 61 77 50 75 74 57  6f 72 64 28 59 20 2b 20  |DrawPutWord(Y + |
00002920  59 73 2c 62 75 66 66 65  72 25 29 0d 01 36 04 0d  |Ys,buffer%)..6..|
00002930  01 37 21 f2 73 68 65 6c  6c 5f 44 72 61 77 50 75  |.7!.shell_DrawPu|
00002940  74 57 6f 72 64 28 36 2c  62 75 66 66 65 72 25 29  |tWord(6,buffer%)|
00002950  0d 01 38 25 f2 73 68 65  6c 6c 5f 44 72 61 77 50  |..8%.shell_DrawP|
00002960  75 74 57 6f 72 64 28 58  20 2b 20 44 2c 62 75 66  |utWord(X + D,buf|
00002970  66 65 72 25 29 0d 01 39  25 f2 73 68 65 6c 6c 5f  |fer%)..9%.shell_|
00002980  44 72 61 77 50 75 74 57  6f 72 64 28 59 20 2b 20  |DrawPutWord(Y + |
00002990  45 2c 62 75 66 66 65 72  25 29 0d 01 3a 25 f2 73  |E,buffer%)..:%.s|
000029a0  68 65 6c 6c 5f 44 72 61  77 50 75 74 57 6f 72 64  |hell_DrawPutWord|
000029b0  28 58 20 2b 20 44 2c 62  75 66 66 65 72 25 29 0d  |(X + D,buffer%).|
000029c0  01 3b 25 f2 73 68 65 6c  6c 5f 44 72 61 77 50 75  |.;%.shell_DrawPu|
000029d0  74 57 6f 72 64 28 59 20  2d 20 45 2c 62 75 66 66  |tWord(Y - E,buff|
000029e0  65 72 25 29 0d 01 3c 26  f2 73 68 65 6c 6c 5f 44  |er%)..<&.shell_D|
000029f0  72 61 77 50 75 74 57 6f  72 64 28 58 20 2b 20 58  |rawPutWord(X + X|
00002a00  73 2c 62 75 66 66 65 72  25 29 0d 01 3d 26 f2 73  |s,buffer%)..=&.s|
00002a10  68 65 6c 6c 5f 44 72 61  77 50 75 74 57 6f 72 64  |hell_DrawPutWord|
00002a20  28 59 20 2d 20 59 73 2c  62 75 66 66 65 72 25 29  |(Y - Ys,buffer%)|
00002a30  0d 01 3e 04 0d 01 3f 3e  f2 73 68 65 6c 6c 5f 44  |..>...?>.shell_D|
00002a40  72 61 77 50 75 74 57 6f  72 64 28 30 2c 62 75 66  |rawPutWord(0,buf|
00002a50  66 65 72 25 29 20 20 20  20 20 20 20 20 20 20 20  |fer%)           |
00002a60  20 20 20 20 3a f4 20 45  6e 64 20 6f 66 20 70 61  |    :. End of pa|
00002a70  74 68 0d 01 40 4a 21 28  62 75 66 66 65 72 25 20  |th..@J!(buffer% |
00002a80  2b 20 73 74 61 72 74 25  20 2b 20 34 29 20 3d 20  |+ start% + 4) = |
00002a90  62 75 66 66 65 72 25 21  38 20 2d 20 73 74 61 72  |buffer%!8 - star|
00002aa0  74 25 20 20 20 3a f4 20  53 74 6f 72 65 20 73 69  |t%   :. Store si|
00002ab0  7a 65 20 6f 66 20 6f 62  6a 65 63 74 0d 01 41 05  |ze of object..A.|
00002ac0  e1 0d 01 42 05 3a 0d 01  43 20 2a 7c 53 74 6f 70  |...B.:..C *|Stop|
00002ad0  20 50 52 4f 43 73 68 65  6c 6c 5f 44 72 61 77 45  | PROCshell_DrawE|
00002ae0  6c 6c 69 70 73 65 0d 01  44 04 0d 01 45 20 2a 7c  |llipse..D...E *||
00002af0  53 74 61 72 74 20 50 52  4f 43 73 68 65 6c 6c 5f  |Start PROCshell_|
00002b00  44 72 61 77 43 69 72 63  6c 65 0d 01 46 28 dd 20  |DrawCircle..F(. |
00002b10  f2 73 68 65 6c 6c 5f 44  72 61 77 43 69 72 63 6c  |.shell_DrawCircl|
00002b20  65 28 f8 20 62 75 66 66  65 72 25 2c 58 2c 59 2c  |e(. buffer%,X,Y,|
00002b30  52 29 0d 01 47 1d ea 20  73 74 61 72 74 25 2c 41  |R)..G.. start%,A|
00002b40  2c 42 2c 43 2c 73 74 79  6c 65 5f 62 6c 6b 25 0d  |,B,C,style_blk%.|
00002b50  01 48 1b 73 74 79 6c 65  5f 62 6c 6b 25 20 3d 20  |.H.style_blk% = |
00002b60  62 75 66 66 65 72 25 21  34 38 0d 01 49 16 73 74  |buffer%!48..I.st|
00002b70  61 72 74 25 20 3d 20 62  75 66 66 65 72 25 21 38  |art% = buffer%!8|
00002b80  0d 01 4a 19 58 20 3d 20  58 20 2a 20 7c 28 62 75  |..J.X = X * |(bu|
00002b90  66 66 65 72 25 2b 31 32  29 0d 01 4b 19 59 20 3d  |ffer%+12)..K.Y =|
00002ba0  20 59 20 2a 20 7c 28 62  75 66 66 65 72 25 2b 31  | Y * |(buffer%+1|
00002bb0  32 29 0d 01 4c 1a 52 20  3d 20 52 20 2a 20 7c 28  |2)..L.R = R * |(|
00002bc0  62 75 66 66 65 72 25 2b  31 32 29 20 0d 01 4d 0f  |buffer%+12) ..M.|
00002bd0  41 20 3d 20 52 20 2f 20  b6 20 32 0d 01 4e 15 42  |A = R / . 2..N.B|
00002be0  20 3d 20 41 20 2b 20 52  20 2f 20 32 2e 35 34 34  | = A + R / 2.544|
00002bf0  0d 01 4f 1b 43 20 3d 20  41 20 2d 20 52 20 2f 20  |..O.C = A - R / |
00002c00  32 2e 35 34 34 20 20 20  20 20 20 0d 01 50 47 f2  |2.544      ..PG.|
00002c10  73 68 65 6c 6c 5f 44 72  61 77 50 75 74 57 6f 72  |shell_DrawPutWor|
00002c20  64 28 32 2c 62 75 66 66  65 72 25 29 20 20 20 20  |d(2,buffer%)    |
00002c30  20 20 20 20 20 20 20 20  20 20 20 3a f4 20 4f 62  |           :. Ob|
00002c40  6a 65 63 74 20 74 79 70  65 20 32 20 28 70 61 74  |ject type 2 (pat|
00002c50  68 29 0d 01 51 4f f2 73  68 65 6c 6c 5f 44 72 61  |h)..QO.shell_Dra|
00002c60  77 50 75 74 57 6f 72 64  28 30 2c 62 75 66 66 65  |wPutWord(0,buffe|
00002c70  72 25 29 20 20 20 20 20  20 20 20 20 20 20 20 20  |r%)             |
00002c80  20 20 3a f4 20 53 69 7a  65 20 6f 66 20 6f 62 6a  |  :. Size of obj|
00002c90  65 63 74 20 28 64 75 6d  6d 79 20 76 61 6c 75 65  |ect (dummy value|
00002ca0  29 0d 01 52 55 f2 73 68  65 6c 6c 5f 44 72 61 77  |)..RU.shell_Draw|
00002cb0  50 75 74 57 6f 72 64 28  58 20 2d 20 52 2c 62 75  |PutWord(X - R,bu|
00002cc0  66 66 65 72 25 29 20 20  20 20 20 20 20 20 20 20  |ffer%)          |
00002cd0  20 3a f4 20 53 65 74 20  73 69 7a 65 20 6f 66 20  | :. Set size of |
00002ce0  62 6f 75 6e 64 69 6e 67  20 62 6f 78 20 78 6d 69  |bounding box xmi|
00002cf0  6e 20 20 20 20 20 0d 01  53 50 f2 73 68 65 6c 6c  |n     ..SP.shell|
00002d00  5f 44 72 61 77 50 75 74  57 6f 72 64 28 59 20 2d  |_DrawPutWord(Y -|
00002d10  20 52 2c 62 75 66 66 65  72 25 29 20 20 20 20 20  | R,buffer%)     |
00002d20  20 20 20 20 20 20 3a f4  20 53 65 74 20 73 69 7a  |      :. Set siz|
00002d30  65 20 6f 66 20 62 6f 75  6e 64 69 6e 67 20 62 6f  |e of bounding bo|
00002d40  78 20 79 6d 69 6e 0d 01  54 50 f2 73 68 65 6c 6c  |x ymin..TP.shell|
00002d50  5f 44 72 61 77 50 75 74  57 6f 72 64 28 58 20 2b  |_DrawPutWord(X +|
00002d60  20 52 2c 62 75 66 66 65  72 25 29 20 20 20 20 20  | R,buffer%)     |
00002d70  20 20 20 20 20 20 3a f4  20 53 65 74 20 73 69 7a  |      :. Set siz|
00002d80  65 20 6f 66 20 62 6f 75  6e 64 69 6e 67 20 62 6f  |e of bounding bo|
00002d90  78 20 78 6d 61 78 0d 01  55 50 f2 73 68 65 6c 6c  |x xmax..UP.shell|
00002da0  5f 44 72 61 77 50 75 74  57 6f 72 64 28 59 20 2b  |_DrawPutWord(Y +|
00002db0  20 52 2c 62 75 66 66 65  72 25 29 20 20 20 20 20  | R,buffer%)     |
00002dc0  20 20 20 20 20 20 3a f4  20 53 65 74 20 73 69 7a  |      :. Set siz|
00002dd0  65 20 6f 66 20 62 6f 75  6e 64 69 6e 67 20 62 6f  |e of bounding bo|
00002de0  78 20 79 6d 61 78 0d 01  56 3c f2 73 68 65 6c 6c  |x ymax..V<.shell|
00002df0  5f 44 72 61 77 55 70 64  61 74 65 42 6f 75 6e 64  |_DrawUpdateBound|
00002e00  73 28 62 75 66 66 65 72  25 2c 58 20 2d 20 52 2c  |s(buffer%,X - R,|
00002e10  59 20 2d 20 52 2c 58 20  2b 20 52 2c 59 20 2b 20  |Y - R,X + R,Y + |
00002e20  52 29 0d 01 57 3e f2 73  68 65 6c 6c 5f 44 72 61  |R)..W>.shell_Dra|
00002e30  77 50 75 74 57 6f 72 64  28 62 75 66 66 65 72 25  |wPutWord(buffer%|
00002e40  21 32 34 2c 62 75 66 66  65 72 25 29 20 20 20 20  |!24,buffer%)    |
00002e50  20 20 3a f4 20 46 69 6c  6c 20 63 6f 6c 6f 75 72  |  :. Fill colour|
00002e60  0d 01 58 3e f2 73 68 65  6c 6c 5f 44 72 61 77 50  |..X>.shell_DrawP|
00002e70  75 74 57 6f 72 64 28 62  75 66 66 65 72 25 21 32  |utWord(buffer%!2|
00002e80  30 2c 62 75 66 66 65 72  25 29 20 20 20 20 20 20  |0,buffer%)      |
00002e90  3a f4 20 50 61 74 68 20  63 6f 6c 6f 75 72 0d 01  |:. Path colour..|
00002ea0  59 3d f2 73 68 65 6c 6c  5f 44 72 61 77 50 75 74  |Y=.shell_DrawPut|
00002eb0  57 6f 72 64 28 62 75 66  66 65 72 25 21 33 32 2c  |Word(buffer%!32,|
00002ec0  62 75 66 66 65 72 25 29  20 20 20 20 20 20 3a f4  |buffer%)      :.|
00002ed0  20 50 61 74 68 20 77 69  64 74 68 0d 01 5a 3d f2  | Path width..Z=.|
00002ee0  73 68 65 6c 6c 5f 44 72  61 77 50 75 74 57 6f 72  |shell_DrawPutWor|
00002ef0  64 28 73 74 79 6c 65 5f  62 6c 6b 25 21 30 2c 62  |d(style_blk%!0,b|
00002f00  75 66 66 65 72 25 29 20  20 20 20 3a f4 20 53 74  |uffer%)    :. St|
00002f10  79 6c 65 20 77 6f 72 64  0d 01 5b 24 e7 20 28 73  |yle word..[$. (s|
00002f20  74 79 6c 65 5f 62 6c 6b  25 3f 30 20 80 20 31 20  |tyle_blk%?0 . 1 |
00002f30  3c 3c 20 37 29 20 3c 3e  20 30 20 8c 0d 01 5c 4a  |<< 7) <> 0 ...\J|
00002f40  20 20 f2 73 68 65 6c 6c  5f 44 72 61 77 50 75 74  |  .shell_DrawPut|
00002f50  57 6f 72 64 28 73 74 79  6c 65 5f 62 6c 6b 25 21  |Word(style_blk%!|
00002f60  30 34 2c 62 75 66 66 65  72 25 29 20 3a f4 20 4f  |04,buffer%) :. O|
00002f70  66 66 73 65 74 20 74 6f  20 70 61 74 74 65 72 6e  |ffset to pattern|
00002f80  20 73 74 61 72 74 0d 01  5d 4c 20 20 f2 73 68 65  | start..]L  .she|
00002f90  6c 6c 5f 44 72 61 77 50  75 74 57 6f 72 64 28 73  |ll_DrawPutWord(s|
00002fa0  74 79 6c 65 5f 62 6c 6b  25 21 30 38 2c 62 75 66  |tyle_blk%!08,buf|
00002fb0  66 65 72 25 29 20 3a f4  20 4e 72 20 6f 66 20 65  |fer%) :. Nr of e|
00002fc0  6c 65 6d 65 6e 74 73 20  69 6e 20 70 61 74 74 65  |lements in patte|
00002fd0  72 6e 0d 01 5e 49 20 20  f2 73 68 65 6c 6c 5f 44  |rn..^I  .shell_D|
00002fe0  72 61 77 50 75 74 57 6f  72 64 28 73 74 79 6c 65  |rawPutWord(style|
00002ff0  5f 62 6c 6b 25 21 31 32  2c 62 75 66 66 65 72 25  |_blk%!12,buffer%|
00003000  29 20 3a f4 20 4c 65 6e  67 74 68 20 6f 66 20 64  |) :. Length of d|
00003010  61 73 68 20 65 6c 65 6d  65 6e 74 0d 01 5f 05 cd  |ash element.._..|
00003020  0d 01 60 40 f2 73 68 65  6c 6c 5f 44 72 61 77 50  |..`@.shell_DrawP|
00003030  75 74 57 6f 72 64 28 32  2c 62 75 66 66 65 72 25  |utWord(2,buffer%|
00003040  29 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |)               |
00003050  3a f4 20 41 62 73 6f 6c  75 74 65 20 6d 6f 76 65  |:. Absolute move|
00003060  0d 01 61 3a f2 73 68 65  6c 6c 5f 44 72 61 77 50  |..a:.shell_DrawP|
00003070  75 74 57 6f 72 64 28 58  20 2b 20 41 2c 62 75 66  |utWord(X + A,buf|
00003080  66 65 72 25 29 20 20 20  20 20 20 20 20 20 20 20  |fer%)           |
00003090  3a f4 20 78 20 73 74 61  72 74 0d 01 62 3a f2 73  |:. x start..b:.s|
000030a0  68 65 6c 6c 5f 44 72 61  77 50 75 74 57 6f 72 64  |hell_DrawPutWord|
000030b0  28 59 20 2d 20 41 2c 62  75 66 66 65 72 25 29 20  |(Y - A,buffer%) |
000030c0  20 20 20 20 20 20 20 20  20 20 3a f4 20 79 20 73  |          :. y s|
000030d0  74 61 72 74 0d 01 63 21  f2 73 68 65 6c 6c 5f 44  |tart..c!.shell_D|
000030e0  72 61 77 50 75 74 57 6f  72 64 28 36 2c 62 75 66  |rawPutWord(6,buf|
000030f0  66 65 72 25 29 0d 01 64  25 f2 73 68 65 6c 6c 5f  |fer%)..d%.shell_|
00003100  44 72 61 77 50 75 74 57  6f 72 64 28 58 20 2b 20  |DrawPutWord(X + |
00003110  43 2c 62 75 66 66 65 72  25 29 0d 01 65 25 f2 73  |C,buffer%)..e%.s|
00003120  68 65 6c 6c 5f 44 72 61  77 50 75 74 57 6f 72 64  |hell_DrawPutWord|
00003130  28 59 20 2d 20 42 2c 62  75 66 66 65 72 25 29 0d  |(Y - B,buffer%).|
00003140  01 66 25 f2 73 68 65 6c  6c 5f 44 72 61 77 50 75  |.f%.shell_DrawPu|
00003150  74 57 6f 72 64 28 58 20  2d 20 43 2c 62 75 66 66  |tWord(X - C,buff|
00003160  65 72 25 29 0d 01 67 25  f2 73 68 65 6c 6c 5f 44  |er%)..g%.shell_D|
00003170  72 61 77 50 75 74 57 6f  72 64 28 59 20 2d 20 42  |rawPutWord(Y - B|
00003180  2c 62 75 66 66 65 72 25  29 0d 01 68 25 f2 73 68  |,buffer%)..h%.sh|
00003190  65 6c 6c 5f 44 72 61 77  50 75 74 57 6f 72 64 28  |ell_DrawPutWord(|
000031a0  58 20 2d 20 41 2c 62 75  66 66 65 72 25 29 0d 01  |X - A,buffer%)..|
000031b0  69 25 f2 73 68 65 6c 6c  5f 44 72 61 77 50 75 74  |i%.shell_DrawPut|
000031c0  57 6f 72 64 28 59 20 2d  20 41 2c 62 75 66 66 65  |Word(Y - A,buffe|
000031d0  72 25 29 0d 01 6a 21 f2  73 68 65 6c 6c 5f 44 72  |r%)..j!.shell_Dr|
000031e0  61 77 50 75 74 57 6f 72  64 28 36 2c 62 75 66 66  |awPutWord(6,buff|
000031f0  65 72 25 29 0d 01 6b 25  f2 73 68 65 6c 6c 5f 44  |er%)..k%.shell_D|
00003200  72 61 77 50 75 74 57 6f  72 64 28 58 20 2d 20 42  |rawPutWord(X - B|
00003210  2c 62 75 66 66 65 72 25  29 0d 01 6c 25 f2 73 68  |,buffer%)..l%.sh|
00003220  65 6c 6c 5f 44 72 61 77  50 75 74 57 6f 72 64 28  |ell_DrawPutWord(|
00003230  59 20 2d 20 43 2c 62 75  66 66 65 72 25 29 0d 01  |Y - C,buffer%)..|
00003240  6d 25 f2 73 68 65 6c 6c  5f 44 72 61 77 50 75 74  |m%.shell_DrawPut|
00003250  57 6f 72 64 28 58 20 2d  20 42 2c 62 75 66 66 65  |Word(X - B,buffe|
00003260  72 25 29 0d 01 6e 25 f2  73 68 65 6c 6c 5f 44 72  |r%)..n%.shell_Dr|
00003270  61 77 50 75 74 57 6f 72  64 28 59 20 2b 20 43 2c  |awPutWord(Y + C,|
00003280  62 75 66 66 65 72 25 29  0d 01 6f 25 f2 73 68 65  |buffer%)..o%.she|
00003290  6c 6c 5f 44 72 61 77 50  75 74 57 6f 72 64 28 58  |ll_DrawPutWord(X|
000032a0  20 2d 20 41 2c 62 75 66  66 65 72 25 29 0d 01 70  | - A,buffer%)..p|
000032b0  25 f2 73 68 65 6c 6c 5f  44 72 61 77 50 75 74 57  |%.shell_DrawPutW|
000032c0  6f 72 64 28 59 20 2b 20  41 2c 62 75 66 66 65 72  |ord(Y + A,buffer|
000032d0  25 29 0d 01 71 21 f2 73  68 65 6c 6c 5f 44 72 61  |%)..q!.shell_Dra|
000032e0  77 50 75 74 57 6f 72 64  28 36 2c 62 75 66 66 65  |wPutWord(6,buffe|
000032f0  72 25 29 0d 01 72 25 f2  73 68 65 6c 6c 5f 44 72  |r%)..r%.shell_Dr|
00003300  61 77 50 75 74 57 6f 72  64 28 58 20 2d 20 43 2c  |awPutWord(X - C,|
00003310  62 75 66 66 65 72 25 29  0d 01 73 25 f2 73 68 65  |buffer%)..s%.she|
00003320  6c 6c 5f 44 72 61 77 50  75 74 57 6f 72 64 28 59  |ll_DrawPutWord(Y|
00003330  20 2b 20 42 2c 62 75 66  66 65 72 25 29 0d 01 74  | + B,buffer%)..t|
00003340  25 f2 73 68 65 6c 6c 5f  44 72 61 77 50 75 74 57  |%.shell_DrawPutW|
00003350  6f 72 64 28 58 20 2b 20  43 2c 62 75 66 66 65 72  |ord(X + C,buffer|
00003360  25 29 0d 01 75 25 f2 73  68 65 6c 6c 5f 44 72 61  |%)..u%.shell_Dra|
00003370  77 50 75 74 57 6f 72 64  28 59 20 2b 20 42 2c 62  |wPutWord(Y + B,b|
00003380  75 66 66 65 72 25 29 0d  01 76 25 f2 73 68 65 6c  |uffer%)..v%.shel|
00003390  6c 5f 44 72 61 77 50 75  74 57 6f 72 64 28 58 20  |l_DrawPutWord(X |
000033a0  2b 20 41 2c 62 75 66 66  65 72 25 29 0d 01 77 25  |+ A,buffer%)..w%|
000033b0  f2 73 68 65 6c 6c 5f 44  72 61 77 50 75 74 57 6f  |.shell_DrawPutWo|
000033c0  72 64 28 59 20 2b 20 41  2c 62 75 66 66 65 72 25  |rd(Y + A,buffer%|
000033d0  29 0d 01 78 21 f2 73 68  65 6c 6c 5f 44 72 61 77  |)..x!.shell_Draw|
000033e0  50 75 74 57 6f 72 64 28  36 2c 62 75 66 66 65 72  |PutWord(6,buffer|
000033f0  25 29 0d 01 79 25 f2 73  68 65 6c 6c 5f 44 72 61  |%)..y%.shell_Dra|
00003400  77 50 75 74 57 6f 72 64  28 58 20 2b 20 42 2c 62  |wPutWord(X + B,b|
00003410  75 66 66 65 72 25 29 0d  01 7a 25 f2 73 68 65 6c  |uffer%)..z%.shel|
00003420  6c 5f 44 72 61 77 50 75  74 57 6f 72 64 28 59 20  |l_DrawPutWord(Y |
00003430  2b 20 43 2c 62 75 66 66  65 72 25 29 0d 01 7b 25  |+ C,buffer%)..{%|
00003440  f2 73 68 65 6c 6c 5f 44  72 61 77 50 75 74 57 6f  |.shell_DrawPutWo|
00003450  72 64 28 58 20 2b 20 42  2c 62 75 66 66 65 72 25  |rd(X + B,buffer%|
00003460  29 0d 01 7c 25 f2 73 68  65 6c 6c 5f 44 72 61 77  |)..|%.shell_Draw|
00003470  50 75 74 57 6f 72 64 28  59 20 2d 20 43 2c 62 75  |PutWord(Y - C,bu|
00003480  66 66 65 72 25 29 0d 01  7d 25 f2 73 68 65 6c 6c  |ffer%)..}%.shell|
00003490  5f 44 72 61 77 50 75 74  57 6f 72 64 28 58 20 2b  |_DrawPutWord(X +|
000034a0  20 41 2c 62 75 66 66 65  72 25 29 0d 01 7e 25 f2  | A,buffer%)..~%.|
000034b0  73 68 65 6c 6c 5f 44 72  61 77 50 75 74 57 6f 72  |shell_DrawPutWor|
000034c0  64 28 59 20 2d 20 41 2c  62 75 66 66 65 72 25 29  |d(Y - A,buffer%)|
000034d0  0d 01 7f 3e f2 73 68 65  6c 6c 5f 44 72 61 77 50  |...>.shell_DrawP|
000034e0  75 74 57 6f 72 64 28 30  2c 62 75 66 66 65 72 25  |utWord(0,buffer%|
000034f0  29 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |)               |
00003500  3a f4 20 45 6e 64 20 6f  66 20 70 61 74 68 0d 01  |:. End of path..|
00003510  80 4a 21 28 62 75 66 66  65 72 25 20 2b 20 73 74  |.J!(buffer% + st|
00003520  61 72 74 25 20 2b 20 34  29 20 3d 20 62 75 66 66  |art% + 4) = buff|
00003530  65 72 25 21 38 20 2d 20  73 74 61 72 74 25 20 20  |er%!8 - start%  |
00003540  20 3a f4 20 53 74 6f 72  65 20 73 69 7a 65 20 6f  | :. Store size o|
00003550  66 20 6f 62 6a 65 63 74  0d 01 81 05 e1 0d 01 82  |f object........|
00003560  05 3a 0d 01 83 1f 2a 7c  53 74 6f 70 20 50 52 4f  |.:....*|Stop PRO|
00003570  43 73 68 65 6c 6c 5f 44  72 61 77 43 69 72 63 6c  |Cshell_DrawCircl|
00003580  65 0d 01 84 04 0d 01 85  1d 2a 7c 53 74 61 72 74  |e........*|Start|
00003590  20 50 52 4f 43 73 68 65  6c 6c 5f 44 72 61 77 42  | PROCshell_DrawB|
000035a0  6f 78 0d 01 86 32 dd 20  f2 73 68 65 6c 6c 5f 44  |ox...2. .shell_D|
000035b0  72 61 77 42 6f 78 28 f8  20 62 75 66 66 65 72 25  |rawBox(. buffer%|
000035c0  2c 78 30 2c 79 30 2c 77  69 64 74 68 2c 68 65 69  |,x0,y0,width,hei|
000035d0  67 68 74 29 0d 01 87 14  ea 20 73 74 61 72 74 25  |ght)..... start%|
000035e0  2c 73 63 6c 5f 66 61 63  0d 01 88 16 73 74 61 72  |,scl_fac....star|
000035f0  74 25 20 3d 20 62 75 66  66 65 72 25 21 38 0d 01  |t% = buffer%!8..|
00003600  89 1b 73 63 6c 5f 66 61  63 20 3d 20 7c 28 62 75  |..scl_fac = |(bu|
00003610  66 66 65 72 25 2b 31 32  29 0d 01 8a 1d 78 30 20  |ffer%+12)....x0 |
00003620  20 20 20 20 3d 20 78 30  20 20 20 20 20 2a 20 73  |    = x0     * s|
00003630  63 6c 5f 66 61 63 0d 01  8b 1d 79 30 20 20 20 20  |cl_fac....y0    |
00003640  20 3d 20 79 30 20 20 20  20 20 2a 20 73 63 6c 5f  | = y0     * scl_|
00003650  66 61 63 0d 01 8c 1d 77  69 64 74 68 20 20 3d 20  |fac....width  = |
00003660  77 69 64 74 68 20 20 2a  20 73 63 6c 5f 66 61 63  |width  * scl_fac|
00003670  0d 01 8d 1d 68 65 69 67  68 74 20 3d 20 68 65 69  |....height = hei|
00003680  67 68 74 20 2a 20 73 63  6c 5f 66 61 63 0d 01 8e  |ght * scl_fac...|
00003690  42 f2 73 68 65 6c 6c 5f  44 72 61 77 50 75 74 57  |B.shell_DrawPutW|
000036a0  6f 72 64 28 32 2c 62 75  66 66 65 72 25 29 20 20  |ord(2,buffer%)  |
000036b0  20 20 20 20 20 20 20 20  3a f4 20 4f 62 6a 65 63  |        :. Objec|
000036c0  74 20 74 79 70 65 20 32  20 28 70 61 74 68 29 0d  |t type 2 (path).|
000036d0  01 8f 4a f2 73 68 65 6c  6c 5f 44 72 61 77 50 75  |..J.shell_DrawPu|
000036e0  74 57 6f 72 64 28 30 2c  62 75 66 66 65 72 25 29  |tWord(0,buffer%)|
000036f0  20 20 20 20 20 20 20 20  20 20 3a f4 20 53 69 7a  |          :. Siz|
00003700  65 20 6f 66 20 6f 62 6a  65 63 74 20 28 64 75 6d  |e of object (dum|
00003710  6d 79 20 76 61 6c 75 65  29 0d 01 90 4b f2 73 68  |my value)...K.sh|
00003720  65 6c 6c 5f 44 72 61 77  50 75 74 57 6f 72 64 28  |ell_DrawPutWord(|
00003730  78 30 2c 62 75 66 66 65  72 25 29 20 20 20 20 20  |x0,buffer%)     |
00003740  20 20 20 20 3a f4 20 53  65 74 20 73 69 7a 65 20  |    :. Set size |
00003750  6f 66 20 62 6f 75 6e 64  69 6e 67 20 62 6f 78 20  |of bounding box |
00003760  78 6d 69 6e 0d 01 91 4b  f2 73 68 65 6c 6c 5f 44  |xmin...K.shell_D|
00003770  72 61 77 50 75 74 57 6f  72 64 28 79 30 2c 62 75  |rawPutWord(y0,bu|
00003780  66 66 65 72 25 29 20 20  20 20 20 20 20 20 20 3a  |ffer%)         :|
00003790  f4 20 53 65 74 20 73 69  7a 65 20 6f 66 20 62 6f  |. Set size of bo|
000037a0  75 6e 64 69 6e 67 20 62  6f 78 20 79 6d 69 6e 0d  |unding box ymin.|
000037b0  01 92 4b f2 73 68 65 6c  6c 5f 44 72 61 77 50 75  |..K.shell_DrawPu|
000037c0  74 57 6f 72 64 28 78 30  20 2b 20 77 69 64 74 68  |tWord(x0 + width|
000037d0  2c 62 75 66 66 65 72 25  29 20 3a f4 20 53 65 74  |,buffer%) :. Set|
000037e0  20 73 69 7a 65 20 6f 66  20 62 6f 75 6e 64 69 6e  | size of boundin|
000037f0  67 20 62 6f 78 20 78 6d  61 78 0d 01 93 4b f2 73  |g box xmax...K.s|
00003800  68 65 6c 6c 5f 44 72 61  77 50 75 74 57 6f 72 64  |hell_DrawPutWord|
00003810  28 79 30 20 2b 20 68 65  69 67 68 74 2c 62 75 66  |(y0 + height,buf|
00003820  66 65 72 25 29 3a f4 20  53 65 74 20 73 69 7a 65  |fer%):. Set size|
00003830  20 6f 66 20 62 6f 75 6e  64 69 6e 67 20 62 6f 78  | of bounding box|
00003840  20 79 6d 61 78 0d 01 94  41 f2 73 68 65 6c 6c 5f  | ymax...A.shell_|
00003850  44 72 61 77 55 70 64 61  74 65 42 6f 75 6e 64 73  |DrawUpdateBounds|
00003860  28 62 75 66 66 65 72 25  2c 78 30 2c 79 30 2c 78  |(buffer%,x0,y0,x|
00003870  30 20 2b 20 77 69 64 74  68 2c 79 30 20 2b 20 68  |0 + width,y0 + h|
00003880  65 69 67 68 74 29 0d 01  95 39 f2 73 68 65 6c 6c  |eight)...9.shell|
00003890  5f 44 72 61 77 50 75 74  57 6f 72 64 28 62 75 66  |_DrawPutWord(buf|
000038a0  66 65 72 25 21 32 34 2c  62 75 66 66 65 72 25 29  |fer%!24,buffer%)|
000038b0  20 3a f4 20 46 69 6c 6c  20 63 6f 6c 6f 75 72 0d  | :. Fill colour.|
000038c0  01 96 39 f2 73 68 65 6c  6c 5f 44 72 61 77 50 75  |..9.shell_DrawPu|
000038d0  74 57 6f 72 64 28 62 75  66 66 65 72 25 21 32 30  |tWord(buffer%!20|
000038e0  2c 62 75 66 66 65 72 25  29 20 3a f4 20 50 61 74  |,buffer%) :. Pat|
000038f0  68 20 63 6f 6c 6f 75 72  0d 01 97 38 f2 73 68 65  |h colour...8.she|
00003900  6c 6c 5f 44 72 61 77 50  75 74 57 6f 72 64 28 62  |ll_DrawPutWord(b|
00003910  75 66 66 65 72 25 21 33  32 2c 62 75 66 66 65 72  |uffer%!32,buffer|
00003920  25 29 20 3a f4 20 50 61  74 68 20 77 69 64 74 68  |%) :. Path width|
00003930  0d 01 98 35 f2 73 68 65  6c 6c 5f 44 72 61 77 50  |...5.shell_DrawP|
00003940  75 74 57 6f 72 64 28 30  30 2c 62 75 66 66 65 72  |utWord(00,buffer|
00003950  25 29 20 20 20 20 20 20  20 20 20 3a f4 20 50 61  |%)         :. Pa|
00003960  74 74 65 72 6e 0d 01 99  3b f2 73 68 65 6c 6c 5f  |ttern...;.shell_|
00003970  44 72 61 77 50 75 74 57  6f 72 64 28 30 32 2c 62  |DrawPutWord(02,b|
00003980  75 66 66 65 72 25 29 20  20 20 20 20 20 20 20 20  |uffer%)         |
00003990  3a f4 20 41 62 73 6f 6c  75 74 65 20 6d 6f 76 65  |:. Absolute move|
000039a0  0d 01 9a 35 f2 73 68 65  6c 6c 5f 44 72 61 77 50  |...5.shell_DrawP|
000039b0  75 74 57 6f 72 64 28 78  30 2c 62 75 66 66 65 72  |utWord(x0,buffer|
000039c0  25 29 20 20 20 20 20 20  20 20 20 3a f4 20 78 20  |%)         :. x |
000039d0  73 74 61 72 74 0d 01 9b  35 f2 73 68 65 6c 6c 5f  |start...5.shell_|
000039e0  44 72 61 77 50 75 74 57  6f 72 64 28 79 30 2c 62  |DrawPutWord(y0,b|
000039f0  75 66 66 65 72 25 29 20  20 20 20 20 20 20 20 20  |uffer%)         |
00003a00  3a f4 20 79 20 73 74 61  72 74 0d 01 9c 47 f2 73  |:. y start...G.s|
00003a10  68 65 6c 6c 5f 44 72 61  77 50 75 74 57 6f 72 64  |hell_DrawPutWord|
00003a20  28 30 38 2c 62 75 66 66  65 72 25 29 20 20 20 20  |(08,buffer%)    |
00003a30  20 20 20 20 20 3a f4 20  44 72 61 77 20 74 6f 20  |     :. Draw to |
00003a40  61 62 73 6f 6c 75 74 65  20 70 6f 73 69 74 69 6f  |absolute positio|
00003a50  6e 0d 01 9d 22 f2 73 68  65 6c 6c 5f 44 72 61 77  |n...".shell_Draw|
00003a60  50 75 74 57 6f 72 64 28  78 30 2c 62 75 66 66 65  |PutWord(x0,buffe|
00003a70  72 25 29 0d 01 9e 2b f2  73 68 65 6c 6c 5f 44 72  |r%)...+.shell_Dr|
00003a80  61 77 50 75 74 57 6f 72  64 28 79 30 20 2b 20 68  |awPutWord(y0 + h|
00003a90  65 69 67 68 74 2c 62 75  66 66 65 72 25 29 0d 01  |eight,buffer%)..|
00003aa0  9f 22 f2 73 68 65 6c 6c  5f 44 72 61 77 50 75 74  |.".shell_DrawPut|
00003ab0  57 6f 72 64 28 30 38 2c  62 75 66 66 65 72 25 29  |Word(08,buffer%)|
00003ac0  0d 01 a0 2a f2 73 68 65  6c 6c 5f 44 72 61 77 50  |...*.shell_DrawP|
00003ad0  75 74 57 6f 72 64 28 78  30 20 2b 20 77 69 64 74  |utWord(x0 + widt|
00003ae0  68 2c 62 75 66 66 65 72  25 29 0d 01 a1 2b f2 73  |h,buffer%)...+.s|
00003af0  68 65 6c 6c 5f 44 72 61  77 50 75 74 57 6f 72 64  |hell_DrawPutWord|
00003b00  28 79 30 20 2b 20 68 65  69 67 68 74 2c 62 75 66  |(y0 + height,buf|
00003b10  66 65 72 25 29 0d 01 a2  22 f2 73 68 65 6c 6c 5f  |fer%)...".shell_|
00003b20  44 72 61 77 50 75 74 57  6f 72 64 28 30 38 2c 62  |DrawPutWord(08,b|
00003b30  75 66 66 65 72 25 29 0d  01 a3 2a f2 73 68 65 6c  |uffer%)...*.shel|
00003b40  6c 5f 44 72 61 77 50 75  74 57 6f 72 64 28 78 30  |l_DrawPutWord(x0|
00003b50  20 2b 20 77 69 64 74 68  2c 62 75 66 66 65 72 25  | + width,buffer%|
00003b60  29 0d 01 a4 22 f2 73 68  65 6c 6c 5f 44 72 61 77  |)...".shell_Draw|
00003b70  50 75 74 57 6f 72 64 28  79 30 2c 62 75 66 66 65  |PutWord(y0,buffe|
00003b80  72 25 29 0d 01 a5 22 f2  73 68 65 6c 6c 5f 44 72  |r%)...".shell_Dr|
00003b90  61 77 50 75 74 57 6f 72  64 28 30 38 2c 62 75 66  |awPutWord(08,buf|
00003ba0  66 65 72 25 29 0d 01 a6  22 f2 73 68 65 6c 6c 5f  |fer%)...".shell_|
00003bb0  44 72 61 77 50 75 74 57  6f 72 64 28 78 30 2c 62  |DrawPutWord(x0,b|
00003bc0  75 66 66 65 72 25 29 0d  01 a7 22 f2 73 68 65 6c  |uffer%)...".shel|
00003bd0  6c 5f 44 72 61 77 50 75  74 57 6f 72 64 28 79 30  |l_DrawPutWord(y0|
00003be0  2c 62 75 66 66 65 72 25  29 0d 01 a8 3b f2 73 68  |,buffer%)...;.sh|
00003bf0  65 6c 6c 5f 44 72 61 77  50 75 74 57 6f 72 64 28  |ell_DrawPutWord(|
00003c00  30 30 2c 62 75 66 66 65  72 25 29 20 20 20 20 20  |00,buffer%)     |
00003c10  20 20 20 20 20 20 3a f4  20 45 6e 64 20 6f 66 20  |      :. End of |
00003c20  70 61 74 68 0d 01 a9 47  21 28 62 75 66 66 65 72  |path...G!(buffer|
00003c30  25 20 2b 20 73 74 61 72  74 25 20 2b 20 34 29 20  |% + start% + 4) |
00003c40  3d 20 62 75 66 66 65 72  25 21 38 20 2d 20 73 74  |= buffer%!8 - st|
00003c50  61 72 74 25 3a f4 20 53  74 6f 72 65 20 73 69 7a  |art%:. Store siz|
00003c60  65 20 6f 66 20 6f 62 6a  65 63 74 0d 01 aa 05 e1  |e of object.....|
00003c70  0d 01 ab 05 3a 0d 01 ac  1c 2a 7c 53 74 6f 70 20  |....:....*|Stop |
00003c80  50 52 4f 43 73 68 65 6c  6c 5f 44 72 61 77 42 6f  |PROCshell_DrawBo|
00003c90  78 0d 01 ad 04 0d 01 ae  26 2a 7c 53 74 61 72 74  |x.......&*|Start|
00003ca0  20 50 52 4f 43 73 68 65  6c 6c 5f 44 72 61 77 55  | PROCshell_DrawU|
00003cb0  70 64 61 74 65 42 6f 75  6e 64 73 0d 01 af 32 dd  |pdateBounds...2.|
00003cc0  20 f2 73 68 65 6c 6c 5f  44 72 61 77 55 70 64 61  | .shell_DrawUpda|
00003cd0  74 65 42 6f 75 6e 64 73  28 62 75 66 66 65 72 25  |teBounds(buffer%|
00003ce0  2c 78 30 2c 79 30 2c 78  31 2c 79 31 29 0d 01 b0  |,x0,y0,x1,y1)...|
00003cf0  0f ea 20 62 62 5f 73 74  61 72 74 25 0d 01 b1 23  |.. bb_start%...#|
00003d00  62 62 5f 73 74 61 72 74  25 20 3d 20 62 75 66 66  |bb_start% = buff|
00003d10  65 72 25 20 2b 20 62 75  66 66 65 72 25 21 34 0d  |er% + buffer%!4.|
00003d20  01 b2 34 e7 20 28 62 62  5f 73 74 61 72 74 25 20  |..4. (bb_start% |
00003d30  2b 20 33 32 29 20 3d 20  30 20 80 20 21 28 62 62  |+ 32) = 0 . !(bb|
00003d40  5f 73 74 61 72 74 25 20  2b 20 33 36 29 20 3d 20  |_start% + 36) = |
00003d50  30 20 8c 0d 01 b3 1c 20  20 21 28 62 62 5f 73 74  |0 .....  !(bb_st|
00003d60  61 72 74 25 20 2b 20 32  34 29 20 3d 20 78 30 0d  |art% + 24) = x0.|
00003d70  01 b4 1c 20 20 21 28 62  62 5f 73 74 61 72 74 25  |...  !(bb_start%|
00003d80  20 2b 20 32 38 29 20 3d  20 79 30 0d 01 b5 1c 20  | + 28) = y0.... |
00003d90  20 21 28 62 62 5f 73 74  61 72 74 25 20 2b 20 33  | !(bb_start% + 3|
00003da0  32 29 20 3d 20 78 31 0d  01 b6 1c 20 20 21 28 62  |2) = x1....  !(b|
00003db0  62 5f 73 74 61 72 74 25  20 2b 20 33 36 29 20 3d  |b_start% + 36) =|
00003dc0  20 79 31 0d 01 b7 05 cc  0d 01 b8 37 20 20 e7 20  | y1........7  . |
00003dd0  78 30 20 3c 20 21 28 62  62 5f 73 74 61 72 74 25  |x0 < !(bb_start%|
00003de0  20 2b 20 32 34 29 20 8c  20 21 28 62 62 5f 73 74  | + 24) . !(bb_st|
00003df0  61 72 74 25 20 2b 20 32  34 29 20 3d 20 78 30 0d  |art% + 24) = x0.|
00003e00  01 b9 37 20 20 e7 20 79  30 20 3c 20 21 28 62 62  |..7  . y0 < !(bb|
00003e10  5f 73 74 61 72 74 25 20  2b 20 32 38 29 20 8c 20  |_start% + 28) . |
00003e20  21 28 62 62 5f 73 74 61  72 74 25 20 2b 20 32 38  |!(bb_start% + 28|
00003e30  29 20 3d 20 79 30 0d 01  ba 37 20 20 e7 20 78 31  |) = y0...7  . x1|
00003e40  20 3e 20 21 28 62 62 5f  73 74 61 72 74 25 20 2b  | > !(bb_start% +|
00003e50  20 33 32 29 20 8c 20 21  28 62 62 5f 73 74 61 72  | 32) . !(bb_star|
00003e60  74 25 20 2b 20 33 32 29  20 3d 20 78 31 0d 01 bb  |t% + 32) = x1...|
00003e70  37 20 20 e7 20 79 31 20  3e 20 21 28 62 62 5f 73  |7  . y1 > !(bb_s|
00003e80  74 61 72 74 25 20 2b 20  33 36 29 20 8c 20 21 28  |tart% + 36) . !(|
00003e90  62 62 5f 73 74 61 72 74  25 20 2b 20 33 36 29 20  |bb_start% + 36) |
00003ea0  3d 20 79 31 0d 01 bc 05  cd 0d 01 bd 48 e7 20 62  |= y1........H. b|
00003eb0  75 66 66 65 72 25 21 32  38 20 3e 20 30 20 8c 20  |uffer%!28 > 0 . |
00003ec0  f2 73 68 65 6c 6c 5f 44  72 61 77 55 70 64 61 74  |.shell_DrawUpdat|
00003ed0  65 47 72 6f 75 70 42 6f  75 6e 64 73 28 62 75 66  |eGroupBounds(buf|
00003ee0  66 65 72 25 2c 78 30 2c  79 30 2c 78 31 2c 79 31  |fer%,x0,y0,x1,y1|
00003ef0  29 0d 01 be 05 e1 0d 01  bf 05 3a 0d 01 c0 25 2a  |).........:...%*|
00003f00  7c 53 74 6f 70 20 50 52  4f 43 73 68 65 6c 6c 5f  ||Stop PROCshell_|
00003f10  44 72 61 77 55 70 64 61  74 65 42 6f 75 6e 64 73  |DrawUpdateBounds|
00003f20  0d 01 c1 04 0d 01 c2 2b  2a 7c 53 74 61 72 74 20  |.......+*|Start |
00003f30  50 52 4f 43 73 68 65 6c  6c 5f 44 72 61 77 55 70  |PROCshell_DrawUp|
00003f40  64 61 74 65 47 72 6f 75  70 42 6f 75 6e 64 73 0d  |dateGroupBounds.|
00003f50  01 c3 37 dd 20 f2 73 68  65 6c 6c 5f 44 72 61 77  |..7. .shell_Draw|
00003f60  55 70 64 61 74 65 47 72  6f 75 70 42 6f 75 6e 64  |UpdateGroupBound|
00003f70  73 28 62 75 66 66 65 72  25 2c 78 30 2c 79 30 2c  |s(buffer%,x0,y0,|
00003f80  78 31 2c 79 31 29 0d 01  c4 0f ea 20 62 62 5f 73  |x1,y1)..... bb_s|
00003f90  74 61 72 74 25 0d 01 c5  24 62 62 5f 73 74 61 72  |tart%...$bb_star|
00003fa0  74 25 20 3d 20 62 75 66  66 65 72 25 20 2b 20 62  |t% = buffer% + b|
00003fb0  75 66 66 65 72 25 21 32  38 0d 01 c6 3e f4 20 50  |uffer%!28...>. P|
00003fc0  52 4f 43 73 68 65 6c 6c  5f 54 72 61 63 65 66 30  |ROCshell_Tracef0|
00003fd0  28 22 44 45 42 55 47 3a  3a 62 62 5f 6f 66 66 73  |("DEBUG::bb_offs|
00003fe0  65 74 20 3d 20 22 2b 53  54 52 24 7e 62 75 66 66  |et = "+STR$~buff|
00003ff0  65 72 25 21 32 38 29 0d  01 c7 47 f4 20 50 52 4f  |er%!28)...G. PRO|
00004000  43 73 68 65 6c 6c 5f 54  72 61 63 65 66 30 28 22  |Cshell_Tracef0("|
00004010  44 45 42 55 47 3a 3a 63  75 72 72 65 6e 74 20 78  |DEBUG::current x|
00004020  30 20 3d 20 22 2b 53 54  52 24 28 21 28 62 62 5f  |0 = "+STR$(!(bb_|
00004030  73 74 61 72 74 25 20 2b  20 30 38 29 29 29 0d 01  |start% + 08)))..|
00004040  c8 1e e7 20 21 28 62 62  5f 73 74 61 72 74 25 20  |... !(bb_start% |
00004050  2b 20 30 38 29 20 3d 20  2d 31 20 8c 0d 01 c9 1c  |+ 08) = -1 .....|
00004060  20 20 21 28 62 62 5f 73  74 61 72 74 25 20 2b 20  |  !(bb_start% + |
00004070  30 38 29 20 3d 20 78 30  0d 01 ca 05 cc 0d 01 cb  |08) = x0........|
00004080  37 20 20 e7 20 78 30 20  3c 20 21 28 62 62 5f 73  |7  . x0 < !(bb_s|
00004090  74 61 72 74 25 20 2b 20  30 38 29 20 8c 20 21 28  |tart% + 08) . !(|
000040a0  62 62 5f 73 74 61 72 74  25 20 2b 20 30 38 29 20  |bb_start% + 08) |
000040b0  3d 20 78 30 0d 01 cc 05  cd 0d 01 cd 1e e7 20 21  |= x0.......... !|
000040c0  28 62 62 5f 73 74 61 72  74 25 20 2b 20 31 32 29  |(bb_start% + 12)|
000040d0  20 3d 20 2d 31 20 8c 0d  01 ce 1c 20 20 21 28 62  | = -1 .....  !(b|
000040e0  62 5f 73 74 61 72 74 25  20 2b 20 31 32 29 20 3d  |b_start% + 12) =|
000040f0  20 79 30 0d 01 cf 05 cc  0d 01 d0 37 20 20 e7 20  | y0........7  . |
00004100  79 30 20 3c 20 21 28 62  62 5f 73 74 61 72 74 25  |y0 < !(bb_start%|
00004110  20 2b 20 31 32 29 20 8c  20 21 28 62 62 5f 73 74  | + 12) . !(bb_st|
00004120  61 72 74 25 20 2b 20 31  32 29 20 3d 20 79 30 0d  |art% + 12) = y0.|
00004130  01 d1 05 cd 0d 01 d2 35  e7 20 78 31 20 3e 20 21  |.......5. x1 > !|
00004140  28 62 62 5f 73 74 61 72  74 25 20 2b 20 31 36 29  |(bb_start% + 16)|
00004150  20 8c 20 21 28 62 62 5f  73 74 61 72 74 25 20 2b  | . !(bb_start% +|
00004160  20 31 36 29 20 3d 20 78  31 0d 01 d3 35 e7 20 79  | 16) = x1...5. y|
00004170  31 20 3e 20 21 28 62 62  5f 73 74 61 72 74 25 20  |1 > !(bb_start% |
00004180  2b 20 32 30 29 20 8c 20  21 28 62 62 5f 73 74 61  |+ 20) . !(bb_sta|
00004190  72 74 25 20 2b 20 32 30  29 20 3d 20 79 31 0d 01  |rt% + 20) = y1..|
000041a0  d4 2e f4 20 50 52 4f 43  73 68 65 6c 6c 5f 54 72  |... PROCshell_Tr|
000041b0  61 63 65 66 30 28 22 44  45 42 55 47 3a 3a 78 30  |acef0("DEBUG::x0|
000041c0  20 3d 20 22 2b 53 54 52  24 78 30 29 0d 01 d5 2e  | = "+STR$x0)....|
000041d0  f4 20 50 52 4f 43 73 68  65 6c 6c 5f 54 72 61 63  |. PROCshell_Trac|
000041e0  65 66 30 28 22 44 45 42  55 47 3a 3a 79 30 20 3d  |ef0("DEBUG::y0 =|
000041f0  20 22 2b 53 54 52 24 79  30 29 0d 01 d6 2e f4 20  | "+STR$y0)..... |
00004200  50 52 4f 43 73 68 65 6c  6c 5f 54 72 61 63 65 66  |PROCshell_Tracef|
00004210  30 28 22 44 45 42 55 47  3a 3a 78 31 20 3d 20 22  |0("DEBUG::x1 = "|
00004220  2b 53 54 52 24 78 31 29  0d 01 d7 2e f4 20 50 52  |+STR$x1)..... PR|
00004230  4f 43 73 68 65 6c 6c 5f  54 72 61 63 65 66 30 28  |OCshell_Tracef0(|
00004240  22 44 45 42 55 47 3a 3a  79 31 20 3d 20 22 2b 53  |"DEBUG::y1 = "+S|
00004250  54 52 24 79 31 29 0d 01  d8 1b f4 20 50 52 4f 43  |TR$y1)..... PROC|
00004260  73 68 65 6c 6c 5f 54 72  61 63 65 66 30 28 22 22  |shell_Tracef0(""|
00004270  29 0d 01 d9 3c f4 20 50  52 4f 43 73 68 65 6c 6c  |)...<. PROCshell|
00004280  5f 54 72 61 63 65 66 30  28 22 44 45 42 55 47 3a  |_Tracef0("DEBUG:|
00004290  3a 78 30 20 3d 20 22 2b  53 54 52 24 28 21 28 62  |:x0 = "+STR$(!(b|
000042a0  62 5f 73 74 61 72 74 25  2b 38 29 29 29 0d 01 da  |b_start%+8)))...|
000042b0  05 e1 0d 01 db 05 3a 0d  01 dc 2a 2a 7c 53 74 6f  |......:...**|Sto|
000042c0  70 20 50 52 4f 43 73 68  65 6c 6c 5f 44 72 61 77  |p PROCshell_Draw|
000042d0  55 70 64 61 74 65 47 72  6f 75 70 42 6f 75 6e 64  |UpdateGroupBound|
000042e0  73 0d 01 dd 04 0d 01 de  1e 2a 7c 53 74 61 72 74  |s........*|Start|
000042f0  20 50 52 4f 43 73 68 65  6c 6c 5f 44 72 61 77 4c  | PROCshell_DrawL|
00004300  69 6e 65 0d 01 df 2c dd  20 f2 73 68 65 6c 6c 5f  |ine...,. .shell_|
00004310  44 72 61 77 4c 69 6e 65  28 f8 20 62 75 66 66 65  |DrawLine(. buffe|
00004320  72 25 2c 78 30 2c 79 30  2c 78 31 2c 79 31 29 0d  |r%,x0,y0,x1,y1).|
00004330  01 e0 45 ea 20 73 74 61  72 74 25 2c 70 61 74 5f  |..E. start%,pat_|
00004340  62 6c 6b 25 2c 73 63 6c  5f 66 61 63 2c 73 74 79  |blk%,scl_fac,sty|
00004350  6c 65 5f 62 6c 6b 25 2c  70 5f 77 69 64 74 68 25  |le_blk%,p_width%|
00004360  2c 63 61 70 5f 77 69 64  74 68 25 2c 63 61 70 5f  |,cap_width%,cap_|
00004370  6c 65 6e 25 0d 01 e1 1b  ea 20 63 61 70 5f 77 69  |len%..... cap_wi|
00004380  64 74 68 32 25 2c 63 61  70 5f 6c 65 6e 32 25 0d  |dth2%,cap_len2%.|
00004390  01 e2 1b 73 63 6c 5f 66  61 63 20 3d 20 7c 28 62  |...scl_fac = |(b|
000043a0  75 66 66 65 72 25 2b 31  32 29 0d 01 e3 18 e7 20  |uffer%+12)..... |
000043b0  78 31 20 3c 20 78 30 20  8c 20 c8 94 20 78 31 2c  |x1 < x0 . .. x1,|
000043c0  78 30 0d 01 e4 18 e7 20  79 31 20 3c 20 79 30 20  |x0..... y1 < y0 |
000043d0  8c 20 c8 94 20 79 31 2c  79 30 0d 01 e5 16 73 74  |. .. y1,y0....st|
000043e0  61 72 74 25 20 3d 20 62  75 66 66 65 72 25 21 38  |art% = buffer%!8|
000043f0  0d 01 e6 48 78 30 20 3d  20 78 30 20 2a 20 73 63  |...Hx0 = x0 * sc|
00004400  6c 5f 66 61 63 20 3a f4  20 43 6f 6e 76 65 72 74  |l_fac :. Convert|
00004410  20 74 6f 20 64 72 61 77  20 75 6e 69 74 73 20 75  | to draw units u|
00004420  73 69 6e 67 20 73 74 6f  72 65 64 20 73 63 61 6c  |sing stored scal|
00004430  65 20 66 61 63 74 6f 72  0d 01 e7 15 79 30 20 3d  |e factor....y0 =|
00004440  20 79 30 20 2a 20 73 63  6c 5f 66 61 63 0d 01 e8  | y0 * scl_fac...|
00004450  15 78 31 20 3d 20 78 31  20 2a 20 73 63 6c 5f 66  |.x1 = x1 * scl_f|
00004460  61 63 0d 01 e9 15 79 31  20 3d 20 79 31 20 2a 20  |ac....y1 = y1 * |
00004470  73 63 6c 5f 66 61 63 0d  01 ea 1b 70 5f 77 69 64  |scl_fac....p_wid|
00004480  74 68 25 20 20 20 3d 20  62 75 66 66 65 72 25 21  |th%   = buffer%!|
00004490  33 32 0d 01 eb 1b 73 74  79 6c 65 5f 62 6c 6b 25  |32....style_blk%|
000044a0  20 3d 20 62 75 66 66 65  72 25 21 34 38 0d 01 ec  | = buffer%!48...|
000044b0  04 0d 01 ed 43 f4 20 50  52 4f 43 73 68 65 6c 6c  |....C. PROCshell|
000044c0  5f 54 72 61 63 65 66 30  28 22 44 45 42 55 47 3a  |_Tracef0("DEBUG:|
000044d0  3a 20 22 2b 53 54 52 24  28 73 74 79 6c 65 5f 62  |: "+STR$(style_b|
000044e0  6c 6b 25 3f 30 20 41 4e  44 20 28 31 20 3c 3c 20  |lk%?0 AND (1 << |
000044f0  32 29 29 29 0d 01 ee 43  f4 20 50 52 4f 43 73 68  |2)))...C. PROCsh|
00004500  65 6c 6c 5f 54 72 61 63  65 66 30 28 22 44 45 42  |ell_Tracef0("DEB|
00004510  55 47 3a 3a 20 22 2b 53  54 52 24 28 73 74 79 6c  |UG:: "+STR$(styl|
00004520  65 5f 62 6c 6b 25 3f 30  20 41 4e 44 20 28 31 20  |e_blk%?0 AND (1 |
00004530  3c 3c 20 33 29 29 29 0d  01 ef 3e e7 20 28 73 74  |<< 3)))...>. (st|
00004540  79 6c 65 5f 62 6c 6b 25  3f 30 20 80 20 25 31 31  |yle_blk%?0 . %11|
00004550  30 30 29 20 84 20 28 73  74 79 6c 65 5f 62 6c 6b  |00) . (style_blk|
00004560  25 3f 30 20 80 20 25 31  31 30 30 30 30 29 20 3c  |%?0 . %110000) <|
00004570  3e 20 30 20 8c 0d 01 f0  3b 20 20 f4 20 54 72 69  |> 0 ....;  . Tri|
00004580  61 6e 67 75 6c 61 72 20  65 6e 64 20 63 61 70 73  |angular end caps|
00004590  20 6f 6e 20 74 68 65 20  70 61 74 68 2c 20 63 68  | on the path, ch|
000045a0  65 63 6b 20 74 68 65 20  77 69 64 74 68 73 2e 2e  |eck the widths..|
000045b0  0d 01 f1 20 20 20 e7 20  28 73 74 79 6c 65 5f 62  |...   . (style_b|
000045c0  6c 6b 25 3f 30 20 80 20  25 31 31 30 30 29 20 8c  |lk%?0 . %1100) .|
000045d0  0d 01 f2 39 20 20 20 20  63 61 70 5f 77 69 64 74  |...9    cap_widt|
000045e0  68 25 20 3d 20 73 74 79  6c 65 5f 62 6c 6b 25 3f  |h% = style_blk%?|
000045f0  32 3a f4 20 31 2f 31 36  74 68 73 20 6f 66 20 70  |2:. 1/16ths of p|
00004600  61 74 68 20 77 69 64 74  68 0d 01 f3 39 20 20 20  |ath width...9   |
00004610  20 63 61 70 5f 6c 65 6e  25 20 20 20 3d 20 73 74  | cap_len%   = st|
00004620  79 6c 65 5f 62 6c 6b 25  3f 33 3a f4 20 31 2f 31  |yle_blk%?3:. 1/1|
00004630  36 74 68 73 20 6f 66 20  70 61 74 68 20 77 69 64  |6ths of path wid|
00004640  74 68 0d 01 f4 33 20 20  20 20 63 61 70 5f 77 69  |th...3    cap_wi|
00004650  64 74 68 25 20 3d 20 28  63 61 70 5f 77 69 64 74  |dth% = (cap_widt|
00004660  68 25 20 2a 20 28 70 5f  77 69 64 74 68 25 20 2f  |h% * (p_width% /|
00004670  20 31 36 29 29 0d 01 f5  33 20 20 20 20 63 61 70  | 16))...3    cap|
00004680  5f 6c 65 6e 25 20 20 20  3d 20 28 63 61 70 5f 6c  |_len%   = (cap_l|
00004690  65 6e 25 20 20 20 2a 20  28 70 5f 77 69 64 74 68  |en%   * (p_width|
000046a0  25 20 2f 20 31 36 29 29  0d 01 f6 07 20 20 cd 0d  |% / 16))....  ..|
000046b0  01 f7 22 20 20 e7 20 28  73 74 79 6c 65 5f 62 6c  |.."  . (style_bl|
000046c0  6b 25 3f 30 20 80 20 25  31 31 30 30 30 30 29 20  |k%?0 . %110000) |
000046d0  8c 0d 01 f8 3a 20 20 20  20 63 61 70 5f 77 69 64  |....:    cap_wid|
000046e0  74 68 32 25 20 3d 20 73  74 79 6c 65 5f 62 6c 6b  |th2% = style_blk|
000046f0  25 3f 34 3a f4 20 31 2f  31 36 74 68 73 20 6f 66  |%?4:. 1/16ths of|
00004700  20 70 61 74 68 20 77 69  64 74 68 0d 01 f9 3a 20  | path width...: |
00004710  20 20 20 63 61 70 5f 6c  65 6e 32 25 20 20 20 3d  |   cap_len2%   =|
00004720  20 73 74 79 6c 65 5f 62  6c 6b 25 3f 35 3a f4 20  | style_blk%?5:. |
00004730  31 2f 31 36 74 68 73 20  6f 66 20 70 61 74 68 20  |1/16ths of path |
00004740  77 69 64 74 68 0d 01 fa  35 20 20 20 20 63 61 70  |width...5    cap|
00004750  5f 77 69 64 74 68 32 25  20 3d 20 28 63 61 70 5f  |_width2% = (cap_|
00004760  77 69 64 74 68 32 25 20  2a 20 28 70 5f 77 69 64  |width2% * (p_wid|
00004770  74 68 25 20 2f 20 31 36  29 29 0d 01 fb 35 20 20  |th% / 16))...5  |
00004780  20 20 63 61 70 5f 6c 65  6e 32 25 20 20 20 3d 20  |  cap_len2%   = |
00004790  28 63 61 70 5f 6c 65 6e  32 25 20 20 20 2a 20 28  |(cap_len2%   * (|
000047a0  70 5f 77 69 64 74 68 25  20 2f 20 31 36 29 29 0d  |p_width% / 16)).|
000047b0  01 fc 07 20 20 cd 0d 01  fd 3b 20 20 e7 20 63 61  |...  ....;  . ca|
000047c0  70 5f 77 69 64 74 68 32  25 20 3e 20 63 61 70 5f  |p_width2% > cap_|
000047d0  77 69 64 74 68 25 20 8c  20 63 61 70 5f 77 69 64  |width% . cap_wid|
000047e0  74 68 25 20 3d 20 63 61  70 5f 77 69 64 74 68 32  |th% = cap_width2|
000047f0  25 0d 01 fe 39 20 20 e7  20 63 61 70 5f 6c 65 6e  |%...9  . cap_len|
00004800  32 25 20 20 20 3e 20 63  61 70 5f 6c 65 6e 25 20  |2%   > cap_len% |
00004810  20 20 8c 20 63 61 70 5f  6c 65 6e 25 20 20 20 3d  |  . cap_len%   =|
00004820  20 63 61 70 5f 6c 65 6e  32 25 0d 01 ff 41 20 20  | cap_len2%...A  |
00004830  f4 20 50 52 4f 43 73 68  65 6c 6c 5f 54 72 61 63  |. PROCshell_Trac|
00004840  65 66 30 28 22 44 45 42  55 47 3a 3a 20 63 61 70  |ef0("DEBUG:: cap|
00004850  5f 77 69 64 74 68 25 20  3d 20 22 2b 53 54 52 24  |_width% = "+STR$|
00004860  63 61 70 5f 77 69 64 74  68 25 29 0d 02 00 3f 20  |cap_width%)...? |
00004870  20 f4 20 50 52 4f 43 73  68 65 6c 6c 5f 54 72 61  | . PROCshell_Tra|
00004880  63 65 66 30 28 22 44 45  42 55 47 3a 3a 20 63 61  |cef0("DEBUG:: ca|
00004890  70 5f 6c 65 6e 25 20 20  20 3d 20 22 2b 53 54 52  |p_len%   = "+STR|
000048a0  24 63 61 70 5f 6c 65 6e  25 29 0d 02 01 05 cd 0d  |$cap_len%)......|
000048b0  02 02 04 0d 02 03 47 f2  73 68 65 6c 6c 5f 44 72  |......G.shell_Dr|
000048c0  61 77 50 75 74 57 6f 72  64 28 32 2c 62 75 66 66  |awPutWord(2,buff|
000048d0  65 72 25 29 20 20 20 20  20 20 20 20 20 20 20 20  |er%)            |
000048e0  20 20 20 3a f4 20 4f 62  6a 65 63 74 20 74 79 70  |   :. Object typ|
000048f0  65 20 32 20 28 70 61 74  68 29 0d 02 04 4f f2 73  |e 2 (path)...O.s|
00004900  68 65 6c 6c 5f 44 72 61  77 50 75 74 57 6f 72 64  |hell_DrawPutWord|
00004910  28 30 2c 62 75 66 66 65  72 25 29 20 20 20 20 20  |(0,buffer%)     |
00004920  20 20 20 20 20 20 20 20  20 20 3a f4 20 53 69 7a  |          :. Siz|
00004930  65 20 6f 66 20 6f 62 6a  65 63 74 20 28 64 75 6d  |e of object (dum|
00004940  6d 79 20 76 61 6c 75 65  29 0d 02 05 50 f2 73 68  |my value)...P.sh|
00004950  65 6c 6c 5f 44 72 61 77  50 75 74 57 6f 72 64 28  |ell_DrawPutWord(|
00004960  78 30 2d 63 61 70 5f 6c  65 6e 25 2c 62 75 66 66  |x0-cap_len%,buff|
00004970  65 72 25 29 20 20 20 20  20 3a f4 20 53 65 74 20  |er%)     :. Set |
00004980  73 69 7a 65 20 6f 66 20  62 6f 75 6e 64 69 6e 67  |size of bounding|
00004990  20 62 6f 78 20 78 6d 69  6e 0d 02 06 5b f2 73 68  | box xmin...[.sh|
000049a0  65 6c 6c 5f 44 72 61 77  50 75 74 57 6f 72 64 28  |ell_DrawPutWord(|
000049b0  79 30 2d 28 70 5f 77 69  64 74 68 25 2f 32 29 2d  |y0-(p_width%/2)-|
000049c0  63 61 70 5f 77 69 64 74  68 25 2c 62 75 66 66 65  |cap_width%,buffe|
000049d0  72 25 29 20 3a f4 20 53  65 74 20 73 69 7a 65 20  |r%) :. Set size |
000049e0  6f 66 20 62 6f 75 6e 64  69 6e 67 20 62 6f 78 20  |of bounding box |
000049f0  79 6d 69 6e 0d 02 07 50  f2 73 68 65 6c 6c 5f 44  |ymin...P.shell_D|
00004a00  72 61 77 50 75 74 57 6f  72 64 28 78 31 2b 63 61  |rawPutWord(x1+ca|
00004a10  70 5f 6c 65 6e 25 2c 62  75 66 66 65 72 25 29 20  |p_len%,buffer%) |
00004a20  20 20 20 20 3a f4 20 53  65 74 20 73 69 7a 65 20  |    :. Set size |
00004a30  6f 66 20 62 6f 75 6e 64  69 6e 67 20 62 6f 78 20  |of bounding box |
00004a40  78 6d 61 78 0d 02 08 5b  f2 73 68 65 6c 6c 5f 44  |xmax...[.shell_D|
00004a50  72 61 77 50 75 74 57 6f  72 64 28 79 31 2b 28 70  |rawPutWord(y1+(p|
00004a60  5f 77 69 64 74 68 25 2f  32 29 2b 63 61 70 5f 77  |_width%/2)+cap_w|
00004a70  69 64 74 68 25 2c 62 75  66 66 65 72 25 29 20 3a  |idth%,buffer%) :|
00004a80  f4 20 53 65 74 20 73 69  7a 65 20 6f 66 20 62 6f  |. Set size of bo|
00004a90  75 6e 64 69 6e 67 20 62  6f 78 20 79 6d 61 78 0d  |unding box ymax.|
00004aa0  02 09 4f f2 73 68 65 6c  6c 5f 44 72 61 77 55 70  |..O.shell_DrawUp|
00004ab0  64 61 74 65 42 6f 75 6e  64 73 28 62 75 66 66 65  |dateBounds(buffe|
00004ac0  72 25 2c 78 30 2c 79 30  2c 78 31 2c 79 31 29 3a  |r%,x0,y0,x1,y1):|
00004ad0  f4 20 55 70 64 61 74 65  20 44 72 61 77 46 69 6c  |. Update DrawFil|
00004ae0  65 20 62 6f 75 6e 64 69  6e 67 20 62 6f 78 0d 02  |e bounding box..|
00004af0  0a 51 f2 73 68 65 6c 6c  5f 44 72 61 77 50 75 74  |.Q.shell_DrawPut|
00004b00  57 6f 72 64 28 62 75 66  66 65 72 25 21 32 34 2c  |Word(buffer%!24,|
00004b10  62 75 66 66 65 72 25 29  20 20 20 20 20 20 3a f4  |buffer%)      :.|
00004b20  20 46 69 6c 6c 20 63 6f  6c 6f 75 72 20 28 2d 31  | Fill colour (-1|
00004b30  20 3d 20 64 6f 20 6e 6f  74 20 66 69 6c 6c 29 0d  | = do not fill).|
00004b40  02 0b 50 f2 73 68 65 6c  6c 5f 44 72 61 77 50 75  |..P.shell_DrawPu|
00004b50  74 57 6f 72 64 28 62 75  66 66 65 72 25 21 32 30  |tWord(buffer%!20|
00004b60  2c 62 75 66 66 65 72 25  29 20 20 20 20 20 20 3a  |,buffer%)      :|
00004b70  f4 20 50 61 74 68 20 63  6f 6c 6f 75 72 20 28 2d  |. Path colour (-|
00004b80  31 20 3d 20 6e 6f 20 6f  75 74 6c 69 6e 65 29 0d  |1 = no outline).|
00004b90  02 0c 3d f2 73 68 65 6c  6c 5f 44 72 61 77 50 75  |..=.shell_DrawPu|
00004ba0  74 57 6f 72 64 28 62 75  66 66 65 72 25 21 33 32  |tWord(buffer%!32|
00004bb0  2c 62 75 66 66 65 72 25  29 20 20 20 20 20 20 3a  |,buffer%)      :|
00004bc0  f4 20 50 61 74 68 20 77  69 64 74 68 0d 02 0d 3d  |. Path width...=|
00004bd0  f2 73 68 65 6c 6c 5f 44  72 61 77 50 75 74 57 6f  |.shell_DrawPutWo|
00004be0  72 64 28 73 74 79 6c 65  5f 62 6c 6b 25 21 30 2c  |rd(style_blk%!0,|
00004bf0  62 75 66 66 65 72 25 29  20 20 20 20 3a f4 20 53  |buffer%)    :. S|
00004c00  74 79 6c 65 20 77 6f 72  64 0d 02 0e 24 e7 20 28  |tyle word...$. (|
00004c10  73 74 79 6c 65 5f 62 6c  6b 25 3f 30 20 80 20 31  |style_blk%?0 . 1|
00004c20  20 3c 3c 20 37 29 20 3c  3e 20 30 20 8c 0d 02 0f  | << 7) <> 0 ....|
00004c30  4a 20 20 f2 73 68 65 6c  6c 5f 44 72 61 77 50 75  |J  .shell_DrawPu|
00004c40  74 57 6f 72 64 28 73 74  79 6c 65 5f 62 6c 6b 25  |tWord(style_blk%|
00004c50  21 30 34 2c 62 75 66 66  65 72 25 29 20 3a f4 20  |!04,buffer%) :. |
00004c60  4f 66 66 73 65 74 20 74  6f 20 70 61 74 74 65 72  |Offset to patter|
00004c70  6e 20 73 74 61 72 74 0d  02 10 4c 20 20 f2 73 68  |n start...L  .sh|
00004c80  65 6c 6c 5f 44 72 61 77  50 75 74 57 6f 72 64 28  |ell_DrawPutWord(|
00004c90  73 74 79 6c 65 5f 62 6c  6b 25 21 30 38 2c 62 75  |style_blk%!08,bu|
00004ca0  66 66 65 72 25 29 20 3a  f4 20 4e 72 20 6f 66 20  |ffer%) :. Nr of |
00004cb0  65 6c 65 6d 65 6e 74 73  20 69 6e 20 70 61 74 74  |elements in patt|
00004cc0  65 72 6e 0d 02 11 49 20  20 f2 73 68 65 6c 6c 5f  |ern...I  .shell_|
00004cd0  44 72 61 77 50 75 74 57  6f 72 64 28 73 74 79 6c  |DrawPutWord(styl|
00004ce0  65 5f 62 6c 6b 25 21 31  32 2c 62 75 66 66 65 72  |e_blk%!12,buffer|
00004cf0  25 29 20 3a f4 20 4c 65  6e 67 74 68 20 6f 66 20  |%) :. Length of |
00004d00  64 61 73 68 20 65 6c 65  6d 65 6e 74 0d 02 12 05  |dash element....|
00004d10  cd 0d 02 13 40 f2 73 68  65 6c 6c 5f 44 72 61 77  |....@.shell_Draw|
00004d20  50 75 74 57 6f 72 64 28  30 32 2c 62 75 66 66 65  |PutWord(02,buffe|
00004d30  72 25 29 20 20 20 20 20  20 20 20 20 20 20 20 20  |r%)             |
00004d40  20 3a f4 20 41 62 73 6f  6c 75 74 65 20 6d 6f 76  | :. Absolute mov|
00004d50  65 0d 02 14 3a f2 73 68  65 6c 6c 5f 44 72 61 77  |e...:.shell_Draw|
00004d60  50 75 74 57 6f 72 64 28  78 30 2c 62 75 66 66 65  |PutWord(x0,buffe|
00004d70  72 25 29 20 20 20 20 20  20 20 20 20 20 20 20 20  |r%)             |
00004d80  20 3a f4 20 78 20 73 74  61 72 74 0d 02 15 3a f2  | :. x start...:.|
00004d90  73 68 65 6c 6c 5f 44 72  61 77 50 75 74 57 6f 72  |shell_DrawPutWor|
00004da0  64 28 79 30 2c 62 75 66  66 65 72 25 29 20 20 20  |d(y0,buffer%)   |
00004db0  20 20 20 20 20 20 20 20  20 20 20 3a f4 20 79 20  |           :. y |
00004dc0  73 74 61 72 74 0d 02 16  4c f2 73 68 65 6c 6c 5f  |start...L.shell_|
00004dd0  44 72 61 77 50 75 74 57  6f 72 64 28 30 38 2c 62  |DrawPutWord(08,b|
00004de0  75 66 66 65 72 25 29 20  20 20 20 20 20 20 20 20  |uffer%)         |
00004df0  20 20 20 20 20 3a f4 20  44 72 61 77 20 74 6f 20  |     :. Draw to |
00004e00  61 62 73 6f 6c 75 74 65  20 70 6f 73 69 74 69 6f  |absolute positio|
00004e10  6e 0d 02 17 3b f2 73 68  65 6c 6c 5f 44 72 61 77  |n...;.shell_Draw|
00004e20  50 75 74 57 6f 72 64 28  78 31 2c 62 75 66 66 65  |PutWord(x1,buffe|
00004e30  72 25 29 20 20 20 20 20  20 20 20 20 20 20 20 20  |r%)             |
00004e40  20 3a f4 20 78 20 66 69  6e 69 73 68 0d 02 18 3b  | :. x finish...;|
00004e50  f2 73 68 65 6c 6c 5f 44  72 61 77 50 75 74 57 6f  |.shell_DrawPutWo|
00004e60  72 64 28 79 31 2c 62 75  66 66 65 72 25 29 20 20  |rd(y1,buffer%)  |
00004e70  20 20 20 20 20 20 20 20  20 20 20 20 3a f4 20 79  |            :. y|
00004e80  20 66 69 6e 69 73 68 0d  02 19 3e f2 73 68 65 6c  | finish...>.shel|
00004e90  6c 5f 44 72 61 77 50 75  74 57 6f 72 64 28 30 30  |l_DrawPutWord(00|
00004ea0  2c 62 75 66 66 65 72 25  29 20 20 20 20 20 20 20  |,buffer%)       |
00004eb0  20 20 20 20 20 20 20 3a  f4 20 45 6e 64 20 6f 66  |       :. End of|
00004ec0  20 70 61 74 68 0d 02 1a  4a 21 28 62 75 66 66 65  | path...J!(buffe|
00004ed0  72 25 20 2b 20 73 74 61  72 74 25 20 2b 20 34 29  |r% + start% + 4)|
00004ee0  20 3d 20 62 75 66 66 65  72 25 21 38 20 2d 20 73  | = buffer%!8 - s|
00004ef0  74 61 72 74 25 20 20 20  3a f4 20 53 74 6f 72 65  |tart%   :. Store|
00004f00  20 73 69 7a 65 20 6f 66  20 6f 62 6a 65 63 74 0d  | size of object.|
00004f10  02 1b 05 e1 0d 02 1c 05  3a 0d 02 1d 1d 2a 7c 53  |........:....*|S|
00004f20  74 6f 70 20 50 52 4f 43  73 68 65 6c 6c 5f 44 72  |top PROCshell_Dr|
00004f30  61 77 4c 69 6e 65 0d 02  1e 04 0d 02 1f 21 2a 7c  |awLine.......!*||
00004f40  53 74 61 72 74 20 50 52  4f 43 73 68 65 6c 6c 5f  |Start PROCshell_|
00004f50  44 72 61 77 53 65 74 46  6f 6e 74 0d 02 20 27 dd  |DrawSetFont.. '.|
00004f60  20 f2 73 68 65 6c 6c 5f  44 72 61 77 53 65 74 46  | .shell_DrawSetF|
00004f70  6f 6e 74 28 62 75 66 66  65 72 25 2c 66 6f 6e 74  |ont(buffer%,font|
00004f80  24 29 0d 02 21 33 ea 20  66 74 5f 73 74 61 72 74  |$)..!3. ft_start|
00004f90  25 2c 66 74 5f 65 6e 64  25 2c 66 5f 68 61 6e 64  |%,ft_end%,f_hand|
00004fa0  6c 65 25 2c 70 74 72 25  2c 6e 61 6d 65 24 2c 66  |le%,ptr%,name$,f|
00004fb0  6f 75 6e 64 25 0d 02 22  11 66 6f 75 6e 64 25 20  |ound%..".found% |
00004fc0  20 20 20 3d 20 a3 0d 02  23 11 66 5f 68 61 6e 64  |   = ...#.f_hand|
00004fd0  6c 65 25 20 3d 20 30 0d  02 24 12 e7 20 66 6f 6e  |le% = 0..$.. fon|
00004fe0  74 24 20 3d 20 22 22 20  8c 0d 02 25 2d 20 20 21  |t$ = "" ...%-  !|
00004ff0  62 75 66 66 65 72 25 20  3d 20 30 20 3a f4 20 46  |buffer% = 0 :. F|
00005000  6f 6e 74 20 30 20 69 73  20 73 79 73 74 65 6d 20  |ont 0 is system |
00005010  66 6f 6e 74 2e 2e 0d 02  26 05 cc 0d 02 27 48 20  |font....&....'H |
00005020  20 f4 20 53 65 61 72 63  68 20 66 6f 6e 74 20 74  | . Search font t|
00005030  61 62 6c 65 20 74 6f 20  66 69 6e 64 20 69 6e 74  |able to find int|
00005040  65 72 6e 61 6c 20 66 6f  6e 74 20 68 61 6e 64 6c  |ernal font handl|
00005050  65 20 6f 66 20 72 65 71  75 65 73 74 65 64 20 66  |e of requested f|
00005060  6f 6e 74 0d 02 28 1c 20  20 66 74 5f 73 74 61 72  |ont..(.  ft_star|
00005070  74 25 20 3d 20 62 75 66  66 65 72 25 21 34 34 0d  |t% = buffer%!44.|
00005080  02 29 50 20 20 e7 20 66  74 5f 73 74 61 72 74 25  |.)P  . ft_start%|
00005090  20 3d 20 2d 31 20 8c 20  85 20 39 39 2c 22 4e 6f  | = -1 . . 99,"No|
000050a0  20 66 6f 6e 74 73 20 68  61 76 65 20 62 65 65 6e  | fonts have been|
000050b0  20 69 6e 69 74 69 61 6c  69 73 65 64 20 66 6f 72  | initialised for|
000050c0  20 74 68 69 73 20 64 72  61 77 66 69 6c 65 22 0d  | this drawfile".|
000050d0  02 2a 46 20 20 66 74 5f  73 74 61 72 74 25 20 2b  |.*F  ft_start% +|
000050e0  3d 20 62 75 66 66 65 72  25 20 3a f4 20 4e 6f 77  |= buffer% :. Now|
000050f0  20 70 6f 69 6e 74 73 20  74 6f 20 73 74 61 72 74  | points to start|
00005100  20 6f 66 20 66 6f 6e 74  20 74 61 62 6c 65 20 6f  | of font table o|
00005110  62 6a 65 63 74 0d 02 2b  4b 20 20 f4 20 50 52 4f  |bject..+K  . PRO|
00005120  43 73 68 65 6c 6c 5f 54  72 61 63 65 66 30 28 22  |Cshell_Tracef0("|
00005130  44 45 42 55 47 3a 3a 66  6f 6e 74 20 74 61 62 6c  |DEBUG::font tabl|
00005140  65 20 73 69 7a 65 20 69  73 20 3d 20 22 2b 53 54  |e size is = "+ST|
00005150  52 24 28 66 74 5f 73 74  61 72 74 25 21 34 29 29  |R$(ft_start%!4))|
00005160  0d 02 2c 2a 20 20 66 74  5f 65 6e 64 25 20 20 20  |..,*  ft_end%   |
00005170  20 3d 20 66 74 5f 73 74  61 72 74 25 21 34 20 2b  | = ft_start%!4 +|
00005180  20 66 74 5f 73 74 61 72  74 25 0d 02 2d 20 20 20  | ft_start%..-   |
00005190  70 74 72 25 20 20 20 20  20 20 20 3d 20 66 74 5f  |ptr%       = ft_|
000051a0  73 74 61 72 74 25 20 2b  20 38 0d 02 2e 07 20 20  |start% + 8....  |
000051b0  f5 0d 02 2f 26 20 20 20  20 66 74 5f 68 61 6e 64  |.../&    ft_hand|
000051c0  6c 65 25 20 3d 20 3f 70  74 72 25 20 3a 20 70 74  |le% = ?ptr% : pt|
000051d0  72 25 20 2b 3d 20 31 0d  02 30 26 20 20 20 20 6e  |r% += 1..0&    n|
000051e0  61 6d 65 24 20 3d 20 a4  73 68 65 6c 6c 5f 47 65  |ame$ = .shell_Ge|
000051f0  74 53 74 72 69 6e 67 28  70 74 72 25 29 0d 02 31  |tString(ptr%)..1|
00005200  56 20 20 20 20 f4 20 50  52 4f 43 73 68 65 6c 6c  |V    . PROCshell|
00005210  5f 54 72 61 63 65 66 30  28 22 44 45 42 55 47 3a  |_Tracef0("DEBUG:|
00005220  3a 66 6f 6e 74 20 6e 61  6d 65 20 66 6f 75 6e 64  |:font name found|
00005230  20 28 22 2b 53 54 52 24  66 74 5f 68 61 6e 64 6c  | ("+STR$ft_handl|
00005240  65 25 2b 22 29 20 27 22  2b 6e 61 6d 65 24 2b 22  |e%+") '"+name$+"|
00005250  27 22 29 0d 02 32 1a 20  20 20 20 70 74 72 25 20  |'")..2.    ptr% |
00005260  2b 3d 20 a9 6e 61 6d 65  24 20 2b 20 31 0d 02 33  |+= .name$ + 1..3|
00005270  18 20 20 20 20 c8 95 20  70 74 72 25 20 83 20 34  |.    .. ptr% . 4|
00005280  20 3c 3e 20 30 0d 02 34  12 20 20 20 20 20 20 70  | <> 0..4.      p|
00005290  74 72 25 20 2b 3d 31 0d  02 35 09 20 20 20 20 ce  |tr% +=1..5.    .|
000052a0  0d 02 36 19 20 20 20 20  e7 20 6e 61 6d 65 24 20  |..6.    . name$ |
000052b0  3d 20 66 6f 6e 74 24 20  8c 0d 02 37 29 20 20 20  |= font$ ...7)   |
000052c0  20 20 20 66 6f 75 6e 64  25 20 3d 20 b9 20 3a 20  |   found% = . : |
000052d0  70 74 72 25 20 3d 20 66  74 5f 65 6e 64 25 20 2b  |ptr% = ft_end% +|
000052e0  20 31 0d 02 38 52 20 20  20 20 20 20 f4 20 50 52  | 1..8R      . PR|
000052f0  4f 43 73 68 65 6c 6c 5f  54 72 61 63 65 66 30 28  |OCshell_Tracef0(|
00005300  22 44 45 42 55 47 3a 3a  66 6f 6e 74 20 6e 61 6d  |"DEBUG::font nam|
00005310  65 20 6d 61 74 63 68 2c  20 68 61 6e 64 6c 65 20  |e match, handle |
00005320  69 73 20 22 2b 53 54 52  24 66 74 5f 68 61 6e 64  |is "+STR$ft_hand|
00005330  6c 65 25 29 0d 02 39 09  20 20 20 20 cc 0d 02 3a  |le%)..9.    ...:|
00005340  30 20 20 20 20 20 20 f4  20 50 52 4f 43 73 68 65  |0      . PROCshe|
00005350  6c 6c 5f 54 72 61 63 65  66 30 28 22 44 45 42 55  |ll_Tracef0("DEBU|
00005360  47 3a 3a 4e 4f 20 4d 41  54 43 48 22 29 0d 02 3b  |G::NO MATCH")..;|
00005370  09 20 20 20 20 cd 0d 02  3c 17 20 20 fd 20 70 74  |.    ...<.  . pt|
00005380  72 25 20 3e 3d 20 66 74  5f 65 6e 64 25 0d 02 3d  |r% >= ft_end%..=|
00005390  05 cd 0d 02 3e 0e e7 20  66 6f 75 6e 64 25 20 8c  |....>.. found% .|
000053a0  0d 02 3f 1b 20 20 21 62  75 66 66 65 72 25 20 3d  |..?.  !buffer% =|
000053b0  20 66 74 5f 68 61 6e 64  6c 65 25 0d 02 40 4a 20  | ft_handle%..@J |
000053c0  20 f4 20 50 52 4f 43 73  68 65 6c 6c 5f 54 72 61  | . PROCshell_Tra|
000053d0  63 65 66 30 28 22 44 45  42 55 47 3a 3a 53 65 74  |cef0("DEBUG::Set|
000053e0  74 69 6e 67 20 66 6f 6e  74 20 68 61 6e 64 6c 65  |ting font handle|
000053f0  20 74 6f 20 22 2b 53 54  52 24 28 21 62 75 66 66  | to "+STR$(!buff|
00005400  65 72 25 29 29 0d 02 41  05 cc 0d 02 42 36 20 20  |er%))..A....B6  |
00005410  85 20 39 39 2c 22 46 6f  6e 74 20 27 22 2b 66 6f  |. 99,"Font '"+fo|
00005420  6e 74 24 2b 22 27 20 68  61 73 20 6e 6f 74 20 62  |nt$+"' has not b|
00005430  65 65 6e 20 69 6e 69 74  69 61 6c 69 73 65 64 22  |een initialised"|
00005440  0d 02 43 05 cd 0d 02 44  05 e1 0d 02 45 05 3a 0d  |..C....D....E.:.|
00005450  02 46 20 2a 7c 53 74 6f  70 20 50 52 4f 43 73 68  |.F *|Stop PROCsh|
00005460  65 6c 6c 5f 44 72 61 77  53 65 74 46 6f 6e 74 0d  |ell_DrawSetFont.|
00005470  02 47 04 0d 02 48 22 2a  7c 53 74 61 72 74 20 50  |.G...H"*|Start P|
00005480  52 4f 43 73 68 65 6c 6c  5f 44 72 61 77 49 6e 69  |ROCshell_DrawIni|
00005490  74 46 6f 6e 74 0d 02 49  2f dd 20 f2 73 68 65 6c  |tFont..I/. .shel|
000054a0  6c 5f 44 72 61 77 49 6e  69 74 46 6f 6e 74 28 f8  |l_DrawInitFont(.|
000054b0  20 62 75 66 66 65 72 25  2c 66 6f 6e 74 5f 6e 61  | buffer%,font_na|
000054c0  6d 65 24 29 0d 02 4a 1f  ea 20 66 74 5f 73 74 61  |me$)..J.. ft_sta|
000054d0  72 74 25 2c 70 74 72 25  2c 64 65 66 5f 73 74 61  |rt%,ptr%,def_sta|
000054e0  72 74 25 0d 02 4b 30 e7  20 a4 73 68 65 6c 6c 5f  |rt%..K0. .shell_|
000054f0  46 6f 6e 74 49 73 41 76  61 69 6c 61 62 6c 65 28  |FontIsAvailable(|
00005500  66 6f 6e 74 5f 6e 61 6d  65 24 2c 31 32 2c 31 32  |font_name$,12,12|
00005510  29 20 8c 0d 02 4c 36 20  20 62 75 66 66 65 72 25  |) ...L6  buffer%|
00005520  20 20 20 20 3d 20 a4 73  68 65 6c 6c 5f 48 65 61  |    = .shell_Hea|
00005530  70 42 6c 6f 63 6b 45 78  74 65 6e 64 28 62 75 66  |pBlockExtend(buf|
00005540  66 65 72 25 2c 32 35 36  29 0d 02 4d 42 20 20 70  |fer%,256)..MB  p|
00005550  74 72 25 20 20 20 20 20  20 20 3d 20 62 75 66 66  |tr%       = buff|
00005560  65 72 25 20 2b 20 62 75  66 66 65 72 25 21 38 20  |er% + buffer%!8 |
00005570  20 20 3a f4 20 4e 65 78  74 20 61 64 64 72 65 73  |  :. Next addres|
00005580  73 20 69 6e 20 66 69 6c  65 2e 2e 0d 02 4e 17 20  |s in file....N. |
00005590  20 64 65 66 5f 73 74 61  72 74 25 20 3d 20 70 74  | def_start% = pt|
000055a0  72 25 0d 02 4f 19 20 20  e7 20 62 75 66 66 65 72  |r%..O.  . buffer|
000055b0  25 21 34 30 20 3d 20 2d  31 20 8c 0d 02 50 4a 20  |%!40 = -1 ...PJ |
000055c0  20 20 20 f4 20 54 68 69  73 20 72 6f 75 74 69 6e  |   . This routin|
000055d0  65 20 68 61 73 6e 27 74  20 62 65 65 6e 20 63 61  |e hasn't been ca|
000055e0  6c 6c 65 64 20 62 65 66  6f 72 65 2c 20 73 6f 20  |lled before, so |
000055f0  63 72 65 61 74 65 20 6e  65 77 20 66 6f 6e 74 20  |create new font |
00005600  74 61 62 6c 65 0d 02 51  54 20 20 20 20 62 75 66  |table..QT    buf|
00005610  66 65 72 25 21 34 34 20  3d 20 62 75 66 66 65 72  |fer%!44 = buffer|
00005620  25 21 38 20 20 20 20 20  20 20 20 20 20 20 3a f4  |%!8           :.|
00005630  20 53 74 6f 72 65 20 66  69 6c 65 20 6f 66 66 73  | Store file offs|
00005640  65 74 20 74 6f 20 73 74  61 72 74 20 6f 66 20 66  |et to start of f|
00005650  6f 6e 74 20 74 61 62 6c  65 0d 02 52 44 20 20 20  |ont table..RD   |
00005660  20 21 70 74 72 25 20 3d  20 30 3a 70 74 72 25 20  | !ptr% = 0:ptr% |
00005670  2b 3d 20 34 20 20 20 20  20 20 20 20 20 20 20 20  |+= 4            |
00005680  20 20 3a f4 20 43 72 65  61 74 65 20 66 6f 6e 74  |  :. Create font|
00005690  20 74 61 62 6c 65 20 6f  62 6a 65 63 74 0d 02 53  | table object..S|
000056a0  44 20 20 20 20 21 70 74  72 25 20 3d 20 30 3a 70  |D    !ptr% = 0:p|
000056b0  74 72 25 20 2b 3d 20 34  20 20 20 20 20 20 20 20  |tr% += 4        |
000056c0  20 20 20 20 20 20 3a f4  20 53 6b 69 70 20 6f 62  |      :. Skip ob|
000056d0  6a 65 63 74 20 73 69 7a  65 20 66 6f 72 20 6e 6f  |ject size for no|
000056e0  77 0d 02 54 3f 20 20 20  20 62 75 66 66 65 72 25  |w..T?    buffer%|
000056f0  21 34 30 20 3d 20 30 20  20 20 20 20 20 20 20 20  |!40 = 0         |
00005700  20 20 20 20 20 20 20 20  20 20 3a f4 20 4e 72 20  |          :. Nr |
00005710  6f 66 20 64 65 66 69 6e  65 64 20 66 6f 6e 74 73  |of defined fonts|
00005720  0d 02 55 07 20 20 cd 0d  02 56 4a 20 20 66 74 5f  |..U.  ...VJ  ft_|
00005730  73 74 61 72 74 25 20 3d  20 62 75 66 66 65 72 25  |start% = buffer%|
00005740  20 2b 20 62 75 66 66 65  72 25 21 34 34 20 20 20  | + buffer%!44   |
00005750  3a f4 20 53 74 61 72 74  20 6f 66 20 66 6f 6e 74  |:. Start of font|
00005760  20 74 61 62 6c 65 20 64  65 66 69 6e 69 74 69 6f  | table definitio|
00005770  6e 0d 02 57 40 20 20 62  75 66 66 65 72 25 21 34  |n..W@  buffer%!4|
00005780  30 20 2b 3d 20 31 20 20  20 20 20 20 20 20 20 20  |0 += 1          |
00005790  20 20 20 20 20 20 20 20  20 20 3a f4 20 49 6e 63  |          :. Inc|
000057a0  72 65 6d 65 6e 74 20 66  6f 6e 74 20 63 6f 75 6e  |rement font coun|
000057b0  74 0d 02 58 54 20 20 3f  70 74 72 25 20 3d 20 62  |t..XT  ?ptr% = b|
000057c0  75 66 66 65 72 25 21 34  30 20 20 20 20 20 20 20  |uffer%!40       |
000057d0  20 20 20 20 20 20 20 20  20 20 3a f4 20 53 74 6f  |          :. Sto|
000057e0  72 65 20 69 6e 74 65 72  6e 61 6c 20 66 6f 6e 74  |re internal font|
000057f0  20 68 61 6e 64 6c 65 20  28 73 74 61 72 74 73 20  | handle (starts |
00005800  61 74 20 31 29 0d 02 59  46 20 20 24 28 70 74 72  |at 1)..YF  $(ptr|
00005810  25 2b 31 29 20 3d 20 66  6f 6e 74 5f 6e 61 6d 65  |%+1) = font_name|
00005820  24 20 20 20 20 20 20 20  20 20 20 20 20 20 3a f4  |$             :.|
00005830  20 53 74 6f 72 65 20 74  65 78 74 75 61 6c 20 6e  | Store textual n|
00005840  61 6d 65 20 6f 66 20 66  6f 6e 74 0d 02 5a 1f 20  |ame of font..Z. |
00005850  20 70 74 72 25 20 2b 3d  20 a9 28 66 6f 6e 74 5f  | ptr% += .(font_|
00005860  6e 61 6d 65 24 29 20 2b  20 32 0d 02 5b 47 20 20  |name$) + 2..[G  |
00005870  3f 28 70 74 72 25 20 2d  20 31 29 20 3d 20 30 20  |?(ptr% - 1) = 0 |
00005880  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005890  20 20 20 3a f4 20 54 65  72 6d 69 6e 61 74 65 20  |   :. Terminate |
000058a0  6e 61 6d 65 20 77 69 74  68 20 43 48 52 24 28 30  |name with CHR$(0|
000058b0  29 0d 02 5c 52 20 20 c8  95 20 70 74 72 25 20 83  |)..\R  .. ptr% .|
000058c0  20 34 20 3c 3e 20 30 20  20 20 20 20 20 20 20 20  | 4 <> 0         |
000058d0  20 20 20 20 20 3a f4 20  50 61 64 20 77 69 74 68  |     :. Pad with|
000058e0  20 74 72 61 69 6c 69 6e  67 20 73 70 61 63 65 73  | trailing spaces|
000058f0  20 74 6f 20 61 20 77 6f  72 64 20 62 6f 75 6e 64  | to a word bound|
00005900  61 72 79 0d 02 5d 11 20  20 20 20 3f 70 74 72 25  |ary..].    ?ptr%|
00005910  20 3d 20 30 0d 02 5e 11  20 20 20 20 70 74 72 25  | = 0..^.    ptr%|
00005920  20 2b 3d 20 31 0d 02 5f  07 20 20 ce 0d 02 60 4c  | += 1.._.  ...`L|
00005930  20 20 66 74 5f 73 74 61  72 74 25 21 30 34 20 20  |  ft_start%!04  |
00005940  20 3d 20 70 74 72 25 20  2d 20 66 74 5f 73 74 61  | = ptr% - ft_sta|
00005950  72 74 25 20 20 3a f4 20  55 70 64 61 74 65 20 73  |rt%  :. Update s|
00005960  69 7a 65 20 6f 66 20 66  6f 6e 74 20 74 61 62 6c  |ize of font tabl|
00005970  65 20 6f 62 6a 65 63 74  0d 02 61 43 20 20 62 75  |e object..aC  bu|
00005980  66 66 65 72 25 21 30 38  20 2b 3d 20 70 74 72 25  |ffer%!08 += ptr%|
00005990  20 2d 20 64 65 66 5f 73  74 61 72 74 25 20 20 20  | - def_start%   |
000059a0  20 3a f4 20 55 70 64 61  74 65 20 73 69 7a 65 20  | :. Update size |
000059b0  6f 66 20 44 72 61 77 46  69 6c 65 0d 02 62 23 20  |of DrawFile..b# |
000059c0  20 f4 20 46 69 6e 61 6c  6c 79 20 73 68 72 69 6e  | . Finally shrin|
000059d0  6b 20 68 65 61 70 20 62  6c 6f 63 6b 2e 2e 0d 02  |k heap block....|
000059e0  63 48 20 20 62 75 66 66  65 72 25 20 3d 20 a4 73  |cH  buffer% = .s|
000059f0  68 65 6c 6c 5f 48 65 61  70 42 6c 6f 63 6b 45 78  |hell_HeapBlockEx|
00005a00  74 65 6e 64 28 62 75 66  66 65 72 25 2c 28 70 74  |tend(buffer%,(pt|
00005a10  72 25 20 2d 20 66 74 5f  73 74 61 72 74 25 29 20  |r% - ft_start%) |
00005a20  2d 20 32 35 36 29 0d 02  64 05 cc 0d 02 65 68 20  |- 256)..d....eh |
00005a30  20 76 6f 69 64 25 20 3d  20 a4 73 68 65 6c 6c 5f  | void% = .shell_|
00005a40  4d 65 73 73 61 67 65 57  69 6e 64 6f 77 28 a4 73  |MessageWindow(.s|
00005a50  68 65 6c 6c 5f 4d 65 73  73 61 67 65 4f 6e 65 41  |hell_MessageOneA|
00005a60  72 67 28 22 53 48 45 4c  4c 4d 53 47 33 31 22 2c  |rg("SHELLMSG31",|
00005a70  66 6f 6e 74 5f 6e 61 6d  65 24 29 2c 30 2c a4 73  |font_name$),0,.s|
00005a80  68 65 6c 6c 5f 47 65 74  41 70 70 4e 61 6d 65 2c  |hell_GetAppName,|
00005a90  22 22 29 0d 02 66 05 cd  0d 02 67 05 e1 0d 02 68  |"")..f....g....h|
00005aa0  05 3a 0d 02 69 21 2a 7c  53 74 6f 70 20 50 52 4f  |.:..i!*|Stop PRO|
00005ab0  43 73 68 65 6c 6c 5f 44  72 61 77 49 6e 69 74 46  |Cshell_DrawInitF|
00005ac0  6f 6e 74 0d 02 6a 04 0d  02 6b 24 2a 7c 53 74 61  |ont..j...k$*|Sta|
00005ad0  72 74 20 50 52 4f 43 73  68 65 6c 6c 5f 44 72 61  |rt PROCshell_Dra|
00005ae0  77 53 65 74 55 6e 69 74  73 4d 4d 0d 02 6c 24 dd  |wSetUnitsMM..l$.|
00005af0  20 f2 73 68 65 6c 6c 5f  44 72 61 77 53 65 74 55  | .shell_DrawSetU|
00005b00  6e 69 74 73 4d 4d 28 62  75 66 66 65 72 25 29 0d  |nitsMM(buffer%).|
00005b10  02 6d 1f 7c 28 62 75 66  66 65 72 25 20 2b 20 31  |.m.|(buffer% + 1|
00005b20  32 29 20 3d 20 31 38 31  34 2e 31 37 33 32 0d 02  |2) = 1814.1732..|
00005b30  6e 05 e1 0d 02 6f 05 3a  0d 02 70 23 2a 7c 53 74  |n....o.:..p#*|St|
00005b40  6f 70 20 50 52 4f 43 73  68 65 6c 6c 5f 44 72 61  |op PROCshell_Dra|
00005b50  77 53 65 74 55 6e 69 74  73 4d 4d 0d 02 71 04 0d  |wSetUnitsMM..q..|
00005b60  02 72 24 2a 7c 53 74 61  72 74 20 50 52 4f 43 73  |.r$*|Start PROCs|
00005b70  68 65 6c 6c 5f 44 72 61  77 53 65 74 55 6e 69 74  |hell_DrawSetUnit|
00005b80  73 43 4d 0d 02 73 24 dd  20 f2 73 68 65 6c 6c 5f  |sCM..s$. .shell_|
00005b90  44 72 61 77 53 65 74 55  6e 69 74 73 43 4d 28 62  |DrawSetUnitsCM(b|
00005ba0  75 66 66 65 72 25 29 0d  02 74 1f 7c 28 62 75 66  |uffer%)..t.|(buf|
00005bb0  66 65 72 25 20 2b 20 31  32 29 20 3d 20 31 38 31  |fer% + 12) = 181|
00005bc0  34 31 2e 37 33 32 0d 02  75 05 e1 0d 02 76 05 3a  |41.732..u....v.:|
00005bd0  0d 02 77 23 2a 7c 53 74  6f 70 20 50 52 4f 43 73  |..w#*|Stop PROCs|
00005be0  68 65 6c 6c 5f 44 72 61  77 53 65 74 55 6e 69 74  |hell_DrawSetUnit|
00005bf0  73 43 4d 0d 02 78 04 0d  02 79 24 2a 7c 53 74 61  |sCM..x...y$*|Sta|
00005c00  72 74 20 50 52 4f 43 73  68 65 6c 6c 5f 44 72 61  |rt PROCshell_Dra|
00005c10  77 53 65 74 55 6e 69 74  73 49 4e 0d 02 7a 24 dd  |wSetUnitsIN..z$.|
00005c20  20 f2 73 68 65 6c 6c 5f  44 72 61 77 53 65 74 55  | .shell_DrawSetU|
00005c30  6e 69 74 73 49 4e 28 62  75 66 66 65 72 25 29 0d  |nitsIN(buffer%).|
00005c40  02 7b 1b 7c 28 62 75 66  66 65 72 25 20 2b 20 31  |.{.|(buffer% + 1|
00005c50  32 29 20 3d 20 34 36 30  38 30 0d 02 7c 05 e1 0d  |2) = 46080..|...|
00005c60  02 7d 05 3a 0d 02 7e 23  2a 7c 53 74 6f 70 20 50  |.}.:..~#*|Stop P|
00005c70  52 4f 43 73 68 65 6c 6c  5f 44 72 61 77 53 65 74  |ROCshell_DrawSet|
00005c80  55 6e 69 74 73 49 4e 0d  02 7f 04 0d 02 80 24 2a  |UnitsIN.......$*|
00005c90  7c 53 74 61 72 74 20 50  52 4f 43 73 68 65 6c 6c  ||Start PROCshell|
00005ca0  5f 44 72 61 77 53 65 74  55 6e 69 74 73 4f 53 0d  |_DrawSetUnitsOS.|
00005cb0  02 81 24 dd 20 f2 73 68  65 6c 6c 5f 44 72 61 77  |..$. .shell_Draw|
00005cc0  53 65 74 55 6e 69 74 73  4f 53 28 62 75 66 66 65  |SetUnitsOS(buffe|
00005cd0  72 25 29 0d 02 82 19 7c  28 62 75 66 66 65 72 25  |r%)....|(buffer%|
00005ce0  20 2b 20 31 32 29 20 3d  20 32 35 36 0d 02 83 05  | + 12) = 256....|
00005cf0  e1 0d 02 84 05 3a 0d 02  85 23 2a 7c 53 74 6f 70  |.....:...#*|Stop|
00005d00  20 50 52 4f 43 73 68 65  6c 6c 5f 44 72 61 77 53  | PROCshell_DrawS|
00005d10  65 74 55 6e 69 74 73 4f  53 0d 02 86 04 0d 02 87  |etUnitsOS.......|
00005d20  24 2a 7c 53 74 61 72 74  20 50 52 4f 43 73 68 65  |$*|Start PROCshe|
00005d30  6c 6c 5f 44 72 61 77 53  65 74 55 6e 69 74 73 50  |ll_DrawSetUnitsP|
00005d40  54 0d 02 88 24 dd 20 f2  73 68 65 6c 6c 5f 44 72  |T...$. .shell_Dr|
00005d50  61 77 53 65 74 55 6e 69  74 73 50 54 28 62 75 66  |awSetUnitsPT(buf|
00005d60  66 65 72 25 29 0d 02 89  19 7c 28 62 75 66 66 65  |fer%)....|(buffe|
00005d70  72 25 20 2b 20 31 32 29  20 3d 20 36 34 30 0d 02  |r% + 12) = 640..|
00005d80  8a 05 e1 0d 02 8b 05 3a  0d 02 8c 23 2a 7c 53 74  |.......:...#*|St|
00005d90  6f 70 20 50 52 4f 43 73  68 65 6c 6c 5f 44 72 61  |op PROCshell_Dra|
00005da0  77 53 65 74 55 6e 69 74  73 50 54 0d 02 8d 04 0d  |wSetUnitsPT.....|
00005db0  02 8e 28 2a 7c 53 74 61  72 74 20 50 52 4f 43 73  |..(*|Start PROCs|
00005dc0  68 65 6c 6c 5f 44 72 61  77 53 65 74 50 61 74 68  |hell_DrawSetPath|
00005dd0  50 61 74 74 65 72 6e 0d  02 8f 42 dd 20 f2 73 68  |Pattern...B. .sh|
00005de0  65 6c 6c 5f 44 72 61 77  53 65 74 50 61 74 68 50  |ell_DrawSetPathP|
00005df0  61 74 74 65 72 6e 28 62  75 66 66 65 72 25 2c 64  |attern(buffer%,d|
00005e00  61 73 68 65 64 25 2c 6f  66 66 73 65 74 2c 6e 72  |ashed%,offset,nr|
00005e10  5f 65 6c 25 2c 6c 65 6e  29 0d 02 90 16 ea 20 70  |_el%,len)..... p|
00005e20  61 74 5f 62 6c 6b 25 2c  73 63 6c 5f 66 61 63 0d  |at_blk%,scl_fac.|
00005e30  02 91 19 70 61 74 5f 62  6c 6b 25 20 3d 20 62 75  |...pat_blk% = bu|
00005e40  66 66 65 72 25 21 34 38  0d 02 92 1e 73 63 6c 5f  |ffer%!48....scl_|
00005e50  66 61 63 20 20 3d 20 7c  28 62 75 66 66 65 72 25  |fac  = |(buffer%|
00005e60  20 2b 20 31 32 29 0d 02  93 24 70 61 74 5f 62 6c  | + 12)...$pat_bl|
00005e70  6b 25 3f 30 20 3d 20 70  61 74 5f 62 6c 6b 25 3f  |k%?0 = pat_blk%?|
00005e80  30 20 84 20 31 20 3c 3c  20 37 0d 02 94 13 e7 20  |0 . 1 << 7..... |
00005e90  64 61 73 68 65 64 25 20  3d 20 30 20 8c 0d 02 95  |dashed% = 0 ....|
00005ea0  26 20 20 70 61 74 5f 62  6c 6b 25 3f 30 20 3d 20  |&  pat_blk%?0 = |
00005eb0  70 61 74 5f 62 6c 6b 25  3f 30 20 82 20 31 20 3c  |pat_blk%?0 . 1 <|
00005ec0  3c 20 37 0d 02 96 05 cd  0d 02 97 22 70 61 74 5f  |< 7........"pat_|
00005ed0  62 6c 6b 25 21 30 34 20  3d 20 6f 66 66 73 65 74  |blk%!04 = offset|
00005ee0  20 2a 20 73 63 6c 5f 66  61 63 0d 02 98 18 70 61  | * scl_fac....pa|
00005ef0  74 5f 62 6c 6b 25 21 30  38 20 3d 20 6e 72 5f 65  |t_blk%!08 = nr_e|
00005f00  6c 25 0d 02 99 22 70 61  74 5f 62 6c 6b 25 21 31  |l%..."pat_blk%!1|
00005f10  32 20 3d 20 6c 65 6e 20  20 20 20 2a 20 73 63 6c  |2 = len    * scl|
00005f20  5f 66 61 63 0d 02 9a 05  e1 0d 02 9b 05 3a 0d 02  |_fac.........:..|
00005f30  9c 27 2a 7c 53 74 6f 70  20 50 52 4f 43 73 68 65  |.'*|Stop PROCshe|
00005f40  6c 6c 5f 44 72 61 77 53  65 74 50 61 74 68 50 61  |ll_DrawSetPathPa|
00005f50  74 74 65 72 6e 0d 02 9d  04 0d 02 9e 28 2a 7c 53  |ttern.......(*|S|
00005f60  74 61 72 74 20 50 52 4f  43 73 68 65 6c 6c 5f 44  |tart PROCshell_D|
00005f70  72 61 77 47 65 74 42 6f  75 6e 64 69 6e 67 42 6f  |rawGetBoundingBo|
00005f80  78 0d 02 9f 51 dd 20 f2  73 68 65 6c 6c 5f 44 72  |x...Q. .shell_Dr|
00005f90  61 77 47 65 74 42 6f 75  6e 64 69 6e 67 42 6f 78  |awGetBoundingBox|
00005fa0  28 62 75 66 66 65 72 25  2c f8 20 78 70 6f 73 2c  |(buffer%,. xpos,|
00005fb0  f8 20 79 70 6f 73 2c f8  20 77 69 64 74 68 2c f8  |. ypos,. width,.|
00005fc0  20 68 65 69 67 68 74 2c  6f 73 5f 75 6e 69 74 73  | height,os_units|
00005fd0  25 29 0d 02 a0 41 ea 20  64 72 61 77 66 69 6c 65  |%)...A. drawfile|
00005fe0  5f 73 74 61 72 74 25 2c  64 72 61 77 66 69 6c 65  |_start%,drawfile|
00005ff0  5f 73 69 7a 65 25 2c 62  62 6f 78 5f 62 6c 6b 25  |_size%,bbox_blk%|
00006000  2c 74 72 61 6e 73 5f 6d  61 74 72 69 78 25 2c 64  |,trans_matrix%,d|
00006010  69 76 25 0d 02 a1 2b 64  72 61 77 66 69 6c 65 5f  |iv%...+drawfile_|
00006020  73 74 61 72 74 25 20 20  3d 20 62 75 66 66 65 72  |start%  = buffer|
00006030  25 20 2b 20 62 75 66 66  65 72 25 21 34 20 0d 02  |% + buffer%!4 ..|
00006040  a2 2c 64 72 61 77 66 69  6c 65 5f 73 69 7a 65 25  |.,drawfile_size%|
00006050  20 20 20 3d 20 62 75 66  66 65 72 25 21 38 20 2d  |   = buffer%!8 -|
00006060  20 62 75 66 66 65 72 25  21 34 0d 02 a3 21 74 72  | buffer%!4...!tr|
00006070  61 6e 73 5f 6d 61 74 72  69 78 25 20 20 20 20 3d  |ans_matrix%    =|
00006080  20 62 75 66 66 65 72 25  21 35 32 0d 02 a4 18 74  | buffer%!52....t|
00006090  72 61 6e 73 5f 6d 61 74  72 69 78 25 21 32 30 20  |rans_matrix%!20 |
000060a0  3d 20 30 0d 02 a5 18 74  72 61 6e 73 5f 6d 61 74  |= 0....trans_mat|
000060b0  72 69 78 25 21 32 34 20  3d 20 30 0d 02 a6 29 62  |rix%!24 = 0...)b|
000060c0  62 6f 78 5f 62 6c 6b 25  20 3d 20 a4 73 68 65 6c  |box_blk% = .shel|
000060d0  6c 5f 48 65 61 70 42 6c  6f 63 6b 46 65 74 63 68  |l_HeapBlockFetch|
000060e0  28 31 36 29 0d 02 a7 2c  e7 20 6f 73 5f 75 6e 69  |(16)...,. os_uni|
000060f0  74 73 25 20 3c 3e 20 30  20 8c 20 64 69 76 25 20  |ts% <> 0 . div% |
00006100  3d 20 32 35 36 20 8b 20  64 69 76 25 20 3d 20 31  |= 256 . div% = 1|
00006110  0d 02 a8 4f c8 99 20 22  44 72 61 77 46 69 6c 65  |...O.. "DrawFile|
00006120  5f 42 42 6f 78 22 2c 30  2c 64 72 61 77 66 69 6c  |_BBox",0,drawfil|
00006130  65 5f 73 74 61 72 74 25  2c 64 72 61 77 66 69 6c  |e_start%,drawfil|
00006140  65 5f 73 69 7a 65 25 2c  74 72 61 6e 73 5f 6d 61  |e_size%,trans_ma|
00006150  74 72 69 78 25 2c 62 62  6f 78 5f 62 6c 6b 25 0d  |trix%,bbox_blk%.|
00006160  02 a9 22 78 70 6f 73 20  20 20 3d 20 28 62 62 6f  |.."xpos   = (bbo|
00006170  78 5f 62 6c 6b 25 21 30  30 29 20 2f 20 64 69 76  |x_blk%!00) / div|
00006180  25 0d 02 aa 22 79 70 6f  73 20 20 20 3d 20 28 62  |%..."ypos   = (b|
00006190  62 6f 78 5f 62 6c 6b 25  21 30 34 29 20 2f 20 64  |box_blk%!04) / d|
000061a0  69 76 25 0d 02 ab 30 77  69 64 74 68 20 20 3d 20  |iv%...0width  = |
000061b0  28 62 62 6f 78 5f 62 6c  6b 25 21 30 38 20 2d 20  |(bbox_blk%!08 - |
000061c0  62 62 6f 78 5f 62 6c 6b  25 21 30 30 29 2f 20 64  |bbox_blk%!00)/ d|
000061d0  69 76 25 0d 02 ac 30 68  65 69 67 68 74 20 3d 20  |iv%...0height = |
000061e0  28 62 62 6f 78 5f 62 6c  6b 25 21 31 32 20 2d 20  |(bbox_blk%!12 - |
000061f0  62 62 6f 78 5f 62 6c 6b  25 21 30 34 29 2f 20 64  |bbox_blk%!04)/ d|
00006200  69 76 25 0d 02 ad 25 f2  73 68 65 6c 6c 5f 48 65  |iv%...%.shell_He|
00006210  61 70 42 6c 6f 63 6b 52  65 74 75 72 6e 28 62 62  |apBlockReturn(bb|
00006220  6f 78 5f 62 6c 6b 25 29  0d 02 ae 05 e1 0d 02 af  |ox_blk%)........|
00006230  27 2a 7c 53 74 6f 70 20  50 52 4f 43 73 68 65 6c  |'*|Stop PROCshel|
00006240  6c 5f 44 72 61 77 47 65  74 42 6f 75 6e 64 69 6e  |l_DrawGetBoundin|
00006250  67 42 6f 78 0d 02 b0 04  0d 02 b1 23 2a 7c 53 74  |gBox.......#*|St|
00006260  61 72 74 20 46 4e 73 68  65 6c 6c 5f 44 72 61 77  |art FNshell_Draw|
00006270  47 65 74 46 69 6c 65 53  69 7a 65 0d 02 b2 25 dd  |GetFileSize...%.|
00006280  20 a4 73 68 65 6c 6c 5f  44 72 61 77 47 65 74 46  | .shell_DrawGetF|
00006290  69 6c 65 53 69 7a 65 28  62 75 66 66 65 72 25 29  |ileSize(buffer%)|
000062a0  0d 02 b3 1b 3d 20 62 75  66 66 65 72 25 21 38 20  |....= buffer%!8 |
000062b0  2d 20 62 75 66 66 65 72  25 21 34 0d 02 b4 05 3a  |- buffer%!4....:|
000062c0  0d 02 b5 22 2a 7c 53 74  6f 70 20 46 4e 73 68 65  |..."*|Stop FNshe|
000062d0  6c 6c 5f 44 72 61 77 47  65 74 46 69 6c 65 53 69  |ll_DrawGetFileSi|
000062e0  7a 65 0d 02 b6 04 0d 02  b7 20 2a 7c 53 74 61 72  |ze....... *|Star|
000062f0  74 20 46 4e 73 68 65 6c  6c 5f 44 72 61 77 46 6f  |t FNshell_DrawFo|
00006300  6e 74 4e 61 6d 65 0d 02  b8 25 dd 20 a4 73 68 65  |ntName...%. .she|
00006310  6c 6c 5f 44 72 61 77 46  6f 6e 74 4e 61 6d 65 28  |ll_DrawFontName(|
00006320  70 74 72 25 2c 66 6f 6e  74 25 29 0d 02 b9 3c ea  |ptr%,font%)...<.|
00006330  20 66 74 5f 74 61 62 6c  65 25 2c 66 74 5f 65 6e  | ft_table%,ft_en|
00006340  64 25 2c 64 66 5f 73 74  61 72 74 25 2c 66 6f 6e  |d%,df_start%,fon|
00006350  74 24 2c 70 25 2c 66 74  5f 68 61 6e 64 6c 65 25  |t$,p%,ft_handle%|
00006360  2c 66 6f 75 6e 64 25 0d  02 ba 4c e7 20 70 74 72  |,found%...L. ptr|
00006370  25 21 34 34 20 3d 20 2d  31 20 8c 20 85 20 39 39  |%!44 = -1 . . 99|
00006380  2c 22 4e 6f 20 66 6f 6e  74 73 20 68 61 76 65 20  |,"No fonts have |
00006390  62 65 65 6e 20 69 6e 69  74 69 61 6c 69 73 65 64  |been initialised|
000063a0  20 66 6f 72 20 74 68 69  73 20 64 72 61 77 66 69  | for this drawfi|
000063b0  6c 65 22 0d 02 bb 1e 64  66 5f 73 74 61 72 74 25  |le"....df_start%|
000063c0  20 20 3d 20 70 74 72 25  20 2b 20 70 74 72 25 21  |  = ptr% + ptr%!|
000063d0  34 0d 02 bc 1f 66 74 5f  74 61 62 6c 65 25 20 20  |4....ft_table%  |
000063e0  3d 20 70 74 72 25 21 34  34 20 2b 20 70 74 72 25  |= ptr%!44 + ptr%|
000063f0  0d 02 bd 3e f4 20 50 52  4f 43 73 68 65 6c 6c 5f  |...>. PROCshell_|
00006400  54 72 61 63 65 66 30 28  22 44 45 42 55 47 3a 3a  |Tracef0("DEBUG::|
00006410  66 74 5f 74 61 62 6c 65  25 20 3d 20 26 22 2b 53  |ft_table% = &"+S|
00006420  54 52 24 7e 66 74 5f 74  61 62 6c 65 25 29 0d 02  |TR$~ft_table%)..|
00006430  be 3e f4 20 50 52 4f 43  73 68 65 6c 6c 5f 54 72  |.>. PROCshell_Tr|
00006440  61 63 65 66 30 28 22 44  45 42 55 47 3a 3a 64 66  |acef0("DEBUG::df|
00006450  5f 73 74 61 72 74 25 20  3d 20 26 22 2b 53 54 52  |_start% = &"+STR|
00006460  24 7e 64 66 5f 73 74 61  72 74 25 29 0d 02 bf 11  |$~df_start%)....|
00006470  e7 20 66 6f 6e 74 25 20  3d 20 30 20 8c 0d 02 c0  |. font% = 0 ....|
00006480  1b 20 20 66 6f 6e 74 24  20 3d 20 22 53 79 73 74  |.  font$ = "Syst|
00006490  65 6d 20 46 6f 6e 74 22  0d 02 c1 05 cc 0d 02 c2  |em Font"........|
000064a0  4b 20 20 f4 20 50 52 4f  43 73 68 65 6c 6c 5f 54  |K  . PROCshell_T|
000064b0  72 61 63 65 66 30 28 22  44 45 42 55 47 3a 3a 66  |racef0("DEBUG::f|
000064c0  6f 6e 74 20 74 61 62 6c  65 20 73 69 7a 65 20 69  |ont table size i|
000064d0  73 20 3d 20 22 2b 53 54  52 24 28 66 74 5f 74 61  |s = "+STR$(ft_ta|
000064e0  62 6c 65 25 21 34 29 29  0d 02 c3 2a 20 20 66 74  |ble%!4))...*  ft|
000064f0  5f 65 6e 64 25 20 20 20  20 3d 20 66 74 5f 74 61  |_end%    = ft_ta|
00006500  62 6c 65 25 21 34 20 2b  20 66 74 5f 74 61 62 6c  |ble%!4 + ft_tabl|
00006510  65 25 0d 02 c4 20 20 20  70 25 20 20 20 20 20 20  |e%...   p%      |
00006520  20 20 20 3d 20 66 74 5f  74 61 62 6c 65 25 20 2b  |   = ft_table% +|
00006530  20 38 0d 02 c5 07 20 20  f5 0d 02 c6 22 20 20 20  | 8....  ...."   |
00006540  20 66 74 5f 68 61 6e 64  6c 65 25 20 3d 20 3f 70  | ft_handle% = ?p|
00006550  25 20 3a 20 70 25 20 2b  3d 20 31 0d 02 c7 24 20  |% : p% += 1...$ |
00006560  20 20 20 66 6f 6e 74 24  20 3d 20 a4 73 68 65 6c  |   font$ = .shel|
00006570  6c 5f 47 65 74 53 74 72  69 6e 67 28 70 25 29 0d  |l_GetString(p%).|
00006580  02 c8 1a 20 20 20 20 70  25 20 20 20 2b 3d 20 a9  |...    p%   += .|
00006590  66 6f 6e 74 24 20 2b 20  31 0d 02 c9 16 20 20 20  |font$ + 1....   |
000065a0  20 c8 95 20 70 25 20 83  20 34 20 3c 3e 20 30 0d  | .. p% . 4 <> 0.|
000065b0  02 ca 10 20 20 20 20 20  20 70 25 20 2b 3d 31 0d  |...      p% +=1.|
000065c0  02 cb 09 20 20 20 20 ce  0d 02 cc 1e 20 20 20 20  |...    .....    |
000065d0  e7 20 66 74 5f 68 61 6e  64 6c 65 25 20 3d 20 66  |. ft_handle% = f|
000065e0  6f 6e 74 25 20 8c 0d 02  cd 27 20 20 20 20 20 20  |ont% ....'      |
000065f0  66 6f 75 6e 64 25 20 3d  20 b9 20 3a 20 70 25 20  |found% = . : p% |
00006600  3d 20 66 74 5f 65 6e 64  25 20 2b 20 31 0d 02 ce  |= ft_end% + 1...|
00006610  09 20 20 20 20 cd 0d 02  cf 16 20 20 fd 20 20 70  |.    .....  .  p|
00006620  25 20 3e 3d 20 66 74 5f  65 6e 64 25 0d 02 d0 05  |% >= ft_end%....|
00006630  cd 0d 02 d1 36 e7 20 66  6f 75 6e 64 25 20 3d 20  |....6. found% = |
00006640  30 20 8c 20 85 20 39 39  2c 22 46 6f 6e 74 20 6e  |0 . . 99,"Font n|
00006650  6f 74 20 66 6f 75 6e 64  20 69 6e 20 66 6f 6e 74  |ot found in font|
00006660  20 74 61 62 6c 65 22 0d  02 d2 0b 3d 20 66 6f 6e  | table"....= fon|
00006670  74 24 0d 02 d3 05 3a 0d  02 d4 1f 2a 7c 53 74 6f  |t$....:....*|Sto|
00006680  70 20 46 4e 73 68 65 6c  6c 5f 44 72 61 77 46 6f  |p FNshell_DrawFo|
00006690  6e 74 4e 61 6d 65 0d 02  d5 04 0d 02 d6 13 f4 20  |ntName......... |
000066a0  46 6f 6e 74 20 72 6f 75  74 69 6e 65 73 0d 02 d7  |Font routines...|
000066b0  04 0d 02 d8 21 2a 7c 53  74 61 72 74 20 46 4e 73  |....!*|Start FNs|
000066c0  68 65 6c 6c 5f 46 6f 6e  74 47 65 74 48 61 6e 64  |hell_FontGetHand|
000066d0  6c 65 0d 02 d9 25 dd 20  a4 73 68 65 6c 6c 5f 46  |le...%. .shell_F|
000066e0  6f 6e 74 47 65 74 48 61  6e 64 6c 65 28 66 6f 6e  |ontGetHandle(fon|
000066f0  74 24 2c 78 2c 79 29 0d  02 da 0b ea 20 66 6f 6e  |t$,x,y)..... fon|
00006700  74 25 0d 02 db 37 c8 99  20 22 46 6f 6e 74 5f 46  |t%...7.. "Font_F|
00006710  69 6e 64 46 6f 6e 74 22  2c 2c 66 6f 6e 74 24 2c  |indFont",,font$,|
00006720  78 20 2a 20 31 36 2c 79  20 2a 20 31 36 2c 30 2c  |x * 16,y * 16,0,|
00006730  30 20 b8 20 66 6f 6e 74  25 0d 02 dc 0b 3d 20 66  |0 . font%....= f|
00006740  6f 6e 74 25 0d 02 dd 05  3a 0d 02 de 20 2a 7c 53  |ont%....:... *|S|
00006750  74 6f 70 20 46 4e 73 68  65 6c 6c 5f 46 6f 6e 74  |top FNshell_Font|
00006760  47 65 74 48 61 6e 64 6c  65 0d 02 df 04 0d 02 e0  |GetHandle.......|
00006770  24 2a 7c 53 74 61 72 74  20 50 52 4f 43 73 68 65  |$*|Start PROCshe|
00006780  6c 6c 5f 46 6f 6e 74 46  6f 72 67 65 74 46 6f 6e  |ll_FontForgetFon|
00006790  74 0d 02 e1 22 dd 20 f2  73 68 65 6c 6c 5f 46 6f  |t...". .shell_Fo|
000067a0  6e 74 46 6f 72 67 65 74  46 6f 6e 74 28 66 6f 6e  |ntForgetFont(fon|
000067b0  74 25 29 0d 02 e2 1c c8  99 20 22 46 6f 6e 74 5f  |t%)...... "Font_|
000067c0  4c 6f 73 65 46 6f 6e 74  22 2c 66 6f 6e 74 25 0d  |LoseFont",font%.|
000067d0  02 e3 05 e1 0d 02 e4 05  3a 0d 02 e5 23 2a 7c 73  |........:...#*|s|
000067e0  74 6f 70 20 50 52 4f 43  73 68 65 6c 6c 5f 46 6f  |top PROCshell_Fo|
000067f0  6e 74 46 6f 72 67 65 74  46 6f 6e 74 0d 02 e6 04  |ntForgetFont....|
00006800  0d 02 e7 23 2a 7c 73 74  61 72 74 20 50 52 4f 43  |...#*|start PROC|
00006810  73 68 65 6c 6c 5f 46 6f  6e 74 53 65 74 43 6f 6c  |shell_FontSetCol|
00006820  6f 75 72 0d 02 e8 27 dd  20 f2 73 68 65 6c 6c 5f  |our...'. .shell_|
00006830  46 6f 6e 74 53 65 74 43  6f 6c 6f 75 72 28 66 6f  |FontSetColour(fo|
00006840  72 65 25 2c 62 61 63 6b  25 29 0d 02 e9 34 c8 99  |re%,back%)...4..|
00006850  20 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 53 65  | "ColourTrans_Se|
00006860  74 46 6f 6e 74 43 6f 6c  6f 75 72 73 22 2c 30 2c  |tFontColours",0,|
00006870  62 61 63 6b 25 2c 66 6f  72 65 25 2c 31 34 0d 02  |back%,fore%,14..|
00006880  ea 05 e1 0d 02 eb 05 3a  0d 02 ec 22 2a 7c 73 74  |.......:..."*|st|
00006890  6f 70 20 50 52 4f 43 73  68 65 6c 6c 5f 46 6f 6e  |op PROCshell_Fon|
000068a0  74 53 65 74 43 6f 6c 6f  75 72 0d 02 ed 04 0d 02  |tSetColour......|
000068b0  ee 24 2a 7c 53 74 61 72  74 20 50 52 4f 43 73 68  |.$*|Start PROCsh|
000068c0  65 6c 6c 5f 44 72 61 77  52 65 6e 64 65 72 46 69  |ell_DrawRenderFi|
000068d0  6c 65 0d 02 ef 34 dd 20  f2 73 68 65 6c 6c 5f 44  |le...4. .shell_D|
000068e0  72 61 77 52 65 6e 64 65  72 46 69 6c 65 28 62 75  |rawRenderFile(bu|
000068f0  66 66 65 72 25 2c 78 25  2c 79 25 2c 71 25 2c 62  |ffer%,x%,y%,q%,b|
00006900  6f 75 6e 64 25 29 0d 02  f0 1c ea 20 64 72 61 77  |ound%)..... draw|
00006910  73 63 25 2c 64 72 61 77  25 2c 64 72 61 77 6c 65  |sc%,draw%,drawle|
00006920  6e 25 0d 02 f1 29 e7 20  62 6f 75 6e 64 25 3d 2d  |n%...). bound%=-|
00006930  31 20 8c 20 62 6f 75 6e  64 25 20 3d 20 31 20 8b  |1 . bound% = 1 .|
00006940  20 62 6f 75 6e 64 25 20  3d 20 30 0d 02 f2 19 64  | bound% = 0....d|
00006950  72 61 77 73 63 25 20 20  3d 20 62 75 66 66 65 72  |rawsc%  = buffer|
00006960  25 21 35 32 0d 02 f3 22  64 72 61 77 25 20 20 20  |%!52..."draw%   |
00006970  20 3d 20 62 75 66 66 65  72 25 20 2b 20 62 75 66  | = buffer% + buf|
00006980  66 65 72 25 21 34 0d 02  f4 26 64 72 61 77 6c 65  |fer%!4...&drawle|
00006990  6e 25 20 3d 20 62 75 66  66 65 72 25 21 38 20 2d  |n% = buffer%!8 -|
000069a0  20 62 75 66 66 65 72 25  21 34 20 20 0d 02 f5 19  | buffer%!4  ....|
000069b0  64 72 61 77 73 63 25 21  31 36 20 3d 20 78 25 20  |drawsc%!16 = x% |
000069c0  2a 20 32 35 36 0d 02 f6  19 64 72 61 77 73 63 25  |* 256....drawsc%|
000069d0  21 32 30 20 3d 20 79 25  20 2a 20 32 35 36 0d 02  |!20 = y% * 256..|
000069e0  f7 3e c8 99 20 22 44 72  61 77 46 69 6c 65 5f 52  |.>.. "DrawFile_R|
000069f0  65 6e 64 65 72 22 2c 62  6f 75 6e 64 25 2c 64 72  |ender",bound%,dr|
00006a00  61 77 25 2c 64 72 61 77  6c 65 6e 25 2c 64 72 61  |aw%,drawlen%,dra|
00006a10  77 73 63 25 2c 71 25 20  2b 20 32 38 0d 02 f8 12  |wsc%,q% + 28....|
00006a20  64 72 61 77 73 63 25 21  31 36 20 3d 20 30 0d 02  |drawsc%!16 = 0..|
00006a30  f9 12 64 72 61 77 73 63  25 21 32 30 20 3d 20 30  |..drawsc%!20 = 0|
00006a40  0d 02 fa 05 e1 0d 02 fb  05 3a 0d 02 fc 23 2a 7c  |.........:...#*||
00006a50  53 74 6f 70 20 50 52 4f  43 73 68 65 6c 6c 5f 44  |Stop PROCshell_D|
00006a60  72 61 77 52 65 6e 64 65  72 46 69 6c 65 0d 02 fd  |rawRenderFile...|
00006a70  04 0d 02 fe 24 2a 7c 53  74 61 72 74 20 50 52 4f  |....$*|Start PRO|
00006a80  43 73 68 65 6c 6c 5f 44  72 61 77 52 65 6e 64 65  |Cshell_DrawRende|
00006a90  72 46 69 6c 65 0d 02 ff  40 dd 20 f2 73 68 65 6c  |rFile...@. .shel|
00006aa0  6c 5f 44 72 61 77 52 65  6e 64 65 72 46 69 6c 65  |l_DrawRenderFile|
00006ab0  28 62 75 66 66 65 72 25  2c 78 25 2c 79 25 2c 78  |(buffer%,x%,y%,x|
00006ac0  5f 73 63 6c 2c 79 5f 73  63 6c 2c 71 25 2c 62 6f  |_scl,y_scl,q%,bo|
00006ad0  75 6e 64 25 29 0d 03 00  1c ea 20 64 72 61 77 73  |und%)..... draws|
00006ae0  63 25 2c 64 72 61 77 25  2c 64 72 61 77 6c 65 6e  |c%,draw%,drawlen|
00006af0  25 0d 03 01 29 e7 20 62  6f 75 6e 64 25 3d 2d 31  |%...). bound%=-1|
00006b00  20 8c 20 62 6f 75 6e 64  25 20 3d 20 31 20 8b 20  | . bound% = 1 . |
00006b10  62 6f 75 6e 64 25 20 3d  20 30 0d 03 02 28 64 72  |bound% = 0...(dr|
00006b20  61 77 73 63 25 20 20 3d  20 a4 73 68 65 6c 6c 5f  |awsc%  = .shell_|
00006b30  48 65 61 70 42 6c 6f 63  6b 46 65 74 63 68 28 32  |HeapBlockFetch(2|
00006b40  34 29 0d 03 03 22 64 72  61 77 25 20 20 20 20 3d  |4)..."draw%    =|
00006b50  20 62 75 66 66 65 72 25  20 2b 20 62 75 66 66 65  | buffer% + buffe|
00006b60  72 25 21 34 0d 03 04 26  64 72 61 77 6c 65 6e 25  |r%!4...&drawlen%|
00006b70  20 3d 20 62 75 66 66 65  72 25 21 38 20 2d 20 62  | = buffer%!8 - b|
00006b80  75 66 66 65 72 25 21 34  20 20 0d 03 05 1f 21 64  |uffer%!4  ....!d|
00006b90  72 61 77 73 63 25 20 3d  20 a8 28 36 35 35 33 36  |rawsc% = .(65536|
00006ba0  20 2a 20 78 5f 73 63 6c  29 0d 03 06 12 64 72 61  | * x_scl)....dra|
00006bb0  77 73 63 25 21 30 34 20  3d 20 30 0d 03 07 12 64  |wsc%!04 = 0....d|
00006bc0  72 61 77 73 63 25 21 30  38 20 3d 20 30 0d 03 08  |rawsc%!08 = 0...|
00006bd0  21 64 72 61 77 73 63 25  21 31 32 20 3d 20 a8 28  |!drawsc%!12 = .(|
00006be0  36 35 35 33 36 20 2a 20  79 5f 73 63 6c 29 0d 03  |65536 * y_scl)..|
00006bf0  09 19 64 72 61 77 73 63  25 21 31 36 20 3d 20 78  |..drawsc%!16 = x|
00006c00  25 20 2a 20 32 35 36 0d  03 0a 19 64 72 61 77 73  |% * 256....draws|
00006c10  63 25 21 32 30 20 3d 20  79 25 20 2a 20 32 35 36  |c%!20 = y% * 256|
00006c20  0d 03 0b 3e c8 99 20 22  44 72 61 77 46 69 6c 65  |...>.. "DrawFile|
00006c30  5f 52 65 6e 64 65 72 22  2c 62 6f 75 6e 64 25 2c  |_Render",bound%,|
00006c40  64 72 61 77 25 2c 64 72  61 77 6c 65 6e 25 2c 64  |draw%,drawlen%,d|
00006c50  72 61 77 73 63 25 2c 71  25 20 2b 20 32 38 0d 03  |rawsc%,q% + 28..|
00006c60  0c 23 f2 73 68 65 6c 6c  5f 48 65 61 70 42 6c 6f  |.#.shell_HeapBlo|
00006c70  63 6b 52 65 74 75 72 6e  28 64 72 61 77 73 63 25  |ckReturn(drawsc%|
00006c80  29 0d 03 0d 05 e1 0d 03  0e 05 3a 0d 03 0f 23 2a  |).........:...#*|
00006c90  7c 53 74 6f 70 20 50 52  4f 43 73 68 65 6c 6c 5f  ||Stop PROCshell_|
00006ca0  44 72 61 77 52 65 6e 64  65 72 46 69 6c 65 0d 03  |DrawRenderFile..|
00006cb0  10 04 0d 03 11 23 2a 7c  53 74 61 72 74 20 50 52  |.....#*|Start PR|
00006cc0  4f 43 73 68 65 6c 6c 5f  44 72 61 77 54 65 78 74  |OCshell_DrawText|
00006cd0  53 70 61 63 65 0d 03 12  52 dd 20 f2 73 68 65 6c  |Space...R. .shel|
00006ce0  6c 5f 44 72 61 77 54 65  78 74 53 70 61 63 65 28  |l_DrawTextSpace(|
00006cf0  70 74 72 25 2c 74 65 78  74 24 2c 66 6f 6e 74 25  |ptr%,text$,font%|
00006d00  2c 70 74 73 69 7a 65 2c  70 74 68 69 67 68 2c f8  |,ptsize,pthigh,.|
00006d10  20 6c 78 25 2c f8 20 62  79 25 2c f8 20 72 78 25  | lx%,. by%,. rx%|
00006d20  2c f8 20 74 79 25 29 0d  03 13 2d ea 20 68 61 6e  |,. ty%)...-. han|
00006d30  64 6c 65 25 2c 78 73 63  61 6c 65 25 2c 79 73 63  |dle%,xscale%,ysc|
00006d40  61 6c 65 25 2c 72 31 25  2c 72 32 25 2c 72 33 25  |ale%,r1%,r2%,r3%|
00006d50  2c 72 34 25 0d 03 14 11  e7 20 66 6f 6e 74 25 20  |,r4%..... font% |
00006d60  3e 20 30 20 8c 0d 03 15  5c 20 20 c8 99 20 22 46  |> 0 ....\  .. "F|
00006d70  6f 6e 74 5f 46 69 6e 64  46 6f 6e 74 22 2c 2c a4  |ont_FindFont",,.|
00006d80  73 68 65 6c 6c 5f 44 72  61 77 46 6f 6e 74 4e 61  |shell_DrawFontNa|
00006d90  6d 65 28 70 74 72 25 2c  66 6f 6e 74 25 29 2c 70  |me(ptr%,font%),p|
00006da0  74 73 69 7a 65 20 2a 20  31 36 2c 20 70 74 68 69  |tsize * 16, pthi|
00006db0  67 68 20 2a 20 31 36 20  b8 20 68 61 6e 64 6c 65  |gh * 16 . handle|
00006dc0  25 0d 03 16 1f 20 20 c8  99 20 22 46 6f 6e 74 5f  |%....  .. "Font_|
00006dd0  53 65 74 46 6f 6e 74 22  2c 68 61 6e 64 6c 65 25  |SetFont",handle%|
00006de0  0d 03 17 34 20 20 c8 99  20 22 46 6f 6e 74 5f 53  |...4  .. "Font_S|
00006df0  74 72 69 6e 67 42 42 6f  78 22 2c 2c 74 65 78 74  |tringBBox",,text|
00006e00  24 20 b8 20 2c 72 31 25  2c 72 32 25 2c 72 33 25  |$ . ,r1%,r2%,r3%|
00006e10  2c 72 34 25 0d 03 18 32  20 20 c8 99 20 22 46 6f  |,r4%...2  .. "Fo|
00006e20  6e 74 5f 52 65 61 64 53  63 61 6c 65 46 61 63 74  |nt_ReadScaleFact|
00006e30  6f 72 22 20 b8 20 2c 78  73 63 61 6c 65 25 2c 79  |or" . ,xscale%,y|
00006e40  73 63 61 6c 65 25 0d 03  19 20 20 20 c8 99 20 22  |scale%...   .. "|
00006e50  46 6f 6e 74 5f 4c 6f 73  65 46 6f 6e 74 22 2c 68  |Font_LoseFont",h|
00006e60  61 6e 64 6c 65 25 0d 03  1a 31 20 20 74 79 25 20  |andle%...1  ty% |
00006e70  3d 20 a4 73 68 65 6c 6c  5f 44 72 61 77 54 65 78  |= .shell_DrawTex|
00006e80  74 43 6f 6f 72 64 28 62  79 25 2c 72 34 25 2c 79  |tCoord(by%,r4%,y|
00006e90  73 63 61 6c 65 25 29 0d  03 1b 31 20 20 72 78 25  |scale%)...1  rx%|
00006ea0  20 3d 20 a4 73 68 65 6c  6c 5f 44 72 61 77 54 65  | = .shell_DrawTe|
00006eb0  78 74 43 6f 6f 72 64 28  6c 78 25 2c 72 33 25 2c  |xtCoord(lx%,r3%,|
00006ec0  78 73 63 61 6c 65 25 29  0d 03 1c 31 20 20 62 79  |xscale%)...1  by|
00006ed0  25 20 3d 20 a4 73 68 65  6c 6c 5f 44 72 61 77 54  |% = .shell_DrawT|
00006ee0  65 78 74 43 6f 6f 72 64  28 62 79 25 2c 72 32 25  |extCoord(by%,r2%|
00006ef0  2c 79 73 63 61 6c 65 25  29 0d 03 1d 31 20 20 6c  |,yscale%)...1  l|
00006f00  78 25 20 3d 20 a4 73 68  65 6c 6c 5f 44 72 61 77  |x% = .shell_Draw|
00006f10  54 65 78 74 43 6f 6f 72  64 28 6c 78 25 2c 72 31  |TextCoord(lx%,r1|
00006f20  25 2c 78 73 63 61 6c 65  25 29 0d 03 1e 05 cc 0d  |%,xscale%)......|
00006f30  03 1f 29 20 20 72 78 25  20 3d 20 6c 78 25 20 2b  |..)  rx% = lx% +|
00006f40  20 70 74 73 69 7a 65 20  2a 20 32 2e 35 20 2a 20  | ptsize * 2.5 * |
00006f50  a9 28 74 65 78 74 24 29  0d 03 20 1e 20 20 74 79  |.(text$).. .  ty|
00006f60  25 20 3d 20 62 79 25 20  2b 20 70 74 68 69 67 68  |% = by% + pthigh|
00006f70  20 2a 20 32 2e 35 0d 03  21 05 cd 0d 03 22 05 e1  | * 2.5..!...."..|
00006f80  0d 03 23 05 3a 0d 03 24  22 2a 7c 53 74 6f 70 20  |..#.:..$"*|Stop |
00006f90  50 52 4f 43 73 68 65 6c  6c 5f 44 72 61 77 54 65  |PROCshell_DrawTe|
00006fa0  78 74 53 70 61 63 65 0d  03 25 04 0d 03 26 21 2a  |xtSpace..%...&!*|
00006fb0  7c 53 74 61 72 74 20 46  4e 73 68 65 6c 6c 5f 44  ||Start FNshell_D|
00006fc0  72 61 77 54 65 78 74 43  6f 6f 72 64 0d 03 27 52  |rawTextCoord..'R|
00006fd0  dd 20 a4 73 68 65 6c 6c  5f 44 72 61 77 54 65 78  |. .shell_DrawTex|
00006fe0  74 43 6f 6f 72 64 28 76  25 2c 72 25 2c 73 63 61  |tCoord(v%,r%,sca|
00006ff0  6c 65 25 29 20 3d 20 28  76 25 20 2a 20 73 63 61  |le%) = (v% * sca|
00007000  6c 65 25 20 2b 20 72 25  20 2b 73 63 61 6c 65 25  |le% + r% +scale%|
00007010  20 2f 20 32 29 20 2f 20  73 63 61 6c 65 25 0d 03  | / 2) / scale%..|
00007020  28 05 3a 0d 03 29 20 2a  7c 53 74 6f 70 20 46 4e  |(.:..) *|Stop FN|
00007030  73 68 65 6c 6c 5f 44 72  61 77 54 65 78 74 43 6f  |shell_DrawTextCo|
00007040  6f 72 64 0d 03 2a 04 0d  03 2b 27 2a 7c 53 74 61  |ord..*...+'*|Sta|
00007050  72 74 20 50 52 4f 43 73  68 65 6c 6c 5f 44 72 61  |rt PROCshell_Dra|
00007060  77 53 65 74 45 6e 64 43  61 70 4e 6f 6e 65 0d 03  |wSetEndCapNone..|
00007070  2c 27 dd 20 f2 73 68 65  6c 6c 5f 44 72 61 77 53  |,'. .shell_DrawS|
00007080  65 74 45 6e 64 43 61 70  4e 6f 6e 65 28 62 75 66  |etEndCapNone(buf|
00007090  66 65 72 25 29 0d 03 2d  10 ea 20 73 74 79 6c 65  |fer%)..-.. style|
000070a0  5f 62 6c 6b 25 0d 03 2e  1b 73 74 79 6c 65 5f 62  |_blk%....style_b|
000070b0  6c 6b 25 20 3d 20 62 75  66 66 65 72 25 21 34 38  |lk% = buffer%!48|
000070c0  0d 03 2f 36 73 74 79 6c  65 5f 62 6c 6b 25 3f 30  |../6style_blk%?0|
000070d0  20 3d 20 73 74 79 6c 65  5f 62 6c 6b 25 3f 30 20  | = style_blk%?0 |
000070e0  20 84 20 31 20 3c 3c 20  32 20 3a f4 20 73 65 74  | . 1 << 2 :. set|
000070f0  20 62 69 74 20 32 0d 03  30 36 73 74 79 6c 65 5f  | bit 2..06style_|
00007100  62 6c 6b 25 3f 30 20 3d  20 73 74 79 6c 65 5f 62  |blk%?0 = style_b|
00007110  6c 6b 25 3f 30 20 20 84  20 31 20 3c 3c 20 33 20  |lk%?0  . 1 << 3 |
00007120  3a f4 20 73 65 74 20 62  69 74 20 33 0d 03 31 37  |:. set bit 3..17|
00007130  73 74 79 6c 65 5f 62 6c  6b 25 3f 30 20 3d 20 73  |style_blk%?0 = s|
00007140  74 79 6c 65 5f 62 6c 6b  25 3f 30 20 82 20 31 20  |tyle_blk%?0 . 1 |
00007150  3c 3c 20 32 20 3a f4 20  75 6e 73 65 74 20 62 69  |<< 2 :. unset bi|
00007160  74 20 32 0d 03 32 37 73  74 79 6c 65 5f 62 6c 6b  |t 2..27style_blk|
00007170  25 3f 30 20 3d 20 73 74  79 6c 65 5f 62 6c 6b 25  |%?0 = style_blk%|
00007180  3f 30 20 82 20 31 20 3c  3c 20 33 20 3a f4 20 75  |?0 . 1 << 3 :. u|
00007190  6e 73 65 74 20 62 69 74  20 33 0d 03 33 05 e1 0d  |nset bit 3..3...|
000071a0  03 34 05 3a 0d 03 35 26  2a 7c 53 74 6f 70 20 50  |.4.:..5&*|Stop P|
000071b0  52 4f 43 73 68 65 6c 6c  5f 44 72 61 77 53 65 74  |ROCshell_DrawSet|
000071c0  45 6e 64 43 61 70 4e 6f  6e 65 0d 03 36 04 0d 03  |EndCapNone..6...|
000071d0  37 28 2a 7c 53 74 61 72  74 20 50 52 4f 43 73 68  |7(*|Start PROCsh|
000071e0  65 6c 6c 5f 44 72 61 77  53 65 74 45 6e 64 43 61  |ell_DrawSetEndCa|
000071f0  70 52 6f 75 6e 64 0d 03  38 28 dd 20 f2 73 68 65  |pRound..8(. .she|
00007200  6c 6c 5f 44 72 61 77 53  65 74 45 6e 64 43 61 70  |ll_DrawSetEndCap|
00007210  52 6f 75 6e 64 28 62 75  66 66 65 72 25 29 0d 03  |Round(buffer%)..|
00007220  39 10 ea 20 73 74 79 6c  65 5f 62 6c 6b 25 0d 03  |9.. style_blk%..|
00007230  3a 1b 73 74 79 6c 65 5f  62 6c 6b 25 20 3d 20 62  |:.style_blk% = b|
00007240  75 66 66 65 72 25 21 34  38 0d 03 3b 36 73 74 79  |uffer%!48..;6sty|
00007250  6c 65 5f 62 6c 6b 25 3f  30 20 3d 20 73 74 79 6c  |le_blk%?0 = styl|
00007260  65 5f 62 6c 6b 25 3f 30  20 20 84 20 31 20 3c 3c  |e_blk%?0  . 1 <<|
00007270  20 32 20 3a f4 20 73 65  74 20 62 69 74 20 32 0d  | 2 :. set bit 2.|
00007280  03 3c 36 73 74 79 6c 65  5f 62 6c 6b 25 3f 30 20  |.<6style_blk%?0 |
00007290  3d 20 73 74 79 6c 65 5f  62 6c 6b 25 3f 30 20 20  |= style_blk%?0  |
000072a0  84 20 31 20 3c 3c 20 33  20 3a f4 20 73 65 74 20  |. 1 << 3 :. set |
000072b0  62 69 74 20 33 0d 03 3d  37 73 74 79 6c 65 5f 62  |bit 3..=7style_b|
000072c0  6c 6b 25 3f 30 20 3d 20  73 74 79 6c 65 5f 62 6c  |lk%?0 = style_bl|
000072d0  6b 25 3f 30 20 82 20 31  20 3c 3c 20 33 20 3a f4  |k%?0 . 1 << 3 :.|
000072e0  20 75 6e 73 65 74 20 62  69 74 20 33 0d 03 3e 05  | unset bit 3..>.|
000072f0  e1 0d 03 3f 05 3a 0d 03  40 27 2a 7c 53 74 6f 70  |...?.:..@'*|Stop|
00007300  20 50 52 4f 43 73 68 65  6c 6c 5f 44 72 61 77 53  | PROCshell_DrawS|
00007310  65 74 45 6e 64 43 61 70  52 6f 75 6e 64 0d 03 41  |etEndCapRound..A|
00007320  04 0d 03 42 29 2a 7c 53  74 61 72 74 20 50 52 4f  |...B)*|Start PRO|
00007330  43 73 68 65 6c 6c 5f 44  72 61 77 53 65 74 45 6e  |Cshell_DrawSetEn|
00007340  64 43 61 70 53 71 75 61  72 65 0d 03 43 29 dd 20  |dCapSquare..C). |
00007350  f2 73 68 65 6c 6c 5f 44  72 61 77 53 65 74 45 6e  |.shell_DrawSetEn|
00007360  64 43 61 70 53 71 75 61  72 65 28 62 75 66 66 65  |dCapSquare(buffe|
00007370  72 25 29 0d 03 44 10 ea  20 73 74 79 6c 65 5f 62  |r%)..D.. style_b|
00007380  6c 6b 25 0d 03 45 1b 73  74 79 6c 65 5f 62 6c 6b  |lk%..E.style_blk|
00007390  25 20 3d 20 62 75 66 66  65 72 25 21 34 38 0d 03  |% = buffer%!48..|
000073a0  46 36 73 74 79 6c 65 5f  62 6c 6b 25 3f 30 20 3d  |F6style_blk%?0 =|
000073b0  20 73 74 79 6c 65 5f 62  6c 6b 25 3f 30 20 20 84  | style_blk%?0  .|
000073c0  20 31 20 3c 3c 20 32 20  3a f4 20 73 65 74 20 62  | 1 << 2 :. set b|
000073d0  69 74 20 32 0d 03 47 36  73 74 79 6c 65 5f 62 6c  |it 2..G6style_bl|
000073e0  6b 25 3f 30 20 3d 20 73  74 79 6c 65 5f 62 6c 6b  |k%?0 = style_blk|
000073f0  25 3f 30 20 20 84 20 31  20 3c 3c 20 33 20 3a f4  |%?0  . 1 << 3 :.|
00007400  20 73 65 74 20 62 69 74  20 33 0d 03 48 37 73 74  | set bit 3..H7st|
00007410  79 6c 65 5f 62 6c 6b 25  3f 30 20 3d 20 73 74 79  |yle_blk%?0 = sty|
00007420  6c 65 5f 62 6c 6b 25 3f  30 20 82 20 31 20 3c 3c  |le_blk%?0 . 1 <<|
00007430  20 32 20 3a f4 20 75 6e  73 65 74 20 62 69 74 20  | 2 :. unset bit |
00007440  32 0d 03 49 05 e1 0d 03  4a 05 3a 0d 03 4b 28 2a  |2..I....J.:..K(*|
00007450  7c 53 74 6f 70 20 50 52  4f 43 73 68 65 6c 6c 5f  ||Stop PROCshell_|
00007460  44 72 61 77 53 65 74 45  6e 64 43 61 70 53 71 75  |DrawSetEndCapSqu|
00007470  61 72 65 0d 03 4c 04 0d  03 4d 2b 2a 7c 53 74 61  |are..L...M+*|Sta|
00007480  72 74 20 50 52 4f 43 73  68 65 6c 6c 5f 44 72 61  |rt PROCshell_Dra|
00007490  77 53 65 74 45 6e 64 43  61 70 54 72 69 61 6e 67  |wSetEndCapTriang|
000074a0  6c 65 0d 03 4e 37 dd 20  f2 73 68 65 6c 6c 5f 44  |le..N7. .shell_D|
000074b0  72 61 77 53 65 74 45 6e  64 43 61 70 54 72 69 61  |rawSetEndCapTria|
000074c0  6e 67 6c 65 28 62 75 66  66 65 72 25 2c 77 69 64  |ngle(buffer%,wid|
000074d0  74 68 25 2c 6c 65 6e 25  29 0d 03 4f 1c ea 20 73  |th%,len%)..O.. s|
000074e0  74 79 6c 65 5f 62 6c 6b  25 2c 70 61 74 68 5f 77  |tyle_blk%,path_w|
000074f0  69 64 74 68 25 0d 03 50  21 70 61 74 68 5f 77 69  |idth%..P!path_wi|
00007500  64 74 68 25 20 3d 20 62  75 66 66 65 72 25 21 33  |dth% = buffer%!3|
00007510  32 20 2f 20 31 36 0d 03  51 1c 73 74 79 6c 65 5f  |2 / 16..Q.style_|
00007520  62 6c 6b 25 20 20 3d 20  62 75 66 66 65 72 25 21  |blk%  = buffer%!|
00007530  34 38 0d 03 52 25 77 69  64 74 68 25 20 3d 20 77  |48..R%width% = w|
00007540  69 64 74 68 25 20 2a 20  7c 28 62 75 66 66 65 72  |idth% * |(buffer|
00007550  25 20 2b 20 31 32 29 0d  03 53 25 6c 65 6e 25 20  |% + 12)..S%len% |
00007560  20 20 3d 20 6c 65 6e 25  20 20 20 2a 20 7c 28 62  |  = len%   * |(b|
00007570  75 66 66 65 72 25 20 2b  20 31 32 29 0d 03 54 36  |uffer% + 12)..T6|
00007580  73 74 79 6c 65 5f 62 6c  6b 25 3f 30 20 3d 20 73  |style_blk%?0 = s|
00007590  74 79 6c 65 5f 62 6c 6b  25 3f 30 20 20 84 20 31  |tyle_blk%?0  . 1|
000075a0  20 3c 3c 20 32 20 3a f4  20 73 65 74 20 62 69 74  | << 2 :. set bit|
000075b0  20 32 0d 03 55 36 73 74  79 6c 65 5f 62 6c 6b 25  | 2..U6style_blk%|
000075c0  3f 30 20 3d 20 73 74 79  6c 65 5f 62 6c 6b 25 3f  |?0 = style_blk%?|
000075d0  30 20 20 84 20 31 20 3c  3c 20 33 20 3a f4 20 73  |0  . 1 << 3 :. s|
000075e0  65 74 20 62 69 74 20 33  0d 03 56 27 73 74 79 6c  |et bit 3..V'styl|
000075f0  65 5f 62 6c 6b 25 3f 32  20 3d 20 77 69 64 74 68  |e_blk%?2 = width|
00007600  25 20 2f 20 70 61 74 68  5f 77 69 64 74 68 25 0d  |% / path_width%.|
00007610  03 57 27 73 74 79 6c 65  5f 62 6c 6b 25 3f 33 20  |.W'style_blk%?3 |
00007620  3d 20 6c 65 6e 25 20 20  20 2f 20 70 61 74 68 5f  |= len%   / path_|
00007630  77 69 64 74 68 25 0d 03  58 41 f4 20 50 52 4f 43  |width%..XA. PROC|
00007640  73 68 65 6c 6c 5f 54 72  61 63 65 66 30 28 22 44  |shell_Tracef0("D|
00007650  45 42 55 47 3a 3a 20 70  61 74 68 20 77 69 64 74  |EBUG:: path widt|
00007660  68 20 69 73 20 22 2b 53  54 52 24 70 61 74 68 5f  |h is "+STR$path_|
00007670  77 69 64 74 68 25 29 0d  03 59 05 e1 0d 03 5a 05  |width%)..Y....Z.|
00007680  3a 0d 03 5b 2a 2a 7c 53  74 6f 70 20 50 52 4f 43  |:..[**|Stop PROC|
00007690  73 68 65 6c 6c 5f 44 72  61 77 53 65 74 45 6e 64  |shell_DrawSetEnd|
000076a0  43 61 70 54 72 69 61 6e  67 6c 65 0d 03 5c 04 0d  |CapTriangle..\..|
000076b0  03 5d 29 2a 7c 53 74 61  72 74 20 50 52 4f 43 73  |.])*|Start PROCs|
000076c0  68 65 6c 6c 5f 44 72 61  77 53 65 74 53 74 61 72  |hell_DrawSetStar|
000076d0  74 43 61 70 4e 6f 6e 65  0d 03 5e 29 dd 20 f2 73  |tCapNone..^). .s|
000076e0  68 65 6c 6c 5f 44 72 61  77 53 65 74 53 74 61 72  |hell_DrawSetStar|
000076f0  74 43 61 70 4e 6f 6e 65  28 62 75 66 66 65 72 25  |tCapNone(buffer%|
00007700  29 0d 03 5f 10 ea 20 73  74 79 6c 65 5f 62 6c 6b  |).._.. style_blk|
00007710  25 0d 03 60 1b 73 74 79  6c 65 5f 62 6c 6b 25 20  |%..`.style_blk% |
00007720  3d 20 62 75 66 66 65 72  25 21 34 38 0d 03 61 36  |= buffer%!48..a6|
00007730  73 74 79 6c 65 5f 62 6c  6b 25 3f 30 20 3d 20 73  |style_blk%?0 = s|
00007740  74 79 6c 65 5f 62 6c 6b  25 3f 30 20 20 84 20 31  |tyle_blk%?0  . 1|
00007750  20 3c 3c 20 34 20 3a f4  20 73 65 74 20 62 69 74  | << 4 :. set bit|
00007760  20 34 0d 03 62 36 73 74  79 6c 65 5f 62 6c 6b 25  | 4..b6style_blk%|
00007770  3f 30 20 3d 20 73 74 79  6c 65 5f 62 6c 6b 25 3f  |?0 = style_blk%?|
00007780  30 20 20 84 20 31 20 3c  3c 20 35 20 3a f4 20 73  |0  . 1 << 5 :. s|
00007790  65 74 20 62 69 74 20 35  0d 03 63 37 73 74 79 6c  |et bit 5..c7styl|
000077a0  65 5f 62 6c 6b 25 3f 30  20 3d 20 73 74 79 6c 65  |e_blk%?0 = style|
000077b0  5f 62 6c 6b 25 3f 30 20  82 20 31 20 3c 3c 20 34  |_blk%?0 . 1 << 4|
000077c0  20 3a f4 20 75 6e 73 65  74 20 62 69 74 20 34 0d  | :. unset bit 4.|
000077d0  03 64 37 73 74 79 6c 65  5f 62 6c 6b 25 3f 30 20  |.d7style_blk%?0 |
000077e0  3d 20 73 74 79 6c 65 5f  62 6c 6b 25 3f 30 20 82  |= style_blk%?0 .|
000077f0  20 31 20 3c 3c 20 35 20  3a f4 20 75 6e 73 65 74  | 1 << 5 :. unset|
00007800  20 62 69 74 20 35 0d 03  65 05 e1 0d 03 66 05 3a  | bit 5..e....f.:|
00007810  0d 03 67 28 2a 7c 53 74  6f 70 20 50 52 4f 43 73  |..g(*|Stop PROCs|
00007820  68 65 6c 6c 5f 44 72 61  77 53 65 74 53 74 61 72  |hell_DrawSetStar|
00007830  74 43 61 70 4e 6f 6e 65  0d 03 68 04 0d 03 69 2a  |tCapNone..h...i*|
00007840  2a 7c 53 74 61 72 74 20  50 52 4f 43 73 68 65 6c  |*|Start PROCshel|
00007850  6c 5f 44 72 61 77 53 65  74 53 74 61 72 74 43 61  |l_DrawSetStartCa|
00007860  70 52 6f 75 6e 64 0d 03  6a 2a dd 20 f2 73 68 65  |pRound..j*. .she|
00007870  6c 6c 5f 44 72 61 77 53  65 74 53 74 61 72 74 43  |ll_DrawSetStartC|
00007880  61 70 52 6f 75 6e 64 28  62 75 66 66 65 72 25 29  |apRound(buffer%)|
00007890  0d 03 6b 10 ea 20 73 74  79 6c 65 5f 62 6c 6b 25  |..k.. style_blk%|
000078a0  0d 03 6c 1b 73 74 79 6c  65 5f 62 6c 6b 25 20 3d  |..l.style_blk% =|
000078b0  20 62 75 66 66 65 72 25  21 34 38 0d 03 6d 36 73  | buffer%!48..m6s|
000078c0  74 79 6c 65 5f 62 6c 6b  25 3f 30 20 3d 20 73 74  |tyle_blk%?0 = st|
000078d0  79 6c 65 5f 62 6c 6b 25  3f 30 20 20 84 20 31 20  |yle_blk%?0  . 1 |
000078e0  3c 3c 20 34 20 3a f4 20  73 65 74 20 62 69 74 20  |<< 4 :. set bit |
000078f0  34 0d 03 6e 36 73 74 79  6c 65 5f 62 6c 6b 25 3f  |4..n6style_blk%?|
00007900  30 20 3d 20 73 74 79 6c  65 5f 62 6c 6b 25 3f 30  |0 = style_blk%?0|
00007910  20 20 84 20 31 20 3c 3c  20 35 20 3a f4 20 73 65  |  . 1 << 5 :. se|
00007920  74 20 62 69 74 20 35 0d  03 6f 37 73 74 79 6c 65  |t bit 5..o7style|
00007930  5f 62 6c 6b 25 3f 30 20  3d 20 73 74 79 6c 65 5f  |_blk%?0 = style_|
00007940  62 6c 6b 25 3f 30 20 82  20 31 20 3c 3c 20 35 20  |blk%?0 . 1 << 5 |
00007950  3a f4 20 75 6e 73 65 74  20 62 69 74 20 35 0d 03  |:. unset bit 5..|
00007960  70 05 e1 0d 03 71 05 3a  0d 03 72 29 2a 7c 53 74  |p....q.:..r)*|St|
00007970  6f 70 20 50 52 4f 43 73  68 65 6c 6c 5f 44 72 61  |op PROCshell_Dra|
00007980  77 53 65 74 53 74 61 72  74 43 61 70 52 6f 75 6e  |wSetStartCapRoun|
00007990  64 0d 03 73 04 0d 03 74  2b 2a 7c 53 74 61 72 74  |d..s...t+*|Start|
000079a0  20 50 52 4f 43 73 68 65  6c 6c 5f 44 72 61 77 53  | PROCshell_DrawS|
000079b0  65 74 53 74 61 72 74 43  61 70 53 71 75 61 72 65  |etStartCapSquare|
000079c0  0d 03 75 2b dd 20 f2 73  68 65 6c 6c 5f 44 72 61  |..u+. .shell_Dra|
000079d0  77 53 65 74 53 74 61 72  74 43 61 70 53 71 75 61  |wSetStartCapSqua|
000079e0  72 65 28 62 75 66 66 65  72 25 29 0d 03 76 10 ea  |re(buffer%)..v..|
000079f0  20 73 74 79 6c 65 5f 62  6c 6b 25 0d 03 77 1b 73  | style_blk%..w.s|
00007a00  74 79 6c 65 5f 62 6c 6b  25 20 3d 20 62 75 66 66  |tyle_blk% = buff|
00007a10  65 72 25 21 34 38 0d 03  78 36 73 74 79 6c 65 5f  |er%!48..x6style_|
00007a20  62 6c 6b 25 3f 30 20 3d  20 73 74 79 6c 65 5f 62  |blk%?0 = style_b|
00007a30  6c 6b 25 3f 30 20 20 84  20 31 20 3c 3c 20 34 20  |lk%?0  . 1 << 4 |
00007a40  3a f4 20 73 65 74 20 62  69 74 20 34 0d 03 79 36  |:. set bit 4..y6|
00007a50  73 74 79 6c 65 5f 62 6c  6b 25 3f 30 20 3d 20 73  |style_blk%?0 = s|
00007a60  74 79 6c 65 5f 62 6c 6b  25 3f 30 20 20 84 20 31  |tyle_blk%?0  . 1|
00007a70  20 3c 3c 20 35 20 3a f4  20 73 65 74 20 62 69 74  | << 5 :. set bit|
00007a80  20 35 0d 03 7a 37 73 74  79 6c 65 5f 62 6c 6b 25  | 5..z7style_blk%|
00007a90  3f 30 20 3d 20 73 74 79  6c 65 5f 62 6c 6b 25 3f  |?0 = style_blk%?|
00007aa0  30 20 82 20 31 20 3c 3c  20 34 20 3a f4 20 75 6e  |0 . 1 << 4 :. un|
00007ab0  73 65 74 20 62 69 74 20  34 0d 03 7b 05 e1 0d 03  |set bit 4..{....|
00007ac0  7c 05 3a 0d 03 7d 2a 2a  7c 53 74 6f 70 20 50 52  ||.:..}**|Stop PR|
00007ad0  4f 43 73 68 65 6c 6c 5f  44 72 61 77 53 65 74 53  |OCshell_DrawSetS|
00007ae0  74 61 72 74 43 61 70 53  71 75 61 72 65 0d 03 7e  |tartCapSquare..~|
00007af0  04 0d 03 7f 2d 2a 7c 53  74 61 72 74 20 50 52 4f  |....-*|Start PRO|
00007b00  43 73 68 65 6c 6c 5f 44  72 61 77 53 65 74 53 74  |Cshell_DrawSetSt|
00007b10  61 72 74 43 61 70 54 72  69 61 6e 67 6c 65 0d 03  |artCapTriangle..|
00007b20  80 39 dd 20 f2 73 68 65  6c 6c 5f 44 72 61 77 53  |.9. .shell_DrawS|
00007b30  65 74 53 74 61 72 74 43  61 70 54 72 69 61 6e 67  |etStartCapTriang|
00007b40  6c 65 28 62 75 66 66 65  72 25 2c 77 69 64 74 68  |le(buffer%,width|
00007b50  25 2c 6c 65 6e 25 29 0d  03 81 1c ea 20 73 74 79  |%,len%)..... sty|
00007b60  6c 65 5f 62 6c 6b 25 2c  70 61 74 68 5f 77 69 64  |le_blk%,path_wid|
00007b70  74 68 25 0d 03 82 1c 73  74 79 6c 65 5f 62 6c 6b  |th%....style_blk|
00007b80  25 20 20 3d 20 62 75 66  66 65 72 25 21 34 38 0d  |%  = buffer%!48.|
00007b90  03 83 21 70 61 74 68 5f  77 69 64 74 68 25 20 3d  |..!path_width% =|
00007ba0  20 62 75 66 66 65 72 25  21 33 32 20 2f 20 31 36  | buffer%!32 / 16|
00007bb0  0d 03 84 25 77 69 64 74  68 25 20 3d 20 77 69 64  |...%width% = wid|
00007bc0  74 68 25 20 2a 20 7c 28  62 75 66 66 65 72 25 20  |th% * |(buffer% |
00007bd0  2b 20 31 32 29 0d 03 85  25 6c 65 6e 25 20 20 20  |+ 12)...%len%   |
00007be0  3d 20 6c 65 6e 25 20 20  20 2a 20 7c 28 62 75 66  |= len%   * |(buf|
00007bf0  66 65 72 25 20 2b 20 31  32 29 0d 03 86 36 73 74  |fer% + 12)...6st|
00007c00  79 6c 65 5f 62 6c 6b 25  3f 30 20 3d 20 73 74 79  |yle_blk%?0 = sty|
00007c10  6c 65 5f 62 6c 6b 25 3f  30 20 20 84 20 31 20 3c  |le_blk%?0  . 1 <|
00007c20  3c 20 34 20 3a f4 20 73  65 74 20 62 69 74 20 34  |< 4 :. set bit 4|
00007c30  0d 03 87 36 73 74 79 6c  65 5f 62 6c 6b 25 3f 30  |...6style_blk%?0|
00007c40  20 3d 20 73 74 79 6c 65  5f 62 6c 6b 25 3f 30 20  | = style_blk%?0 |
00007c50  20 84 20 31 20 3c 3c 20  35 20 3a f4 20 73 65 74  | . 1 << 5 :. set|
00007c60  20 62 69 74 20 35 0d 03  88 27 73 74 79 6c 65 5f  | bit 5...'style_|
00007c70  62 6c 6b 25 3f 32 20 3d  20 77 69 64 74 68 25 20  |blk%?2 = width% |
00007c80  2f 20 70 61 74 68 5f 77  69 64 74 68 25 0d 03 89  |/ path_width%...|
00007c90  27 73 74 79 6c 65 5f 62  6c 6b 25 3f 33 20 3d 20  |'style_blk%?3 = |
00007ca0  6c 65 6e 25 20 20 20 2f  20 70 61 74 68 5f 77 69  |len%   / path_wi|
00007cb0  64 74 68 25 0d 03 8a 41  f4 20 50 52 4f 43 73 68  |dth%...A. PROCsh|
00007cc0  65 6c 6c 5f 54 72 61 63  65 66 30 28 22 44 45 42  |ell_Tracef0("DEB|
00007cd0  55 47 3a 3a 20 70 61 74  68 20 77 69 64 74 68 20  |UG:: path width |
00007ce0  69 73 20 22 2b 53 54 52  24 70 61 74 68 5f 77 69  |is "+STR$path_wi|
00007cf0  64 74 68 25 29 0d 03 8b  05 e1 0d 03 8c 05 3a 0d  |dth%).........:.|
00007d00  03 8d 2c 2a 7c 53 74 6f  70 20 50 52 4f 43 73 68  |..,*|Stop PROCsh|
00007d10  65 6c 6c 5f 44 72 61 77  53 65 74 53 74 61 72 74  |ell_DrawSetStart|
00007d20  43 61 70 54 72 69 61 6e  67 6c 65 0d 03 8e 04 0d  |CapTriangle.....|
00007d30  03 8f 22 2a 7c 53 74 61  72 74 20 50 52 4f 43 73  |.."*|Start PROCs|
00007d40  68 65 6c 6c 5f 44 72 61  77 53 65 74 53 63 61 6c  |hell_DrawSetScal|
00007d50  65 0d 03 90 2c dd 20 f2  73 68 65 6c 6c 5f 44 72  |e...,. .shell_Dr|
00007d60  61 77 53 65 74 53 63 61  6c 65 28 62 75 66 66 65  |awSetScale(buffe|
00007d70  72 25 2c 78 73 63 6c 2c  79 73 63 6c 29 0d 03 91  |r%,xscl,yscl)...|
00007d80  0d ea 20 6d 61 74 72 69  78 25 0d 03 92 1b 6d 61  |.. matrix%....ma|
00007d90  74 72 69 78 25 20 20 20  20 3d 20 62 75 66 66 65  |trix%    = buffe|
00007da0  72 25 21 35 32 0d 03 93  20 6d 61 74 72 69 78 25  |r%!52... matrix%|
00007db0  21 30 30 20 3d 20 a8 28  36 35 35 33 36 20 2a 20  |!00 = .(65536 * |
00007dc0  78 73 63 6c 29 0d 03 94  20 6d 61 74 72 69 78 25  |xscl)... matrix%|
00007dd0  21 31 32 20 3d 20 a8 28  36 35 35 33 36 20 2a 20  |!12 = .(65536 * |
00007de0  79 73 63 6c 29 0d 03 95  05 e1 0d 03 96 05 3a 0d  |yscl).........:.|
00007df0  03 97 21 2a 7c 53 74 6f  70 20 50 52 4f 43 73 68  |..!*|Stop PROCsh|
00007e00  65 6c 6c 5f 44 72 61 77  53 65 74 53 63 61 6c 65  |ell_DrawSetScale|
00007e10  0d 03 98 04 0d 03 99 22  2a 7c 53 74 61 72 74 20  |......."*|Start |
00007e20  50 52 4f 43 73 68 65 6c  6c 5f 44 72 61 77 47 65  |PROCshell_DrawGe|
00007e30  74 53 63 61 6c 65 0d 03  9a 30 dd 20 f2 73 68 65  |tScale...0. .she|
00007e40  6c 6c 5f 44 72 61 77 47  65 74 53 63 61 6c 65 28  |ll_DrawGetScale(|
00007e50  62 75 66 66 65 72 25 2c  f8 20 78 73 63 6c 2c f8  |buffer%,. xscl,.|
00007e60  20 79 73 63 6c 29 0d 03  9b 0d ea 20 6d 61 74 72  | yscl)..... matr|
00007e70  69 78 25 0d 03 9c 18 6d  61 74 72 69 78 25 20 3d  |ix%....matrix% =|
00007e80  20 62 75 66 66 65 72 25  21 35 32 0d 03 9d 20 78  | buffer%!52... x|
00007e90  73 63 6c 20 20 20 20 3d  20 6d 61 74 72 69 78 25  |scl    = matrix%|
00007ea0  21 30 30 20 2f 20 36 35  35 33 36 0d 03 9e 20 79  |!00 / 65536... y|
00007eb0  73 63 6c 20 20 20 20 3d  20 6d 61 74 72 69 78 25  |scl    = matrix%|
00007ec0  21 31 32 20 2f 20 36 35  35 33 36 0d 03 9f 05 e1  |!12 / 65536.....|
00007ed0  0d 03 a0 05 3a 0d 03 a1  21 2a 7c 53 74 6f 70 20  |....:...!*|Stop |
00007ee0  50 52 4f 43 73 68 65 6c  6c 5f 44 72 61 77 47 65  |PROCshell_DrawGe|
00007ef0  74 53 63 61 6c 65 0d 03  a2 04 0d 03 a3 26 2a 7c  |tScale.......&*||
00007f00  53 74 61 72 74 20 50 52  4f 43 73 68 65 6c 6c 5f  |Start PROCshell_|
00007f10  44 72 61 77 52 65 73 69  7a 65 57 69 6e 64 6f 77  |DrawResizeWindow|
00007f20  0d 03 a4 3a dd 20 f2 73  68 65 6c 6c 5f 44 72 61  |...:. .shell_Dra|
00007f30  77 52 65 73 69 7a 65 57  69 6e 64 6f 77 28 62 75  |wResizeWindow(bu|
00007f40  66 66 65 72 25 2c 77 68  25 2c 6c 6d 25 2c 62 6d  |ffer%,wh%,lm%,bm|
00007f50  25 2c 72 6d 25 2c 74 6d  25 29 0d 03 a5 1c ea 20  |%,rm%,tm%)..... |
00007f60  78 70 6f 73 2c 79 70 6f  73 2c 77 69 64 74 68 2c  |xpos,ypos,width,|
00007f70  68 65 69 67 68 74 0d 03  a6 3f f2 73 68 65 6c 6c  |height...?.shell|
00007f80  5f 44 72 61 77 47 65 74  42 6f 75 6e 64 69 6e 67  |_DrawGetBounding|
00007f90  42 6f 78 28 62 75 66 66  65 72 25 2c 78 70 6f 73  |Box(buffer%,xpos|
00007fa0  2c 79 70 6f 73 2c 77 69  64 74 68 2c 68 65 69 67  |,ypos,width,heig|
00007fb0  68 74 2c b9 29 0d 03 a7  52 f2 73 68 65 6c 6c 5f  |ht,.)...R.shell_|
00007fc0  57 69 6e 64 6f 77 52 65  73 69 7a 65 28 77 68 25  |WindowResize(wh%|
00007fd0  2c 30 2c 2d 20 28 74 6d  25 20 2b 20 62 6d 25 20  |,0,- (tm% + bm% |
00007fe0  2b 20 68 65 69 67 68 74  20 2b 20 79 70 6f 73 29  |+ height + ypos)|
00007ff0  2c 77 69 64 74 68 20 2b  20 6c 6d 25 20 2b 20 72  |,width + lm% + r|
00008000  6d 25 2c 30 2c 30 29 0d  03 a8 05 e1 0d 03 a9 05  |m%,0,0).........|
00008010  3a 0d 03 aa 25 2a 7c 53  74 6f 70 20 50 52 4f 43  |:...%*|Stop PROC|
00008020  73 68 65 6c 6c 5f 44 72  61 77 52 65 73 69 7a 65  |shell_DrawResize|
00008030  57 69 6e 64 6f 77 0d 03  ab 04 0d 03 ac 27 2a 7c  |Window.......'*||
00008040  53 74 61 72 74 20 50 52  4f 43 73 68 65 6c 6c 5f  |Start PROCshell_|
00008050  44 72 61 77 53 63 61 6c  65 54 6f 57 69 6e 64 6f  |DrawScaleToWindo|
00008060  77 0d 03 ad 49 dd 20 f2  73 68 65 6c 6c 5f 44 72  |w...I. .shell_Dr|
00008070  61 77 53 63 61 6c 65 54  6f 57 69 6e 64 6f 77 28  |awScaleToWindow(|
00008080  62 75 66 66 65 72 25 2c  77 68 25 2c 6c 6d 25 2c  |buffer%,wh%,lm%,|
00008090  62 6d 25 2c 72 6d 25 2c  74 6d 25 2c f8 20 78 73  |bm%,rm%,tm%,. xs|
000080a0  63 6c 2c f8 20 79 73 63  6c 29 0d 03 ae 44 ea 20  |cl,. yscl)...D. |
000080b0  78 70 6f 73 2c 79 70 6f  73 2c 77 69 64 74 68 2c  |xpos,ypos,width,|
000080c0  68 65 69 67 68 74 2c 77  5f 62 6c 6b 25 2c 77 5f  |height,w_blk%,w_|
000080d0  77 69 64 74 68 25 2c 77  5f 68 65 69 67 68 74 25  |width%,w_height%|
000080e0  2c 6f 5f 78 73 63 6c 2c  6f 5f 79 73 63 6c 0d 03  |,o_xscl,o_yscl..|
000080f0  af 2e f2 73 68 65 6c 6c  5f 44 72 61 77 53 65 74  |...shell_DrawSet|
00008100  53 63 61 6c 65 28 62 75  66 66 65 72 25 2c 6f 5f  |Scale(buffer%,o_|
00008110  78 73 63 6c 2c 6f 5f 79  73 63 6c 29 0d 03 b0 24  |xscl,o_yscl)...$|
00008120  f2 73 68 65 6c 6c 5f 44  72 61 77 53 65 74 53 63  |.shell_DrawSetSc|
00008130  61 6c 65 28 62 75 66 66  65 72 25 2c 31 2c 31 29  |ale(buffer%,1,1)|
00008140  0d 03 b1 3f f2 73 68 65  6c 6c 5f 44 72 61 77 47  |...?.shell_DrawG|
00008150  65 74 42 6f 75 6e 64 69  6e 67 42 6f 78 28 62 75  |etBoundingBox(bu|
00008160  66 66 65 72 25 2c 78 70  6f 73 2c 79 70 6f 73 2c  |ffer%,xpos,ypos,|
00008170  77 69 64 74 68 2c 68 65  69 67 68 74 2c b9 29 0d  |width,height,.).|
00008180  03 b2 27 77 5f 62 6c 6b  25 20 20 3d 20 a4 73 68  |..'w_blk%  = .sh|
00008190  65 6c 6c 5f 48 65 61 70  42 6c 6f 63 6b 46 65 74  |ell_HeapBlockFet|
000081a0  63 68 28 33 36 29 0d 03  b3 11 21 77 5f 62 6c 6b  |ch(36)....!w_blk|
000081b0  25 20 3d 20 77 68 25 0d  03 b4 24 c8 99 20 22 57  |% = wh%...$.. "W|
000081c0  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
000081d0  74 65 22 2c 2c 77 5f 62  6c 6b 25 0d 03 b5 41 77  |te",,w_blk%...Aw|
000081e0  5f 77 69 64 74 68 25 20  20 3d 20 28 77 5f 62 6c  |_width%  = (w_bl|
000081f0  6b 25 21 31 32 20 2d 20  77 5f 62 6c 6b 25 21 30  |k%!12 - w_blk%!0|
00008200  34 20 2b 20 77 5f 62 6c  6b 25 21 32 30 29 20 2d  |4 + w_blk%!20) -|
00008210  20 28 6c 6d 25 20 2b 20  72 6d 25 29 0d 03 b6 41  | (lm% + rm%)...A|
00008220  77 5f 68 65 69 67 68 74  25 20 3d 20 28 77 5f 62  |w_height% = (w_b|
00008230  6c 6b 25 21 31 36 20 2d  20 77 5f 62 6c 6b 25 21  |lk%!16 - w_blk%!|
00008240  30 38 20 2b 20 77 5f 62  6c 6b 25 21 32 34 29 20  |08 + w_blk%!24) |
00008250  2d 20 28 74 6d 25 20 2b  20 62 6d 25 29 0d 03 b7  |- (tm% + bm%)...|
00008260  2a 78 73 63 6c 20 20 20  20 20 20 3d 20 28 77 5f  |*xscl      = (w_|
00008270  77 69 64 74 68 25 20 20  2f 20 28 77 69 64 74 68  |width%  / (width|
00008280  20 20 2d 20 30 29 29 0d  03 b8 2a 79 73 63 6c 20  |  - 0))...*yscl |
00008290  20 20 20 20 20 3d 20 28  77 5f 68 65 69 67 68 74  |     = (w_height|
000082a0  25 20 2f 20 28 68 65 69  67 68 74 20 2d 20 30 29  |% / (height - 0)|
000082b0  29 0d 03 b9 2c f4 20 50  52 4f 43 73 68 65 6c 6c  |)...,. PROCshell|
000082c0  5f 54 72 61 63 65 66 30  28 22 3e 3e 3e 20 22 2b  |_Tracef0(">>> "+|
000082d0  53 54 52 24 77 5f 77 69  64 74 68 25 29 0d 03 ba  |STR$w_width%)...|
000082e0  29 f4 20 50 52 4f 43 73  68 65 6c 6c 5f 54 72 61  |). PROCshell_Tra|
000082f0  63 65 66 30 28 22 3e 3e  3e 20 22 2b 53 54 52 24  |cef0(">>> "+STR$|
00008300  77 69 64 74 68 29 0d 03  bb 2d f4 20 50 52 4f 43  |width)...-. PROC|
00008310  73 68 65 6c 6c 5f 54 72  61 63 65 66 30 28 22 3e  |shell_Tracef0(">|
00008320  3e 3e 20 22 2b 53 54 52  24 77 5f 68 65 69 67 68  |>> "+STR$w_heigh|
00008330  74 25 29 0d 03 bc 2a f4  20 50 52 4f 43 73 68 65  |t%)...*. PROCshe|
00008340  6c 6c 5f 54 72 61 63 65  66 30 28 22 3e 3e 3e 20  |ll_Tracef0(">>> |
00008350  22 2b 53 54 52 24 68 65  69 67 68 74 29 0d 03 bd  |"+STR$height)...|
00008360  2d f4 20 50 52 4f 43 73  68 65 6c 6c 5f 54 72 61  |-. PROCshell_Tra|
00008370  63 65 66 30 28 22 3e 3e  3e 20 78 73 63 6c 20 22  |cef0(">>> xscl "|
00008380  2b 53 54 52 24 78 73 63  6c 29 0d 03 be 2d f4 20  |+STR$xscl)...-. |
00008390  50 52 4f 43 73 68 65 6c  6c 5f 54 72 61 63 65 66  |PROCshell_Tracef|
000083a0  30 28 22 3e 3e 3e 20 79  73 63 6c 20 22 2b 53 54  |0(">>> yscl "+ST|
000083b0  52 24 79 73 63 6c 29 0d  03 bf 22 f2 73 68 65 6c  |R$yscl)...".shel|
000083c0  6c 5f 48 65 61 70 42 6c  6f 63 6b 52 65 74 75 72  |l_HeapBlockRetur|
000083d0  6e 28 77 5f 62 6c 6b 25  29 0d 03 c0 2e f2 73 68  |n(w_blk%).....sh|
000083e0  65 6c 6c 5f 44 72 61 77  53 65 74 53 63 61 6c 65  |ell_DrawSetScale|
000083f0  28 62 75 66 66 65 72 25  2c 6f 5f 78 73 63 6c 2c  |(buffer%,o_xscl,|
00008400  6f 5f 79 73 63 6c 29 0d  03 c1 05 e1 0d 03 c2 05  |o_yscl).........|
00008410  3a 0d 03 c3 26 2a 7c 53  74 6f 70 20 50 52 4f 43  |:...&*|Stop PROC|
00008420  73 68 65 6c 6c 5f 44 72  61 77 53 63 61 6c 65 54  |shell_DrawScaleT|
00008430  6f 57 69 6e 64 6f 77 0d  ff                       |oWindow..|
00008439