Subversion Repositories f9daq

%!PS-Adobe-3.0 EPSF-3.0

%%Creator: Tk Canvas Widget

%%For: Samo Korpar,,,

%%Title: Window .eps

%%CreationDate: Thu Feb  7 06:20:06 2013

%%BoundingBox: 79 234 533 558

%%Pages: 1

%%DocumentData: Clean7Bit

%%Orientation: Portrait

%%EndComments

%%BeginProlog

/CurrentEncoding [

/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/quotesingle

/parenleft/parenright/asterisk/plus/comma/hyphen/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

/grave/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

/space/space/space/space/space/space/space/space

/space/space/space/space/space/space/space/space

/space/exclamdown/cent/sterling/currency/yen/brokenbar/section

/dieresis/copyright/ordfeminine/guillemotleft/logicalnot/hyphen/registered/macron

/degree/plusminus/twosuperior/threesuperior/acute/mu/paragraph/periodcentered

/cedilla/onesuperior/ordmasculine/guillemotright/onequarter/onehalf/threequarters/questiondown

/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/space/space/space/space/space/space/space

/space/space/space/space/space/space/space/space

/eth/ntilde/ograve/oacute/ocircumflex/otilde/odieresis/divide

/oslash/ugrave/uacute/ucircumflex/udieresis/yacute/thorn/ydieresis

] def

50 dict begin

% This is a standard prolog for Postscript generated by Tk's canvas

% widget.

% RCS: @(#) $Id: mkpsenc.tcl,v 1.3 2002/07/19 14:37:21 drh 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

/cstringshow {

    {

	dup type /stringtype eq

	{ show } { glyphshow }

	ifelse

    }

    forall

} bind def

/cstringwidth {

    {

	dup type /stringtype eq

	{ stringwidth } {

	    currentfont /Encoding get exch 1 exch put (\001) stringwidth

        }

	ifelse

	exch 3 1 roll add 3 1 roll add exch

    }

    forall

} bind def

% font ISOEncode font

% This procedure changes the encoding of a font from the default

% Postscript encoding to current system encoding.  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 CurrentEncoding 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 {

	cstringwidth pop

	dup lineLength gt {/lineLength exch def} {pop} ifelse

	newpath

    } forall

    % Compute the baseline offset and the actual font height.

    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 cstringwidth 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

	    {

		dup type /stringtype eq {

		    % This segment is a string.

		    {

		        char 0 3 -1 roll put

		        currentpoint

		        gsave

		        char true charpath clip StippleText

		        grestore

		        char stringwidth translate

		        moveto

		    } forall

		} {

		    % This segment is glyph name

		    % Temporary override

		    currentfont /Encoding get exch 1 exch put

		    currentpoint

		    gsave (\001) true charpath clip StippleText

		    grestore

	            (\001) stringwidth translate

		    moveto

		} ifelse

	    } forall

	    grestore

	} {cstringshow} ifelse

    } forall

} bind def

%%EndProlog

%%BeginSetup

/CL 2 def

%%EndSetup

%%Page: 1 1

save

306.0 396.0 translate

0.4049 0.4049 scale

-560 -400 translate

gsave

% including file "/usr//lib/blt2.4/bltCanvEps.pro"

%

% PostScript encapulator prolog file of the BLT "eps" canvas item.

%

% Copyright 1991-1997 Bell Labs Innovations for Lucent Technologies.

%

% Permission to use, copy, modify, and distribute this software and its

% documentation for any purpose and without fee is hereby granted, provided

% that the above copyright notice appear in all copies and that both that the

% copyright notice and warranty disclaimer appear in supporting documentation,

% and that the names of Lucent Technologies any of their entities not be used

% in advertising or publicity pertaining to distribution of the software

% without specific, written prior permission.

%

% Lucent Technologies disclaims all warranties with regard to this software,

% including all implied warranties of merchantability and fitness.  In no event

% shall Lucent Technologies be liable for any special, indirect or

% consequential damages or any damages whatsoever resulting from loss of use,

% data or profits, whether in an action of contract, negligence or other

% tortuous action, arising out of or in connection with the use or performance

% of this software.

%

%

% The definitions of the next two macros are from Appendix H of

% Adobe's "PostScript Language Reference Manual" pp. 709-736.

%

% Prepare for EPS file

/BeginEPSF {

  /beforeInclusionState save def

  /dictCount countdictstack def		% Save the # objects in the dictionary

  /opCount count 1 sub def		% Count object on operator stack

  userdict begin			% Make "userdict" the current

					% dictionary

    /showpage {} def			% Redefine showpage to be null

    1 setlinewidth

    10 setmiterlimit

    [] 0 setdash

    newpath

    /languagellevel where {

      pop languagelevel

      1 ne {

	false setstrokeadjust false setoverprint

      } if

    } if

    % note: no "end"

} bind def

/EndEPSF { %def

  count opCount sub {

    pop

  } repeat

  countdictstack dictCount sub {

  end					% Clean up dictionary stack

  } repeat

  beforeInclusionState restore

} bind def

%

% Set up a clip region based upon a bounding box (x1, y1, x2, y2).

%

/SetClipRegion {

  % Stack: x1 y1 x2 y2

  newpath

  4 2 roll moveto

  1 index 0 rlineto

  neg 0 rlineto

  closepath

  clip

  newpath

} def

BeginEPSF

4 496 translate

1 1 scale

-96 -246 translate

96 246 516 546 SetClipRegion

%% including "g1.eps"

%%BeginProlog

%

