w_vscale.ps
author A.M. Thurnherr <athurnherr@yahoo.com>
Fri, 05 Aug 2016 11:02:51 -0400
changeset 47 2ccb81b7cea5
parent 6 4d48ffde2471
permissions -rw-r--r--
version found on whoosher after repair
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
6
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     1
%!PS-Adobe-3.0 EPSF-3.0
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     2
%%BoundingBox: (atend)
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     3
%%HiResBoundingBox: (atend)
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     4
%%Title: GMT v4.5.7 [64-bit] Document from psscale
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     5
%%Creator: GMT
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     6
%%For: ant
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     7
%%DocumentNeededResources: font Helvetica
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     8
%%CreationDate: Sun Feb 19 13:13:59 2012
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
     9
%%LanguageLevel: 2
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    10
%%DocumentData: Clean7Bit
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    11
%%Orientation: Portrait
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    12
%%EndComments
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    13
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    14
%%BeginProlog
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    15
250 dict begin
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    16
/! {bind def} bind def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    17
/# {load def}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    18
/A /setgray #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    19
/B /setdash #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    20
/C /setrgbcolor #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    21
/D /rlineto #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    22
/E {dup stringwidth pop}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    23
/F /fill #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    24
/G /rmoveto #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    25
/H /sethsbcolor #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    26
/I /setpattern #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    27
/K /setcmykcolor #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    28
/L /lineto #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    29
/M /moveto #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    30
/N /newpath #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    31
/P /closepath #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    32
/R /rotate #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    33
/S /stroke #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    34
/T /translate #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    35
/U /grestore #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    36
/V /gsave #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    37
/W /setlinewidth #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    38
/Y {findfont exch scalefont setfont}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    39
/Z /show #
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    40
/FP {true charpath flattenpath}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    41
/MS {/savematrix matrix currentmatrix def}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    42
/MR {savematrix setmatrix}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    43
/O {S 3 -1 roll 0 360 arc P F S}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    44
/X {M 1.414213562 mul 5 {dup} repeat -2 div dup G D neg 0 G neg D S}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    45
/x {M dup 0 G dup -2 mul dup 0 D exch dup G 0 exch D S}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    46
/FS {/fc exch def /fs {V fc F U} def}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    47
/FQ {/fs {} def}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    48
/O0 {/os {N} def}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    49
/O1 {/os {P S} def}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    50
/FO {fs os}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    51
/SP {M {D} repeat FO}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    52
/SV {0 exch M 0 D D D D D 0 D FO}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    53
/Sv {0 0 M D D 0 D D D D D 0 D D FO}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    54
/SB {M dup 0 D exch 0 exch D neg 0 D FO}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    55
/SC {N 3 -1 roll 0 360 arc FO}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    56
/SE {N MS T R scale 0 0 1 0 360 arc MR FO}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    57
/SD {M 4 {dup} repeat 0 G neg dup dup D exch D D FO}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    58
/SR {M MS R dup -2 div 0 G exch dup -2 div 0 exch G exch dup 0 D exch 0 exch D neg 0 D MR FO}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    59
/SS {M 1.414213562 mul dup dup dup -2 div dup G 0 D 0 exch D neg 0 D FO}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    60
/ST {M MS dup 0 exch G -60 R 1.732050808 mul dup 0 D -120 R 0 D MR FO}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    61
/SI {M MS dup neg 0 exch G 60 R 1.732050808 mul dup 0 D 120 R 0 D MR FO}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    62
/SA {M MS dup 0 exch G 0.726542528 mul -72 R dup 0 D 4 {72 R dup 0 D -144 R dup 0 D} repeat pop MR FO}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    63
/SH {M MS dup 0 G -120 R dup 0 D 4 {-60 R dup 0 D} repeat pop MR FO}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    64
/SN {M MS dup 0 exch G -36 R 1.175570505 mul dup 0 D 3 {-72 R dup 0 D} repeat pop MR FO}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    65
/SO {M MS 22.5 R dup 0 exch G -22.5 R 0.765366865 mul dup 0 D 6 {-45 R dup 0 D} repeat pop MR FO}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    66
/SW {N 2 copy 7 -3 roll arc L FO}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    67
/PSL_reencode {findfont dup length dict begin
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    68
  {1 index /FID ne {def}{pop pop} ifelse} forall
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    69
  exch /Encoding exch def currentdict end definefont pop
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    70
}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    71
/PSL_eps_begin {
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    72
  /PSL_eps_state save def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    73
  /PSL_dict_count countdictstack def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    74
  /PSL_op_count count 1 sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    75
  userdict begin
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    76
  /showpage {} def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    77
  0 setgray 0 setlinecap 1 setlinewidth
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    78
  0 setlinejoin 10 setmiterlimit [] 0 setdash newpath
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    79
  /languagelevel where
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    80
  {pop languagelevel 1 ne {false setstrokeadjust false setoverprint} if} if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    81
}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    82
/PSL_eps_end {
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    83
  count PSL_op_count sub {pop} repeat
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    84
  countdictstack PSL_dict_count sub {end} repeat
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    85
  PSL_eps_state restore
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    86
}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    87
/ISOLatin1+_Encoding [
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    88
/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    89
/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    90
/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    91
/.notdef	/bullet		/ellipsis	/trademark	/emdash		/endash		/fi		/zcaron
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    92
/space		/exclam		/quotedbl	/numbersign	/dollar		/percent	/ampersand	/quoteright
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    93
/parenleft	/parenright	/asterisk	/plus		/comma		/minus		/period		/slash
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    94
/zero		/one		/two		/three		/four		/five		/six		/seven
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    95
/eight		/nine		/colon		/semicolon	/less		/equal		/greater	/question
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    96
/at		/A		/B		/C		/D		/E		/F		/G
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    97
/H		/I		/J		/K		/L		/M		/N		/O
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    98
/P		/Q		/R		/S		/T		/U		/V		/W
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
    99
/X		/Y		/Z		/bracketleft	/backslash	/bracketright	/asciicircum	/underscore
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   100
/quoteleft	/a		/b		/c 		/d		/e		/f		/g
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   101
/h		/i		/j		/k		/l		/m		/n		/o
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   102
/p		/q		/r		/s		/t		/u		/v		/w
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   103
/x		/y		/z		/braceleft	/bar		/braceright	/asciitilde	/scaron
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   104
/OE		/dagger		/daggerdbl	/Lslash		/fraction	/guilsinglleft	/Scaron		/guilsinglright
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   105
/oe		/Ydieresis	/Zcaron		/lslash		/perthousand	/quotedblbase	/quotedblleft	/quotedblright
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   106
/dotlessi	/grave		/acute		/circumflex	/tilde		/macron		/breve		/dotaccent
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   107
/dieresis	/quotesinglbase	/ring		/cedilla	/quotesingle	/hungarumlaut	/ogonek		/caron
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   108
/space		/exclamdown	/cent		/sterling	/currency	/yen		/brokenbar	/section
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   109
/dieresis	/copyright	/ordfeminine	/guillemotleft	/logicalnot	/hyphen		/registered	/macron
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   110
/degree		/plusminus	/twosuperior	/threesuperior	/acute		/mu		/paragraph	/periodcentered
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   111
/cedilla	/onesuperior	/ordmasculine	/guillemotright	/onequarter	/onehalf	/threequarters	/questiondown
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   112
/Agrave		/Aacute		/Acircumflex	/Atilde		/Adieresis	/Aring		/AE		/Ccedilla
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   113
/Egrave		/Eacute		/Ecircumflex	/Edieresis	/Igrave		/Iacute		/Icircumflex	/Idieresis
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   114
/Eth		/Ntilde		/Ograve		/Oacute		/Ocircumflex	/Otilde		/Odieresis	/multiply
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   115
/Oslash		/Ugrave		/Uacute		/Ucircumflex	/Udieresis	/Yacute		/Thorn		/germandbls
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   116
/agrave		/aacute		/acircumflex	/atilde		/adieresis	/aring		/ae		/ccedilla
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   117
/egrave		/eacute		/ecircumflex	/edieresis	/igrave		/iacute		/icircumflex	/idieresis
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   118
/eth		/ntilde		/ograve		/oacute		/ocircumflex	/otilde		/odieresis	/divide
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   119
/oslash		/ugrave		/uacute		/ucircumflex	/udieresis	/yacute		/thorn		/ydieresis
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   120
] def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   121
/PSL_font_encode 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 35 array astore def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   122
/F0 {/Helvetica Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   123
/F1 {/Helvetica-Bold Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   124
/F2 {/Helvetica-Oblique Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   125
/F3 {/Helvetica-BoldOblique Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   126
/F4 {/Times-Roman Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   127
/F5 {/Times-Bold Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   128
/F6 {/Times-Italic Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   129
/F7 {/Times-BoldItalic Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   130
/F8 {/Courier Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   131
/F9 {/Courier-Bold Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   132
/F10 {/Courier-Oblique Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   133
/F11 {/Courier-BoldOblique Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   134
/F12 {/Symbol Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   135
/F13 {/AvantGarde-Book Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   136
/F14 {/AvantGarde-BookOblique Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   137
/F15 {/AvantGarde-Demi Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   138
/F16 {/AvantGarde-DemiOblique Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   139
/F17 {/Bookman-Demi Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   140
/F18 {/Bookman-DemiItalic Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   141
/F19 {/Bookman-Light Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   142
/F20 {/Bookman-LightItalic Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   143
/F21 {/Helvetica-Narrow Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   144
/F22 {/Helvetica-Narrow-Bold Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   145
/F23 {/Helvetica-Narrow-Oblique Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   146
/F24 {/Helvetica-Narrow-BoldOblique Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   147
/F25 {/NewCenturySchlbk-Roman Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   148
/F26 {/NewCenturySchlbk-Italic Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   149
/F27 {/NewCenturySchlbk-Bold Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   150
/F28 {/NewCenturySchlbk-BoldItalic Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   151
/F29 {/Palatino-Roman Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   152
/F30 {/Palatino-Italic Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   153
/F31 {/Palatino-Bold Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   154
/F32 {/Palatino-BoldItalic Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   155
/F33 {/ZapfChancery-MediumItalic Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   156
/F34 {/ZapfDingbats Y}!
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   157
/PSL_pathtextdict 26 dict def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   158
/PSL_pathtext
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   159
  {PSL_pathtextdict begin
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   160
    /textheight exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   161
    /just exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   162
    /offset exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   163
    /str exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   164
    /pathdist 0 def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   165
    /setdist offset def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   166
    /charcount 0 def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   167
    /justy just 4 idiv textheight mul 2 div neg def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   168
    V flattenpath
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   169
	{movetoproc} {linetoproc}
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   170
	{curvetoproc} {closepathproc}
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   171
	pathforall
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   172
    U N
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   173
    end
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   174
  } def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   175
PSL_pathtextdict begin
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   176
/movetoproc
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   177
  { /newy exch def /newx exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   178
    /firstx newx def /firsty newy def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   179
    /ovr 0 def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   180
    newx newy transform
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   181
    /cpy exch def /cpx exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   182
  } def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   183
/linetoproc
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   184
  { /oldx newx def /oldy newy def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   185
    /newy exch def /newx exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   186
    /dx newx oldx sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   187
    /dy newy oldy sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   188
    /dist dx dup mul dy dup mul add sqrt def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   189
    dist 0 ne
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   190
    { /dsx dx dist div ovr mul def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   191
      /dsy dy dist div ovr mul def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   192
      oldx dsx add oldy dsy add transform
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   193
      /cpy exch def /cpx exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   194
      /pathdist pathdist dist add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   195
      {setdist pathdist le
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   196
	  {charcount str length lt
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   197
	      {setchar} {exit} ifelse}
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   198
	  { /ovr setdist pathdist sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   199
	    exit}
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   200
	  ifelse
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   201
      } loop
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   202
    } if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   203
  } def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   204
/curvetoproc
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   205
  { (ERROR: No curveto's after flattenpath!)
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   206
    print
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   207
  } def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   208
/closepathproc
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   209
  {firstx firsty linetoproc
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   210
    firstx firsty movetoproc
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   211
  } def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   212
/setchar
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   213
  { /char str charcount 1 getinterval def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   214
    /charcount charcount 1 add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   215
    /charwidth char stringwidth pop def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   216
    V cpx cpy itransform T
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   217
      dy dx atan R
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   218
      0 justy M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   219
      char show
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   220
      0 justy neg G
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   221
      currentpoint transform
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   222
      /cpy exch def /cpx exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   223
    U /setdist setdist charwidth add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   224
  } def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   225
end
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   226
/PSL_curved_text_labels
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   227
{ /bits exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   228
  /PSL_clippath bits 1 and 1 eq def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   229
  /PSL_placetext bits 2 and 0 eq def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   230
  /PSL_strokeline bits 4 and 4 eq def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   231
  /PSL_firstcall bits 32 and 32 eq def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   232
  /PSL_lastcall bits 64 and 64 eq def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   233
  /PSL_fillbox bits 128 and 128 eq def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   234
  /PSL_drawbox bits 256 and 256 eq def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   235
  /PSL_n1 PSL_n 1 sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   236
  /PSL_m1 PSL_m 1 sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   237
  /PSL_usebox PSL_fillbox PSL_drawbox or def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   238
  PSL_CT_calcstringwidth
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   239
  PSL_CT_calclinedist
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   240
  PSL_CT_addcutpoints
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   241
  PSL_clippath PSL_firstcall and
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   242
  {clipsave N clippath} if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   243
  PSL_setlinepen
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   244
  /PSL_nn1 PSL_nn 1 sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   245
  /n 0 def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   246
  /k 0 def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   247
  /j 0 def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   248
  /PSL_seg 0 def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   249
  /PSL_xp PSL_nn array def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   250
  /PSL_yp PSL_nn array def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   251
  PSL_xp 0 PSL_xx 0 get put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   252
  PSL_yp 0 PSL_yy 0 get put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   253
  1 1 PSL_nn1
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   254
  { /i exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   255
    /node_type PSL_kind i get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   256
    /j j 1 add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   257
    PSL_xp j PSL_xx i get put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   258
    PSL_yp j PSL_yy i get put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   259
    node_type 1 eq
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   260
    {n 0 eq
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   261
      {PSL_CT_drawline}
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   262
      {	PSL_CT_reversepath
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   263
	PSL_CT_textline} ifelse
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   264
      /j 0 def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   265
      PSL_xp j PSL_xx i get put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   266
      PSL_yp j PSL_yy i get put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   267
    } if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   268
  } for
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   269
  n 0 eq {PSL_CT_drawline} if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   270
  PSL_lastcall
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   271
  {PSL_clippath
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   272
    {clip /PSL_clip_on true def} if N
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   273
  } if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   274
} def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   275
/PSL_CT_textline
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   276
{PSL_placetext
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   277
  {PSL_clippath
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   278
    {PSL_CT_clippath} {PSL_CT_placelabel} ifelse
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   279
  } if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   280
  /n 0 def /k k 1 add def PSL_setlinepen
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   281
} def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   282
/PSL_CT_calcstringwidth
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   283
{ /PSL_width PSL_m array def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   284
  0 1 PSL_m1
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   285
  { /i exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   286
    PSL_width i PSL_str i get stringwidth pop put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   287
  } for
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   288
} def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   289
/PSL_CT_calclinedist
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   290
{ /PSL_newx PSL_x 0 get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   291
  /PSL_newy PSL_y 0 get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   292
  /dist 0.0 def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   293
  /PSL_dist PSL_n array def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   294
  PSL_dist 0 0.0 put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   295
  1 1 PSL_n1
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   296
  { /i exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   297
    /PSL_oldx PSL_newx def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   298
    /PSL_oldy PSL_newy def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   299
    /PSL_newx PSL_x i get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   300
    /PSL_newy PSL_y i get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   301
    /dx PSL_newx PSL_oldx sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   302
    /dy PSL_newy PSL_oldy sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   303
    /dist dist dx dx mul dy dy mul add sqrt add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   304
    PSL_dist i dist put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   305
  } for
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   306
} def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   307
/PSL_CT_addcutpoints
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   308
{ /k 0 def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   309
  /PSL_nc PSL_m 2 mul 1 add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   310
  /PSL_cuts PSL_nc array def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   311
  /PSL_nc1 PSL_nc 1 sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   312
  0 1 PSL_m1
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   313
  { /i exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   314
    /dist PSL_dist PSL_node i get get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   315
    /halfwidth PSL_width i get 2 div PSL_gap_x add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   316
    PSL_cuts k dist halfwidth sub put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   317
    /k k 1 add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   318
    PSL_cuts k dist halfwidth add put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   319
    /k k 1 add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   320
  } for
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   321
  PSL_cuts k 100000.0 put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   322
  /PSL_nn PSL_n PSL_m 2 mul add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   323
  /PSL_xx PSL_nn array def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   324
  /PSL_yy PSL_nn array def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   325
  /PSL_kind PSL_nn array def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   326
  /j 0 def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   327
  /k 0 def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   328
  /dist 0.0 def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   329
  0 1 PSL_n1
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   330
  { /i exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   331
    /last_dist dist def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   332
    /dist PSL_dist i get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   333
    k 1 PSL_nc1
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   334
    { /kk exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   335
      /this_cut PSL_cuts kk get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   336
      dist this_cut gt
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   337
      { /ds dist last_dist sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   338
	/f ds 0.0 eq {0.0} {dist this_cut sub ds div} ifelse def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   339
	/i1 i 0 eq {0} {i 1 sub} ifelse def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   340
	PSL_xx j PSL_x i get dup PSL_x i1 get sub f mul sub put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   341
	PSL_yy j PSL_y i get dup PSL_y i1 get sub f mul sub put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   342
	PSL_kind j 1 put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   343
	/j j 1 add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   344
	/k k 1 add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   345
      } if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   346
    } for
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   347
    dist PSL_cuts k get le
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   348
    {PSL_xx j PSL_x i get put PSL_yy j PSL_y i get put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   349
      PSL_kind j 0 put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   350
      /j j 1 add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   351
    } if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   352
  } for
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   353
} def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   354
/PSL_CT_reversepath
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   355
{PSL_xp j get PSL_xp 0 get lt
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   356
  {0 1 j 2 idiv
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   357
    { /left exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   358
      /right j left sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   359
      /tmp PSL_xp left get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   360
      PSL_xp left PSL_xp right get put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   361
      PSL_xp right tmp put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   362
      /tmp PSL_yp left get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   363
      PSL_yp left PSL_yp right get put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   364
      PSL_yp right tmp put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   365
    } for
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   366
  } if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   367
} def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   368
/PSL_CT_placelabel
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   369
{
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   370
  PSL_usebox
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   371
  {PSL_CT_clippath
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   372
    PSL_fillbox
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   373
    {V PSL_setboxrgb fill U} if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   374
    PSL_drawbox
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   375
    {PSL_setboxpen S} if N
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   376
  } if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   377
  PSL_settxtrgb PSL_CT_placeline PSL_str k get PSL_gap_x PSL_just PSL_height PSL_pathtext
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   378
} def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   379
/PSL_CT_clippath
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   380
{
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   381
  /H PSL_height 2 div PSL_gap_y add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   382
  /xoff j 1 add array def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   383
  /yoff j 1 add array def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   384
  /angle 0 def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   385
  0 1 j {
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   386
    /ii exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   387
    /x PSL_xp ii get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   388
    /y PSL_yp ii get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   389
    ii 0 eq {
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   390
      /x1 PSL_xp 1 get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   391
      /y1 PSL_yp 1 get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   392
      /dx x1 x sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   393
      /dy y1 y sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   394
    }
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   395
    { /i1 ii 1 sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   396
      /x1 PSL_xp i1 get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   397
      /y1 PSL_yp i1 get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   398
      /dx x x1 sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   399
      /dy y y1 sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   400
    } ifelse
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   401
    dx 0.0 ne dy 0.0 ne and
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   402
    { /angle dy dx atan 90 add def} if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   403
    /sina angle sin def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   404
    /cosa angle cos def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   405
    xoff ii H cosa mul put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   406
    yoff ii H sina mul put
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   407
  } for
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   408
  PSL_xp 0 get xoff 0 get add PSL_yp 0 get yoff 0 get add M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   409
  1 1 j {
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   410
    /ii exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   411
    PSL_xp ii get xoff ii get add PSL_yp ii get yoff ii get add L
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   412
  } for
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   413
  j -1 0 {
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   414
    /ii exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   415
    PSL_xp ii get xoff ii get sub PSL_yp ii get yoff ii get sub L
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   416
  } for P
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   417
} def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   418
/PSL_CT_drawline
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   419
{
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   420
  /str 20 string def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   421
  PSL_strokeline
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   422
  {PSL_CT_placeline PSL_setlinepen S} if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   423
  /PSL_seg PSL_seg 1 add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   424
  /n 1 def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   425
} def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   426
/PSL_CT_placeline
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   427
{PSL_xp 0 get PSL_yp 0 get M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   428
  1 1 j { /ii exch def PSL_xp ii get PSL_yp ii get L} for
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   429
} def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   430
/PSL_straight_text_labels
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   431
{
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   432
  /bits exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   433
  /PSL_clippath bits 1 and 0 eq def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   434
  /PSL_rounded bits 16 and 16 eq def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   435
  /PSL_fillbox bits 128 and 128 eq def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   436
  /PSL_drawbox bits 256 and 256 eq def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   437
  /PSL_m1 PSL_m 1 sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   438
  /PSL_justx PSL_just 4 mod 1 sub 2 div neg def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   439
  /PSL_justy PSL_just 4 idiv PSL_height mul 2 div neg def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   440
  /PSL_usebox PSL_fillbox PSL_drawbox or def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   441
  PSL_clippath
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   442
  {PSL_ST_clippath}
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   443
  {PSL_usebox {PSL_ST_clippath} if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   444
    PSL_ST_placelabel
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   445
  } ifelse
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   446
} def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   447
/PSL_ST_placelabel
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   448
{PSL_settxtrgb
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   449
  0 1 PSL_m1
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   450
  { /k exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   451
    /xp PSL_txt_x k get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   452
    /yp PSL_txt_y k get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   453
    V PSL_txt_x k get PSL_txt_y k get T
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   454
    PSL_angle k get R
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   455
    /BoxW PSL_str k get stringwidth pop def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   456
    BoxW PSL_justx mul PSL_justy M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   457
    PSL_str k get show
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   458
    U
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   459
  } for
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   460
} def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   461
/PSL_ST_clippath
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   462
{PSL_rounded {PSL_ST_clippath_round} {PSL_ST_clippath_rect} ifelse
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   463
  PSL_usebox
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   464
  {PSL_fillbox
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   465
    {V PSL_setboxrgb fill U} if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   466
    PSL_drawbox
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   467
    {PSL_setboxpen S} if N
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   468
  }
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   469
  {clip /PSL_clip_on true def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   470
  } ifelse
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   471
  N
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   472
} def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   473
/PSL_ST_clippath_rect
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   474
{N
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   475
  /BoxH PSL_height PSL_gap_y 2 mul add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   476
  /DelY BoxH BoxH 0 3 array astore def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   477
  PSL_usebox not {clipsave clippath} if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   478
  0 1 PSL_m1
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   479
  { /k exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   480
    /xp PSL_txt_x k get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   481
    /yp PSL_txt_y k get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   482
    /MAT PSL_angle k get matrix R def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   483
    /BoxW PSL_str k get stringwidth pop PSL_gap_x 2 mul add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   484
    /x0 0 BoxW PSL_justx mul add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   485
    /y0 0 PSL_justy add PSL_gap_y sub def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   486
    /DelX 0 BoxW BoxW 3 array astore def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   487
    x0 y0 MAT transform
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   488
    /dy exch def /dx exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   489
    xp dx add yp dy add M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   490
    0 1 2
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   491
    {
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   492
      /ii exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   493
      x0 DelX ii get add y0 DelY ii get add MAT transform
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   494
      /dy exch def /dx exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   495
      xp dx add yp dy add L
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   496
    } for P
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   497
  } for
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   498
} def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   499
/PSL_ST_clippath_round
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   500
{N
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   501
  /PSL_justy2 PSL_just 4 idiv 2 div neg def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   502
  /BoxR PSL_gap_x PSL_gap_y lt {PSL_gap_x} {PSL_gap_y} ifelse def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   503
  /BoxH PSL_height PSL_gap_y 2 mul add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   504
  /y0 PSL_height PSL_gap_y 2 mul add PSL_justy2 mul def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   505
  PSL_usebox not {clipsave clippath} if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   506
  0 1 PSL_m1
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   507
  { /k exch def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   508
    /xp PSL_txt_x k get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   509
    /yp PSL_txt_y k get def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   510
    /BoxW PSL_str k get stringwidth pop PSL_gap_x 2 mul add def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   511
    /x0 BoxW PSL_justx mul def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   512
    xp yp T PSL_angle k get R x0 y0 T
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   513
    BoxR 0 M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   514
    BoxW 0 BoxW BoxH BoxR arct BoxW BoxH 0 BoxH BoxR arct 0 BoxH 0 0 BoxR arct 0 0 BoxW 0 BoxR arct P
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   515
    x0 neg y0 neg T PSL_angle k get neg R xp neg yp neg T
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   516
  } for
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   517
} def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   518
/PSL_clip_on false def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   519
%%EndProlog
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   520
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   521
%%BeginSetup
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   522
/PSLevel /languagelevel where {pop languagelevel} {1} ifelse def
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   523
%%EndSetup
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   524
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   525
%%BeginPageSetup
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   526
0.24 0.24 scale
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   527
%%EndPageSetup
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   528
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   529
PSL_font_encode 0 get 0 eq {ISOLatin1+_Encoding /Helvetica /Helvetica PSL_reencode PSL_font_encode 0 1 put} if
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   530
0 setlinecap
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   531
0 setlinejoin
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   532
3.32551 setmiterlimit
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   533
0 295.276 T
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   534
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   535
%% PostScript produced by:
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   536
%%GMT:  psscale -P -E -D0/10/15/1 -Cw.cpt
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   537
%%PROJ: xy -0.07000000 0.07000000 0.00000000 0.39370079 -0.070 0.070 0.000 0.394 +xy +a=6378137.000 +b=6356752.314245
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   538
295.276 295.276 T
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   539
0 A
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   540
5 W
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   541
118.11 0 T 90 R
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   542
{0.251 0.251 1 C} FS
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   543
O0
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   544
118 253 0 0 SB
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   545
{0.439 0.439 1 C} FS
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   546
118 127 253 0 SB
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   547
{0.561 0.561 1 C} FS
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   548
118 126 380 0 SB
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   549
{0.686 0.686 1 C} FS
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   550
118 127 506 0 SB
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   551
{0.812 0.812 1 C} FS
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   552
118 126 633 0 SB
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   553
{1 A} FS
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   554
118 253 759 0 SB
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   555
{1 0.812 0.812 C} FS
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   556
118 127 1012 0 SB
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   557
{1 0.686 0.686 C} FS
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   558
118 126 1139 0 SB
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   559
{1 0.561 0.561 C} FS
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   560
118 127 1265 0 SB
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   561
{1 0.439 0.439 C} FS
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   562
118 127 1392 0 SB
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   563
{1 0.251 0.251 C} FS
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   564
118 253 1519 0 SB
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   565
{0 0 1 C} FS
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   566
O1
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   567
0 118 M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   568
0 -118 D
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   569
-59 59 D
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   570
FO
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   571
{1 0 0 C} FS
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   572
1772 118 M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   573
0 -118 D
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   574
59 59 D
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   575
FO
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   576
0 0 M 1772 0 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   577
0 118 M 1772 0 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   578
0 0 M 0 118 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   579
1772 0 M 0 118 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   580
1 W
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   581
0 0 M 0 118 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   582
253 0 M 0 118 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   583
380 0 M 0 118 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   584
506 0 M 0 118 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   585
633 0 M 0 118 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   586
759 0 M 0 118 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   587
1012 0 M 0 118 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   588
1139 0 M 0 118 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   589
1265 0 M 0 118 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   590
1392 0 M 0 118 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   591
1519 0 M 0 118 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   592
1772 0 M 0 118 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   593
2 W
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   594
0 0 M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   595
0 -24 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   596
0 0 M 58 F0 (-0.07) E /PSL_dim_w exch def FP pathbbox N /PSL_dim_h exch def pop /PSL_dim_d exch def pop
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   597
0 -191 M V -90 R PSL_dim_w neg PSL_dim_h 2 div neg G 58 F0 (-0.07) Z U
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   598
253 0 M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   599
0 -24 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   600
0 0 M 58 F0 (-0.05) E /PSL_dim_w exch def FP pathbbox N /PSL_dim_h exch def pop /PSL_dim_d exch def pop
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   601
253 -191 M V -90 R PSL_dim_w neg PSL_dim_h 2 div neg G 58 F0 (-0.05) Z U
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   602
380 0 M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   603
0 -24 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   604
0 0 M 58 F0 (-0.04) E /PSL_dim_w exch def FP pathbbox N /PSL_dim_h exch def pop /PSL_dim_d exch def pop
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   605
380 -191 M V -90 R PSL_dim_w neg PSL_dim_h 2 div neg G 58 F0 (-0.04) Z U
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   606
506 0 M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   607
0 -24 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   608
0 0 M 58 F0 (-0.03) E /PSL_dim_w exch def FP pathbbox N /PSL_dim_h exch def pop /PSL_dim_d exch def pop
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   609
506 -191 M V -90 R PSL_dim_w neg PSL_dim_h 2 div neg G 58 F0 (-0.03) Z U
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   610
633 0 M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   611
0 -24 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   612
0 0 M 58 F0 (-0.02) E /PSL_dim_w exch def FP pathbbox N /PSL_dim_h exch def pop /PSL_dim_d exch def pop
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   613
633 -191 M V -90 R PSL_dim_w neg PSL_dim_h 2 div neg G 58 F0 (-0.02) Z U
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   614
759 0 M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   615
0 -24 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   616
0 0 M 58 F0 (-0.01) E /PSL_dim_w exch def FP pathbbox N /PSL_dim_h exch def pop /PSL_dim_d exch def pop
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   617
759 -191 M V -90 R PSL_dim_w neg PSL_dim_h 2 div neg G 58 F0 (-0.01) Z U
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   618
1012 0 M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   619
0 -24 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   620
0 0 M 58 F0 (0.01) E /PSL_dim_w exch def FP pathbbox N /PSL_dim_h exch def pop /PSL_dim_d exch def pop
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   621
1012 -191 M V -90 R PSL_dim_w neg PSL_dim_h 2 div neg G 58 F0 (0.01) Z U
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   622
1139 0 M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   623
0 -24 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   624
0 0 M 58 F0 (0.02) E /PSL_dim_w exch def FP pathbbox N /PSL_dim_h exch def pop /PSL_dim_d exch def pop
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   625
1139 -191 M V -90 R PSL_dim_w neg PSL_dim_h 2 div neg G 58 F0 (0.02) Z U
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   626
1265 0 M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   627
0 -24 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   628
0 0 M 58 F0 (0.03) E /PSL_dim_w exch def FP pathbbox N /PSL_dim_h exch def pop /PSL_dim_d exch def pop
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   629
1265 -191 M V -90 R PSL_dim_w neg PSL_dim_h 2 div neg G 58 F0 (0.03) Z U
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   630
1392 0 M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   631
0 -24 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   632
0 0 M 58 F0 (0.04) E /PSL_dim_w exch def FP pathbbox N /PSL_dim_h exch def pop /PSL_dim_d exch def pop
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   633
1392 -191 M V -90 R PSL_dim_w neg PSL_dim_h 2 div neg G 58 F0 (0.04) Z U
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   634
1519 0 M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   635
0 -24 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   636
0 0 M 58 F0 (0.05) E /PSL_dim_w exch def FP pathbbox N /PSL_dim_h exch def pop /PSL_dim_d exch def pop
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   637
1519 -191 M V -90 R PSL_dim_w neg PSL_dim_h 2 div neg G 58 F0 (0.05) Z U
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   638
1772 0 M
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   639
0 -24 D S
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   640
0 0 M 58 F0 (0.07) E /PSL_dim_w exch def FP pathbbox N /PSL_dim_h exch def pop /PSL_dim_d exch def pop
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   641
1772 -191 M V -90 R PSL_dim_w neg PSL_dim_h 2 div neg G 58 F0 (0.07) Z U
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   642
-90 R -118.11 0 T
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   643
%%Trailer
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   644
%%BoundingBox: 0 65 101 502
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   645
%%HiResBoundingBox: 0 65.1969 100.346 501.732
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   646
-0 -295.276 T 4.16667 4.16667 scale 0 A
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   647
showpage
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   648
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff changeset
   649
end