� > Example2

<� use the printer drivers to print something using fonts
(� and the draw module
2� by Ben Summers
<
F:� changes from Example1 are PROCdraw_rectangle and the
P� font declaration
Z
d
n>� set up various bits and pieces for using the draw module
x
��
�� 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

,cap_join%?0 = 0

6cap_join%?1 = 3

@cap_join%?2 = 0

Jcap_join%?3 = 0

Tcap_join%!4 = &40000

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

hline_thickness% = 16 * 256

r

|� dash% 64

�dash%!0 = 0

�dash%!4 = 4

�dash%!8 = 128*256

�dash%!12 = 64*256

�dash%!16 = 64*256

�dash%!20 = 128*256

�

�

�

�� start the printout

�

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

�
� 12

!� "Test printout using "name$
&�
09� "Press any key to see what we're going to print..."
:	G = �
D�
N
X� draw a white page
b,ș "ColourTrans_SetGCOL",&FFFFFF00,,,0,0
lȓȐ 0,0,1024,1280
v
��draw_rectangle
�
�=� "On the actual print out, the printer driver will clip"
�=� "the objects to the rectangle we specify, in this case"
�� "the black square."
��
�
�(� "Press any key to print it out..."
�	G = �
�
��
�
�� "Printing page"


H� ******************************************************************
 
*'� claim some useful areas of memory
4+� rectangle% 16, transform% 16, plot% 8
>� to_draw% 16
H
R
\H� ******************************************************************
f
p� start off the print job
z
�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� ******************************************************************

$� set up a rectangle
.
8low_x% = -2
Blow_y% = -2
Lhigh_x% = 514
Vhigh_y% = 514
`x_scale = 1
jy_scale = 1
tJ� position of the bottom left hand corner is an inch in and an inch up
~2� from the bottom left hand corner of the page
�pos_x% = 72000
�pos_y% = 72000
�
�J� an arbitary, but carefully chosen, number to identify this rectangle
�id% = 42
�
�1� background colour of the rectangle is white
�col% = &FFFFFF00
�
�rectangle%!0  = low_x%
�rectangle%!4  = low_y%
�rectangle%!8  = high_x%
rectangle%!12 = high_y%

"transform%!0  = x_scale * 2^16
transform%!4  = 0
transform%!8  = 0
("transform%!12 = y_scale * 2^16
2plot%!0 = pos_x%
<plot%!4 = pos_y%
FHș "PDriver_GiveRectangle", id%, rectangle%, transform%, plot%, col%
P
Z
dH� ******************************************************************
n
x/� 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%
�
�
�H� ******************************************************************
�
�9� draw the lovely rectangle as many times as required
�
ȕ(more% <> 0)
  �(id% = 42) �
    �draw_rectangle
"  �
,
6:  ș "PDriver_GetRectangle", , to_draw% � more%, , id%
@�
J
T
^H� ******************************************************************
h
r)� ... and finally, end this print job
|
�"ș "PDriver_EndJob", this_job%
�'ș "PDriver_SelectJob", old_job%, 0
�
��# this_job%
�
�
�H� ******************************************************************
�
�� "Finished"
�
��
�
�
H� ******************************************************************

D� procedure to draw the rectangle... note that it's the same one
&+� which draws the picture on the screen
0
:��draw_rectangle
D  � set the colour to black
N.  ș "ColourTrans_SetGCOL",&00000000,,,0,0
X
b  � a border
l  � 0,0
v
  � 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%
�
�  size% = 16 * 16
�B  ș "Font_FindFont",,"Trinity.Medium",size%,size%,0,0 � font%
B  ș "ColourTrans_SetFontColours",font%,&FFFFFF00,&00000000,14
?  ș "Font_Paint",font%,"This is a test printout",784,32,32
  ș "Font_LoseFont",font%
 �
*
�

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 3a 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 31 20 61 72 65  |rom Example1 are|
000000a0  20 50 52 4f 43 64 72 61  77 5f 72 65 63 74 61 6e  | PROCdraw_rectan|
000000b0  67 6c 65 20 61 6e 64 20  74 68 65 0d 00 50 16 f4  |gle and the..P..|
000000c0  20 66 6f 6e 74 20 64 65  63 6c 61 72 61 74 69 6f  | font declaratio|
000000d0  6e 0d 00 5a 04 0d 00 64  04 0d 00 6e 3e f4 20 73  |n..Z...d...n>. s|
000000e0  65 74 20 75 70 20 76 61  72 69 6f 75 73 20 62 69  |et up various bi|
000000f0  74 73 20 61 6e 64 20 70  69 65 63 65 73 20 66 6f  |ts and pieces fo|
00000100  72 20 75 73 69 6e 67 20  74 68 65 20 64 72 61 77  |r using the draw|
00000110  20 6d 6f 64 75 6c 65 0d  00 78 04 0d 00 82 05 f7  | module..x......|
00000120  0d 00 8c 10 de 20 70 61  74 68 25 20 31 30 32 34  |..... path% 1024|
00000130  0d 00 96 04 0d 00 a0 09  6e 20 3d 20 30 0d 00 aa  |........n = 0...|
00000140  05 f5 0d 00 b4 0a 20 20  f3 20 65 25 0d 00 be 16  |......  . e%....|
00000150  20 20 70 61 74 68 25 21  28 6e 2a 34 29 20 3d 20  |  path%!(n*4) = |
00000160  65 25 0d 00 c8 0c 20 20  6e 20 2b 3d 20 31 0d 00  |e%....  n += 1..|
00000170  d2 0d fd 20 65 25 20 3d  20 2d 31 0d 00 dc 04 0d  |... e% = -1.....|
00000180  00 e6 2b dc 20 32 2c 33  32 2a 31 30 32 34 2c 33  |..+. 2,32*1024,3|
00000190  32 2a 31 30 32 34 2c 20  38 2c 33 32 2a 31 30 32  |2*1024, 8,32*102|
000001a0  34 2c 31 32 38 2a 31 30  32 34 0d 00 f0 34 dc 20  |4,128*1024...4. |
000001b0  36 2c 39 36 2a 31 30 32  34 2c 32 35 36 2a 31 30  |6,96*1024,256*10|
000001c0  32 34 2c 36 34 2a 31 30  32 34 2c 30 2c 31 39 32  |24,64*1024,0,192|
000001d0  2a 31 30 32 34 2c 31 32  38 2a 31 30 32 34 0d 00  |*1024,128*1024..|
000001e0  fa 35 dc 20 38 2c 31 32  38 2a 31 30 32 34 2c 32  |.5. 8,128*1024,2|
000001f0  34 2a 31 30 32 34 2c 20  38 2c 33 32 2a 31 30 32  |4*1024, 8,32*102|
00000200  34 2c 33 32 2a 31 30 32  34 2c 20 35 2c 20 30 2c  |4,32*1024, 5, 0,|
00000210  20 2d 31 0d 01 04 04 0d  01 0e 12 de 20 63 61 70  | -1......... cap|
00000220  5f 6a 6f 69 6e 25 20 33  32 0d 01 18 15 61 72 72  |_join% 32....arr|
00000230  6f 77 5f 77 69 64 74 68  20 3d 20 31 2e 35 0d 01  |ow_width = 1.5..|
00000240  22 14 61 72 72 6f 77 5f  68 65 69 67 68 74 20 3d  |".arrow_height =|
00000250  20 33 0d 01 2c 13 63 61  70 5f 6a 6f 69 6e 25 3f  | 3..,.cap_join%?|
00000260  30 20 3d 20 30 0d 01 36  13 63 61 70 5f 6a 6f 69  |0 = 0..6.cap_joi|
00000270  6e 25 3f 31 20 3d 20 33  0d 01 40 13 63 61 70 5f  |n%?1 = 3..@.cap_|
00000280  6a 6f 69 6e 25 3f 32 20  3d 20 30 0d 01 4a 13 63  |join%?2 = 0..J.c|
00000290  61 70 5f 6a 6f 69 6e 25  3f 33 20 3d 20 30 0d 01  |ap_join%?3 = 0..|
000002a0  54 18 63 61 70 5f 6a 6f  69 6e 25 21 34 20 3d 20  |T.cap_join%!4 = |
000002b0  26 34 30 30 30 30 0d 01  5e 44 63 61 70 5f 6a 6f  |&40000..^Dcap_jo|
000002c0  69 6e 25 21 38 20 3d 20  28 61 72 72 6f 77 5f 77  |in%!8 = (arrow_w|
000002d0  69 64 74 68 20 2a 20 32  35 36 29 20 2b 20 28 28  |idth * 256) + ((|
000002e0  61 72 72 6f 77 5f 68 65  69 67 68 74 20 2a 20 32  |arrow_height * 2|
000002f0  35 36 29 20 3c 3c 20 31  36 29 0d 01 68 1e 6c 69  |56) << 16)..h.li|
00000300  6e 65 5f 74 68 69 63 6b  6e 65 73 73 25 20 3d 20  |ne_thickness% = |
00000310  31 36 20 2a 20 32 35 36  0d 01 72 04 0d 01 7c 0e  |16 * 256..r...|.|
00000320  de 20 64 61 73 68 25 20  36 34 0d 01 86 0f 64 61  |. dash% 64....da|
00000330  73 68 25 21 30 20 3d 20  30 0d 01 90 0f 64 61 73  |sh%!0 = 0....das|
00000340  68 25 21 34 20 3d 20 34  0d 01 9a 15 64 61 73 68  |h%!4 = 4....dash|
00000350  25 21 38 20 3d 20 31 32  38 2a 32 35 36 0d 01 a4  |%!8 = 128*256...|
00000360  15 64 61 73 68 25 21 31  32 20 3d 20 36 34 2a 32  |.dash%!12 = 64*2|
00000370  35 36 0d 01 ae 15 64 61  73 68 25 21 31 36 20 3d  |56....dash%!16 =|
00000380  20 36 34 2a 32 35 36 0d  01 b8 16 64 61 73 68 25  | 64*256....dash%|
00000390  21 32 30 20 3d 20 31 32  38 2a 32 35 36 0d 01 c2  |!20 = 128*256...|
000003a0  04 0d 01 cc 04 0d 01 d6  04 0d 01 e0 18 f4 20 73  |.............. s|
000003b0  74 61 72 74 20 74 68 65  20 70 72 69 6e 74 6f 75  |tart the printou|
000003c0  74 0d 01 ea 04 0d 01 f4  6f c8 99 20 22 50 44 72  |t.......o.. "PDr|
000003d0  69 76 65 72 5f 49 6e 66  6f 22 20 b8 20 74 79 70  |iver_Info" . typ|
000003e0  65 25 2c 20 78 5f 72 65  73 6f 6c 75 74 69 6f 6e  |e%, x_resolution|
000003f0  25 2c 20 79 5f 72 65 73  6f 6c 75 74 69 6f 6e 25  |%, y_resolution%|
00000400  2c 20 66 65 61 74 75 72  65 73 25 2c 20 6e 61 6d  |, features%, nam|
00000410  65 24 2c 20 68 61 6c 66  74 6f 6e 65 5f 78 5f 72  |e$, halftone_x_r|
00000420  65 73 25 2c 20 68 61 6c  66 74 6f 6e 65 5f 79 5f  |es%, halftone_y_|
00000430  72 65 73 25 0d 01 fe 04  0d 02 08 08 eb 20 31 32  |res%......... 12|
00000440  0d 02 12 04 0d 02 1c 21  f1 20 22 54 65 73 74 20  |.......!. "Test |
00000450  70 72 69 6e 74 6f 75 74  20 75 73 69 6e 67 20 22  |printout using "|
00000460  6e 61 6d 65 24 0d 02 26  05 f1 0d 02 30 39 f1 20  |name$..&....09. |
00000470  22 50 72 65 73 73 20 61  6e 79 20 6b 65 79 20 74  |"Press any key t|
00000480  6f 20 73 65 65 20 77 68  61 74 20 77 65 27 72 65  |o see what we're|
00000490  20 67 6f 69 6e 67 20 74  6f 20 70 72 69 6e 74 2e  | going to print.|
000004a0  2e 2e 22 0d 02 3a 09 47  20 3d 20 a5 0d 02 44 05  |.."..:.G = ...D.|
000004b0  db 0d 02 4e 04 0d 02 58  17 f4 20 64 72 61 77 20  |...N...X.. draw |
000004c0  61 20 77 68 69 74 65 20  70 61 67 65 0d 02 62 2c  |a white page..b,|
000004d0  c8 99 20 22 43 6f 6c 6f  75 72 54 72 61 6e 73 5f  |.. "ColourTrans_|
000004e0  53 65 74 47 43 4f 4c 22  2c 26 46 46 46 46 46 46  |SetGCOL",&FFFFFF|
000004f0  30 30 2c 2c 2c 30 2c 30  0d 02 6c 16 c8 93 c8 90  |00,,,0,0..l.....|
00000500  20 30 2c 30 2c 31 30 32  34 2c 31 32 38 30 0d 02  | 0,0,1024,1280..|
00000510  76 04 0d 02 80 13 f2 64  72 61 77 5f 72 65 63 74  |v......draw_rect|
00000520  61 6e 67 6c 65 0d 02 8a  04 0d 02 94 3d f1 20 22  |angle.......=. "|
00000530  4f 6e 20 74 68 65 20 61  63 74 75 61 6c 20 70 72  |On the actual pr|
00000540  69 6e 74 20 6f 75 74 2c  20 74 68 65 20 70 72 69  |int out, the pri|
00000550  6e 74 65 72 20 64 72 69  76 65 72 20 77 69 6c 6c  |nter driver will|
00000560  20 63 6c 69 70 22 0d 02  9e 3d f1 20 22 74 68 65  | clip"...=. "the|
00000570  20 6f 62 6a 65 63 74 73  20 74 6f 20 74 68 65 20  | objects to the |
00000580  72 65 63 74 61 6e 67 6c  65 20 77 65 20 73 70 65  |rectangle we spe|
00000590  63 69 66 79 2c 20 69 6e  20 74 68 69 73 20 63 61  |cify, in this ca|
000005a0  73 65 22 0d 02 a8 19 f1  20 22 74 68 65 20 62 6c  |se"..... "the bl|
000005b0  61 63 6b 20 73 71 75 61  72 65 2e 22 0d 02 b2 05  |ack square."....|
000005c0  f1 0d 02 bc 04 0d 02 c6  28 f1 20 22 50 72 65 73  |........(. "Pres|
000005d0  73 20 61 6e 79 20 6b 65  79 20 74 6f 20 70 72 69  |s any key to pri|
000005e0  6e 74 20 69 74 20 6f 75  74 2e 2e 2e 22 0d 02 d0  |nt it out..."...|
000005f0  09 47 20 3d 20 a5 0d 02  da 04 0d 02 e4 05 db 0d  |.G = ...........|
00000600  02 ee 04 0d 02 f8 15 f1  20 22 50 72 69 6e 74 69  |........ "Printi|
00000610  6e 67 20 70 61 67 65 22  0d 03 02 04 0d 03 0c 04  |ng page"........|
00000620  0d 03 16 48 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...H. **********|
00000630  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000660  2a 2a 2a 2a 2a 2a 2a 2a  0d 03 20 04 0d 03 2a 27  |********.. ...*'|
00000670  f4 20 63 6c 61 69 6d 20  73 6f 6d 65 20 75 73 65  |. claim some use|
00000680  66 75 6c 20 61 72 65 61  73 20 6f 66 20 6d 65 6d  |ful areas of mem|
00000690  6f 72 79 0d 03 34 2b de  20 72 65 63 74 61 6e 67  |ory..4+. rectang|
000006a0  6c 65 25 20 31 36 2c 20  74 72 61 6e 73 66 6f 72  |le% 16, transfor|
000006b0  6d 25 20 31 36 2c 20 70  6c 6f 74 25 20 38 0d 03  |m% 16, plot% 8..|
000006c0  3e 11 de 20 74 6f 5f 64  72 61 77 25 20 31 36 0d  |>.. to_draw% 16.|
000006d0  03 48 04 0d 03 52 04 0d  03 5c 48 f4 20 2a 2a 2a  |.H...R...\H. ***|
000006e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000710  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |***************.|
00000720  03 66 04 0d 03 70 1d f4  20 73 74 61 72 74 20 6f  |.f...p.. start o|
00000730  66 66 20 74 68 65 20 70  72 69 6e 74 20 6a 6f 62  |ff the print job|
00000740  0d 03 7a 04 0d 03 84 1d  74 69 74 6c 65 24 20 3d  |..z.....title$ =|
00000750  20 22 54 65 73 74 20 70  72 69 6e 74 20 6a 6f 62  | "Test print job|
00000760  22 0d 03 8e 04 0d 03 98  1d 74 68 69 73 5f 6a 6f  |"........this_jo|
00000770  62 25 20 3d 20 ae 28 22  70 72 69 6e 74 65 72 3a  |b% = .("printer:|
00000780  22 29 0d 03 a2 38 c8 99  20 22 50 44 72 69 76 65  |")...8.. "PDrive|
00000790  72 5f 53 65 6c 65 63 74  4a 6f 62 22 2c 20 74 68  |r_SelectJob", th|
000007a0  69 73 5f 6a 6f 62 25 2c  20 74 69 74 6c 65 24 20  |is_job%, title$ |
000007b0  b8 20 6f 6c 64 5f 6a 6f  62 25 0d 03 ac 04 0d 03  |. old_job%......|
000007c0  b6 4a ee 85 20 c8 99 20  22 50 44 72 69 76 65 72  |.J.. .. "PDriver|
000007d0  5f 41 62 6f 72 74 4a 6f  62 22 2c 74 68 69 73 5f  |_AbortJob",this_|
000007e0  6a 6f 62 25 3a 20 d9 23  74 68 69 73 5f 6a 6f 62  |job%: .#this_job|
000007f0  25 3a 20 f1 20 f6 24 20  22 20 61 74 20 6c 69 6e  |%: . .$ " at lin|
00000800  65 20 22 20 9e 3a 20 e0  0d 03 c0 04 0d 03 ca 48  |e " .: ........H|
00000810  f4 20 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |. **************|
00000820  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000850  2a 2a 2a 2a 0d 03 d4 04  0d 03 de 2e f4 20 64 65  |****......... de|
00000860  63 6c 61 72 65 20 61 6c  6c 20 74 68 65 20 66 6f  |clare all the fo|
00000870  6e 74 73 20 77 65 27 72  65 20 67 6f 69 6e 67 20  |nts we're going |
00000880  74 6f 20 75 73 65 0d 03  e8 34 c8 99 20 22 50 44  |to use...4.. "PD|
00000890  72 69 76 65 72 5f 44 65  63 6c 61 72 65 46 6f 6e  |river_DeclareFon|
000008a0  74 22 2c 20 30 2c 20 22  54 72 69 6e 69 74 79 2e  |t", 0, "Trinity.|
000008b0  4d 65 64 69 75 6d 22 2c  20 32 0d 03 f2 25 c8 99  |Medium", 2...%..|
000008c0  20 22 50 44 72 69 76 65  72 5f 44 65 63 6c 61 72  | "PDriver_Declar|
000008d0  65 46 6f 6e 74 22 2c 20  30 2c 20 30 2c 20 30 0d  |eFont", 0, 0, 0.|
000008e0  03 fc 04 0d 04 06 04 0d  04 10 48 f4 20 2a 2a 2a  |..........H. ***|
000008f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000920  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |***************.|
00000930  04 1a 04 0d 04 24 18 f4  20 73 65 74 20 75 70 20  |.....$.. set up |
00000940  61 20 72 65 63 74 61 6e  67 6c 65 0d 04 2e 04 0d  |a rectangle.....|
00000950  04 38 0f 6c 6f 77 5f 78  25 20 3d 20 2d 32 0d 04  |.8.low_x% = -2..|
00000960  42 0f 6c 6f 77 5f 79 25  20 3d 20 2d 32 0d 04 4c  |B.low_y% = -2..L|
00000970  11 68 69 67 68 5f 78 25  20 3d 20 35 31 34 0d 04  |.high_x% = 514..|
00000980  56 11 68 69 67 68 5f 79  25 20 3d 20 35 31 34 0d  |V.high_y% = 514.|
00000990  04 60 0f 78 5f 73 63 61  6c 65 20 3d 20 31 0d 04  |.`.x_scale = 1..|
000009a0  6a 0f 79 5f 73 63 61 6c  65 20 3d 20 31 0d 04 74  |j.y_scale = 1..t|
000009b0  4a f4 20 70 6f 73 69 74  69 6f 6e 20 6f 66 20 74  |J. position of t|
000009c0  68 65 20 62 6f 74 74 6f  6d 20 6c 65 66 74 20 68  |he bottom left h|
000009d0  61 6e 64 20 63 6f 72 6e  65 72 20 69 73 20 61 6e  |and corner is an|
000009e0  20 69 6e 63 68 20 69 6e  20 61 6e 64 20 61 6e 20  | inch in and an |
000009f0  69 6e 63 68 20 75 70 0d  04 7e 32 f4 20 66 72 6f  |inch up..~2. fro|
00000a00  6d 20 74 68 65 20 62 6f  74 74 6f 6d 20 6c 65 66  |m the bottom lef|
00000a10  74 20 68 61 6e 64 20 63  6f 72 6e 65 72 20 6f 66  |t hand corner of|
00000a20  20 74 68 65 20 70 61 67  65 0d 04 88 12 70 6f 73  | the page....pos|
00000a30  5f 78 25 20 3d 20 37 32  30 30 30 0d 04 92 12 70  |_x% = 72000....p|
00000a40  6f 73 5f 79 25 20 3d 20  37 32 30 30 30 0d 04 9c  |os_y% = 72000...|
00000a50  04 0d 04 a6 4a f4 20 61  6e 20 61 72 62 69 74 61  |....J. an arbita|
00000a60  72 79 2c 20 62 75 74 20  63 61 72 65 66 75 6c 6c  |ry, but carefull|
00000a70  79 20 63 68 6f 73 65 6e  2c 20 6e 75 6d 62 65 72  |y chosen, number|
00000a80  20 74 6f 20 69 64 65 6e  74 69 66 79 20 74 68 69  | to identify thi|
00000a90  73 20 72 65 63 74 61 6e  67 6c 65 0d 04 b0 0c 69  |s rectangle....i|
00000aa0  64 25 20 3d 20 34 32 0d  04 ba 04 0d 04 c4 31 f4  |d% = 42.......1.|
00000ab0  20 62 61 63 6b 67 72 6f  75 6e 64 20 63 6f 6c 6f  | background colo|
00000ac0  75 72 20 6f 66 20 74 68  65 20 72 65 63 74 61 6e  |ur of the rectan|
00000ad0  67 6c 65 20 69 73 20 77  68 69 74 65 0d 04 ce 14  |gle is white....|
00000ae0  63 6f 6c 25 20 3d 20 26  46 46 46 46 46 46 30 30  |col% = &FFFFFF00|
00000af0  0d 04 d8 04 0d 04 e2 1a  72 65 63 74 61 6e 67 6c  |........rectangl|
00000b00  65 25 21 30 20 20 3d 20  6c 6f 77 5f 78 25 0d 04  |e%!0  = low_x%..|
00000b10  ec 1a 72 65 63 74 61 6e  67 6c 65 25 21 34 20 20  |..rectangle%!4  |
00000b20  3d 20 6c 6f 77 5f 79 25  0d 04 f6 1b 72 65 63 74  |= low_y%....rect|
00000b30  61 6e 67 6c 65 25 21 38  20 20 3d 20 68 69 67 68  |angle%!8  = high|
00000b40  5f 78 25 0d 05 00 1b 72  65 63 74 61 6e 67 6c 65  |_x%....rectangle|
00000b50  25 21 31 32 20 3d 20 68  69 67 68 5f 79 25 0d 05  |%!12 = high_y%..|
00000b60  0a 22 74 72 61 6e 73 66  6f 72 6d 25 21 30 20 20  |."transform%!0  |
00000b70  3d 20 78 5f 73 63 61 6c  65 20 2a 20 32 5e 31 36  |= x_scale * 2^16|
00000b80  0d 05 14 15 74 72 61 6e  73 66 6f 72 6d 25 21 34  |....transform%!4|
00000b90  20 20 3d 20 30 0d 05 1e  15 74 72 61 6e 73 66 6f  |  = 0....transfo|
00000ba0  72 6d 25 21 38 20 20 3d  20 30 0d 05 28 22 74 72  |rm%!8  = 0..("tr|
00000bb0  61 6e 73 66 6f 72 6d 25  21 31 32 20 3d 20 79 5f  |ansform%!12 = y_|
00000bc0  73 63 61 6c 65 20 2a 20  32 5e 31 36 0d 05 32 14  |scale * 2^16..2.|
00000bd0  70 6c 6f 74 25 21 30 20  3d 20 70 6f 73 5f 78 25  |plot%!0 = pos_x%|
00000be0  0d 05 3c 14 70 6c 6f 74  25 21 34 20 3d 20 70 6f  |..<.plot%!4 = po|
00000bf0  73 5f 79 25 0d 05 46 48  c8 99 20 22 50 44 72 69  |s_y%..FH.. "PDri|
00000c00  76 65 72 5f 47 69 76 65  52 65 63 74 61 6e 67 6c  |ver_GiveRectangl|
00000c10  65 22 2c 20 69 64 25 2c  20 72 65 63 74 61 6e 67  |e", id%, rectang|
00000c20  6c 65 25 2c 20 74 72 61  6e 73 66 6f 72 6d 25 2c  |le%, transform%,|
00000c30  20 70 6c 6f 74 25 2c 20  63 6f 6c 25 0d 05 50 04  | plot%, col%..P.|
00000c40  0d 05 5a 04 0d 05 64 48  f4 20 2a 2a 2a 2a 2a 2a  |..Z...dH. ******|
00000c50  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000c80  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 05 6e 04  |************..n.|
00000c90  0d 05 78 2f f4 20 72 69  67 68 74 20 74 68 65 6e  |..x/. right then|
00000ca0  2c 20 6c 65 74 27 73 20  73 74 61 72 74 20 74 68  |, let's start th|
00000cb0  65 20 70 72 69 6e 74 20  6a 6f 62 20 6f 66 66 0d  |e print job off.|
00000cc0  05 82 04 0d 05 8c 0f 63  6f 70 69 65 73 25 20 3d  |.......copies% =|
00000cd0  20 31 0d 05 96 04 0d 05  a0 20 f4 20 70 61 67 65  | 1....... . page|
00000ce0  20 6e 75 6d 62 65 72 20  69 73 20 75 6e 69 6d 70  | number is unimp|
00000cf0  6f 72 74 61 6e 74 0d 05  aa 0d 70 61 67 65 25 20  |ortant....page% |
00000d00  3d 20 30 0d 05 b4 04 0d  05 be 45 c8 99 20 22 50  |= 0.......E.. "P|
00000d10  44 72 69 76 65 72 5f 44  72 61 77 50 61 67 65 22  |Driver_DrawPage"|
00000d20  2c 20 63 6f 70 69 65 73  25 2c 20 74 6f 5f 64 72  |, copies%, to_dr|
00000d30  61 77 25 2c 20 70 61 67  65 25 2c 20 30 20 b8 20  |aw%, page%, 0 . |
00000d40  6d 6f 72 65 25 2c 20 2c  20 69 64 25 0d 05 c8 04  |more%, , id%....|
00000d50  0d 05 d2 04 0d 05 dc 48  f4 20 2a 2a 2a 2a 2a 2a  |.......H. ******|
00000d60  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000d90  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 05 e6 04  |************....|
00000da0  0d 05 f0 39 f4 20 64 72  61 77 20 74 68 65 20 6c  |...9. draw the l|
00000db0  6f 76 65 6c 79 20 72 65  63 74 61 6e 67 6c 65 20  |ovely rectangle |
00000dc0  61 73 20 6d 61 6e 79 20  74 69 6d 65 73 20 61 73  |as many times as|
00000dd0  20 72 65 71 75 69 72 65  64 0d 05 fa 04 0d 06 04  | required.......|
00000de0  12 c8 95 28 6d 6f 72 65  25 20 3c 3e 20 30 29 0d  |...(more% <> 0).|
00000df0  06 0e 13 20 20 e7 28 69  64 25 20 3d 20 34 32 29  |...  .(id% = 42)|
00000e00  20 8c 0d 06 18 17 20 20  20 20 f2 64 72 61 77 5f  | .....    .draw_|
00000e10  72 65 63 74 61 6e 67 6c  65 0d 06 22 07 20 20 cd  |rectangle..".  .|
00000e20  0d 06 2c 04 0d 06 36 3a  20 20 c8 99 20 22 50 44  |..,...6:  .. "PD|
00000e30  72 69 76 65 72 5f 47 65  74 52 65 63 74 61 6e 67  |river_GetRectang|
00000e40  6c 65 22 2c 20 2c 20 74  6f 5f 64 72 61 77 25 20  |le", , to_draw% |
00000e50  b8 20 6d 6f 72 65 25 2c  20 2c 20 69 64 25 0d 06  |. more%, , id%..|
00000e60  40 05 ce 0d 06 4a 04 0d  06 54 04 0d 06 5e 48 f4  |@....J...T...^H.|
00000e70  20 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ***************|
00000e80  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000eb0  2a 2a 2a 0d 06 68 04 0d  06 72 29 f4 20 2e 2e 2e  |***..h...r). ...|
00000ec0  20 61 6e 64 20 66 69 6e  61 6c 6c 79 2c 20 65 6e  | and finally, en|
00000ed0  64 20 74 68 69 73 20 70  72 69 6e 74 20 6a 6f 62  |d this print job|
00000ee0  0d 06 7c 04 0d 06 86 22  c8 99 20 22 50 44 72 69  |..|....".. "PDri|
00000ef0  76 65 72 5f 45 6e 64 4a  6f 62 22 2c 20 74 68 69  |ver_EndJob", thi|
00000f00  73 5f 6a 6f 62 25 0d 06  90 27 c8 99 20 22 50 44  |s_job%...'.. "PD|
00000f10  72 69 76 65 72 5f 53 65  6c 65 63 74 4a 6f 62 22  |river_SelectJob"|
00000f20  2c 20 6f 6c 64 5f 6a 6f  62 25 2c 20 30 0d 06 9a  |, old_job%, 0...|
00000f30  04 0d 06 a4 10 d9 23 20  74 68 69 73 5f 6a 6f 62  |......# this_job|
00000f40  25 0d 06 ae 04 0d 06 b8  04 0d 06 c2 48 f4 20 2a  |%...........H. *|
00000f50  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000f90  2a 0d 06 cc 04 0d 06 d6  10 f1 20 22 46 69 6e 69  |*......... "Fini|
00000fa0  73 68 65 64 22 0d 06 e0  04 0d 06 ea 05 e0 0d 06  |shed"...........|
00000fb0  f4 04 0d 06 fe 04 0d 07  08 48 f4 20 2a 2a 2a 2a  |.........H. ****|
00000fc0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000ff0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 07  |**************..|
00001000  12 04 0d 07 1c 44 f4 20  70 72 6f 63 65 64 75 72  |.....D. procedur|
00001010  65 20 74 6f 20 64 72 61  77 20 74 68 65 20 72 65  |e to draw the re|
00001020  63 74 61 6e 67 6c 65 2e  2e 2e 20 6e 6f 74 65 20  |ctangle... note |
00001030  74 68 61 74 20 69 74 27  73 20 74 68 65 20 73 61  |that it's the sa|
00001040  6d 65 20 6f 6e 65 0d 07  26 2b f4 20 77 68 69 63  |me one..&+. whic|
00001050  68 20 64 72 61 77 73 20  74 68 65 20 70 69 63 74  |h draws the pict|
00001060  75 72 65 20 6f 6e 20 74  68 65 20 73 63 72 65 65  |ure on the scree|
00001070  6e 0d 07 30 04 0d 07 3a  14 dd f2 64 72 61 77 5f  |n..0...:...draw_|
00001080  72 65 63 74 61 6e 67 6c  65 0d 07 44 1f 20 20 f4  |rectangle..D.  .|
00001090  20 73 65 74 20 74 68 65  20 63 6f 6c 6f 75 72 20  | set the colour |
000010a0  74 6f 20 62 6c 61 63 6b  0d 07 4e 2e 20 20 c8 99  |to black..N.  ..|
000010b0  20 22 43 6f 6c 6f 75 72  54 72 61 6e 73 5f 53 65  | "ColourTrans_Se|
000010c0  74 47 43 4f 4c 22 2c 26  30 30 30 30 30 30 30 30  |tGCOL",&00000000|
000010d0  2c 2c 2c 30 2c 30 0d 07  58 04 0d 07 62 10 20 20  |,,,0,0..X...b.  |
000010e0  f4 20 61 20 62 6f 72 64  65 72 0d 07 6c 0b 20 20  |. a border..l.  |
000010f0  ec 20 30 2c 30 0d 07 76  0d 20 20 df 20 30 2c 35  |. 0,0..v.  . 0,5|
00001100  31 32 0d 07 80 0f 20 20  df 20 35 31 32 2c 35 31  |12....  . 512,51|
00001110  32 0d 07 8a 0d 20 20 df  20 35 31 32 2c 30 0d 07  |2....  . 512,0..|
00001120  94 0b 20 20 df 20 30 2c  30 0d 07 9e 04 0d 07 a8  |..  . 0,0.......|
00001130  31 20 20 f4 20 64 72 61  77 20 61 20 66 69 6c 6c  |1  . draw a fill|
00001140  65 64 20 73 68 61 70 65  20 75 73 69 6e 67 20 74  |ed shape using t|
00001150  68 65 20 64 72 61 77 20  6d 6f 64 75 6c 65 0d 07  |he draw module..|
00001160  b2 2e 20 20 c8 99 20 22  43 6f 6c 6f 75 72 54 72  |..  .. "ColourTr|
00001170  61 6e 73 5f 53 65 74 47  43 4f 4c 22 2c 26 30 30  |ans_SetGCOL",&00|
00001180  30 30 46 46 30 30 2c 2c  2c 30 2c 30 0d 07 bc 20  |00FF00,,,0,0... |
00001190  20 20 c8 99 20 22 44 72  61 77 5f 46 69 6c 6c 22  |  .. "Draw_Fill"|
000011a0  2c 70 61 74 68 25 2c 30  2c 30 2c 30 0d 07 c6 04  |,path%,0,0,0....|
000011b0  0d 07 d0 2e 20 20 c8 99  20 22 43 6f 6c 6f 75 72  |....  .. "Colour|
000011c0  54 72 61 6e 73 5f 53 65  74 47 43 4f 4c 22 2c 26  |Trans_SetGCOL",&|
000011d0  30 30 46 46 30 30 30 30  2c 2c 2c 30 2c 30 0d 07  |00FF0000,,,0,0..|
000011e0  da 42 20 20 c8 99 20 22  44 72 61 77 5f 53 74 72  |.B  .. "Draw_Str|
000011f0  6f 6b 65 22 2c 70 61 74  68 25 2c 30 2c 30 2c 30  |oke",path%,0,0,0|
00001200  2c 6c 69 6e 65 5f 74 68  69 63 6b 6e 65 73 73 25  |,line_thickness%|
00001210  2c 63 61 70 5f 6a 6f 69  6e 25 2c 64 61 73 68 25  |,cap_join%,dash%|
00001220  0d 07 e4 04 0d 07 ee 15  20 20 73 69 7a 65 25 20  |........  size% |
00001230  3d 20 31 36 20 2a 20 31  36 0d 07 f8 42 20 20 c8  |= 16 * 16...B  .|
00001240  99 20 22 46 6f 6e 74 5f  46 69 6e 64 46 6f 6e 74  |. "Font_FindFont|
00001250  22 2c 2c 22 54 72 69 6e  69 74 79 2e 4d 65 64 69  |",,"Trinity.Medi|
00001260  75 6d 22 2c 73 69 7a 65  25 2c 73 69 7a 65 25 2c  |um",size%,size%,|
00001270  30 2c 30 20 b8 20 66 6f  6e 74 25 0d 08 02 42 20  |0,0 . font%...B |
00001280  20 c8 99 20 22 43 6f 6c  6f 75 72 54 72 61 6e 73  | .. "ColourTrans|
00001290  5f 53 65 74 46 6f 6e 74  43 6f 6c 6f 75 72 73 22  |_SetFontColours"|
000012a0  2c 66 6f 6e 74 25 2c 26  46 46 46 46 46 46 30 30  |,font%,&FFFFFF00|
000012b0  2c 26 30 30 30 30 30 30  30 30 2c 31 34 0d 08 0c  |,&00000000,14...|
000012c0  3f 20 20 c8 99 20 22 46  6f 6e 74 5f 50 61 69 6e  |?  .. "Font_Pain|
000012d0  74 22 2c 66 6f 6e 74 25  2c 22 54 68 69 73 20 69  |t",font%,"This i|
000012e0  73 20 61 20 74 65 73 74  20 70 72 69 6e 74 6f 75  |s a test printou|
000012f0  74 22 2c 37 38 34 2c 33  32 2c 33 32 0d 08 16 1e  |t",784,32,32....|
00001300  20 20 c8 99 20 22 46 6f  6e 74 5f 4c 6f 73 65 46  |  .. "Font_LoseF|
00001310  6f 6e 74 22 2c 66 6f 6e  74 25 0d 08 20 05 e1 0d  |ont",font%.. ...|
00001320  08 2a 04 0d ff                                    |.*...|
00001325