Mercurial > repos > marcel > caddsuite_mac10_6

annotate CADDSuite-1.5/data/gnuplot/prologue.ps @ 7:bfab27640f5e draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
CADDSuite version 1.5
author Marcel Schumann <schumann.marcel@gmail.com>
date Tue, 24 Jul 2012 11:13:59 -0400
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
7
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
1 %
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
2 % Gnuplot Prolog Version 4.4 (January 2010)
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
3 %
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
4 %/SuppressPDFMark true def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
5 %
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
6 /M {moveto} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
7 /L {lineto} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
8 /R {rmoveto} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
9 /V {rlineto} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
10 /N {newpath moveto} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
11 /Z {closepath} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
12 /C {setrgbcolor} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
13 /f {rlineto fill} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
14 /Gshow {show} def % May be redefined later in the file to support UTF-8
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
15 /vpt2 vpt 2 mul def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
16 /hpt2 hpt 2 mul def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
17 /Lshow {currentpoint stroke M 0 vshift R
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
18 Blacktext {gsave 0 setgray show grestore} {show} ifelse} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
19 /Rshow {currentpoint stroke M dup stringwidth pop neg vshift R
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
20 Blacktext {gsave 0 setgray show grestore} {show} ifelse} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
21 /Cshow {currentpoint stroke M dup stringwidth pop -2 div vshift R
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
22 Blacktext {gsave 0 setgray show grestore} {show} ifelse} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
23 /UP {dup vpt_ mul /vpt exch def hpt_ mul /hpt exch def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
24 /hpt2 hpt 2 mul def /vpt2 vpt 2 mul def} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
25 /DL {Color {setrgbcolor Solid {pop []} if 0 setdash}
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
26 {pop pop pop 0 setgray Solid {pop []} if 0 setdash} ifelse} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
27 /BL {stroke userlinewidth 2 mul setlinewidth
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
28 Rounded {1 setlinejoin 1 setlinecap} if} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
29 /AL {stroke userlinewidth 2 div setlinewidth
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
30 Rounded {1 setlinejoin 1 setlinecap} if} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
31 /UL {dup gnulinewidth mul /userlinewidth exch def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
32 dup 1 lt {pop 1} if 10 mul /udl exch def} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
33 /PL {stroke userlinewidth setlinewidth
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
34 Rounded {1 setlinejoin 1 setlinecap} if} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
35 % Default Line colors
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
36 /LCw {1 1 1} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
37 /LCb {0 0 0} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
38 /LCa {0 0 0} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
39 /LC0 {1 0 0} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
40 /LC1 {0 1 0} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
41 /LC2 {0 0 1} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
42 /LC3 {1 0 1} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
43 /LC4 {0 1 1} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
44 /LC5 {1 1 0} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
45 /LC6 {0 0 0} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
46 /LC7 {1 0.3 0} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
47 /LC8 {0.5 0.5 0.5} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
48 % Default Line Types
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
49 /LTw {PL [] 1 setgray} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
50 /LTb {BL [] LCb DL} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
51 /LTa {AL [1 udl mul 2 udl mul] 0 setdash LCa setrgbcolor} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
52 /LT0 {PL [] LC0 DL} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
53 /LT1 {PL [4 dl1 2 dl2] LC1 DL} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
54 /LT2 {PL [2 dl1 3 dl2] LC2 DL} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
55 /LT3 {PL [1 dl1 1.5 dl2] LC3 DL} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
56 /LT4 {PL [6 dl1 2 dl2 1 dl1 2 dl2] LC4 DL} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
57 /LT5 {PL [3 dl1 3 dl2 1 dl1 3 dl2] LC5 DL} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
58 /LT6 {PL [2 dl1 2 dl2 2 dl1 6 dl2] LC6 DL} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
59 /LT7 {PL [1 dl1 2 dl2 6 dl1 2 dl2 1 dl1 2 dl2] LC7 DL} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
60 /LT8 {PL [2 dl1 2 dl2 2 dl1 2 dl2 2 dl1 2 dl2 2 dl1 4 dl2] LC8 DL} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
61 /Pnt {stroke [] 0 setdash gsave 1 setlinecap M 0 0 V stroke grestore} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
62 /Dia {stroke [] 0 setdash 2 copy vpt add M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
63 hpt neg vpt neg V hpt vpt neg V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
64 hpt vpt V hpt neg vpt V closepath stroke
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
65 Pnt} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
66 /Pls {stroke [] 0 setdash vpt sub M 0 vpt2 V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
67 currentpoint stroke M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
68 hpt neg vpt neg R hpt2 0 V stroke
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
69 } def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
70 /Box {stroke [] 0 setdash 2 copy exch hpt sub exch vpt add M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
71 0 vpt2 neg V hpt2 0 V 0 vpt2 V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
72 hpt2 neg 0 V closepath stroke
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
73 Pnt} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
74 /Crs {stroke [] 0 setdash exch hpt sub exch vpt add M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
75 hpt2 vpt2 neg V currentpoint stroke M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
76 hpt2 neg 0 R hpt2 vpt2 V stroke} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
77 /TriU {stroke [] 0 setdash 2 copy vpt 1.12 mul add M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
78 hpt neg vpt -1.62 mul V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
79 hpt 2 mul 0 V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
80 hpt neg vpt 1.62 mul V closepath stroke
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
81 Pnt} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
82 /Star {2 copy Pls Crs} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
83 /BoxF {stroke [] 0 setdash exch hpt sub exch vpt add M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
84 0 vpt2 neg V hpt2 0 V 0 vpt2 V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
85 hpt2 neg 0 V closepath fill} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
86 /TriUF {stroke [] 0 setdash vpt 1.12 mul add M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
87 hpt neg vpt -1.62 mul V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
88 hpt 2 mul 0 V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
89 hpt neg vpt 1.62 mul V closepath fill} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
90 /TriD {stroke [] 0 setdash 2 copy vpt 1.12 mul sub M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
91 hpt neg vpt 1.62 mul V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
92 hpt 2 mul 0 V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
93 hpt neg vpt -1.62 mul V closepath stroke
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
94 Pnt} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
95 /TriDF {stroke [] 0 setdash vpt 1.12 mul sub M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
96 hpt neg vpt 1.62 mul V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
97 hpt 2 mul 0 V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
98 hpt neg vpt -1.62 mul V closepath fill} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
99 /DiaF {stroke [] 0 setdash vpt add M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
100 hpt neg vpt neg V hpt vpt neg V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
101 hpt vpt V hpt neg vpt V closepath fill} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
102 /Pent {stroke [] 0 setdash 2 copy gsave
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
103 translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
104 closepath stroke grestore Pnt} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
105 /PentF {stroke [] 0 setdash gsave
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
106 translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
107 closepath fill grestore} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
108 /Circle {stroke [] 0 setdash 2 copy
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
109 hpt 0 360 arc stroke Pnt} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
110 /CircleF {stroke [] 0 setdash hpt 0 360 arc fill} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
111 /C0 {BL [] 0 setdash 2 copy moveto vpt 90 450 arc} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
112 /C1 {BL [] 0 setdash 2 copy moveto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
113 2 copy vpt 0 90 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
114 vpt 0 360 arc closepath} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
115 /C2 {BL [] 0 setdash 2 copy moveto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
116 2 copy vpt 90 180 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
117 vpt 0 360 arc closepath} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
118 /C3 {BL [] 0 setdash 2 copy moveto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
119 2 copy vpt 0 180 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
120 vpt 0 360 arc closepath} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
121 /C4 {BL [] 0 setdash 2 copy moveto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
122 2 copy vpt 180 270 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
123 vpt 0 360 arc closepath} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
124 /C5 {BL [] 0 setdash 2 copy moveto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
125 2 copy vpt 0 90 arc
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
126 2 copy moveto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
127 2 copy vpt 180 270 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
128 vpt 0 360 arc} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
129 /C6 {BL [] 0 setdash 2 copy moveto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
130 2 copy vpt 90 270 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
131 vpt 0 360 arc closepath} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
132 /C7 {BL [] 0 setdash 2 copy moveto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
133 2 copy vpt 0 270 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
134 vpt 0 360 arc closepath} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
135 /C8 {BL [] 0 setdash 2 copy moveto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
136 2 copy vpt 270 360 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
137 vpt 0 360 arc closepath} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
138 /C9 {BL [] 0 setdash 2 copy moveto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
139 2 copy vpt 270 450 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
140 vpt 0 360 arc closepath} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
141 /C10 {BL [] 0 setdash 2 copy 2 copy moveto vpt 270 360 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
142 2 copy moveto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
143 2 copy vpt 90 180 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
144 vpt 0 360 arc closepath} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
145 /C11 {BL [] 0 setdash 2 copy moveto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
146 2 copy vpt 0 180 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
147 2 copy moveto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
148 2 copy vpt 270 360 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
149 vpt 0 360 arc closepath} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
150 /C12 {BL [] 0 setdash 2 copy moveto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
151 2 copy vpt 180 360 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
152 vpt 0 360 arc closepath} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
153 /C13 {BL [] 0 setdash 2 copy moveto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
154 2 copy vpt 0 90 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
155 2 copy moveto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
156 2 copy vpt 180 360 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
157 vpt 0 360 arc closepath} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
158 /C14 {BL [] 0 setdash 2 copy moveto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
159 2 copy vpt 90 360 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
160 vpt 0 360 arc} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
161 /C15 {BL [] 0 setdash 2 copy vpt 0 360 arc closepath fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
162 vpt 0 360 arc closepath} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
163 /Rec {newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
164 neg 0 rlineto closepath} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
165 /Square {dup Rec} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
166 /Bsquare {vpt sub exch vpt sub exch vpt2 Square} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
167 /S0 {BL [] 0 setdash 2 copy moveto 0 vpt rlineto BL Bsquare} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
168 /S1 {BL [] 0 setdash 2 copy vpt Square fill Bsquare} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
169 /S2 {BL [] 0 setdash 2 copy exch vpt sub exch vpt Square fill Bsquare} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
170 /S3 {BL [] 0 setdash 2 copy exch vpt sub exch vpt2 vpt Rec fill Bsquare} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
171 /S4 {BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt Square fill Bsquare} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
172 /S5 {BL [] 0 setdash 2 copy 2 copy vpt Square fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
173 exch vpt sub exch vpt sub vpt Square fill Bsquare} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
174 /S6 {BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill Bsquare} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
175 /S7 {BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
176 2 copy vpt Square fill Bsquare} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
177 /S8 {BL [] 0 setdash 2 copy vpt sub vpt Square fill Bsquare} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
178 /S9 {BL [] 0 setdash 2 copy vpt sub vpt vpt2 Rec fill Bsquare} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
179 /S10 {BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt Square fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
180 Bsquare} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
181 /S11 {BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt2 vpt Rec fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
182 Bsquare} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
183 /S12 {BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill Bsquare} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
184 /S13 {BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
185 2 copy vpt Square fill Bsquare} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
186 /S14 {BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
187 2 copy exch vpt sub exch vpt Square fill Bsquare} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
188 /S15 {BL [] 0 setdash 2 copy Bsquare fill Bsquare} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
189 /D0 {gsave translate 45 rotate 0 0 S0 stroke grestore} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
190 /D1 {gsave translate 45 rotate 0 0 S1 stroke grestore} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
191 /D2 {gsave translate 45 rotate 0 0 S2 stroke grestore} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
192 /D3 {gsave translate 45 rotate 0 0 S3 stroke grestore} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
193 /D4 {gsave translate 45 rotate 0 0 S4 stroke grestore} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
194 /D5 {gsave translate 45 rotate 0 0 S5 stroke grestore} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
195 /D6 {gsave translate 45 rotate 0 0 S6 stroke grestore} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
196 /D7 {gsave translate 45 rotate 0 0 S7 stroke grestore} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
197 /D8 {gsave translate 45 rotate 0 0 S8 stroke grestore} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
198 /D9 {gsave translate 45 rotate 0 0 S9 stroke grestore} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
199 /D10 {gsave translate 45 rotate 0 0 S10 stroke grestore} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
200 /D11 {gsave translate 45 rotate 0 0 S11 stroke grestore} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
201 /D12 {gsave translate 45 rotate 0 0 S12 stroke grestore} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
202 /D13 {gsave translate 45 rotate 0 0 S13 stroke grestore} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
203 /D14 {gsave translate 45 rotate 0 0 S14 stroke grestore} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
204 /D15 {gsave translate 45 rotate 0 0 S15 stroke grestore} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
205 /DiaE {stroke [] 0 setdash vpt add M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
206 hpt neg vpt neg V hpt vpt neg V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
207 hpt vpt V hpt neg vpt V closepath stroke} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
208 /BoxE {stroke [] 0 setdash exch hpt sub exch vpt add M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
209 0 vpt2 neg V hpt2 0 V 0 vpt2 V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
210 hpt2 neg 0 V closepath stroke} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
211 /TriUE {stroke [] 0 setdash vpt 1.12 mul add M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
212 hpt neg vpt -1.62 mul V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
213 hpt 2 mul 0 V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
214 hpt neg vpt 1.62 mul V closepath stroke} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
215 /TriDE {stroke [] 0 setdash vpt 1.12 mul sub M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
216 hpt neg vpt 1.62 mul V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
217 hpt 2 mul 0 V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
218 hpt neg vpt -1.62 mul V closepath stroke} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
219 /PentE {stroke [] 0 setdash gsave
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
220 translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
221 closepath stroke grestore} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
222 /CircE {stroke [] 0 setdash
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
223 hpt 0 360 arc stroke} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
224 /Opaque {gsave closepath 1 setgray fill grestore 0 setgray closepath} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
225 /DiaW {stroke [] 0 setdash vpt add M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
226 hpt neg vpt neg V hpt vpt neg V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
227 hpt vpt V hpt neg vpt V Opaque stroke} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
228 /BoxW {stroke [] 0 setdash exch hpt sub exch vpt add M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
229 0 vpt2 neg V hpt2 0 V 0 vpt2 V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
230 hpt2 neg 0 V Opaque stroke} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
231 /TriUW {stroke [] 0 setdash vpt 1.12 mul add M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
232 hpt neg vpt -1.62 mul V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
233 hpt 2 mul 0 V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
234 hpt neg vpt 1.62 mul V Opaque stroke} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
235 /TriDW {stroke [] 0 setdash vpt 1.12 mul sub M
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
236 hpt neg vpt 1.62 mul V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
237 hpt 2 mul 0 V
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
238 hpt neg vpt -1.62 mul V Opaque stroke} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
239 /PentW {stroke [] 0 setdash gsave
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
240 translate 0 hpt M 4 {72 rotate 0 hpt L} repeat
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
241 Opaque stroke grestore} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
242 /CircW {stroke [] 0 setdash
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
243 hpt 0 360 arc Opaque stroke} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
244 /BoxFill {gsave Rec 1 setgray fill grestore} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
245 /Density {
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
246 /Fillden exch def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
247 currentrgbcolor
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
248 /ColB exch def /ColG exch def /ColR exch def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
249 /ColR ColR Fillden mul Fillden sub 1 add def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
250 /ColG ColG Fillden mul Fillden sub 1 add def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
251 /ColB ColB Fillden mul Fillden sub 1 add def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
252 ColR ColG ColB setrgbcolor} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
253 /BoxColFill {gsave Rec PolyFill} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
254 /PolyFill {gsave Density fill grestore grestore} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
255 /h {rlineto rlineto rlineto gsave closepath fill grestore} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
256 %
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
257 % PostScript Level 1 Pattern Fill routine for rectangles
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
258 % Usage: x y w h s a XX PatternFill
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
259 % x,y = lower left corner of box to be filled
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
260 % w,h = width and height of box
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
261 % a = angle in degrees between lines and x-axis
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
262 % XX = 0/1 for no/yes cross-hatch
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
263 %
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
264 /PatternFill {gsave /PFa [ 9 2 roll ] def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
265 PFa 0 get PFa 2 get 2 div add PFa 1 get PFa 3 get 2 div add translate
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
266 PFa 2 get -2 div PFa 3 get -2 div PFa 2 get PFa 3 get Rec
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
267 gsave 1 setgray fill grestore clip
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
268 currentlinewidth 0.5 mul setlinewidth
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
269 /PFs PFa 2 get dup mul PFa 3 get dup mul add sqrt def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
270 0 0 M PFa 5 get rotate PFs -2 div dup translate
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
271 0 1 PFs PFa 4 get div 1 add floor cvi
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
272 {PFa 4 get mul 0 M 0 PFs V} for
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
273 0 PFa 6 get ne {
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
274 0 1 PFs PFa 4 get div 1 add floor cvi
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
275 {PFa 4 get mul 0 2 1 roll M PFs 0 V} for
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
276 } if
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
277 stroke grestore} def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
278 %
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
279 /languagelevel where
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
280 {pop languagelevel} {1} ifelse
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
281 2 lt
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
282 {/InterpretLevel1 true def}
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
283 {/InterpretLevel1 Level1 def}
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
284 ifelse
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
285 %
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
286 % PostScript level 2 pattern fill definitions
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
287 %
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
288 /Level2PatternFill {
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
289 /Tile8x8 {/PaintType 2 /PatternType 1 /TilingType 1 /BBox [0 0 8 8] /XStep 8 /YStep 8}
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
290 bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
291 /KeepColor {currentrgbcolor [/Pattern /DeviceRGB] setcolorspace} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
292 << Tile8x8
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
293 /PaintProc {0.5 setlinewidth pop 0 0 M 8 8 L 0 8 M 8 0 L stroke}
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
294 >> matrix makepattern
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
295 /Pat1 exch def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
296 << Tile8x8
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
297 /PaintProc {0.5 setlinewidth pop 0 0 M 8 8 L 0 8 M 8 0 L stroke
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
298 0 4 M 4 8 L 8 4 L 4 0 L 0 4 L stroke}
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
299 >> matrix makepattern
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
300 /Pat2 exch def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
301 << Tile8x8
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
302 /PaintProc {0.5 setlinewidth pop 0 0 M 0 8 L
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
303 8 8 L 8 0 L 0 0 L fill}
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
304 >> matrix makepattern
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
305 /Pat3 exch def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
306 << Tile8x8
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
307 /PaintProc {0.5 setlinewidth pop -4 8 M 8 -4 L
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
308 0 12 M 12 0 L stroke}
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
309 >> matrix makepattern
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
310 /Pat4 exch def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
311 << Tile8x8
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
312 /PaintProc {0.5 setlinewidth pop -4 0 M 8 12 L
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
313 0 -4 M 12 8 L stroke}
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
314 >> matrix makepattern
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
315 /Pat5 exch def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
316 << Tile8x8
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
317 /PaintProc {0.5 setlinewidth pop -2 8 M 4 -4 L
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
318 0 12 M 8 -4 L 4 12 M 10 0 L stroke}
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
319 >> matrix makepattern
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
320 /Pat6 exch def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
321 << Tile8x8
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
322 /PaintProc {0.5 setlinewidth pop -2 0 M 4 12 L
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
323 0 -4 M 8 12 L 4 -4 M 10 8 L stroke}
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
324 >> matrix makepattern
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
325 /Pat7 exch def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
326 << Tile8x8
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
327 /PaintProc {0.5 setlinewidth pop 8 -2 M -4 4 L
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
328 12 0 M -4 8 L 12 4 M 0 10 L stroke}
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
329 >> matrix makepattern
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
330 /Pat8 exch def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
331 << Tile8x8
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
332 /PaintProc {0.5 setlinewidth pop 0 -2 M 12 4 L
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
333 -4 0 M 12 8 L -4 4 M 8 10 L stroke}
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
334 >> matrix makepattern
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
335 /Pat9 exch def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
336 /Pattern1 {PatternBgnd KeepColor Pat1 setpattern} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
337 /Pattern2 {PatternBgnd KeepColor Pat2 setpattern} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
338 /Pattern3 {PatternBgnd KeepColor Pat3 setpattern} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
339 /Pattern4 {PatternBgnd KeepColor Landscape {Pat5} {Pat4} ifelse setpattern} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
340 /Pattern5 {PatternBgnd KeepColor Landscape {Pat4} {Pat5} ifelse setpattern} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
341 /Pattern6 {PatternBgnd KeepColor Landscape {Pat9} {Pat6} ifelse setpattern} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
342 /Pattern7 {PatternBgnd KeepColor Landscape {Pat8} {Pat7} ifelse setpattern} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
343 } def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
344 %
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
345 %
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
346 %End of PostScript Level 2 code
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
347 %
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
348 /PatternBgnd {
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
349 TransparentPatterns {} {gsave 1 setgray fill grestore} ifelse
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
350 } def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
351 %
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
352 % Substitute for Level 2 pattern fill codes with
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
353 % grayscale if Level 2 support is not selected.
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
354 %
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
355 /Level1PatternFill {
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
356 /Pattern1 {0.250 Density} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
357 /Pattern2 {0.500 Density} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
358 /Pattern3 {0.750 Density} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
359 /Pattern4 {0.125 Density} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
360 /Pattern5 {0.375 Density} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
361 /Pattern6 {0.625 Density} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
362 /Pattern7 {0.875 Density} bind def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
363 } def
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
364 %
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
365 % Now test for support of Level 2 code
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
366 %
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
367 Level1 {Level1PatternFill} {Level2PatternFill} ifelse
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
368 %
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
369 /Symbol-Oblique /Symbol findfont [1 0 .167 1 0 0] makefont
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
370 dup length dict begin {1 index /FID eq {pop pop} {def} ifelse} forall
bfab27640f5e CADDSuite version 1.5
Marcel Schumann <schumann.marcel@gmail.com>
parents:
diff changeset
371 currentdict end definefont pop