author | A.M. Thurnherr <athurnherr@yahoo.com> |
Fri, 04 Sep 2015 06:38:44 +0000 | |
changeset 31 | d0ae3cb99021 |
parent 5 | 509cc9966b68 |
permissions | -rw-r--r-- |
5
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
1 |
%!PS-Adobe-2.0 EPSF-1.2 |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
2 |
%%Title: GMT v4.3.0 Document from psscale |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
3 |
%%Creator: GMT |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
4 |
%%CreationDate: Mon Oct 17 13:29:37 2011 |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
5 |
%%For: ant |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
6 |
%%Pages: 1 |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
7 |
%%DocumentFonts: Helvetica |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
8 |
%%BoundingBox: 70 136 153 572 |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
9 |
%%EndComments |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
10 |
|
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
11 |
%%BeginProlog |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
12 |
save countdictstack mark newpath /showpage {} def /setpagedevice {pop} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
13 |
%%EndProlog |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
14 |
%%Page 1 1 |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
15 |
|
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
16 |
250 dict begin |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
17 |
/! {bind def} bind def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
18 |
/# {load def}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
19 |
/A /setgray # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
20 |
/B /setdash # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
21 |
/C /setrgbcolor # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
22 |
/D /rlineto # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
23 |
/E {dup stringwidth pop}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
24 |
/F /fill # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
25 |
/G /rmoveto # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
26 |
/H /sethsbcolor # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
27 |
/I /setpattern # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
28 |
/K /setcmykcolor # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
29 |
/L /lineto # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
30 |
/M {stroke moveto}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
31 |
/m {moveto}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
32 |
/N /newpath # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
33 |
/P /closepath # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
34 |
/R /rotate # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
35 |
/S /stroke # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
36 |
/T /translate # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
37 |
/U /grestore # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
38 |
/V /gsave # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
39 |
/W /setlinewidth # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
40 |
/Y {findfont exch scalefont setfont}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
41 |
/Z /show # |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
42 |
/FP {true charpath flattenpath}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
43 |
/YP {FP pathbbox N exch pop sub abs exch pop}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
44 |
/O {M W 0 0 D S}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
45 |
/X {M dup 0 D dup 2 div neg dup G 0 exch D S}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
46 |
/QA {P V A F U N}! /QC {P V C F U N}! /QK {P V K F U N}! /QH {P V H F U N}! /QI {P V I F U N}! /QQ {P S}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
47 |
/Qa {P V A F U S}! /Qc {P V C F U S}! /Qk {P V K F U S}! /Qh {P V H F U S}! /Qi {P V I F U S}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
48 |
/q0 {M {D} repeat}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
49 |
/qA {q0 QA}! /qC {q0 QC}! /qK {q0 QK}! /qH {q0 QH}! /qI {q0 QI}! /qQ {q0 QQ}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
50 |
/qa {q0 Qa}! /qc {q0 Qc}! /qk {q0 Qk}! /qh {q0 Qh}! /qi {q0 Qi}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
51 |
/V0 {0 exch M 0 D D D D D 0 D}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
52 |
/VA {V0 QA}! /VC {V0 QC}! /VK {V0 QK}! /VH {V0 QH}! /VI {V0 QI}! /VQ {V0 QQ}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
53 |
/Va {V0 Qa}! /Vc {V0 Qc}! /Vk {V0 Qk}! /Vh {V0 Qh}! /Vi {V0 Qi}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
54 |
/v0 {0 0 M D D 0 D D D D D 0 D D}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
55 |
/vA {v0 QA}! /vC {v0 QC}! /vK {v0 QK}! /vH {v0 QH}! /vI {v0 QI}! /vQ {v0 QQ}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
56 |
/va {v0 Qa}! /vc {v0 Qc}! /vk {v0 Qk}! /vh {v0 Qh}! /vi {v0 Qi}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
57 |
/B0 {M dup 0 D exch 0 exch D neg 0 D}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
58 |
/BA {B0 QA}! /BC {B0 QC}! /BK {B0 QK}! /BH {B0 QH}! /BI {B0 QI}! /BQ {B0 QQ}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
59 |
/Ba {B0 Qa}! /Bc {B0 Qc}! /Bk {B0 Qk}! /Bh {B0 Qh}! /Bi {B0 Qi}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
60 |
/CA {0 360 arc V A F U N}! /Ca {0 360 arc V A F U S}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
61 |
/CC {0 360 arc V C F U N}! /Cc {0 360 arc V C F U S}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
62 |
/CK {0 360 arc V K F U N}! /Ck {0 360 arc V K F U S}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
63 |
/CH {0 360 arc V H F U N}! /Ch {0 360 arc V H F U S}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
64 |
/CI {0 360 arc V I F U N}! /Ci {0 360 arc V I F U S}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
65 |
/CQ {0 360 arc S}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
66 |
/D0 {M 4 {dup} repeat 0 G neg dup dup D exch D D}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
67 |
/DA {D0 QA}! /DC {D0 QC}! /DK {D0 QK}! /DH {D0 QH}! /DI {D0 QI}! /DQ {D0 QQ}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
68 |
/Da {D0 Qa}! /Dc {D0 Qc}! /Dk {D0 Qk}! /Dh {D0 Qh}! /Di {D0 Qi}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
69 |
/R0 {M V R dup -2 div 0 G exch dup -2 div 0 exch G exch dup 0 D exch 0 exch D neg 0 D}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
70 |
/RA {R0 QA U}! /RC {R0 QC U}! /RK {R0 QK U}! /RH {R0 QH U}! /RI {R0 QI U}! /RQ {R0 QQ U}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
71 |
/Ra {R0 Qa U}! /Rc {R0 Qc U}! /Rk {R0 Qk U}! /Rh {R0 Qh U}! /Ri {R0 Qi U}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
72 |
/S0 {M 1.414213562 mul dup dup dup -2 div dup G 0 D 0 exch D neg 0 D}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
73 |
/SA {S0 QA}! /SC {S0 QC}! /SK {S0 QK}! /SH {S0 QH}! /SI {S0 QI}! /SQ {S0 QQ}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
74 |
/Sa {S0 Qa}! /Sc {S0 Qc}! /Sk {S0 Qk}! /Sh {S0 Qh}! /Si {S0 Qi}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
75 |
/T0 {M V dup 0 exch G -60 R 1.732050808 mul dup 0 D -120 R 0 D}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
76 |
/TA {T0 QA U}! /TC {T0 QC U}! /TK {T0 QK U}! /TH {T0 QH U}! /TI {T0 QI U}! /TQ {T0 QQ U}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
77 |
/Ta {T0 Qa U}! /Tc {T0 Qc U}! /Tk {T0 Qk U}! /Th {T0 Qh U}! /Ti {T0 Qi U}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
78 |
/I0 {M V dup neg 0 exch G 60 R 1.732050808 mul dup 0 D 120 R 0 D}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
79 |
/IA {I0 QA U}! /IC {I0 QC U}! /IK {I0 QK U}! /IH {I0 QH U}! /II {I0 QI U}! /IQ {I0 QQ U}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
80 |
/Ia {I0 Qa U}! /Ic {I0 Qc U}! /Ik {I0 Qk U}! /Ih {I0 Qh U}! /Ii {I0 Qi U}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
81 |
/A0 {M V 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}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
82 |
/AA {A0 QA U}! /AC {A0 QC U}! /AK {A0 QK U}! /AH {A0 QH U}! /AI {A0 QI U}! /AQ {A0 QQ U}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
83 |
/Aa {A0 Qa U}! /Ac {A0 Qc U}! /Ak {A0 Qk U}! /Ah {A0 Qh U}! /Ai {A0 Qi U}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
84 |
/H0 {M V dup 0 G -120 R dup 0 D 4 {-60 R dup 0 D} repeat pop}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
85 |
/HA {H0 QA U}! /HC {H0 QC U}! /HK {H0 QK U}! /HH {H0 QH U}! /HI {H0 QI U}! /HQ {H0 QQ U}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
86 |
/Ha {H0 Qa U}! /Hc {H0 Qc U}! /Hk {H0 Qk U}! /Hh {H0 Qh U}! /Hi {H0 Qi U}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
87 |
/N0 {M V dup 0 exch G -36 R 1.175570505 mul dup 0 D 3 {-72 R dup 0 D} repeat pop}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
88 |
/NA {N0 QA U}! /NC {N0 QC U}! /NK {N0 QK U}! /NH {N0 QH U}! /NI {N0 QI U}! /NQ {N0 QQ U}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
89 |
/Na {N0 Qa U}! /Nc {N0 Qc U}! /Nk {N0 Qk U}! /Nh {N0 Qh U}! /Ni {N0 Qi U}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
90 |
/O0 {M V 22.5 R dup 0 exch G -22.5 R 0.765366865 mul dup 0 D 6 {-45 R dup 0 D} repeat pop}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
91 |
/OA {O0 QA U}! /OC {O0 QC U}! /OK {O0 QK U}! /OH {O0 QH U}! /OI {O0 QI U}! /OQ {O0 QQ U}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
92 |
/Oa {O0 Qa U}! /Oc {O0 Qc U}! /Ok {O0 Qk U}! /Oh {O0 Qh U}! /Oi {O0 Qi U}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
93 |
/WA {arc QA}! /WC {arc QC}! /WK {arc QK}! /WH {arc QH}! /WI {arc QI}! /WQ {arc QQ}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
94 |
/Wa {arc Qa}! /Wc {arc Qc}! /Wk {arc Qk}! /Wh {arc Qh}! /Wi {arc Qi}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
95 |
/PSL_reencode { findfont dup length dict begin |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
96 |
{1 index /FID ne {def}{pop pop} ifelse} forall |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
97 |
exch /Encoding exch def currentdict end definefont pop |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
98 |
}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
99 |
/ISOLatin1+_Encoding [ |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
100 |
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
101 |
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
102 |
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
103 |
/.notdef /bullet /ellipsis /trademark /emdash /endash /fi /zcaron |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
104 |
/space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quoteright |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
105 |
/parenleft /parenright /asterisk /plus /comma /minus /period /slash |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
106 |
/zero /one /two /three /four /five /six /seven |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
107 |
/eight /nine /colon /semicolon /less /equal /greater /question |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
108 |
/at /A /B /C /D /E /F /G |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
109 |
/H /I /J /K /L /M /N /O |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
110 |
/P /Q /R /S /T /U /V /W |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
111 |
/X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
112 |
/quoteleft /a /b /c /d /e /f /g |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
113 |
/h /i /j /k /l /m /n /o |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
114 |
/p /q /r /s /t /u /v /w |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
115 |
/x /y /z /braceleft /bar /braceright /asciitilde /scaron |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
116 |
/OE /dagger /daggerdbl /Lslash /fraction /guilsinglleft /Scaron /guilsinglright |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
117 |
/oe /Ydieresis /Zcaron /lslash /perthousand /quotedblbase /quotedblleft /quotedblright |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
118 |
/dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
119 |
/dieresis /quotesinglbase /ring /cedilla /quotesingle /hungarumlaut /ogonek /caron |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
120 |
/space /exclamdown /cent /sterling /currency /yen /brokenbar /section |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
121 |
/dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
122 |
/degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph /periodcentered |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
123 |
/cedilla /onesuperior /ordmasculine /guillemotright /onequarter /onehalf /threequarters /questiondown |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
124 |
/Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
125 |
/Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
126 |
/Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
127 |
/Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
128 |
/agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
129 |
/egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
130 |
/eth /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
131 |
/oslash /ugrave /uacute /ucircumflex /udieresis /yacute /thorn /ydieresis |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
132 |
] def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
133 |
/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 |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
134 |
/F0 {/Helvetica Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
135 |
/F1 {/Helvetica-Bold Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
136 |
/F2 {/Helvetica-Oblique Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
137 |
/F3 {/Helvetica-BoldOblique Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
138 |
/F4 {/Times-Roman Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
139 |
/F5 {/Times-Bold Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
140 |
/F6 {/Times-Italic Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
141 |
/F7 {/Times-BoldItalic Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
142 |
/F8 {/Courier Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
143 |
/F9 {/Courier-Bold Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
144 |
/F10 {/Courier-Oblique Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
145 |
/F11 {/Courier-BoldOblique Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
146 |
/F12 {/Symbol Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
147 |
/F13 {/AvantGarde-Book Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
148 |
/F14 {/AvantGarde-BookOblique Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
149 |
/F15 {/AvantGarde-Demi Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
150 |
/F16 {/AvantGarde-DemiOblique Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
151 |
/F17 {/Bookman-Demi Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
152 |
/F18 {/Bookman-DemiItalic Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
153 |
/F19 {/Bookman-Light Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
154 |
/F20 {/Bookman-LightItalic Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
155 |
/F21 {/Helvetica-Narrow Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
156 |
/F22 {/Helvetica-Narrow-Bold Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
157 |
/F23 {/Helvetica-Narrow-Oblique Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
158 |
/F24 {/Helvetica-Narrow-BoldOblique Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
159 |
/F25 {/NewCenturySchlbk-Roman Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
160 |
/F26 {/NewCenturySchlbk-Italic Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
161 |
/F27 {/NewCenturySchlbk-Bold Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
162 |
/F28 {/NewCenturySchlbk-BoldItalic Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
163 |
/F29 {/Palatino-Roman Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
164 |
/F30 {/Palatino-Italic Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
165 |
/F31 {/Palatino-Bold Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
166 |
/F32 {/Palatino-BoldItalic Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
167 |
/F33 {/ZapfChancery-MediumItalic Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
168 |
/F34 {/ZapfDingbats Y}! |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
169 |
/PSL_pathtextdict 26 dict def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
170 |
/PSL_pathtext |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
171 |
{ PSL_pathtextdict begin |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
172 |
/textheight exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
173 |
/just exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
174 |
/offset exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
175 |
/str exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
176 |
/pathdist 0 def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
177 |
/setdist offset def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
178 |
/charcount 0 def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
179 |
/justy just 4 idiv textheight mul 2 div neg def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
180 |
V flattenpath |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
181 |
{movetoproc} {linetoproc} |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
182 |
{curvetoproc} {closepathproc} |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
183 |
pathforall |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
184 |
U N |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
185 |
end |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
186 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
187 |
PSL_pathtextdict begin |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
188 |
/movetoproc |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
189 |
{ /newy exch def /newx exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
190 |
/firstx newx def /firsty newy def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
191 |
/ovr 0 def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
192 |
newx newy transform |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
193 |
/cpy exch def /cpx exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
194 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
195 |
/linetoproc |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
196 |
{ /oldx newx def /oldy newy def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
197 |
/newy exch def /newx exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
198 |
/dx newx oldx sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
199 |
/dy newy oldy sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
200 |
/dist dx dup mul dy dup mul add sqrt def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
201 |
dist 0 ne |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
202 |
{ /dsx dx dist div ovr mul def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
203 |
/dsy dy dist div ovr mul def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
204 |
oldx dsx add oldy dsy add transform |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
205 |
/cpy exch def /cpx exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
206 |
/pathdist pathdist dist add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
207 |
{ setdist pathdist le |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
208 |
{ charcount str length lt |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
209 |
{setchar} {exit} ifelse } |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
210 |
{ /ovr setdist pathdist sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
211 |
exit } |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
212 |
ifelse |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
213 |
} loop |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
214 |
} if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
215 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
216 |
/curvetoproc |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
217 |
{ (ERROR: No curveto's after flattenpath!) |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
218 |
|
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
219 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
220 |
/closepathproc |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
221 |
{ firstx firsty linetoproc |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
222 |
firstx firsty movetoproc |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
223 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
224 |
/setchar |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
225 |
{ /char str charcount 1 getinterval def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
226 |
/charcount charcount 1 add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
227 |
/charwidth char stringwidth pop def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
228 |
V cpx cpy itransform T |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
229 |
dy dx atan R |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
230 |
0 justy m |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
231 |
char show |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
232 |
0 justy neg G |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
233 |
currentpoint transform |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
234 |
/cpy exch def /cpx exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
235 |
U /setdist setdist charwidth add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
236 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
237 |
end |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
238 |
/PSL_curved_text_labels |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
239 |
{ /bits exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
240 |
/PSL_clippath bits 1 and 1 eq def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
241 |
/PSL_placetext bits 2 and 0 eq def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
242 |
/PSL_strokeline bits 4 and 4 eq def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
243 |
/PSL_firstcall bits 32 and 32 eq def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
244 |
/PSL_lastcall bits 64 and 64 eq def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
245 |
/PSL_fillbox bits 128 and 128 eq def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
246 |
/PSL_drawbox bits 256 and 256 eq def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
247 |
/PSL_n1 PSL_n 1 sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
248 |
/PSL_m1 PSL_m 1 sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
249 |
/PSL_usebox PSL_fillbox PSL_drawbox or def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
250 |
PSL_CT_calcstringwidth |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
251 |
PSL_CT_calclinedist |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
252 |
PSL_CT_addcutpoints |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
253 |
PSL_clippath PSL_firstcall and |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
254 |
{ V N clippath } if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
255 |
PSL_setlinepen |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
256 |
/PSL_nn1 PSL_nn 1 sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
257 |
/n 0 def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
258 |
/k 0 def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
259 |
/j 0 def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
260 |
/PSL_seg 0 def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
261 |
/PSL_xp PSL_nn array def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
262 |
/PSL_yp PSL_nn array def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
263 |
PSL_xp 0 PSL_xx 0 get put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
264 |
PSL_yp 0 PSL_yy 0 get put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
265 |
1 1 PSL_nn1 |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
266 |
{ /i exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
267 |
/node_type PSL_kind i get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
268 |
/j j 1 add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
269 |
PSL_xp j PSL_xx i get put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
270 |
PSL_yp j PSL_yy i get put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
271 |
node_type 1 eq |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
272 |
{ n 0 eq |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
273 |
{ PSL_CT_drawline } |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
274 |
{ PSL_CT_reversepath |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
275 |
PSL_CT_textline } ifelse |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
276 |
/j 0 def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
277 |
PSL_xp j PSL_xx i get put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
278 |
PSL_yp j PSL_yy i get put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
279 |
} if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
280 |
} for |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
281 |
n 0 eq {PSL_CT_drawline} if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
282 |
PSL_lastcall |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
283 |
{ PSL_clippath |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
284 |
{ clip /PSL_clip_on true def } if N |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
285 |
} if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
286 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
287 |
/PSL_CT_textline |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
288 |
{ PSL_placetext |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
289 |
{ PSL_clippath |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
290 |
{ PSL_CT_clippath } |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
291 |
{ PSL_CT_placelabel } ifelse |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
292 |
} if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
293 |
/n 0 def /k k 1 add def PSL_setlinepen |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
294 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
295 |
/PSL_CT_calcstringwidth |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
296 |
{ /PSL_width PSL_m array def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
297 |
0 1 PSL_m1 |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
298 |
{ /i exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
299 |
PSL_width i PSL_str i get stringwidth pop put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
300 |
} for |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
301 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
302 |
/PSL_CT_calclinedist |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
303 |
{ /PSL_newx PSL_x 0 get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
304 |
/PSL_newy PSL_y 0 get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
305 |
/dist 0.0 def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
306 |
/PSL_dist PSL_n array def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
307 |
PSL_dist 0 0.0 put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
308 |
1 1 PSL_n1 |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
309 |
{ /i exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
310 |
/PSL_oldx PSL_newx def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
311 |
/PSL_oldy PSL_newy def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
312 |
/PSL_newx PSL_x i get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
313 |
/PSL_newy PSL_y i get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
314 |
/dx PSL_newx PSL_oldx sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
315 |
/dy PSL_newy PSL_oldy sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
316 |
/dist dist dx dx mul dy dy mul add sqrt add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
317 |
PSL_dist i dist put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
318 |
} for |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
319 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
320 |
/PSL_CT_addcutpoints |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
321 |
{ /k 0 def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
322 |
/PSL_nc PSL_m 2 mul 1 add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
323 |
/PSL_cuts PSL_nc array def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
324 |
/PSL_nc1 PSL_nc 1 sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
325 |
0 1 PSL_m1 |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
326 |
{ /i exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
327 |
/dist PSL_dist PSL_node i get get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
328 |
/halfwidth PSL_width i get 2 div PSL_gap_x add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
329 |
PSL_cuts k dist halfwidth sub put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
330 |
/k k 1 add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
331 |
PSL_cuts k dist halfwidth add put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
332 |
/k k 1 add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
333 |
} for |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
334 |
PSL_cuts k 100000.0 put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
335 |
/PSL_nn PSL_n PSL_m 2 mul add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
336 |
/PSL_xx PSL_nn array def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
337 |
/PSL_yy PSL_nn array def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
338 |
/PSL_kind PSL_nn array def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
339 |
/j 0 def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
340 |
/k 0 def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
341 |
/dist 0.0 def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
342 |
0 1 PSL_n1 |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
343 |
{ /i exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
344 |
/last_dist dist def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
345 |
/dist PSL_dist i get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
346 |
k 1 PSL_nc1 |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
347 |
{ /kk exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
348 |
/this_cut PSL_cuts kk get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
349 |
dist this_cut gt |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
350 |
{ /ds dist last_dist sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
351 |
/f ds 0.0 eq {0.0} {dist this_cut sub ds div} ifelse def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
352 |
/i1 i 0 eq { 0 } { i 1 sub } ifelse def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
353 |
PSL_xx j PSL_x i get dup PSL_x i1 get sub f mul sub put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
354 |
PSL_yy j PSL_y i get dup PSL_y i1 get sub f mul sub put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
355 |
PSL_kind j 1 put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
356 |
/j j 1 add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
357 |
/k k 1 add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
358 |
} if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
359 |
} for |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
360 |
dist PSL_cuts k get le |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
361 |
{ PSL_xx j PSL_x i get put PSL_yy j PSL_y i get put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
362 |
PSL_kind j 0 put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
363 |
/j j 1 add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
364 |
} if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
365 |
} for |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
366 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
367 |
/PSL_CT_reversepath |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
368 |
{ PSL_xp j get PSL_xp 0 get lt |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
369 |
{ 0 1 j 2 idiv |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
370 |
{ /left exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
371 |
/right j left sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
372 |
/tmp PSL_xp left get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
373 |
PSL_xp left PSL_xp right get put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
374 |
PSL_xp right tmp put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
375 |
/tmp PSL_yp left get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
376 |
PSL_yp left PSL_yp right get put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
377 |
PSL_yp right tmp put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
378 |
} for |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
379 |
} if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
380 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
381 |
/PSL_CT_placelabel |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
382 |
{ |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
383 |
PSL_usebox |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
384 |
{ PSL_CT_clippath |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
385 |
PSL_fillbox |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
386 |
{ V PSL_setboxrgb fill U } if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
387 |
PSL_drawbox |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
388 |
{ PSL_setboxpen S } if N |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
389 |
} if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
390 |
PSL_settxtrgb PSL_CT_placeline PSL_str k get PSL_gap_x PSL_just PSL_height PSL_pathtext |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
391 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
392 |
/PSL_CT_clippath |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
393 |
{ |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
394 |
/H PSL_height 2 div PSL_gap_y add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
395 |
/xoff j 1 add array def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
396 |
/yoff j 1 add array def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
397 |
/angle 0 def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
398 |
0 1 j { |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
399 |
/ii exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
400 |
/x PSL_xp ii get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
401 |
/y PSL_yp ii get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
402 |
ii 0 eq { |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
403 |
/x1 PSL_xp 1 get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
404 |
/y1 PSL_yp 1 get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
405 |
/dx x1 x sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
406 |
/dy y1 y sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
407 |
} |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
408 |
{ /i1 ii 1 sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
409 |
/x1 PSL_xp i1 get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
410 |
/y1 PSL_yp i1 get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
411 |
/dx x x1 sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
412 |
/dy y y1 sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
413 |
} ifelse |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
414 |
dx 0.0 ne dy 0.0 ne and |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
415 |
{ /angle dy dx atan 90 add def } if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
416 |
/sina angle sin def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
417 |
/cosa angle cos def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
418 |
xoff ii H cosa mul put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
419 |
yoff ii H sina mul put |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
420 |
} for |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
421 |
PSL_xp 0 get xoff 0 get add PSL_yp 0 get yoff 0 get add m |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
422 |
1 1 j { |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
423 |
/ii exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
424 |
PSL_xp ii get xoff ii get add PSL_yp ii get yoff ii get add L |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
425 |
} for |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
426 |
j -1 0 { |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
427 |
/ii exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
428 |
PSL_xp ii get xoff ii get sub PSL_yp ii get yoff ii get sub L |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
429 |
} for P |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
430 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
431 |
/PSL_CT_drawline |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
432 |
{ |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
433 |
/str 20 string def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
434 |
PSL_strokeline |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
435 |
{ PSL_CT_placeline PSL_setlinepen S } if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
436 |
/PSL_seg PSL_seg 1 add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
437 |
/n 1 def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
438 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
439 |
/PSL_CT_placeline |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
440 |
{ PSL_xp 0 get PSL_yp 0 get m |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
441 |
1 1 j { /ii exch def PSL_xp ii get PSL_yp ii get L} for |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
442 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
443 |
/PSL_straight_text_labels |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
444 |
{ |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
445 |
/bits exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
446 |
/PSL_clippath bits 1 and 0 eq def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
447 |
/PSL_rounded bits 16 and 16 eq def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
448 |
/PSL_fillbox bits 128 and 128 eq def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
449 |
/PSL_drawbox bits 256 and 256 eq def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
450 |
/PSL_m1 PSL_m 1 sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
451 |
/PSL_justx PSL_just 4 mod 1 sub 2 div neg def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
452 |
/PSL_justy PSL_just 4 idiv PSL_height mul 2 div neg def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
453 |
/PSL_usebox PSL_fillbox PSL_drawbox or def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
454 |
PSL_clippath |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
455 |
{ PSL_ST_clippath } |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
456 |
{ PSL_usebox { PSL_ST_clippath } if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
457 |
PSL_ST_placelabel |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
458 |
} ifelse |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
459 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
460 |
/PSL_ST_placelabel |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
461 |
{ PSL_settxtrgb |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
462 |
0 1 PSL_m1 |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
463 |
{ /k exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
464 |
/xp PSL_txt_x k get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
465 |
/yp PSL_txt_y k get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
466 |
V PSL_txt_x k get PSL_txt_y k get T |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
467 |
PSL_angle k get R |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
468 |
/BoxW PSL_str k get stringwidth pop def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
469 |
BoxW PSL_justx mul PSL_justy m |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
470 |
PSL_str k get show |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
471 |
U |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
472 |
} for |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
473 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
474 |
/PSL_ST_clippath |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
475 |
{ PSL_rounded { PSL_ST_clippath_round } { PSL_ST_clippath_rect } ifelse |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
476 |
PSL_usebox |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
477 |
{ PSL_fillbox |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
478 |
{ V PSL_setboxrgb fill U } if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
479 |
PSL_drawbox |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
480 |
{ PSL_setboxpen S } if N |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
481 |
} |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
482 |
{ clip /PSL_clip_on true def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
483 |
} ifelse |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
484 |
N |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
485 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
486 |
/PSL_ST_clippath_rect |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
487 |
{ N |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
488 |
/BoxH PSL_height PSL_gap_y 2 mul add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
489 |
/DelY BoxH BoxH 0 3 array astore def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
490 |
PSL_usebox not { V clippath } if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
491 |
0 1 PSL_m1 |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
492 |
{ /k exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
493 |
/xp PSL_txt_x k get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
494 |
/yp PSL_txt_y k get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
495 |
/MAT PSL_angle k get matrix R def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
496 |
/BoxW PSL_str k get stringwidth pop PSL_gap_x 2 mul add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
497 |
/x0 0 BoxW PSL_justx mul add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
498 |
/y0 0 PSL_justy add PSL_gap_y sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
499 |
/DelX 0 BoxW BoxW 3 array astore def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
500 |
x0 y0 MAT transform |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
501 |
/dy exch def /dx exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
502 |
xp dx add yp dy add m |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
503 |
0 1 2 |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
504 |
{ |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
505 |
/ii exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
506 |
x0 DelX ii get add y0 DelY ii get add MAT transform |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
507 |
/dy exch def /dx exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
508 |
xp dx add yp dy add L |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
509 |
} for P |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
510 |
} for |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
511 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
512 |
/PSL_ST_clippath_round |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
513 |
{ N |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
514 |
/PSL_justy2 PSL_just 4 idiv 2 div neg def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
515 |
/PSL_r PSL_gap_x PSL_gap_y lt { PSL_gap_x } { PSL_gap_y } ifelse def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
516 |
/PSL_dx PSL_gap_x PSL_r sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
517 |
/PSL_dy PSL_gap_y PSL_r sub def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
518 |
/PSL_r2 PSL_r 2 mul def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
519 |
/BoxH PSL_height PSL_dy 2 mul add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
520 |
/y0 PSL_height PSL_gap_y 2 mul add PSL_justy2 mul def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
521 |
PSL_usebox not { V clippath } if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
522 |
0 1 PSL_m1 |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
523 |
{ /k exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
524 |
/xp PSL_txt_x k get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
525 |
/yp PSL_txt_y k get def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
526 |
/PSL_width PSL_str k get stringwidth pop def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
527 |
/BoxW PSL_width PSL_dx 2 mul add def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
528 |
/x0 BoxW PSL_justx mul def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
529 |
xp yp T PSL_angle k get R x0 y0 T |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
530 |
0 0 m |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
531 |
BoxW PSL_r add 0 BoxW PSL_r add PSL_r PSL_r arct |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
532 |
BoxW PSL_r add BoxH PSL_r2 add BoxW BoxH PSL_r2 add PSL_r arct |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
533 |
PSL_r neg BoxH PSL_r2 add PSL_r neg BoxH PSL_r add PSL_r arct |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
534 |
PSL_r neg 0 0 0 PSL_r arct P |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
535 |
x0 neg y0 neg T PSL_angle k get neg R xp neg yp neg T |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
536 |
} for |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
537 |
} def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
538 |
/PSL_clip_on false def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
539 |
|
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
540 |
/PSLevel /languagelevel where {pop languagelevel} {1} ifelse def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
541 |
|
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
542 |
0.24 0.24 scale |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
543 |
|
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
544 |
PSL_font_encode 0 get 0 eq {ISOLatin1+_Encoding /Helvetica /Helvetica PSL_reencode PSL_font_encode 0 1 put} if |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
545 |
0 setlinecap |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
546 |
0 setlinejoin |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
547 |
10 setmiterlimit |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
548 |
0 295.276 T |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
549 |
|
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
550 |
%% PostScript produced by: |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
551 |
295.276 295.276 T |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
552 |
S 0 A |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
553 |
S 5 W |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
554 |
118.11 0 T 90 R |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
555 |
0.4 0.4 1 118 443 0 0 BC |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
556 |
0.678 0.678 1 118 177 443 0 BC |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
557 |
1 118 532 620 0 BA |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
558 |
1 0.678 0.678 118 177 1152 0 BC |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
559 |
1 0.4 0.4 118 443 1329 0 BC |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
560 |
0 0 M 1772 0 D S |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
561 |
0 118 M 1772 0 D S |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
562 |
0 0 M 0 118 D S |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
563 |
1772 0 M 0 118 D S |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
564 |
S 1 W |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
565 |
0 0 M 0 118 D S |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
566 |
443 0 M 0 118 D S |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
567 |
620 0 M 0 118 D S |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
568 |
1152 0 M 0 118 D S |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
569 |
1329 0 M 0 118 D S |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
570 |
1772 0 M 0 118 D S |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
571 |
S 2 W |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
572 |
0 0 M |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
573 |
0 -24 D |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
574 |
S |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
575 |
0 0 M 58 F0 (-0.020) E /PSL_dimx exch def YP /PSL_dimy exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
576 |
0 -222 M V -90 R PSL_dimx neg PSL_dimy 2 div neg G 58 F0 (-0.020) Z U |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
577 |
443 0 M |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
578 |
0 -24 D |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
579 |
S |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
580 |
0 0 M 58 F0 (-0.010) E /PSL_dimx exch def YP /PSL_dimy exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
581 |
443 -222 M V -90 R PSL_dimx neg PSL_dimy 2 div neg G 58 F0 (-0.010) Z U |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
582 |
620 0 M |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
583 |
0 -24 D |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
584 |
S |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
585 |
0 0 M 58 F0 (-0.006) E /PSL_dimx exch def YP /PSL_dimy exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
586 |
620 -222 M V -90 R PSL_dimx neg PSL_dimy 2 div neg G 58 F0 (-0.006) Z U |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
587 |
1152 0 M |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
588 |
0 -24 D |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
589 |
S |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
590 |
0 0 M 58 F0 (0.006) E /PSL_dimx exch def YP /PSL_dimy exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
591 |
1152 -222 M V -90 R PSL_dimx neg PSL_dimy 2 div neg G 58 F0 (0.006) Z U |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
592 |
1329 0 M |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
593 |
0 -24 D |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
594 |
S |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
595 |
0 0 M 58 F0 (0.010) E /PSL_dimx exch def YP /PSL_dimy exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
596 |
1329 -222 M V -90 R PSL_dimx neg PSL_dimy 2 div neg G 58 F0 (0.010) Z U |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
597 |
1772 0 M |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
598 |
0 -24 D |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
599 |
S |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
600 |
0 0 M 58 F0 (0.020) E /PSL_dimx exch def YP /PSL_dimy exch def |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
601 |
1772 -222 M V -90 R PSL_dimx neg PSL_dimy 2 div neg G 58 F0 (0.020) Z U |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
602 |
-90 R -118.11 0 T |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
603 |
S -0 -295.276 T 4.16667 4.16667 scale 0 A |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
604 |
showpage |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
605 |
|
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
606 |
end |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
607 |
%%Trailer |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
608 |
cleartomark countdictstack exch sub { end } repeat restore |
509cc9966b68
======================================================================
A.M. Thurnherr <athurnherr@yahoo.com>
parents:
diff
changeset
|
609 |
%%EOF |