� > DrawCol
� Colour printer test
F� Generates draw file showing colour shades selected by rgb values
(!� by Paul Marshall April 1994
2
<&� � ș"Hourglass_Smash":�#0:�:�:�
F
Pfilename$="ColourTest"
Zș"Hourglass_On"
d
n� buf 96000
x� sat(8)
�� I%=0 � 8
�  � sat(I%)
��
�
�'�  Select 9 rgb values to display:-
�&� 0,64,103,143,175,207,223,239,255
�
�
��file_header
��font_table
�+�text("Colour Printer Test",3.25,11,20)
�
�xorg=0.7

yorg=1.2

� blue%=0 � 8

  Ȏ blue% � 3 �

"    � 0 : xpos=xorg

,"    �text("R",0.3,yorg+1.3,10)

6#    �text("e",0.3,yorg+1.15,10)

@"    �text("d",0.3,yorg+1.0,10)

J    � 1 : xpos=xorg+2.5

T    � 2 : xpos=xorg+5.0

^  �

h7  �text("Blue = "+�sat(blue%),xpos+1.0,yorg+2.4,10)

r*  �text("Green",xpos+1.0,yorg-0.35,10)

|  � green%=0 � 8

�    ypos=yorg

�    � red%=0 � 8

�?      �box(xpos,ypos,0.25,sat(red%),sat(green%),sat(blue%))

�<      � green%=0 � �text(�value(red%),xpos-.2,ypos+.1,7)

�@      � red%  =0 � �text(�value(green%),xpos+.05,ypos-.15,7)

�      ypos=ypos+0.25

�    � red%

�    xpos=xpos+0.25

�  � green%

�!  � blue% � 3 = 2 � yorg+=3.5

�� blue%

��writefile

�ș"Hourglass_Smash"
�
:
ݤvalue(N%)
&=�"  "+�(sat(N%)),3)
0:
:ݤinchtopnt(i)
D=180*256*i
N:
X��writefile
b ch%=�(filename$)
l � I%=0 � (P%-buf)-1
v   �#ch%,buf?I%
� �
�
 �#ch%
