� > Example2

<� use the printer drivers to print something using fonts
(� and the draw module
2� by Ben Summers
<
F=� changes from Example2 are some code to define more than
P)� one rectangle, and scale them a bit
Z
d
n
x>� set up various bits and pieces for using the draw module
�
��
�� path% 1024
�
�	n = 0
��
�
  � e%
�  path%!(n*4) = e%
�  n += 1
�
� e% = -1
�
�+� 2,32*1024,32*1024, 8,32*1024,128*1024
�4� 6,96*1024,256*1024,64*1024,0,192*1024,128*1024

5� 8,128*1024,24*1024, 8,32*1024,32*1024, 5, 0, -1



� cap_join% 32

"arrow_width = 1.5

,arrow_height = 3

6cap_join%?0 = 0

@cap_join%?1 = 3

Jcap_join%?2 = 0

Tcap_join%?3 = 0

^cap_join%!4 = &40000

hDcap_join%!8 = (arrow_width * 256) + ((arrow_height * 256) << 16)

rline_thickness% = 16 * 256

|

�� dash% 64

�dash%!0 = 0

�dash%!4 = 4

�dash%!8 = 128*256

�dash%!12 = 64*256

�dash%!16 = 64*256

�dash%!20 = 128*256

�

�
@% = 0

�

�

�

�� start the printout

oș "PDriver_Info" � type%, x_resolution%, y_resolution%, features%, name$, halftone_x_res%, halftone_y_res%

