%!PS-Adobe-3.0 EPSF-3.0 %%Creator: Tk Canvas Widget %%For: Peter Flynn,Silmaril Consultants,+353 86 807 8172,+353 21 454 6305 %%Title: Window .c %%CreationDate: Tue May 1 01:35:12 2001 %%BoundingBox: 37 156 576 637 %%Pages: 1 %%DocumentData: Clean7Bit %%Orientation: Portrait %%DocumentNeededResources: font Times-Roman %%EndComments %%BeginProlog 50 dict begin % This is a standard prolog for Postscript generated by Tk's canvas % widget. % RCS: @(#) $Id: tkCanvPs.c,v 1.4 1998/09/22 18:57:16 stanton Exp $ % The definitions below just define all of the variables used in % any of the procedures here. This is needed for obscure reasons % explained on p. 716 of the Postscript manual (Section H.2.7, % "Initializing Variables," in the section on Encapsulated Postscript). /baseline 0 def /stipimage 0 def /height 0 def /justify 0 def /lineLength 0 def /spacing 0 def /stipple 0 def /strings 0 def /xoffset 0 def /yoffset 0 def /tmpstip null def % Define the array ISOLatin1Encoding (which specifies how characters are % encoded for ISO-8859-1 fonts), if it isn't already present (Postscript % level 2 is supposed to define it, but level 1 doesn't). systemdict /ISOLatin1Encoding known not { /ISOLatin1Encoding [ /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quoteright /parenleft /parenright /asterisk /plus /comma /minus /period /slash /zero /one /two /three /four /five /six /seven /eight /nine /colon /semicolon /less /equal /greater /question /at /A /B /C /D /E /F /G /H /I /J /K /L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o /p /q /r /s /t /u /v /w /x /y /z /braceleft /bar /braceright /asciitilde /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /space /dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent /dieresis /space /ring /cedilla /space /hungarumlaut /ogonek /caron /space /exclamdown /cent /sterling /currency /yen /brokenbar /section /dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph /periodcentered /cedillar /onesuperior /ordmasculine /guillemotright /onequarter /onehalf /threequarters /questiondown /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla /Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis /Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls /agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla /egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis /eth /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide /oslash /ugrave /uacute /ucircumflex /udieresis /yacute /thorn /ydieresis ] def } if % font ISOEncode font % This procedure changes the encoding of a font from the default % Postscript encoding to ISOLatin1. It's typically invoked just % before invoking "setfont". The body of this procedure comes from % Section 5.6.1 of the Postscript book. /ISOEncode { dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end % I'm not sure why it's necessary to use "definefont" on this new % font, but it seems to be important; just use the name "Temporary" % for the font. /Temporary exch definefont } bind def % StrokeClip % % This procedure converts the current path into a clip area under % the assumption of stroking. It's a bit tricky because some Postscript % interpreters get errors during strokepath for dashed lines. If % this happens then turn off dashes and try again. /StrokeClip { {strokepath} stopped { (This Postscript printer gets limitcheck overflows when) = (stippling dashed lines; lines will be printed solid instead.) = [] 0 setdash strokepath} if clip } bind def % desiredSize EvenPixels closestSize % % The procedure below is used for stippling. Given the optimal size % of a dot in a stipple pattern in the current user coordinate system, % compute the closest size that is an exact multiple of the device's % pixel size. This allows stipple patterns to be displayed without % aliasing effects. /EvenPixels { % Compute exact number of device pixels per stipple dot. dup 0 matrix currentmatrix dtransform dup mul exch dup mul add sqrt % Round to an integer, make sure the number is at least 1, and compute % user coord distance corresponding to this. dup round dup 1 lt {pop 1} if exch div mul } bind def % width height string StippleFill -- % % Given a path already set up and a clipping region generated from % it, this procedure will fill the clipping region with a stipple % pattern. "String" contains a proper image description of the % stipple pattern and "width" and "height" give its dimensions. Each % stipple dot is assumed to be about one unit across in the current % user coordinate system. This procedure trashes the graphics state. /StippleFill { % The following code is needed to work around a NeWSprint bug. /tmpstip 1 index def % Change the scaling so that one user unit in user coordinates % corresponds to the size of one stipple dot. 1 EvenPixels dup scale % Compute the bounding box occupied by the path (which is now % the clipping region), and round the lower coordinates down % to the nearest starting point for the stipple pattern. Be % careful about negative numbers, since the rounding works % differently on them. pathbbox 4 2 roll 5 index div dup 0 lt {1 sub} if cvi 5 index mul 4 1 roll 6 index div dup 0 lt {1 sub} if cvi 6 index mul 3 2 roll % Stack now: width height string y1 y2 x1 x2 % Below is a doubly-nested for loop to iterate across this area % in units of the stipple pattern size, going up columns then % across rows, blasting out a stipple-pattern-sized rectangle at % each position 6 index exch { 2 index 5 index 3 index { % Stack now: width height string y1 y2 x y gsave 1 index exch translate 5 index 5 index true matrix tmpstip imagemask grestore } for pop } for pop pop pop pop pop } bind def % -- AdjustColor -- % Given a color value already set for output by the caller, adjusts % that value to a grayscale or mono value if requested by the CL % variable. /AdjustColor { CL 2 lt { currentgray CL 0 eq { .5 lt {0} {1} ifelse } if setgray } if } bind def % x y strings spacing xoffset yoffset justify stipple DrawText -- % This procedure does all of the real work of drawing text. The % color and font must already have been set by the caller, and the % following arguments must be on the stack: % % x, y - Coordinates at which to draw text. % strings - An array of strings, one for each line of the text item, % in order from top to bottom. % spacing - Spacing between lines. % xoffset - Horizontal offset for text bbox relative to x and y: 0 for % nw/w/sw anchor, -0.5 for n/center/s, and -1.0 for ne/e/se. % yoffset - Vertical offset for text bbox relative to x and y: 0 for % nw/n/ne anchor, +0.5 for w/center/e, and +1.0 for sw/s/se. % justify - 0 for left justification, 0.5 for center, 1 for right justify. % stipple - Boolean value indicating whether or not text is to be % drawn in stippled fashion. If text is stippled, % procedure StippleText must have been defined to call % StippleFill in the right way. % % Also, when this procedure is invoked, the color and font must already % have been set for the text. /DrawText { /stipple exch def /justify exch def /yoffset exch def /xoffset exch def /spacing exch def /strings exch def % First scan through all of the text to find the widest line. /lineLength 0 def strings { stringwidth pop dup lineLength gt {/lineLength exch def} {pop} ifelse newpath } forall % Compute the baseline offset and the actual font height. 0 0 moveto (TXygqPZ) false charpath pathbbox dup /baseline exch def exch pop exch sub /height exch def pop newpath % Translate coordinates first so that the origin is at the upper-left % corner of the text's bounding box. Remember that x and y for % positioning are still on the stack. translate lineLength xoffset mul strings length 1 sub spacing mul height add yoffset mul translate % Now use the baseline and justification information to translate so % that the origin is at the baseline and positioning point for the % first line of text. justify lineLength mul baseline neg translate % Iterate over each of the lines to output it. For each line, % compute its width again so it can be properly justified, then % display it. strings { dup stringwidth pop justify neg mul 0 moveto stipple { % The text is stippled, so turn it into a path and print % by calling StippledText, which in turn calls StippleFill. % Unfortunately, many Postscript interpreters will get % overflow errors if we try to do the whole string at % once, so do it a character at a time. gsave /char (X) def { char 0 3 -1 roll put currentpoint gsave char true charpath clip StippleText grestore char stringwidth translate moveto } forall grestore } {show} ifelse 0 spacing neg translate } forall } bind def %%EndProlog %%BeginSetup /CL 2 def %%IncludeResource: font Times-Roman %%EndSetup %%Page: 1 1 save 306.0 396.0 translate 0.9846 0.9846 scale -342 -243 translate 69 487 moveto 616 487 lineto 616 0 lineto 69 0 lineto closepath clip newpath gsave 178 85 moveto 178 471 lineto 3 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke grestore gsave 179 86 moveto 502 86 lineto 3 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke grestore gsave 178 85 moveto 562 471 lineto 3 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke grestore gsave 179 440 moveto 353 440 lineto 353 85 lineto 1 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke grestore gsave 179 264 moveto 487 264 lineto 1 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke grestore gsave 413 85 moveto 413 321 lineto 1 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke grestore gsave 413 322 moveto 489 322 lineto 1 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke grestore gsave /Times-Roman findfont 24 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 265 352 [ (Spending) (Variance) ] 26 -0.5 0.5 0 false DrawText grestore gsave 265 433.423834996254 moveto 265 380.818181818 lineto 1 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke 265 438.0909090909 moveto 260.499 428.0899090909 lineto 264.5 429.867736240422 lineto 265.5 429.867736240422 lineto 269.501 428.0899090909 lineto 265 438.0909090909 lineto fill grestore gsave 265 269.604574094646 moveto 265 321.125 lineto 1 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke 265 264.9375 moveto 269.501 274.9385 lineto 265.5 273.160672850478 lineto 264.5 273.160672850478 lineto 260.499 274.9385 lineto 265 264.9375 lineto fill grestore gsave /Times-Roman findfont 24 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 363 447 [ (E) ] 26 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 24 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 337 276 [ (D) ] 26 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 24 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 403 332 [ (C) ] 26 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 24 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 422 251 [ (B) ] 26 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 24 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 574 474 [ (X) ] 26 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 24 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 363 96 [ (F) ] 26 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 24 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 424 96 [ (A) ] 26 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 24 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 519 292 [ (Efficiency Variance) ] 26 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 16 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 162 440 [ (120) ] 17 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 16 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 164 382 [ (100) ] 17 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 16 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 166 322 [ (80) ] 17 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 16 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 166 264 [ (60) ] 17 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 16 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 167 204 [ (40) ] 17 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 16 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 166 146 [ (20) ] 17 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 16 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 168 76 [ (0) ] 17 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 16 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 235 71 [ (10) ] 17 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 16 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 295 71 [ (20) ] 17 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 16 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 353 73 [ (30) ] 17 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 16 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 413 73 [ (40) ] 17 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 16 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 471 72 [ (50) ] 17 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 16 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 325 29.0000000000001 [ (Volume \050Direct labour Hours\051) ] 17 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 16 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 324 9.00000000000006 [ (\050thousands\051) ] 17 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 16 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 108 312 [ (\243) ] 17 -0.5 0.5 0 false DrawText grestore gsave /Times-Roman findfont 16 scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 109 293 [ (\050thousands\051) ] 17 -0.5 0.5 0 false DrawText grestore gsave 471 355.2 moveto 471 327.567074094646 lineto 1 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke 471 322.9 moveto 475.501 332.901 lineto 471.5 331.123172850478 lineto 470.5 331.123172850478 lineto 466.499 332.901 lineto 471 322.9 lineto fill grestore gsave 471 257.832925905354 moveto 471 234 lineto 1 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke 471 262.5 moveto 466.499 252.499 lineto 470.5 254.276827149522 lineto 471.5 254.276827149522 lineto 475.501 252.499 lineto 471 262.5 lineto fill grestore gsave 179 382 moveto 188 382 lineto 1 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke grestore gsave 178 322 moveto 187 322 lineto 1 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke grestore gsave 179 204 moveto 188 204 lineto 1 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke grestore gsave 178 146 moveto 188 146 lineto 1 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke grestore gsave 235 86 moveto 235 97 lineto 1 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke grestore gsave 295 97 moveto 295 85 lineto 1 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke grestore gsave 471 99 moveto 471 86 lineto 1 setlinewidth 0 setlinecap 0 setlinejoin 0.000 0.000 0.000 setrgbcolor AdjustColor stroke grestore restore showpage %%Trailer end %%EOF