�( �("SETTYPE "+filename$+" Drawfile")
��
�:
���box(x,y,s,r,g,b)
�/� Sets up filled box at x,y in colour r,g,b
� �obj_header(2,5,4)
� P%?0 = 0 : � (reserved)
� P%?1 = r : � fill colour
�
 P%?2 = g
�
 P%?3 = b
�' P%!4 =-1 : � outline colour (none)
' P%!8 = 0 : � outline width  (thin)
 P%!12= 0 : � path style
 P%+=16
  x=�inchtopnt(x)
* y=�inchtopnt(y)
4 s=�inchtopnt(s)
> �move(x,y)
H �line(x,y+s)
R �line(x+s,y+s)
\ �line(x+s,y)
f �line(x,y)
p �end_path
z�
�:
���obj_header(type,x,y)
� objstart=P%
� P%!0 = type
�
 P%!4 = 0
�
 P%!8 = 0
�
 P%!12= 0
� P%!16= �inchtopnt(x)
� P%!20= �inchtopnt(y)
� P%+=24
��
�:
���end_path

 P%!0 = 0

 P%+=4
 size = P%-objstart
$ objstart!4 = size
.�
8:
B��move(X%,Y%)
L
 P%!0 = 2
V P%!4 = X%
` P%!8 = Y%
j P%+=12
t�
~:
���line(X%,Y%)
�
 P%!0 = 8
� P%!4 = X%
� P%!8 = Y%
� P%+=12
��
�:
���file_header
� P%  = buf
� $P% = "Draw"
� P%!4 = 201
�
 P%!8 = 0
 $(P%+12) = "Draw Colours"

 P%!24 = 0
 P%!28 = 0
 P%!32 = �inchtopnt(8.5)
( P%!36 = �inchtopnt(11)
2 P%+=40
<�
F:
P��font_table
Z F$="Trinity.Medium"
d objstart=P%
n
 P%!0 = 0
x
 P%!4 = 0
�
 P%?8 = 1
�
 P%+=9
� $P%=F$
�
 P%+=� F$
� ?P%=0 : P%+=1
� ȕ P% � 4<>0
�   ?P%=0
�   P%+=1
� �
� �end_path
��
�:
���text(T$,x,y,s)
 �obj_header(1,0.5,0.5)

 P%!0 = 4
 P%!4 = -1
"
 P%!8 = 1
, P%!12 = s*640
6 P%!16 = s*640
@ P%!20 = �inchtopnt(x)
J P%!24 = �inchtopnt(y)
T $(P%+28) = T$+�0
^ P%=P%+28+� T$
h ?P%=0 : P%+=1
r ȕ P% � 4<>0
|   ?P%=0
�   P%+=1
� �
� �end_path
��
�
�

00000000  0d 00 0a 0f f4 20 3e 20  44 72 61 77 43 6f 6c 0d  |..... > DrawCol.|
00000010  00 14 19 f4 20 43 6f 6c  6f 75 72 20 70 72 69 6e  |.... Colour prin|
00000020  74 65 72 20 74 65 73 74  0d 00 1e 46 f4 20 47 65  |ter test...F. Ge|
00000030  6e 65 72 61 74 65 73 20  64 72 61 77 20 66 69 6c  |nerates draw fil|
00000040  65 20 73 68 6f 77 69 6e  67 20 63 6f 6c 6f 75 72  |e showing colour|
00000050  20 73 68 61 64 65 73 20  73 65 6c 65 63 74 65 64  | shades selected|
00000060  20 62 79 20 72 67 62 20  76 61 6c 75 65 73 0d 00  | by rgb values..|
00000070  28 21 f4 20 62 79 20 50  61 75 6c 20 4d 61 72 73  |(!. by Paul Mars|
00000080  68 61 6c 6c 20 41 70 72  69 6c 20 31 39 39 34 0d  |hall April 1994.|
00000090  00 32 04 0d 00 3c 26 ee  20 85 20 c8 99 22 48 6f  |.2...<&. . .."Ho|
000000a0  75 72 67 6c 61 73 73 5f  53 6d 61 73 68 22 3a d9  |urglass_Smash":.|
000000b0  23 30 3a f6 3a f1 9e 3a  e0 0d 00 46 04 0d 00 50  |#0:.:..:...F...P|
000000c0  1a 66 69 6c 65 6e 61 6d  65 24 3d 22 43 6f 6c 6f  |.filename$="Colo|
000000d0  75 72 54 65 73 74 22 0d  00 5a 14 c8 99 22 48 6f  |urTest"..Z..."Ho|
000000e0  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 00 64 04 0d  |urglass_On"..d..|
000000f0  00 6e 0f de 20 62 75 66  20 39 36 30 30 30 0d 00  |.n.. buf 96000..|
00000100  78 0c de 20 73 61 74 28  38 29 0d 00 82 0e e3 20  |x.. sat(8)..... |
00000110  49 25 3d 30 20 b8 20 38  0d 00 8c 0f 20 20 f3 20  |I%=0 . 8....  . |
00000120  73 61 74 28 49 25 29 0d  00 96 05 ed 0d 00 a0 04  |sat(I%).........|
00000130  0d 00 aa 27 f4 20 20 53  65 6c 65 63 74 20 39 20  |...'.  Select 9 |
00000140  72 67 62 20 76 61 6c 75  65 73 20 74 6f 20 64 69  |rgb values to di|
00000150  73 70 6c 61 79 3a 2d 0d  00 b4 26 dc 20 30 2c 36  |splay:-...&. 0,6|
00000160  34 2c 31 30 33 2c 31 34  33 2c 31 37 35 2c 32 30  |4,103,143,175,20|
00000170  37 2c 32 32 33 2c 32 33  39 2c 32 35 35 0d 00 be  |7,223,239,255...|
00000180  04 0d 00 c8 04 0d 00 d2  10 f2 66 69 6c 65 5f 68  |..........file_h|
00000190  65 61 64 65 72 0d 00 dc  0f f2 66 6f 6e 74 5f 74  |eader.....font_t|
000001a0  61 62 6c 65 0d 00 e6 2b  f2 74 65 78 74 28 22 43  |able...+.text("C|
000001b0  6f 6c 6f 75 72 20 50 72  69 6e 74 65 72 20 54 65  |olour Printer Te|
000001c0  73 74 22 2c 33 2e 32 35  2c 31 31 2c 32 30 29 0d  |st",3.25,11,20).|
000001d0  00 f0 04 0d 00 fa 0c 78  6f 72 67 3d 30 2e 37 0d  |.......xorg=0.7.|
000001e0  01 04 0c 79 6f 72 67 3d  31 2e 32 0d 01 0e 11 e3  |...yorg=1.2.....|
000001f0  20 62 6c 75 65 25 3d 30  20 b8 20 38 0d 01 18 14  | blue%=0 . 8....|
00000200  20 20 c8 8e 20 62 6c 75  65 25 20 83 20 33 20 ca  |  .. blue% . 3 .|
00000210  0d 01 22 17 20 20 20 20  c9 20 30 20 3a 20 78 70  |..".    . 0 : xp|
00000220  6f 73 3d 78 6f 72 67 0d  01 2c 22 20 20 20 20 f2  |os=xorg..,"    .|
00000230  74 65 78 74 28 22 52 22  2c 30 2e 33 2c 79 6f 72  |text("R",0.3,yor|
00000240  67 2b 31 2e 33 2c 31 30  29 0d 01 36 23 20 20 20  |g+1.3,10)..6#   |
00000250  20 f2 74 65 78 74 28 22  65 22 2c 30 2e 33 2c 79  | .text("e",0.3,y|
00000260  6f 72 67 2b 31 2e 31 35  2c 31 30 29 0d 01 40 22  |org+1.15,10)..@"|
00000270  20 20 20 20 f2 74 65 78  74 28 22 64 22 2c 30 2e  |    .text("d",0.|
00000280  33 2c 79 6f 72 67 2b 31  2e 30 2c 31 30 29 0d 01  |3,yorg+1.0,10)..|
00000290  4a 1b 20 20 20 20 c9 20  31 20 3a 20 78 70 6f 73  |J.    . 1 : xpos|
000002a0  3d 78 6f 72 67 2b 32 2e  35 0d 01 54 1b 20 20 20  |=xorg+2.5..T.   |
000002b0  20 c9 20 32 20 3a 20 78  70 6f 73 3d 78 6f 72 67  | . 2 : xpos=xorg|
000002c0  2b 35 2e 30 0d 01 5e 07  20 20 cb 0d 01 68 37 20  |+5.0..^.  ...h7 |
000002d0  20 f2 74 65 78 74 28 22  42 6c 75 65 20 3d 20 22  | .text("Blue = "|
000002e0  2b c3 73 61 74 28 62 6c  75 65 25 29 2c 78 70 6f  |+.sat(blue%),xpo|
000002f0  73 2b 31 2e 30 2c 79 6f  72 67 2b 32 2e 34 2c 31  |s+1.0,yorg+2.4,1|
00000300  30 29 0d 01 72 2a 20 20  f2 74 65 78 74 28 22 47  |0)..r*  .text("G|
00000310  72 65 65 6e 22 2c 78 70  6f 73 2b 31 2e 30 2c 79  |reen",xpos+1.0,y|
00000320  6f 72 67 2d 30 2e 33 35  2c 31 30 29 0d 01 7c 14  |org-0.35,10)..|.|
00000330  20 20 e3 20 67 72 65 65  6e 25 3d 30 20 b8 20 38  |  . green%=0 . 8|
00000340  0d 01 86 11 20 20 20 20  79 70 6f 73 3d 79 6f 72  |....    ypos=yor|
00000350  67 0d 01 90 14 20 20 20  20 e3 20 72 65 64 25 3d  |g....    . red%=|
00000360  30 20 b8 20 38 0d 01 9a  3f 20 20 20 20 20 20 f2  |0 . 8...?      .|
00000370  62 6f 78 28 78 70 6f 73  2c 79 70 6f 73 2c 30 2e  |box(xpos,ypos,0.|
00000380  32 35 2c 73 61 74 28 72  65 64 25 29 2c 73 61 74  |25,sat(red%),sat|
00000390  28 67 72 65 65 6e 25 29  2c 73 61 74 28 62 6c 75  |(green%),sat(blu|
000003a0  65 25 29 29 0d 01 a4 3c  20 20 20 20 20 20 e7 20  |e%))...<      . |
000003b0  67 72 65 65 6e 25 3d 30  20 8c 20 f2 74 65 78 74  |green%=0 . .text|
000003c0  28 a4 76 61 6c 75 65 28  72 65 64 25 29 2c 78 70  |(.value(red%),xp|
000003d0  6f 73 2d 2e 32 2c 79 70  6f 73 2b 2e 31 2c 37 29  |os-.2,ypos+.1,7)|
000003e0  0d 01 ae 40 20 20 20 20  20 20 e7 20 72 65 64 25  |...@      . red%|
000003f0  20 20 3d 30 20 8c 20 f2  74 65 78 74 28 a4 76 61  |  =0 . .text(.va|
00000400  6c 75 65 28 67 72 65 65  6e 25 29 2c 78 70 6f 73  |lue(green%),xpos|
00000410  2b 2e 30 35 2c 79 70 6f  73 2d 2e 31 35 2c 37 29  |+.05,ypos-.15,7)|
00000420  0d 01 b8 18 20 20 20 20  20 20 79 70 6f 73 3d 79  |....      ypos=y|
00000430  70 6f 73 2b 30 2e 32 35  0d 01 c2 0e 20 20 20 20  |pos+0.25....    |
00000440  ed 20 72 65 64 25 0d 01  cc 16 20 20 20 20 78 70  |. red%....    xp|
00000450  6f 73 3d 78 70 6f 73 2b  30 2e 32 35 0d 01 d6 0e  |os=xpos+0.25....|
00000460  20 20 ed 20 67 72 65 65  6e 25 0d 01 e0 21 20 20  |  . green%...!  |
00000470  e7 20 62 6c 75 65 25 20  83 20 33 20 3d 20 32 20  |. blue% . 3 = 2 |
00000480  8c 20 79 6f 72 67 2b 3d  33 2e 35 0d 01 ea 0b ed  |. yorg+=3.5.....|
00000490  20 62 6c 75 65 25 0d 01  f4 0e f2 77 72 69 74 65  | blue%.....write|
000004a0  66 69 6c 65 0d 01 fe 17  c8 99 22 48 6f 75 72 67  |file......"Hourg|
000004b0  6c 61 73 73 5f 53 6d 61  73 68 22 0d 02 08 05 e0  |lass_Smash".....|
000004c0  0d 02 12 05 3a 0d 02 1c  0f dd a4 76 61 6c 75 65  |....:......value|
000004d0  28 4e 25 29 0d 02 26 18  3d c2 22 20 20 22 2b c3  |(N%)..&.=."  "+.|
000004e0  28 73 61 74 28 4e 25 29  29 2c 33 29 0d 02 30 05  |(sat(N%)),3)..0.|
000004f0  3a 0d 02 3a 12 dd a4 69  6e 63 68 74 6f 70 6e 74  |:..:...inchtopnt|
00000500  28 69 29 0d 02 44 0e 3d  31 38 30 2a 32 35 36 2a  |(i)..D.=180*256*|
00000510  69 0d 02 4e 05 3a 0d 02  58 0f dd f2 77 72 69 74  |i..N.:..X...writ|
00000520  65 66 69 6c 65 0d 02 62  15 20 63 68 25 3d ae 28  |efile..b. ch%=.(|
00000530  66 69 6c 65 6e 61 6d 65  24 29 0d 02 6c 18 20 e3  |filename$)..l. .|
00000540  20 49 25 3d 30 20 b8 20  28 50 25 2d 62 75 66 29  | I%=0 . (P%-buf)|
00000550  2d 31 0d 02 76 13 20 20  20 d5 23 63 68 25 2c 62  |-1..v.   .#ch%,b|
00000560  75 66 3f 49 25 0d 02 80  06 20 ed 0d 02 8a 0a 20  |uf?I%.... ..... |
00000570  d9 23 63 68 25 0d 02 94  28 20 ff 28 22 53 45 54  |.#ch%...( .("SET|
00000580  54 59 50 45 20 22 2b 66  69 6c 65 6e 61 6d 65 24  |TYPE "+filename$|
00000590  2b 22 20 44 72 61 77 66  69 6c 65 22 29 0d 02 9e  |+" Drawfile")...|
000005a0  05 e1 0d 02 a8 05 3a 0d  02 b2 16 dd f2 62 6f 78  |......:......box|
000005b0  28 78 2c 79 2c 73 2c 72  2c 67 2c 62 29 0d 02 bc  |(x,y,s,r,g,b)...|
000005c0  2f f4 20 53 65 74 73 20  75 70 20 66 69 6c 6c 65  |/. Sets up fille|
000005d0  64 20 62 6f 78 20 61 74  20 78 2c 79 20 69 6e 20  |d box at x,y in |
000005e0  63 6f 6c 6f 75 72 20 72  2c 67 2c 62 0d 02 c6 17  |colour r,g,b....|
000005f0  20 f2 6f 62 6a 5f 68 65  61 64 65 72 28 32 2c 35  | .obj_header(2,5|
00000600  2c 34 29 0d 02 d0 1c 20  50 25 3f 30 20 3d 20 30  |,4).... P%?0 = 0|
00000610  20 3a 20 f4 20 28 72 65  73 65 72 76 65 64 29 0d  | : . (reserved).|
00000620  02 da 1d 20 50 25 3f 31  20 3d 20 72 20 3a 20 f4  |... P%?1 = r : .|
00000630  20 66 69 6c 6c 20 63 6f  6c 6f 75 72 0d 02 e4 0d  | fill colour....|
00000640  20 50 25 3f 32 20 3d 20  67 0d 02 ee 0d 20 50 25  | P%?2 = g.... P%|
00000650  3f 33 20 3d 20 62 0d 02  f8 27 20 50 25 21 34 20  |?3 = b...' P%!4 |
00000660  3d 2d 31 20 3a 20 f4 20  6f 75 74 6c 69 6e 65 20  |=-1 : . outline |
00000670  63 6f 6c 6f 75 72 20 28  6e 6f 6e 65 29 0d 03 02  |colour (none)...|
00000680  27 20 50 25 21 38 20 3d  20 30 20 3a 20 f4 20 6f  |' P%!8 = 0 : . o|
00000690  75 74 6c 69 6e 65 20 77  69 64 74 68 20 20 28 74  |utline width  (t|
000006a0  68 69 6e 29 0d 03 0c 1c  20 50 25 21 31 32 3d 20  |hin).... P%!12= |
000006b0  30 20 3a 20 f4 20 70 61  74 68 20 73 74 79 6c 65  |0 : . path style|
000006c0  0d 03 16 0b 20 50 25 2b  3d 31 36 0d 03 20 14 20  |.... P%+=16.. . |
000006d0  78 3d a4 69 6e 63 68 74  6f 70 6e 74 28 78 29 0d  |x=.inchtopnt(x).|
000006e0  03 2a 14 20 79 3d a4 69  6e 63 68 74 6f 70 6e 74  |.*. y=.inchtopnt|
000006f0  28 79 29 0d 03 34 14 20  73 3d a4 69 6e 63 68 74  |(y)..4. s=.incht|
00000700  6f 70 6e 74 28 73 29 0d  03 3e 0f 20 f2 6d 6f 76  |opnt(s)..>. .mov|
00000710  65 28 78 2c 79 29 0d 03  48 11 20 f2 6c 69 6e 65  |e(x,y)..H. .line|
00000720  28 78 2c 79 2b 73 29 0d  03 52 13 20 f2 6c 69 6e  |(x,y+s)..R. .lin|
00000730  65 28 78 2b 73 2c 79 2b  73 29 0d 03 5c 11 20 f2  |e(x+s,y+s)..\. .|
00000740  6c 69 6e 65 28 78 2b 73  2c 79 29 0d 03 66 0f 20  |line(x+s,y)..f. |
00000750  f2 6c 69 6e 65 28 78 2c  79 29 0d 03 70 0e 20 f2  |.line(x,y)..p. .|
00000760  65 6e 64 5f 70 61 74 68  0d 03 7a 05 e1 0d 03 84  |end_path..z.....|
00000770  05 3a 0d 03 8e 1a dd f2  6f 62 6a 5f 68 65 61 64  |.:......obj_head|
00000780  65 72 28 74 79 70 65 2c  78 2c 79 29 0d 03 98 10  |er(type,x,y)....|
00000790  20 6f 62 6a 73 74 61 72  74 3d 50 25 0d 03 a2 10  | objstart=P%....|
000007a0  20 50 25 21 30 20 3d 20  74 79 70 65 0d 03 ac 0d  | P%!0 = type....|
000007b0  20 50 25 21 34 20 3d 20  30 0d 03 b6 0d 20 50 25  | P%!4 = 0.... P%|
000007c0  21 38 20 3d 20 30 0d 03  c0 0d 20 50 25 21 31 32  |!8 = 0.... P%!12|
000007d0  3d 20 30 0d 03 ca 19 20  50 25 21 31 36 3d 20 a4  |= 0.... P%!16= .|
000007e0  69 6e 63 68 74 6f 70 6e  74 28 78 29 0d 03 d4 19  |inchtopnt(x)....|
000007f0  20 50 25 21 32 30 3d 20  a4 69 6e 63 68 74 6f 70  | P%!20= .inchtop|
00000800  6e 74 28 79 29 0d 03 de  0b 20 50 25 2b 3d 32 34  |nt(y).... P%+=24|
00000810  0d 03 e8 05 e1 0d 03 f2  05 3a 0d 03 fc 0e dd f2  |.........:......|
00000820  65 6e 64 5f 70 61 74 68  0d 04 06 0d 20 50 25 21  |end_path.... P%!|
00000830  30 20 3d 20 30 0d 04 10  0a 20 50 25 2b 3d 34 0d  |0 = 0.... P%+=4.|
00000840  04 1a 17 20 73 69 7a 65  20 3d 20 50 25 2d 6f 62  |... size = P%-ob|
00000850  6a 73 74 61 72 74 0d 04  24 16 20 6f 62 6a 73 74  |jstart..$. objst|
00000860  61 72 74 21 34 20 3d 20  73 69 7a 65 0d 04 2e 05  |art!4 = size....|
00000870  e1 0d 04 38 05 3a 0d 04  42 11 dd f2 6d 6f 76 65  |...8.:..B...move|
00000880  28 58 25 2c 59 25 29 0d  04 4c 0d 20 50 25 21 30  |(X%,Y%)..L. P%!0|
00000890  20 3d 20 32 0d 04 56 0e  20 50 25 21 34 20 3d 20  | = 2..V. P%!4 = |
000008a0  58 25 0d 04 60 0e 20 50  25 21 38 20 3d 20 59 25  |X%..`. P%!8 = Y%|
000008b0  0d 04 6a 0b 20 50 25 2b  3d 31 32 0d 04 74 05 e1  |..j. P%+=12..t..|
000008c0  0d 04 7e 05 3a 0d 04 88  11 dd f2 6c 69 6e 65 28  |..~.:......line(|
000008d0  58 25 2c 59 25 29 0d 04  92 0d 20 50 25 21 30 20  |X%,Y%).... P%!0 |
000008e0  3d 20 38 0d 04 9c 0e 20  50 25 21 34 20 3d 20 58  |= 8.... P%!4 = X|
000008f0  25 0d 04 a6 0e 20 50 25  21 38 20 3d 20 59 25 0d  |%.... P%!8 = Y%.|
00000900  04 b0 0b 20 50 25 2b 3d  31 32 0d 04 ba 05 e1 0d  |... P%+=12......|
00000910  04 c4 05 3a 0d 04 ce 11  dd f2 66 69 6c 65 5f 68  |...:......file_h|
00000920  65 61 64 65 72 0d 04 d8  0e 20 50 25 20 20 3d 20  |eader.... P%  = |
00000930  62 75 66 0d 04 e2 11 20  24 50 25 20 3d 20 22 44  |buf.... $P% = "D|
00000940  72 61 77 22 0d 04 ec 0f  20 50 25 21 34 20 3d 20  |raw".... P%!4 = |
00000950  32 30 31 0d 04 f6 0d 20  50 25 21 38 20 3d 20 30  |201.... P%!8 = 0|
00000960  0d 05 00 1e 20 24 28 50  25 2b 31 32 29 20 3d 20  |.... $(P%+12) = |
00000970  22 44 72 61 77 20 43 6f  6c 6f 75 72 73 22 0d 05  |"Draw Colours"..|
00000980  0a 0e 20 50 25 21 32 34  20 3d 20 30 0d 05 14 0e  |.. P%!24 = 0....|
00000990  20 50 25 21 32 38 20 3d  20 30 0d 05 1e 1c 20 50  | P%!28 = 0.... P|
000009a0  25 21 33 32 20 3d 20 a4  69 6e 63 68 74 6f 70 6e  |%!32 = .inchtopn|
000009b0  74 28 38 2e 35 29 0d 05  28 1b 20 50 25 21 33 36  |t(8.5)..(. P%!36|
000009c0  20 3d 20 a4 69 6e 63 68  74 6f 70 6e 74 28 31 31  | = .inchtopnt(11|
000009d0  29 0d 05 32 0b 20 50 25  2b 3d 34 30 0d 05 3c 05  |)..2. P%+=40..<.|
000009e0  e1 0d 05 46 05 3a 0d 05  50 10 dd f2 66 6f 6e 74  |...F.:..P...font|
000009f0  5f 74 61 62 6c 65 0d 05  5a 18 20 46 24 3d 22 54  |_table..Z. F$="T|
00000a00  72 69 6e 69 74 79 2e 4d  65 64 69 75 6d 22 0d 05  |rinity.Medium"..|
00000a10  64 10 20 6f 62 6a 73 74  61 72 74 3d 50 25 0d 05  |d. objstart=P%..|
00000a20  6e 0d 20 50 25 21 30 20  3d 20 30 0d 05 78 0d 20  |n. P%!0 = 0..x. |
00000a30  50 25 21 34 20 3d 20 30  0d 05 82 0d 20 50 25 3f  |P%!4 = 0.... P%?|
00000a40  38 20 3d 20 31 0d 05 8c  0a 20 50 25 2b 3d 39 0d  |8 = 1.... P%+=9.|
00000a50  05 96 0b 20 24 50 25 3d  46 24 0d 05 a0 0d 20 50  |... $P%=F$.... P|
00000a60  25 2b 3d a9 20 46 24 0d  05 aa 12 20 3f 50 25 3d  |%+=. F$.... ?P%=|
00000a70  30 20 3a 20 50 25 2b 3d  31 0d 05 b4 11 20 c8 95  |0 : P%+=1.... ..|
00000a80  20 50 25 20 83 20 34 3c  3e 30 0d 05 be 0c 20 20  | P% . 4<>0....  |
00000a90  20 3f 50 25 3d 30 0d 05  c8 0c 20 20 20 50 25 2b  | ?P%=0....   P%+|
00000aa0  3d 31 0d 05 d2 06 20 ce  0d 05 dc 0e 20 f2 65 6e  |=1.... ..... .en|
00000ab0  64 5f 70 61 74 68 0d 05  e6 05 e1 0d 05 f0 05 3a  |d_path.........:|
00000ac0  0d 05 fa 14 dd f2 74 65  78 74 28 54 24 2c 78 2c  |......text(T$,x,|
00000ad0  79 2c 73 29 0d 06 04 1b  20 f2 6f 62 6a 5f 68 65  |y,s).... .obj_he|
00000ae0  61 64 65 72 28 31 2c 30  2e 35 2c 30 2e 35 29 0d  |ader(1,0.5,0.5).|
00000af0  06 0e 0d 20 50 25 21 30  20 3d 20 34 0d 06 18 0e  |... P%!0 = 4....|
00000b00  20 50 25 21 34 20 3d 20  2d 31 0d 06 22 0d 20 50  | P%!4 = -1..". P|
00000b10  25 21 38 20 3d 20 31 0d  06 2c 12 20 50 25 21 31  |%!8 = 1..,. P%!1|
00000b20  32 20 3d 20 73 2a 36 34  30 0d 06 36 12 20 50 25  |2 = s*640..6. P%|
00000b30  21 31 36 20 3d 20 73 2a  36 34 30 0d 06 40 1a 20  |!16 = s*640..@. |
00000b40  50 25 21 32 30 20 3d 20  a4 69 6e 63 68 74 6f 70  |P%!20 = .inchtop|
00000b50  6e 74 28 78 29 0d 06 4a  1a 20 50 25 21 32 34 20  |nt(x)..J. P%!24 |
00000b60  3d 20 a4 69 6e 63 68 74  6f 70 6e 74 28 79 29 0d  |= .inchtopnt(y).|
00000b70  06 54 15 20 24 28 50 25  2b 32 38 29 20 3d 20 54  |.T. $(P%+28) = T|
00000b80  24 2b bd 30 0d 06 5e 12  20 50 25 3d 50 25 2b 32  |$+.0..^. P%=P%+2|
00000b90  38 2b a9 20 54 24 0d 06  68 12 20 3f 50 25 3d 30  |8+. T$..h. ?P%=0|
00000ba0  20 3a 20 50 25 2b 3d 31  0d 06 72 11 20 c8 95 20  | : P%+=1..r. .. |
00000bb0  50 25 20 83 20 34 3c 3e  30 0d 06 7c 0c 20 20 20  |P% . 4<>0..|.   |
00000bc0  3f 50 25 3d 30 0d 06 86  0c 20 20 20 50 25 2b 3d  |?P%=0....   P%+=|
00000bd0  31 0d 06 90 06 20 ce 0d  06 9a 0e 20 f2 65 6e 64  |1.... ..... .end|
00000be0  5f 70 61 74 68 0d 06 a4  05 e1 0d 06 ae 04 0d ff  |_path...........|
00000bf0