summaryrefslogtreecommitdiff
path: root/info/beginlatex/src/diagram.eps
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /info/beginlatex/src/diagram.eps
Initial commit
Diffstat (limited to 'info/beginlatex/src/diagram.eps')
-rw-r--r--info/beginlatex/src/diagram.eps679
1 files changed, 679 insertions, 0 deletions
diff --git a/info/beginlatex/src/diagram.eps b/info/beginlatex/src/diagram.eps
new file mode 100644
index 0000000000..20e418f45a
--- /dev/null
+++ b/info/beginlatex/src/diagram.eps
@@ -0,0 +1,679 @@
+%!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