&� 12
0
:!� "Test printout using "name$
D�
N9� "Press any key to see what we're going to print..."
X	G = �
b�
l
v� draw a white page
�,ș "ColourTrans_SetGCOL",&FFFFFF00,,,0,0
�ȓȐ 0,0,1024,1280
�
��draw_rectangle(1)
�
�@� "This will be printed 3 time, at scales of 0.5, 1 and 1.5"
�A� "Note that the code to print each one is exactly the same,"
�%� "no matter what scale it's at."
��
�
�(� "Press any key to print it out..."
�	G = �
�
�

� "Printing page"
 
*
4H� ******************************************************************
>
H'� claim some useful areas of memory
R+� rectangle% 16, transform% 16, plot% 8
\� to_draw% 16
f
p
zH� ******************************************************************
�
�� start off the print job
�
�title$ = "Test print job"
�
�this_job% = �("printer:")
�8ș "PDriver_SelectJob", this_job%, title$ � old_job%
�
�J� ș "PDriver_AbortJob",this_job%: �#this_job%: � �$ " at line " �: �
�
�H� ******************************************************************
�
�.� declare all the fonts we're going to use
4ș "PDriver_DeclareFont", 0, "Trinity.Medium", 2
%ș "PDriver_DeclareFont", 0, 0, 0

$
.H� ******************************************************************
8
B� set up some rectangles
L
Vlow_x% = -2
`low_y% = -2
jhigh_x% = 514
thigh_y% = 514
~
�pos_x% = 72000
�
�1� background colour of the rectangle is white
�col% = &FFFFFF00
�
�y = 180
�� X = 1 � 3
�
�;  � convert height in OS units to height in millipoints
�   � for position on the page
�
�  pos_y% = y * (72000/180)


  x_scale = X * 0.5
  y_scale = X * 0.5

(  rectangle%!0  = low_x%
2  rectangle%!4  = low_y%
<  rectangle%!8  = high_x%
F  rectangle%!12 = high_y%
P$  transform%!0  = x_scale * 2^16
Z  transform%!4  = 0
d  transform%!8  = 0
n$  transform%!12 = y_scale * 2^16
x  plot%!0 = pos_x%
�  plot%!4 = pos_y%
�H  ș "PDriver_GiveRectangle", X, rectangle%, transform%, plot%, col%
�
�.  y += ((high_y% - low_x%) * y_scale) + 64
�� X
�
�
�H� ******************************************************************
�
�/� right then, let's start the print job off
�
�copies% = 1
�
 � page number is unimportant

page% = 0

"Eș "PDriver_DrawPage", copies%, to_draw%, page%, 0 � more%, , id%
,
6
@H� ******************************************************************
J
T9� draw the lovely rectangle as many times as required
^
hȕ(more% <> 0)
r  �draw_rectangle(id%)
|
�:  ș "PDriver_GetRectangle", , to_draw% � more%, , id%
��
�
�
�H� ******************************************************************
�
�)� ... and finally, end this print job
�
�"ș "PDriver_EndJob", this_job%
�'ș "PDriver_SelectJob", old_job%, 0
�
��# this_job%
�

H� ******************************************************************

&� "Finished"
0
:�
D
N
XH� ******************************************************************
b
lD� procedure to draw the rectangle... note that it's the same one
v+� which draws the picture on the screen
�
���draw_rectangle(id)
�  � set the colour to black
�.  ș "ColourTrans_SetGCOL",&00000000,,,0,0
�
�  � a border
�  � 0,0
�
  � 0,512
�  � 512,512
�
  � 512,0
�  � 0,0
�
�1  � draw a filled shape using the draw module
.  ș "ColourTrans_SetGCOL",&0000FF00,,,0,0
   ș "Draw_Fill",path%,0,0,0

 .  ș "ColourTrans_SetGCOL",&00FF0000,,,0,0
*B  ș "Draw_Stroke",path%,0,0,0,line_thickness%,cap_join%,dash%
4
>  size% = 16 * 16
HB  ș "Font_FindFont",,"Trinity.Medium",size%,size%,0,0 � font%
RB  ș "ColourTrans_SetFontColours",font%,&FFFFFF00,&00000000,14
\L  ș "Font_Paint",font%,"This is a test (scale "+�(id / 2)+")",784,32,32
f  ș "Font_LoseFont",font%
p�
z
�

00000000  0d 00 0a 10 f4 20 3e 20  45 78 61 6d 70 6c 65 32  |..... > Example2|
00000010  0d 00 14 04 0d 00 1e 3c  f4 20 75 73 65 20 74 68  |.......<. use th|
00000020  65 20 70 72 69 6e 74 65  72 20 64 72 69 76 65 72  |e printer driver|
00000030  73 20 74 6f 20 70 72 69  6e 74 20 73 6f 6d 65 74  |s to print somet|
00000040  68 69 6e 67 20 75 73 69  6e 67 20 66 6f 6e 74 73  |hing using fonts|
00000050  0d 00 28 19 f4 20 61 6e  64 20 74 68 65 20 64 72  |..(.. and the dr|
00000060  61 77 20 6d 6f 64 75 6c  65 0d 00 32 14 f4 20 62  |aw module..2.. b|
00000070  79 20 42 65 6e 20 53 75  6d 6d 65 72 73 0d 00 3c  |y Ben Summers..<|
00000080  04 0d 00 46 3d f4 20 63  68 61 6e 67 65 73 20 66  |...F=. changes f|
00000090  72 6f 6d 20 45 78 61 6d  70 6c 65 32 20 61 72 65  |rom Example2 are|
000000a0  20 73 6f 6d 65 20 63 6f  64 65 20 74 6f 20 64 65  | some code to de|
000000b0  66 69 6e 65 20 6d 6f 72  65 20 74 68 61 6e 0d 00  |fine more than..|
000000c0  50 29 f4 20 6f 6e 65 20  72 65 63 74 61 6e 67 6c  |P). one rectangl|
000000d0  65 2c 20 61 6e 64 20 73  63 61 6c 65 20 74 68 65  |e, and scale the|
000000e0  6d 20 61 20 62 69 74 0d  00 5a 04 0d 00 64 04 0d  |m a bit..Z...d..|
000000f0  00 6e 04 0d 00 78 3e f4  20 73 65 74 20 75 70 20  |.n...x>. set up |
00000100  76 61 72 69 6f 75 73 20  62 69 74 73 20 61 6e 64  |various bits and|
00000110  20 70 69 65 63 65 73 20  66 6f 72 20 75 73 69 6e  | pieces for usin|
00000120  67 20 74 68 65 20 64 72  61 77 20 6d 6f 64 75 6c  |g the draw modul|
00000130  65 0d 00 82 04 0d 00 8c  05 f7 0d 00 96 10 de 20  |e.............. |
00000140  70 61 74 68 25 20 31 30  32 34 0d 00 a0 04 0d 00  |path% 1024......|
00000150  aa 09 6e 20 3d 20 30 0d  00 b4 05 f5 0d 00 be 0a  |..n = 0.........|
00000160  20 20 f3 20 65 25 0d 00  c8 16 20 20 70 61 74 68  |  . e%....  path|
00000170  25 21 28 6e 2a 34 29 20  3d 20 65 25 0d 00 d2 0c  |%!(n*4) = e%....|
00000180  20 20 6e 20 2b 3d 20 31  0d 00 dc 0d fd 20 65 25  |  n += 1..... e%|
00000190  20 3d 20 2d 31 0d 00 e6  04 0d 00 f0 2b dc 20 32  | = -1.......+. 2|
000001a0  2c 33 32 2a 31 30 32 34  2c 33 32 2a 31 30 32 34  |,32*1024,32*1024|
000001b0  2c 20 38 2c 33 32 2a 31  30 32 34 2c 31 32 38 2a  |, 8,32*1024,128*|
000001c0  31 30 32 34 0d 00 fa 34  dc 20 36 2c 39 36 2a 31  |1024...4. 6,96*1|
000001d0  30 32 34 2c 32 35 36 2a  31 30 32 34 2c 36 34 2a  |024,256*1024,64*|
000001e0  31 30 32 34 2c 30 2c 31  39 32 2a 31 30 32 34 2c  |1024,0,192*1024,|
000001f0  31 32 38 2a 31 30 32 34  0d 01 04 35 dc 20 38 2c  |128*1024...5. 8,|
00000200  31 32 38 2a 31 30 32 34  2c 32 34 2a 31 30 32 34  |128*1024,24*1024|
00000210  2c 20 38 2c 33 32 2a 31  30 32 34 2c 33 32 2a 31  |, 8,32*1024,32*1|
00000220  30 32 34 2c 20 35 2c 20  30 2c 20 2d 31 0d 01 0e  |024, 5, 0, -1...|
00000230  04 0d 01 18 12 de 20 63  61 70 5f 6a 6f 69 6e 25  |...... cap_join%|
00000240  20 33 32 0d 01 22 15 61  72 72 6f 77 5f 77 69 64  | 32..".arrow_wid|
00000250  74 68 20 3d 20 31 2e 35  0d 01 2c 14 61 72 72 6f  |th = 1.5..,.arro|
00000260  77 5f 68 65 69 67 68 74  20 3d 20 33 0d 01 36 13  |w_height = 3..6.|
00000270  63 61 70 5f 6a 6f 69 6e  25 3f 30 20 3d 20 30 0d  |cap_join%?0 = 0.|
00000280  01 40 13 63 61 70 5f 6a  6f 69 6e 25 3f 31 20 3d  |.@.cap_join%?1 =|
00000290  20 33 0d 01 4a 13 63 61  70 5f 6a 6f 69 6e 25 3f  | 3..J.cap_join%?|
000002a0  32 20 3d 20 30 0d 01 54  13 63 61 70 5f 6a 6f 69  |2 = 0..T.cap_joi|
000002b0  6e 25 3f 33 20 3d 20 30  0d 01 5e 18 63 61 70 5f  |n%?3 = 0..^.cap_|
000002c0  6a 6f 69 6e 25 21 34 20  3d 20 26 34 30 30 30 30  |join%!4 = &40000|
000002d0  0d 01 68 44 63 61 70 5f  6a 6f 69 6e 25 21 38 20  |..hDcap_join%!8 |
000002e0  3d 20 28 61 72 72 6f 77  5f 77 69 64 74 68 20 2a  |= (arrow_width *|
000002f0  20 32 35 36 29 20 2b 20  28 28 61 72 72 6f 77 5f  | 256) + ((arrow_|
00000300  68 65 69 67 68 74 20 2a  20 32 35 36 29 20 3c 3c  |height * 256) <<|
00000310  20 31 36 29 0d 01 72 1e  6c 69 6e 65 5f 74 68 69  | 16)..r.line_thi|
00000320  63 6b 6e 65 73 73 25 20  3d 20 31 36 20 2a 20 32  |ckness% = 16 * 2|
00000330  35 36 0d 01 7c 04 0d 01  86 0e de 20 64 61 73 68  |56..|...... dash|
00000340  25 20 36 34 0d 01 90 0f  64 61 73 68 25 21 30 20  |% 64....dash%!0 |
00000350  3d 20 30 0d 01 9a 0f 64  61 73 68 25 21 34 20 3d  |= 0....dash%!4 =|
00000360  20 34 0d 01 a4 15 64 61  73 68 25 21 38 20 3d 20  | 4....dash%!8 = |
00000370  31 32 38 2a 32 35 36 0d  01 ae 15 64 61 73 68 25  |128*256....dash%|
00000380  21 31 32 20 3d 20 36 34  2a 32 35 36 0d 01 b8 15  |!12 = 64*256....|
00000390  64 61 73 68 25 21 31 36  20 3d 20 36 34 2a 32 35  |dash%!16 = 64*25|
000003a0  36 0d 01 c2 16 64 61 73  68 25 21 32 30 20 3d 20  |6....dash%!20 = |
000003b0  31 32 38 2a 32 35 36 0d  01 cc 04 0d 01 d6 0a 40  |128*256........@|
000003c0  25 20 3d 20 30 0d 01 e0  04 0d 01 ea 04 0d 01 f4  |% = 0...........|
000003d0  04 0d 01 fe 18 f4 20 73  74 61 72 74 20 74 68 65  |...... start the|
000003e0  20 70 72 69 6e 74 6f 75  74 0d 02 08 04 0d 02 12  | printout.......|
000003f0  6f c8 99 20 22 50 44 72  69 76 65 72 5f 49 6e 66  |o.. "PDriver_Inf|
00000400  6f 22 20 b8 20 74 79 70  65 25 2c 20 78 5f 72 65  |o" . type%, x_re|
00000410  73 6f 6c 75 74 69 6f 6e  25 2c 20 79 5f 72 65 73  |solution%, y_res|
00000420  6f 6c 75 74 69 6f 6e 25  2c 20 66 65 61 74 75 72  |olution%, featur|
00000430  65 73 25 2c 20 6e 61 6d  65 24 2c 20 68 61 6c 66  |es%, name$, half|
00000440  74 6f 6e 65 5f 78 5f 72  65 73 25 2c 20 68 61 6c  |tone_x_res%, hal|
00000450  66 74 6f 6e 65 5f 79 5f  72 65 73 25 0d 02 1c 04  |ftone_y_res%....|
00000460  0d 02 26 08 eb 20 31 32  0d 02 30 04 0d 02 3a 21  |..&.. 12..0...:!|
00000470  f1 20 22 54 65 73 74 20  70 72 69 6e 74 6f 75 74  |. "Test printout|
00000480  20 75 73 69 6e 67 20 22  6e 61 6d 65 24 0d 02 44  | using "name$..D|
00000490  05 f1 0d 02 4e 39 f1 20  22 50 72 65 73 73 20 61  |....N9. "Press a|
000004a0  6e 79 20 6b 65 79 20 74  6f 20 73 65 65 20 77 68  |ny key to see wh|
000004b0  61 74 20 77 65 27 72 65  20 67 6f 69 6e 67 20 74  |at we're going t|
000004c0  6f 20 70 72 69 6e 74 2e  2e 2e 22 0d 02 58 09 47  |o print..."..X.G|
000004d0  20 3d 20 a5 0d 02 62 05  db 0d 02 6c 04 0d 02 76  | = ...b....l...v|
000004e0  17 f4 20 64 72 61 77 20  61 20 77 68 69 74 65 20  |.. draw a white |
000004f0  70 61 67 65 0d 02 80 2c  c8 99 20 22 43 6f 6c 6f  |page...,.. "Colo|
00000500  75 72 54 72 61 6e 73 5f  53 65 74 47 43 4f 4c 22  |urTrans_SetGCOL"|
00000510  2c 26 46 46 46 46 46 46  30 30 2c 2c 2c 30 2c 30  |,&FFFFFF00,,,0,0|
00000520  0d 02 8a 16 c8 93 c8 90  20 30 2c 30 2c 31 30 32  |........ 0,0,102|
00000530  34 2c 31 32 38 30 0d 02  94 04 0d 02 9e 16 f2 64  |4,1280.........d|
00000540  72 61 77 5f 72 65 63 74  61 6e 67 6c 65 28 31 29  |raw_rectangle(1)|
00000550  0d 02 a8 04 0d 02 b2 40  f1 20 22 54 68 69 73 20  |.......@. "This |
00000560  77 69 6c 6c 20 62 65 20  70 72 69 6e 74 65 64 20  |will be printed |
00000570  33 20 74 69 6d 65 2c 20  61 74 20 73 63 61 6c 65  |3 time, at scale|
00000580  73 20 6f 66 20 30 2e 35  2c 20 31 20 61 6e 64 20  |s of 0.5, 1 and |
00000590  31 2e 35 22 0d 02 bc 41  f1 20 22 4e 6f 74 65 20  |1.5"...A. "Note |
000005a0  74 68 61 74 20 74 68 65  20 63 6f 64 65 20 74 6f  |that the code to|
000005b0  20 70 72 69 6e 74 20 65  61 63 68 20 6f 6e 65 20  | print each one |
000005c0  69 73 20 65 78 61 63 74  6c 79 20 74 68 65 20 73  |is exactly the s|
000005d0  61 6d 65 2c 22 0d 02 c6  25 f1 20 22 6e 6f 20 6d  |ame,"...%. "no m|
000005e0  61 74 74 65 72 20 77 68  61 74 20 73 63 61 6c 65  |atter what scale|
000005f0  20 69 74 27 73 20 61 74  2e 22 0d 02 d0 05 f1 0d  | it's at."......|
00000600  02 da 04 0d 02 e4 28 f1  20 22 50 72 65 73 73 20  |......(. "Press |
00000610  61 6e 79 20 6b 65 79 20  74 6f 20 70 72 69 6e 74  |any key to print|
00000620  20 69 74 20 6f 75 74 2e  2e 2e 22 0d 02 ee 09 47  | it out..."....G|
00000630  20 3d 20 a5 0d 02 f8 04  0d 03 02 05 db 0d 03 0c  | = .............|
00000640  04 0d 03 16 15 f1 20 22  50 72 69 6e 74 69 6e 67  |...... "Printing|
00000650  20 70 61 67 65 22 0d 03  20 04 0d 03 2a 04 0d 03  | page".. ...*...|
00000660  34 48 f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |4H. ************|
00000670  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000006a0  2a 2a 2a 2a 2a 2a 0d 03  3e 04 0d 03 48 27 f4 20  |******..>...H'. |
000006b0  63 6c 61 69 6d 20 73 6f  6d 65 20 75 73 65 66 75  |claim some usefu|
000006c0  6c 20 61 72 65 61 73 20  6f 66 20 6d 65 6d 6f 72  |l areas of memor|
000006d0  79 0d 03 52 2b de 20 72  65 63 74 61 6e 67 6c 65  |y..R+. rectangle|
000006e0  25 20 31 36 2c 20 74 72  61 6e 73 66 6f 72 6d 25  |% 16, transform%|
000006f0  20 31 36 2c 20 70 6c 6f  74 25 20 38 0d 03 5c 11  | 16, plot% 8..\.|
00000700  de 20 74 6f 5f 64 72 61  77 25 20 31 36 0d 03 66  |. to_draw% 16..f|
00000710  04 0d 03 70 04 0d 03 7a  48 f4 20 2a 2a 2a 2a 2a  |...p...zH. *****|
00000720  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000750  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 03 84  |*************...|
00000760  04 0d 03 8e 1d f4 20 73  74 61 72 74 20 6f 66 66  |...... start off|
00000770  20 74 68 65 20 70 72 69  6e 74 20 6a 6f 62 0d 03  | the print job..|
00000780  98 04 0d 03 a2 1d 74 69  74 6c 65 24 20 3d 20 22  |......title$ = "|
00000790  54 65 73 74 20 70 72 69  6e 74 20 6a 6f 62 22 0d  |Test print job".|
000007a0  03 ac 04 0d 03 b6 1d 74  68 69 73 5f 6a 6f 62 25  |.......this_job%|
000007b0  20 3d 20 ae 28 22 70 72  69 6e 74 65 72 3a 22 29  | = .("printer:")|
000007c0  0d 03 c0 38 c8 99 20 22  50 44 72 69 76 65 72 5f  |...8.. "PDriver_|
000007d0  53 65 6c 65 63 74 4a 6f  62 22 2c 20 74 68 69 73  |SelectJob", this|
000007e0  5f 6a 6f 62 25 2c 20 74  69 74 6c 65 24 20 b8 20  |_job%, title$ . |
000007f0  6f 6c 64 5f 6a 6f 62 25  0d 03 ca 04 0d 03 d4 4a  |old_job%.......J|
00000800  ee 85 20 c8 99 20 22 50  44 72 69 76 65 72 5f 41  |.. .. "PDriver_A|
00000810  62 6f 72 74 4a 6f 62 22  2c 74 68 69 73 5f 6a 6f  |bortJob",this_jo|
00000820  62 25 3a 20 d9 23 74 68  69 73 5f 6a 6f 62 25 3a  |b%: .#this_job%:|
00000830  20 f1 20 f6 24 20 22 20  61 74 20 6c 69 6e 65 20  | . .$ " at line |
00000840  22 20 9e 3a 20 e0 0d 03  de 04 0d 03 e8 48 f4 20  |" .: ........H. |
00000850  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000890  2a 2a 0d 03 f2 04 0d 03  fc 2e f4 20 64 65 63 6c  |**......... decl|
000008a0  61 72 65 20 61 6c 6c 20  74 68 65 20 66 6f 6e 74  |are all the font|
000008b0  73 20 77 65 27 72 65 20  67 6f 69 6e 67 20 74 6f  |s we're going to|
000008c0  20 75 73 65 0d 04 06 34  c8 99 20 22 50 44 72 69  | use...4.. "PDri|
000008d0  76 65 72 5f 44 65 63 6c  61 72 65 46 6f 6e 74 22  |ver_DeclareFont"|
000008e0  2c 20 30 2c 20 22 54 72  69 6e 69 74 79 2e 4d 65  |, 0, "Trinity.Me|
000008f0  64 69 75 6d 22 2c 20 32  0d 04 10 25 c8 99 20 22  |dium", 2...%.. "|
00000900  50 44 72 69 76 65 72 5f  44 65 63 6c 61 72 65 46  |PDriver_DeclareF|
00000910  6f 6e 74 22 2c 20 30 2c  20 30 2c 20 30 0d 04 1a  |ont", 0, 0, 0...|
00000920  04 0d 04 24 04 0d 04 2e  48 f4 20 2a 2a 2a 2a 2a  |...$....H. *****|
00000930  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000960  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 04 38  |*************..8|
00000970  04 0d 04 42 1c f4 20 73  65 74 20 75 70 20 73 6f  |...B.. set up so|
00000980  6d 65 20 72 65 63 74 61  6e 67 6c 65 73 0d 04 4c  |me rectangles..L|
00000990  04 0d 04 56 0f 6c 6f 77  5f 78 25 20 3d 20 2d 32  |...V.low_x% = -2|
000009a0  0d 04 60 0f 6c 6f 77 5f  79 25 20 3d 20 2d 32 0d  |..`.low_y% = -2.|
000009b0  04 6a 11 68 69 67 68 5f  78 25 20 3d 20 35 31 34  |.j.high_x% = 514|
000009c0  0d 04 74 11 68 69 67 68  5f 79 25 20 3d 20 35 31  |..t.high_y% = 51|
000009d0  34 0d 04 7e 04 0d 04 88  12 70 6f 73 5f 78 25 20  |4..~.....pos_x% |
000009e0  3d 20 37 32 30 30 30 0d  04 92 04 0d 04 9c 31 f4  |= 72000.......1.|
000009f0  20 62 61 63 6b 67 72 6f  75 6e 64 20 63 6f 6c 6f  | background colo|
00000a00  75 72 20 6f 66 20 74 68  65 20 72 65 63 74 61 6e  |ur of the rectan|
00000a10  67 6c 65 20 69 73 20 77  68 69 74 65 0d 04 a6 14  |gle is white....|
00000a20  63 6f 6c 25 20 3d 20 26  46 46 46 46 46 46 30 30  |col% = &FFFFFF00|
00000a30  0d 04 b0 04 0d 04 ba 0b  79 20 3d 20 31 38 30 0d  |........y = 180.|
00000a40  04 c4 0f e3 20 58 20 3d  20 31 20 b8 20 33 0d 04  |.... X = 1 . 3..|
00000a50  ce 04 0d 04 d8 3b 20 20  f4 20 63 6f 6e 76 65 72  |.....;  . conver|
00000a60  74 20 68 65 69 67 68 74  20 69 6e 20 4f 53 20 75  |t height in OS u|
00000a70  6e 69 74 73 20 74 6f 20  68 65 69 67 68 74 20 69  |nits to height i|
00000a80  6e 20 6d 69 6c 6c 69 70  6f 69 6e 74 73 0d 04 e2  |n millipoints...|
00000a90  20 20 20 f4 20 66 6f 72  20 70 6f 73 69 74 69 6f  |   . for positio|
00000aa0  6e 20 6f 6e 20 74 68 65  20 70 61 67 65 0d 04 ec  |n on the page...|
00000ab0  04 0d 04 f6 1e 20 20 70  6f 73 5f 79 25 20 3d 20  |.....  pos_y% = |
00000ac0  79 20 2a 20 28 37 32 30  30 30 2f 31 38 30 29 0d  |y * (72000/180).|
00000ad0  05 00 04 0d 05 0a 17 20  20 78 5f 73 63 61 6c 65  |.......  x_scale|
00000ae0  20 3d 20 58 20 2a 20 30  2e 35 0d 05 14 17 20 20  | = X * 0.5....  |
00000af0  79 5f 73 63 61 6c 65 20  3d 20 58 20 2a 20 30 2e  |y_scale = X * 0.|
00000b00  35 0d 05 1e 04 0d 05 28  1c 20 20 72 65 63 74 61  |5......(.  recta|
00000b10  6e 67 6c 65 25 21 30 20  20 3d 20 6c 6f 77 5f 78  |ngle%!0  = low_x|
00000b20  25 0d 05 32 1c 20 20 72  65 63 74 61 6e 67 6c 65  |%..2.  rectangle|
00000b30  25 21 34 20 20 3d 20 6c  6f 77 5f 79 25 0d 05 3c  |%!4  = low_y%..<|
00000b40  1d 20 20 72 65 63 74 61  6e 67 6c 65 25 21 38 20  |.  rectangle%!8 |
00000b50  20 3d 20 68 69 67 68 5f  78 25 0d 05 46 1d 20 20  | = high_x%..F.  |
00000b60  72 65 63 74 61 6e 67 6c  65 25 21 31 32 20 3d 20  |rectangle%!12 = |
00000b70  68 69 67 68 5f 79 25 0d  05 50 24 20 20 74 72 61  |high_y%..P$  tra|
00000b80  6e 73 66 6f 72 6d 25 21  30 20 20 3d 20 78 5f 73  |nsform%!0  = x_s|
00000b90  63 61 6c 65 20 2a 20 32  5e 31 36 0d 05 5a 17 20  |cale * 2^16..Z. |
00000ba0  20 74 72 61 6e 73 66 6f  72 6d 25 21 34 20 20 3d  | transform%!4  =|
00000bb0  20 30 0d 05 64 17 20 20  74 72 61 6e 73 66 6f 72  | 0..d.  transfor|
00000bc0  6d 25 21 38 20 20 3d 20  30 0d 05 6e 24 20 20 74  |m%!8  = 0..n$  t|
00000bd0  72 61 6e 73 66 6f 72 6d  25 21 31 32 20 3d 20 79  |ransform%!12 = y|
00000be0  5f 73 63 61 6c 65 20 2a  20 32 5e 31 36 0d 05 78  |_scale * 2^16..x|
00000bf0  16 20 20 70 6c 6f 74 25  21 30 20 3d 20 70 6f 73  |.  plot%!0 = pos|
00000c00  5f 78 25 0d 05 82 16 20  20 70 6c 6f 74 25 21 34  |_x%....  plot%!4|
00000c10  20 3d 20 70 6f 73 5f 79  25 0d 05 8c 48 20 20 c8  | = pos_y%...H  .|
00000c20  99 20 22 50 44 72 69 76  65 72 5f 47 69 76 65 52  |. "PDriver_GiveR|
00000c30  65 63 74 61 6e 67 6c 65  22 2c 20 58 2c 20 72 65  |ectangle", X, re|
00000c40  63 74 61 6e 67 6c 65 25  2c 20 74 72 61 6e 73 66  |ctangle%, transf|
00000c50  6f 72 6d 25 2c 20 70 6c  6f 74 25 2c 20 63 6f 6c  |orm%, plot%, col|
00000c60  25 0d 05 96 04 0d 05 a0  2e 20 20 79 20 2b 3d 20  |%........  y += |
00000c70  28 28 68 69 67 68 5f 79  25 20 2d 20 6c 6f 77 5f  |((high_y% - low_|
00000c80  78 25 29 20 2a 20 79 5f  73 63 61 6c 65 29 20 2b  |x%) * y_scale) +|
00000c90  20 36 34 0d 05 aa 07 ed  20 58 0d 05 b4 04 0d 05  | 64..... X......|
00000ca0  be 04 0d 05 c8 48 f4 20  2a 2a 2a 2a 2a 2a 2a 2a  |.....H. ********|
00000cb0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000ce0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 05 d2 04 0d 05  |**********......|
00000cf0  dc 2f f4 20 72 69 67 68  74 20 74 68 65 6e 2c 20  |./. right then, |
00000d00  6c 65 74 27 73 20 73 74  61 72 74 20 74 68 65 20  |let's start the |
00000d10  70 72 69 6e 74 20 6a 6f  62 20 6f 66 66 0d 05 e6  |print job off...|
00000d20  04 0d 05 f0 0f 63 6f 70  69 65 73 25 20 3d 20 31  |.....copies% = 1|
00000d30  0d 05 fa 04 0d 06 04 20  f4 20 70 61 67 65 20 6e  |....... . page n|
00000d40  75 6d 62 65 72 20 69 73  20 75 6e 69 6d 70 6f 72  |umber is unimpor|
00000d50  74 61 6e 74 0d 06 0e 0d  70 61 67 65 25 20 3d 20  |tant....page% = |
00000d60  30 0d 06 18 04 0d 06 22  45 c8 99 20 22 50 44 72  |0......"E.. "PDr|
00000d70  69 76 65 72 5f 44 72 61  77 50 61 67 65 22 2c 20  |iver_DrawPage", |
00000d80  63 6f 70 69 65 73 25 2c  20 74 6f 5f 64 72 61 77  |copies%, to_draw|
00000d90  25 2c 20 70 61 67 65 25  2c 20 30 20 b8 20 6d 6f  |%, page%, 0 . mo|
00000da0  72 65 25 2c 20 2c 20 69  64 25 0d 06 2c 04 0d 06  |re%, , id%..,...|
00000db0  36 04 0d 06 40 48 f4 20  2a 2a 2a 2a 2a 2a 2a 2a  |6...@H. ********|
00000dc0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000df0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 06 4a 04 0d 06  |**********..J...|
00000e00  54 39 f4 20 64 72 61 77  20 74 68 65 20 6c 6f 76  |T9. draw the lov|
00000e10  65 6c 79 20 72 65 63 74  61 6e 67 6c 65 20 61 73  |ely rectangle as|
00000e20  20 6d 61 6e 79 20 74 69  6d 65 73 20 61 73 20 72  | many times as r|
00000e30  65 71 75 69 72 65 64 0d  06 5e 04 0d 06 68 12 c8  |equired..^...h..|
00000e40  95 28 6d 6f 72 65 25 20  3c 3e 20 30 29 0d 06 72  |.(more% <> 0)..r|
00000e50  1a 20 20 f2 64 72 61 77  5f 72 65 63 74 61 6e 67  |.  .draw_rectang|
00000e60  6c 65 28 69 64 25 29 0d  06 7c 04 0d 06 86 3a 20  |le(id%)..|....: |
00000e70  20 c8 99 20 22 50 44 72  69 76 65 72 5f 47 65 74  | .. "PDriver_Get|
00000e80  52 65 63 74 61 6e 67 6c  65 22 2c 20 2c 20 74 6f  |Rectangle", , to|
00000e90  5f 64 72 61 77 25 20 b8  20 6d 6f 72 65 25 2c 20  |_draw% . more%, |
00000ea0  2c 20 69 64 25 0d 06 90  05 ce 0d 06 9a 04 0d 06  |, id%...........|
00000eb0  a4 04 0d 06 ae 48 f4 20  2a 2a 2a 2a 2a 2a 2a 2a  |.....H. ********|
00000ec0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000ef0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 06 b8 04 0d 06  |**********......|
00000f00  c2 29 f4 20 2e 2e 2e 20  61 6e 64 20 66 69 6e 61  |.). ... and fina|
00000f10  6c 6c 79 2c 20 65 6e 64  20 74 68 69 73 20 70 72  |lly, end this pr|
00000f20  69 6e 74 20 6a 6f 62 0d  06 cc 04 0d 06 d6 22 c8  |int job.......".|
00000f30  99 20 22 50 44 72 69 76  65 72 5f 45 6e 64 4a 6f  |. "PDriver_EndJo|
00000f40  62 22 2c 20 74 68 69 73  5f 6a 6f 62 25 0d 06 e0  |b", this_job%...|
00000f50  27 c8 99 20 22 50 44 72  69 76 65 72 5f 53 65 6c  |'.. "PDriver_Sel|
00000f60  65 63 74 4a 6f 62 22 2c  20 6f 6c 64 5f 6a 6f 62  |ectJob", old_job|
00000f70  25 2c 20 30 0d 06 ea 04  0d 06 f4 10 d9 23 20 74  |%, 0.........# t|
00000f80  68 69 73 5f 6a 6f 62 25  0d 06 fe 04 0d 07 08 04  |his_job%........|
00000f90  0d 07 12 48 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...H. **********|
00000fa0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000fd0  2a 2a 2a 2a 2a 2a 2a 2a  0d 07 1c 04 0d 07 26 10  |********......&.|
00000fe0  f1 20 22 46 69 6e 69 73  68 65 64 22 0d 07 30 04  |. "Finished"..0.|
00000ff0  0d 07 3a 05 e0 0d 07 44  04 0d 07 4e 04 0d 07 58  |..:....D...N...X|
00001000  48 f4 20 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |H. *************|
00001010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00001040  2a 2a 2a 2a 2a 0d 07 62  04 0d 07 6c 44 f4 20 70  |*****..b...lD. p|
00001050  72 6f 63 65 64 75 72 65  20 74 6f 20 64 72 61 77  |rocedure to draw|
00001060  20 74 68 65 20 72 65 63  74 61 6e 67 6c 65 2e 2e  | the rectangle..|
00001070  2e 20 6e 6f 74 65 20 74  68 61 74 20 69 74 27 73  |. note that it's|
00001080  20 74 68 65 20 73 61 6d  65 20 6f 6e 65 0d 07 76  | the same one..v|
00001090  2b f4 20 77 68 69 63 68  20 64 72 61 77 73 20 74  |+. which draws t|
000010a0  68 65 20 70 69 63 74 75  72 65 20 6f 6e 20 74 68  |he picture on th|
000010b0  65 20 73 63 72 65 65 6e  0d 07 80 04 0d 07 8a 18  |e screen........|
000010c0  dd f2 64 72 61 77 5f 72  65 63 74 61 6e 67 6c 65  |..draw_rectangle|
000010d0  28 69 64 29 0d 07 94 1f  20 20 f4 20 73 65 74 20  |(id)....  . set |
000010e0  74 68 65 20 63 6f 6c 6f  75 72 20 74 6f 20 62 6c  |the colour to bl|
000010f0  61 63 6b 0d 07 9e 2e 20  20 c8 99 20 22 43 6f 6c  |ack....  .. "Col|
00001100  6f 75 72 54 72 61 6e 73  5f 53 65 74 47 43 4f 4c  |ourTrans_SetGCOL|
00001110  22 2c 26 30 30 30 30 30  30 30 30 2c 2c 2c 30 2c  |",&00000000,,,0,|
00001120  30 0d 07 a8 04 0d 07 b2  10 20 20 f4 20 61 20 62  |0........  . a b|
00001130  6f 72 64 65 72 0d 07 bc  0b 20 20 ec 20 30 2c 30  |order....  . 0,0|
00001140  0d 07 c6 0d 20 20 df 20  30 2c 35 31 32 0d 07 d0  |....  . 0,512...|
00001150  0f 20 20 df 20 35 31 32  2c 35 31 32 0d 07 da 0d  |.  . 512,512....|
00001160  20 20 df 20 35 31 32 2c  30 0d 07 e4 0b 20 20 df  |  . 512,0....  .|
00001170  20 30 2c 30 0d 07 ee 04  0d 07 f8 31 20 20 f4 20  | 0,0.......1  . |
00001180  64 72 61 77 20 61 20 66  69 6c 6c 65 64 20 73 68  |draw a filled sh|
00001190  61 70 65 20 75 73 69 6e  67 20 74 68 65 20 64 72  |ape using the dr|
000011a0  61 77 20 6d 6f 64 75 6c  65 0d 08 02 2e 20 20 c8  |aw module....  .|
000011b0  99 20 22 43 6f 6c 6f 75  72 54 72 61 6e 73 5f 53  |. "ColourTrans_S|
000011c0  65 74 47 43 4f 4c 22 2c  26 30 30 30 30 46 46 30  |etGCOL",&0000FF0|
000011d0  30 2c 2c 2c 30 2c 30 0d  08 0c 20 20 20 c8 99 20  |0,,,0,0...   .. |
000011e0  22 44 72 61 77 5f 46 69  6c 6c 22 2c 70 61 74 68  |"Draw_Fill",path|
000011f0  25 2c 30 2c 30 2c 30 0d  08 16 04 0d 08 20 2e 20  |%,0,0,0...... . |
00001200  20 c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  | .. "ColourTrans|
00001210  5f 53 65 74 47 43 4f 4c  22 2c 26 30 30 46 46 30  |_SetGCOL",&00FF0|
00001220  30 30 30 2c 2c 2c 30 2c  30 0d 08 2a 42 20 20 c8  |000,,,0,0..*B  .|
00001230  99 20 22 44 72 61 77 5f  53 74 72 6f 6b 65 22 2c  |. "Draw_Stroke",|
00001240  70 61 74 68 25 2c 30 2c  30 2c 30 2c 6c 69 6e 65  |path%,0,0,0,line|
00001250  5f 74 68 69 63 6b 6e 65  73 73 25 2c 63 61 70 5f  |_thickness%,cap_|
00001260  6a 6f 69 6e 25 2c 64 61  73 68 25 0d 08 34 04 0d  |join%,dash%..4..|
00001270  08 3e 15 20 20 73 69 7a  65 25 20 3d 20 31 36 20  |.>.  size% = 16 |
00001280  2a 20 31 36 0d 08 48 42  20 20 c8 99 20 22 46 6f  |* 16..HB  .. "Fo|
00001290  6e 74 5f 46 69 6e 64 46  6f 6e 74 22 2c 2c 22 54  |nt_FindFont",,"T|
000012a0  72 69 6e 69 74 79 2e 4d  65 64 69 75 6d 22 2c 73  |rinity.Medium",s|
000012b0  69 7a 65 25 2c 73 69 7a  65 25 2c 30 2c 30 20 b8  |ize%,size%,0,0 .|
000012c0  20 66 6f 6e 74 25 0d 08  52 42 20 20 c8 99 20 22  | font%..RB  .. "|
000012d0  43 6f 6c 6f 75 72 54 72  61 6e 73 5f 53 65 74 46  |ColourTrans_SetF|
000012e0  6f 6e 74 43 6f 6c 6f 75  72 73 22 2c 66 6f 6e 74  |ontColours",font|
000012f0  25 2c 26 46 46 46 46 46  46 30 30 2c 26 30 30 30  |%,&FFFFFF00,&000|
00001300  30 30 30 30 30 2c 31 34  0d 08 5c 4c 20 20 c8 99  |00000,14..\L  ..|
00001310  20 22 46 6f 6e 74 5f 50  61 69 6e 74 22 2c 66 6f  | "Font_Paint",fo|
00001320  6e 74 25 2c 22 54 68 69  73 20 69 73 20 61 20 74  |nt%,"This is a t|
00001330  65 73 74 20 28 73 63 61  6c 65 20 22 2b c3 28 69  |est (scale "+.(i|
00001340  64 20 2f 20 32 29 2b 22  29 22 2c 37 38 34 2c 33  |d / 2)+")",784,3|
00001350  32 2c 33 32 0d 08 66 1e  20 20 c8 99 20 22 46 6f  |2,32..f.  .. "Fo|
00001360  6e 74 5f 4c 6f 73 65 46  6f 6e 74 22 2c 66 6f 6e  |nt_LoseFont",fon|
00001370  74 25 0d 08 70 05 e1 0d  08 7a 04 0d ff           |t%..p....z...|
0000137d