%!PS-Adobe-2.0 EPSF-1.2 %%Creator: BGI by Borland International %%Title: BGI Graphics %%BoundingBox: 24 184 587 607 %***************************************************************** % File: preamble.bgi % Postscript preamble file for BGI Postscript driver % (c) Copyright 1989 Borland International % Last Update: 02-11-91 %***************************************************************** %%EndComments save /dic 12 dict def /RES { dic begin /cn exch def /new exch def /bf exch def /bd bf findfont def /fo bd maxlength dict def bd { exch dup /FID ne { dup /Encoding eq { exch dup length array copy fo 3 1 roll put } { exch fo 3 1 roll put } ifelse } { pop pop } ifelse } forall fo /FontName new put cn aload pop cn length 2 idiv { fo /Encoding get 3 1 roll put } repeat new fo definefont pop end } def % 1-30-90 /pcVector [ 16#00 /circumflex 16#01 /grave 16#02 /dieresis 16#03 /tilde 16#04 /acute 16#05 /cedilla 16#06 /ring 16#07 /slash 16#08 /caron 16#80 /Ccedilla 16#81 /udieresis 16#82 /eacute 16#83 /acircumflex 16#84 /adieresis 16#85 /agrave 16#86 /aring 16#87 /ccedilla 16#88 /ecircumflex 16#89 /edieresis 16#8a /egrave 16#8b /idieresis 16#8c /icircumflex 16#8d /igrave 16#8e /Adieresis 16#8f /Aring 16#90 /Eacute 16#91 /ae 16#92 /AE 16#93 /ocircumflex 16#94 /odieresis 16#95 /ograve 16#96 /ucircumflex 16#97 /ugrave 16#98 /ydieresis 16#99 /Odieresis 16#9a /Udieresis 16#9b /oslash 16#9c /sterling 16#9d /Oslash 16#9f /florin 16#a0 /aacute 16#a1 /iacute 16#a2 /oacute 16#a3 /uacute 16#a4 /ntilde 16#a5 /Ntilde 16#a6 /ordfeminine 16#a7 /ordmasculine 16#a8 /questiondown 16#ad /exclamdown 16#ae /guillemotleft 16#af /guillemotright 16#b0 /space 16#b1 /space 16#b2 /space 16#b3 /space 16#b7 /idieresis 16#b9 /Agrave 16#ba /currency 16#bb /sterling 16#bc /Ecircumflex 16#bd /section 16#be /Acircumflex 16#bf /Egrave 16#c0 /yen 16#c2 /cent 16#c3 /Ugrave 16#c8 /atilde 16#cb /space 16#d1 /Icircumflex 16#d2 /atilde 16#d3 /otilde 16#d4 /scaron 16#d5 /zcaron 16#d6 /Ydieresis 16#da /Atilde 16#df /Ocircumflex 16#e0 /a 16#e1 /germandbls 16#e2 /c 16#e3 /p 16#e4 /s 16#e5 /s 16#e6 /m 16#e7 /t 16#e9 /t 16#ea /o 16#eb /d 16#ec /i 16#ed /Oslash 16#ee /e 16#f0 /Aacute 16#f1 /germandbls ] def % end 1-30-90 /OP { bgiFill 0 ne bgiRes 0 eq and bgiFill 1 eq or % 1 = SolidFill { 1 CurrentFill ne { level0 } if bgiFillColor % stack: (color) dup /CurrentColor exch def % set color bgiRes 1 eq { bgiGrayTable exch get setgray } { setbgicolor } ifelse }{ % stack: - 0 bgiFill eq % 0 = HollowFill { }{ bgiFill dup 15 gt { pop }{ % stack: bgiFill dup bgiRes 0 ne exch 9 ne and { level0 bgiPatTable exch get setpatterndict begin /bstring exch def /onbits 0 def /offbits 0 def %9.375 0 /spot load setscreen 18.75 0 /spot load setscreen {} settransfer offbits offbits onbits add div end setgray }{ pop level0 % for pattern 9 0.3 setgray } ifelse } ifelse } ifelse } ifelse /CurrentFill bgiFill def newpath } bind def /toStack { bgiMono bgiFill bgiColor bgiFillColor bgiSize bgiFont bgiAttrib bgiOrient bgiRes x0Clip y0Clip x1Clip y1Clip } def /fromStack { /y1Clip exch def /x1Clip exch def /y0Clip exch def /x0Clip exch def /bgiRes exch def /bgiOrient exch def /bgiAttrib exch def /bgiFont exch def /bgiSize exch def /bgiFillColor exch def /bgiColor exch def /bgiFill exch def /bgiMono exch def } def /level0 { toStack Memory0 restore fromStack /Memory0 save def newpath x0Clip y0Clip moveto x0Clip y1Clip lineto x1Clip y1Clip lineto x1Clip y0Clip lineto closepath clip newpath /Memory1 save def /CurrentFont -1 def /CurrentColor 0 def } def /CL { closepath dup 1 eq { DO } if dup 2 eq { gsave 0 CurrentFill ne % 0 = Hollow fill { fill } if grestore DO } if 3 eq { 0 CurrentFill ne % 0 = Hollow fill { fill } if } if } bind def /DO % draw outline { bgiMono false eq { % color printer bgiColor setbgicolor } { 0.0 setgray } ifelse stroke } def /setpatterndict 18 dict def /spot { 1 add 4 mul cvi exch 1 add 4 mul cvi /xbit exch def /ybit exch def bstring ybit xbit -3 bitshift add get 1 7 xbit 7 and sub bitshift and 0 ne { /onbits onbits 1 add def 1} { /offbits offbits 1 add def 0} ifelse } bind def /bgiFontTable [ [ /AvantGarde-Book -96 58 739] [ /AvantGarde-BookOblique -96 58 739] [ /AvantGarde-Demi -92 90 739] [ /AvantGarde-DemiOblique -92 90 39] [ /Bookman-Demi -121 106 725] [ /Bookman-DemiItalic -106 106 732] [ /Bookman-Light -125 60 717] [ /Bookman-LightItalic -110 60 717] [ /Courier -82 40 624] [ /Courier-Bold -85 100 674] [ /Courier-BoldOblique -85 100 674] [ /Courier-Oblique -82 40 624] [ /Helvetica -97 73 729] [ /Helvetica-Bold -106 73 729] [ /Helvetica-BoldOblique -106 105 729] [ /Helvetica-Oblique -106 73 729] [ /Helvetica-Narrow -97 73 729] [ /Helvetica-Narrow-Bold -106 73 729] [ /Helvetica-Narrow-BoldOblique -106 73 729] [ /Helvetica-Narrow-Oblique -97 73 729] [ /NewCenturySchlbk-Bold -103 106 737] [ /NewCenturySchlbk-BoldItalic -102 54 737] [ /NewCenturySchlbk-Italic -102 42 737] [ /NewCenturySchlbk-Roman -103 61 737] [ /Palatino-Bold -98 44 719] [ /Palatino-BoldItalic -98 54 726] [ /Palatino-Italic -138 50 733] [ /Palatino-Roman -141 38 723] [ /Symbol -98 54 720] [ /Times-Bold -99 95 670] [ /Times-BoldItalic -98 54 682] [ /Times-Italic -96 48 684] [ /Times-Roman -109 49 682] [ /ZapfChancery-MediumItalic -120 50 678] [ /ZapfDingbats -98 54 720] ] def /bgiPatTable [ <0000000000000000> <0102040810204080> <8142241818244281> <8000080080000800> <8800220088002200> <081c22c180010204> <0001020400402010> ] def /bgiGrayTable [ 1.00 0.11 0.59 0.70 0.30 0.41 0.40 0.90 0.75 0.40 0.73 0.80 0.53 0.60 0.93 0.00 ] def /bgiColorTable [ [1 1 1] % bright white [0 0 1] % blue [0 1 0] % green [0 1 1] % cyan [1 0 0] % red [1 0 1] % magenta [0.67 0.33 0] % brown [0.9 0.9 0.9] % light gray (white) [0.75 0.75 0.75] % dark gray [0.33 0.33 1] % lightblue [0.33 1 0.33] % lightgreen [0.33 1 1] % lightcyan [1 0.33 0.33] % lightred [1 0.33 1] % lightmagenta [1 1 0.33] % yellow [0 0 0] % black [0.9 0.9 0.9] % light gray (color 7 on color printers) ] def /MT /moveto load def /LT /lineto load def /CP /closepath load def /NP /newpath load def /SD /setdash load def /SG /setgray load def /TR /translate load def /LW /setlinewidth load def /DL { moveto lineto DO } bind def /TW { 20 div exch 20 div exch moveto 20 div exch 20 div exch lineto DO } bind def /TB { 20 div 4 1 roll 20 div 4 1 roll 20 div 4 1 roll 20 div 4 1 roll DB } bind def /SC { /y1Clip exch def /x1Clip exch def /y0Clip exch def /x0Clip exch def level0 } bind def /ellipsedict 12 dict def ellipsedict /mtrx matrix put /SA % stack: x y xrad yrad start delta { % add an arc to the current path ellipsedict begin /delta exch 60.0 div def /startangle exch 60.0 div def /yrad exch def /xrad exch def /y exch def /x exch def /endangle startangle delta add def /savematrix mtrx currentmatrix def x y translate xrad yrad scale 0 0 1 delta 0 gt {startangle endangle arc } {startangle endangle arcn} ifelse savematrix setmatrix end } bind def /DOARC % stack: x y xrad yrad start end { % add an arc to the current path ellipsedict begin /endangle exch def /startangle exch def bgiOrient 0 ne { exch } if /yrad exch def /xrad exch def /y exch def /x exch def /savematrix mtrx currentmatrix def x y translate xrad yrad scale 0 0 1 startangle endangle arc savematrix setmatrix end } bind def /FE % stack: x y xrad yrad for ellipse { gsave OP 0 360 DOARC 3 CL grestore DO } bind def /DB % stack: x1 y1 x0 y0 color { OP /y0 exch def /x0 exch def /y1 exch def /x1 exch def newpath x0 y0 moveto x0 y1 lineto x1 y1 lineto x1 y0 lineto 3 CL } bind def /DF % stack: (attrib) (size) (font) { /bgiFont exch def % dup 6 eq {pop 7} if /bgiSize exch def /bgiAttrib exch def } bind def /FP % stack: (fill #) { dup 15 le { /bgiFill exch def }{ pop } ifelse } bind def /CO { % stack: (color) (fill color) dup 15 le { /bgiFillColor exch def} {pop} ifelse dup 15 le { /bgiColor exch def} {pop} ifelse } bind def /ST % start text % stack: - { CurrentSize bgiSize ne CurrentFont bgiFont ne or { currentpoint toStack Memory1 restore fromStack moveto /Memory1 save def /CurrentColor 0 def bgiFont dup /CurrentFont exch def % 1-4-90 don't reencode Symbol or ZapfDingbats fonts; dup dup 34 ne exch 28 ne and /bRES exch def % end 1-4-90 dup dup 8 ge exch 15 le and { dup 8 eq % courier { 0.93 } { dup 9 eq % courier-bold { 0.94 } { dup 11 eq % courier-bolditalic (1.02 expansion) { 0.95 } { dup 10 eq % courier-italic { 0.95 } { dup 12 eq % helvetica { 0.93 } { dup 13 eq % helvetica-bold { 0.96 } { dup 14 eq % helvetica-bolditalic { 0.93 } { dup 15 eq % helvetica-italic (1.02 expansion) { 0.96 } { 1 } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } ifelse } { dup 32 eq % times-roman { 1 } { dup 29 eq % times-bold (1.02 expansion) { 0.95 } { dup 30 eq % times-boldoblique { 0.91 } { dup 31 eq %times-italic { 0.92 } { 1 % everything else } ifelse } ifelse } ifelse } ifelse } ifelse /CurrentCompress exch def bgiFontTable exch get % stack: [(font name) offset thick] dup 0 get % stack: array fontname exch dup 1 get /CurrentUnderlineOffset exch def dup 2 get /CurrentUnderlineThickness exch def 3 get /CurrentAscender exch bgiSize mul 1000.0 div def % 1-4-89 bRES { /thisFont pcVector RES /thisFont } if % end 1-4-89 findfont bgiSize dup /CurrentSize exch def scalefont setfont } if % set the text color or gray scale bgiMono false eq { % color printer stack: color setbgicolor } { % mono printer 0 eq % stack: color { 1.0 setgray} { 0.0 setgray} ifelse } ifelse } bind def /setbgicolor { dup 7 eq bgiMono not and { pop 16 } if bgiColorTable exch get % stack: [r g b] dup 0 get % stack: [r g b] r exch dup 1 get % stack: r [rgb] g exch 2 get % stack: r g b setrgbcolor } bind def /SH % stack: string tdir rot justx justy { /justy exch def /justx exch def 90 mul /rot exch def 0 ne % tdir is on the stack % (this will move into driver) { /justx 2 def } if dup stringwidth pop CurrentCompress mul /sx exch def sx justx mul -0.5 mul justy 0 eq { 0 % baseline aligned } { justy 1 eq { CurrentAscender 2 div neg % center aligned } { CurrentAscender neg % top aligned } ifelse } ifelse % underlining gsave rot rotate rmoveto bgiAttrib 4 and 0 ne % true if underlined, false otherwise { currentpoint CurrentUnderlineOffset CurrentSize mul 1000.0 div add /yval exch def /xval exch def bshow xval yval moveto sx xval add yval lineto CurrentUnderlineThickness CurrentSize mul 1000.0 div setlinewidth stroke } { bshow } ifelse grestore } bind def /bshow { CurrentCompress 1 eq { show } { dup length /len exch def len 0 ne { dup stringwidth pop /wid exch def CurrentCompress wid mul % (factor * wid) wid sub % (factor * wid) - wid len div % stack: string per_char_amt exch 0 exch ashow } if } ifelse } bind def /colorsetup { % exchange colors 0 and 15 bgiColorTable 0 get % stack: [r g b] bgiColorTable 15 get exch bgiColorTable 0 put bgiColorTable 15 put } bind def % ---- initialization /CurrentFill 1 def /CurrentFont -1 def /CurrentSize -1 def /CurrentColor 15 def /bgiMono 0 def /bgiFill 1 def /bgiColor 15 def /bgiFillColor 15 def /bgiSize 10 def /bgiFont 1 def /bgiOrient 0 def /bgiRes 1 def /bgiAttrib 0 def 1.415 setmiterlimit 0.5 setlinewidth /Memory0 save def /Memory1 save def 0 0 moveto %%EndProlog 24 184 587 607 SC /bgiRes 0 def /bgiMono false def /bgiOrient 0 def 0 15 0 DF 611 0 0 791 SC 1 255 CO 587 184 24 607 SC 1 0 CO 1 FP 587 184 24 607 DB 15 0 CO [] 0 SD .75 LW 15 15 CO 0 FP 0 FP [] 0 SD .75 LW 15 0 CO 1 FP 547 230 84 580 DB 84 226 84 580 DL [] 0 SD .75 LW 84 226 84 230 DL [] 0 SD .75 LW 208 225 MT 0 12 32 DF 208 225 MT 1 ST (light)0 0 0 2 SH 315 226 315 230 DL [] 0 SD .75 LW 398 225 MT 398 225 MT 1 ST (heavy)0 0 0 2 SH 547 226 547 580 DL [] 0 SD .75 LW 275 210 MT 0 15 12 DF 275 210 MT 15 ST (System Load)0 0 0 2 SH 547 230 80 230 DL [] 0 SD .75 LW 73 235 MT 0 12 32 DF 73 235 MT 1 ST (0)0 0 0 2 SH [] 0 SD .75 LW 547 274 84 274 DL [] 0 SD .75 LW 84 274 80 274 DL [] 0 SD .75 LW 64 279 MT 64 279 MT 1 ST (0.5)0 0 0 2 SH [] 0 SD .75 LW 547 318 84 318 DL [] 0 SD .75 LW 84 318 80 318 DL [] 0 SD .75 LW 73 322 MT 73 322 MT 1 ST (1)0 0 0 2 SH [] 0 SD .75 LW 547 362 84 362 DL [] 0 SD .75 LW 84 362 80 362 DL [] 0 SD .75 LW 64 367 MT 64 367 MT 1 ST (1.5)0 0 0 2 SH [] 0 SD .75 LW 547 405 84 405 DL [] 0 SD .75 LW 84 405 80 405 DL [] 0 SD .75 LW 73 410 MT 73 410 MT 1 ST (2)0 0 0 2 SH [] 0 SD .75 LW 547 449 84 449 DL [] 0 SD .75 LW 84 449 80 449 DL [] 0 SD .75 LW 64 453 MT 64 453 MT 1 ST (2.5)0 0 0 2 SH [] 0 SD .75 LW 547 493 84 493 DL [] 0 SD .75 LW 84 493 80 493 DL [] 0 SD .75 LW 73 498 MT 73 498 MT 1 ST (3)0 0 0 2 SH [] 0 SD .75 LW 547 536 84 536 DL [] 0 SD .75 LW 84 536 80 536 DL [] 0 SD .75 LW 64 541 MT 64 541 MT 1 ST (3.5)0 0 0 2 SH 547 580 80 580 DL [] 0 SD .75 LW 73 585 MT 73 585 MT 1 ST (4)0 0 0 2 SH 547 230 80 230 DL [] 0 SD .75 LW 45 432 MT 0 15 12 DF 45 432 MT 15 ST (Speedup)3 1 0 2 SH 547 230 80 230 DL 547 230 547 230 DL 14 FP 15 9 CO 162 230 MT 277 230 162 348 DB 162 348 162 230 DL 277 348 162 348 DL 277 230 277 348 DL 162 230 277 230 DL 277 230 MT 15 9 CO 354 230 MT 470 230 354 548 DB 354 548 354 230 DL 470 548 354 548 DL 470 230 470 548 DL 354 230 470 230 DL 470 230 MT 15 9 CO 547 230 84 230 DL showpage restore %%Trailer