% PostScript prolog file of the BLT graph widget.

%

% Copyright 1989-1992 Regents of the University of California.

% Permission to use, copy, modify, and distribute this

% software and its documentation for any purpose and without

% fee is hereby granted, provided that the above copyright

% notice appear in all copies.  The University of California

% makes no representations about the suitability of this

% software for any purpose.  It is provided "as is" without

% express or implied warranty.

%

% Copyright 1991-1997 Bell Labs Innovations for Lucent Technologies.

%

% Permission to use, copy, modify, and distribute this software and its

% documentation for any purpose and without fee is hereby granted, provided

% that the above copyright notice appear in all copies and that both that the

% copyright notice and warranty disclaimer appear in supporting documentation,

% and that the names of Lucent Technologies any of their entities not be used

% in advertising or publicity pertaining to distribution of the software

% without specific, written prior permission.

%

% Lucent Technologies disclaims all warranties with regard to this software,

% including all implied warranties of merchantability and fitness.  In no event

% shall Lucent Technologies be liable for any special, indirect or

% consequential damages or any damages whatsoever resulting from loss of use,

% data or profits, whether in an action of contract, negligence or other

% tortuous action, arising out of or in connection with the use or performance

% of this software.

%

200 dict begin

/BaseRatio 1.3467736870885982 def	% Ratio triangle base / symbol size

/BgColorProc 0 def			% Background color routine (symbols)

/DrawSymbolProc 0 def			% Routine to draw symbol outline/fill

/StippleProc 0 def			% Stipple routine (bar segments)

/DashesProc 0 def			% Dashes routine (line segments)

% 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 is 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

/Stroke {

  gsave

    stroke

  grestore

} def

/Fill {

  gsave

    fill

  grestore

} def

/SetFont {

  % Stack: pointSize fontName

  findfont exch scalefont ISOEncode setfont

} def

/Box {

  % Stack: x y width height

  newpath

  exch 4 2 roll moveto

  dup 0 rlineto

  exch 0 exch rlineto

  neg 0 rlineto

  closepath

} def

/SetFgColor {

  % Stack: red green blue

  CL 0 eq {

    pop pop pop 0 0 0

  } if

  setrgbcolor

  CL 1 eq {

    currentgray setgray

  } if

} def

/SetBgColor {

  % Stack: red green blue

  CL 0 eq {

    pop pop pop 1 1 1

  } if

  setrgbcolor

  CL 1 eq {

    currentgray setgray

  } if

} def

% The next two definitions are taken from "$tk_library/prolog.ps"

% 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 filled StippleFill --

%

% Given a path and other graphics information already set up, this

% procedure will fill the current path in a stippled fashion.  "String"

% contains a proper image description of the stipple pattern and

% "width" and "height" give its dimensions.  If "filled" is true then

% it means that the area to be stippled is gotten by filling the

% current path (e.g. the interior of a polygon); if it's false, the

% area is gotten by stroking the current path (e.g. a wide line).

% Each stipple dot is assumed to be about one unit across in the

% current user coordinate system.

% 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

/LS {	% Stack: x1 y1 x2 y2

  newpath 4 2 roll moveto lineto stroke

} def

/EndText {

  %Stack :

  grestore

} def

/BeginText {

  %Stack :  w h theta centerX centerY

  gsave

    % Translate the origin to the center of bounding box and rotate

    translate neg rotate

    % Translate back to the origin of the text region

    -0.5 mul exch -0.5 mul exch translate

} def

/DrawAdjText {

  %Stack : str strWidth x y

  moveto				% Go to the text position

  exch dup dup 4 2 roll

  % Adjust character widths to get desired overall string width

  % adjust X = (desired width - real width)/#chars

  stringwidth pop sub exch

  length div

  % Flip back the scale so that the string is not drawn in reverse

  gsave

    1 -1 scale

    ashow

  grestore

} def

/DrawBitmap {

  % Stack: ?bgColorProc? boolean centerX centerY width height theta imageStr

  gsave

    6 -2 roll translate			% Translate to center of bounding box

    4 1 roll neg rotate			% Rotate by theta

    % Find upperleft corner of bounding box

    2 copy -.5 mul exch -.5 mul exch translate

    2 copy scale			% Make pixel unit scale

    newpath

    closepath

    % Fill rectangle with background color

    4 -1 roll {

      gsave

	4 -1 roll exec fill

      grestore

    } if

    % Paint the image string into the unit rectangle

    2 copy true 3 -1 roll 0 0 5 -1 roll 0 0 6 array astore 5 -1 roll

    imagemask

  grestore

} def

% Symbols:

% Skinny-cross

/Sc {

  % Stack: x y symbolSize

  gsave

    3 -2 roll translate 45 rotate

  grestore

} def

% Skinny-plus

/Sp {

  % Stack: x y symbolSize

  gsave

    3 -2 roll translate

    2 idiv

    dup 2 copy

    newpath neg 0 moveto 0 lineto

    DrawSymbolProc

    newpath neg 0 exch moveto 0 exch lineto

    DrawSymbolProc

  grestore

} def

% Cross

/Cr {

  % Stack: x y symbolSize

  gsave

    3 -2 roll translate 45 rotate

  grestore

} def

% Plus

/Pl {

  % Stack: x y symbolSize

  gsave

    3 -2 roll translate

    dup 2 idiv

    exch 6 idiv

    %

    %          2   3		The plus/cross symbol is a

    %				closed polygon of 12 points.

    %      0   1   4    5	The diagram to the left