author | Florian Pose <fp@igh-essen.com> |
Tue, 13 Feb 2007 13:27:44 +0000 | |
branch | stable-1.2 |
changeset 1737 | 97c5595db11b |
parent 1727 | 861f4715ed6f |
permissions | -rw-r--r-- |
1727
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
1 |
%!PS-Adobe-2.0 EPSF-2.0 |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
2 |
%%Title: interrupt.fig |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
3 |
%%Creator: fig2dev Version 3.2 Patchlevel 4 |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
4 |
%%CreationDate: Mon Aug 7 13:51:08 2006 |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
5 |
%%For: fp@jupiter (Florian Pose) |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
6 |
%%BoundingBox: 0 0 538 278 |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
7 |
%%Magnification: 1.0000 |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
8 |
%%EndComments |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
9 |
/MyAppDict 100 dict dup begin def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
10 |
/$F2psDict 200 dict def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
11 |
$F2psDict begin |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
12 |
$F2psDict /mtrx matrix put |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
13 |
/col-1 {0 setgray} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
14 |
/col0 {0.000 0.000 0.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
15 |
/col1 {0.000 0.000 1.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
16 |
/col2 {0.000 1.000 0.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
17 |
/col3 {0.000 1.000 1.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
18 |
/col4 {1.000 0.000 0.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
19 |
/col5 {1.000 0.000 1.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
20 |
/col6 {1.000 1.000 0.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
21 |
/col7 {1.000 1.000 1.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
22 |
/col8 {0.000 0.000 0.560 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
23 |
/col9 {0.000 0.000 0.690 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
24 |
/col10 {0.000 0.000 0.820 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
25 |
/col11 {0.530 0.810 1.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
26 |
/col12 {0.000 0.560 0.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
27 |
/col13 {0.000 0.690 0.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
28 |
/col14 {0.000 0.820 0.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
29 |
/col15 {0.000 0.560 0.560 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
30 |
/col16 {0.000 0.690 0.690 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
31 |
/col17 {0.000 0.820 0.820 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
32 |
/col18 {0.560 0.000 0.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
33 |
/col19 {0.690 0.000 0.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
34 |
/col20 {0.820 0.000 0.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
35 |
/col21 {0.560 0.000 0.560 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
36 |
/col22 {0.690 0.000 0.690 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
37 |
/col23 {0.820 0.000 0.820 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
38 |
/col24 {0.500 0.190 0.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
39 |
/col25 {0.630 0.250 0.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
40 |
/col26 {0.750 0.380 0.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
41 |
/col27 {1.000 0.500 0.500 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
42 |
/col28 {1.000 0.630 0.630 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
43 |
/col29 {1.000 0.750 0.750 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
44 |
/col30 {1.000 0.880 0.880 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
45 |
/col31 {1.000 0.840 0.000 srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
46 |
|
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
47 |
end |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
48 |
save |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
49 |
newpath 0 278 moveto 0 0 lineto 538 0 lineto 538 278 lineto closepath clip newpath |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
50 |
-12.2 386.3 translate |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
51 |
1 -1 scale |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
52 |
|
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
53 |
% This junk string is used by the show operators |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
54 |
/PATsstr 1 string def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
55 |
/PATawidthshow { % cx cy cchar rx ry string |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
56 |
% Loop over each character in the string |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
57 |
{ % cx cy cchar rx ry char |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
58 |
% Show the character |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
59 |
dup % cx cy cchar rx ry char char |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
60 |
PATsstr dup 0 4 -1 roll put % cx cy cchar rx ry char (char) |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
61 |
false charpath % cx cy cchar rx ry char |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
62 |
/clip load PATdraw |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
63 |
% Move past the character (charpath modified the |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
64 |
% current point) |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
65 |
currentpoint % cx cy cchar rx ry char x y |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
66 |
newpath |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
67 |
moveto % cx cy cchar rx ry char |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
68 |
% Reposition by cx,cy if the character in the string is cchar |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
69 |
3 index eq { % cx cy cchar rx ry |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
70 |
4 index 4 index rmoveto |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
71 |
} if |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
72 |
% Reposition all characters by rx ry |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
73 |
2 copy rmoveto % cx cy cchar rx ry |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
74 |
} forall |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
75 |
pop pop pop pop pop % - |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
76 |
currentpoint |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
77 |
newpath |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
78 |
moveto |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
79 |
} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
80 |
/PATcg { |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
81 |
7 dict dup begin |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
82 |
/lw currentlinewidth def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
83 |
/lc currentlinecap def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
84 |
/lj currentlinejoin def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
85 |
/ml currentmiterlimit def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
86 |
/ds [ currentdash ] def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
87 |
/cc [ currentrgbcolor ] def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
88 |
/cm matrix currentmatrix def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
89 |
end |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
90 |
} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
91 |
% PATdraw - calculates the boundaries of the object and |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
92 |
% fills it with the current pattern |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
93 |
/PATdraw { % proc |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
94 |
save exch |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
95 |
PATpcalc % proc nw nh px py |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
96 |
5 -1 roll exec % nw nh px py |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
97 |
newpath |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
98 |
PATfill % - |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
99 |
restore |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
100 |
} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
101 |
% PATfill - performs the tiling for the shape |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
102 |
/PATfill { % nw nh px py PATfill - |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
103 |
PATDict /CurrentPattern get dup begin |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
104 |
setfont |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
105 |
% Set the coordinate system to Pattern Space |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
106 |
PatternGState PATsg |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
107 |
% Set the color for uncolored pattezns |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
108 |
PaintType 2 eq { PATDict /PColor get PATsc } if |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
109 |
% Create the string for showing |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
110 |
3 index string % nw nh px py str |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
111 |
% Loop for each of the pattern sources |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
112 |
0 1 Multi 1 sub { % nw nh px py str source |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
113 |
% Move to the starting location |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
114 |
3 index 3 index % nw nh px py str source px py |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
115 |
moveto % nw nh px py str source |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
116 |
% For multiple sources, set the appropriate color |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
117 |
Multi 1 ne { dup PC exch get PATsc } if |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
118 |
% Set the appropriate string for the source |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
119 |
0 1 7 index 1 sub { 2 index exch 2 index put } for pop |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
120 |
% Loop over the number of vertical cells |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
121 |
3 index % nw nh px py str nh |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
122 |
{ % nw nh px py str |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
123 |
currentpoint % nw nh px py str cx cy |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
124 |
2 index oldshow % nw nh px py str cx cy |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
125 |
YStep add moveto % nw nh px py str |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
126 |
} repeat % nw nh px py str |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
127 |
} for |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
128 |
5 { pop } repeat |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
129 |
end |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
130 |
} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
131 |
|
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
132 |
% PATkshow - kshow with the current pattezn |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
133 |
/PATkshow { % proc string |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
134 |
exch bind % string proc |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
135 |
1 index 0 get % string proc char |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
136 |
% Loop over all but the last character in the string |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
137 |
0 1 4 index length 2 sub { |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
138 |
% string proc char idx |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
139 |
% Find the n+1th character in the string |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
140 |
3 index exch 1 add get % string proc char char+1 |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
141 |
exch 2 copy % strinq proc char+1 char char+1 char |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
142 |
% Now show the nth character |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
143 |
PATsstr dup 0 4 -1 roll put % string proc chr+1 chr chr+1 (chr) |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
144 |
false charpath % string proc char+1 char char+1 |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
145 |
/clip load PATdraw |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
146 |
% Move past the character (charpath modified the current point) |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
147 |
currentpoint newpath moveto |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
148 |
% Execute the user proc (should consume char and char+1) |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
149 |
mark 3 1 roll % string proc char+1 mark char char+1 |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
150 |
4 index exec % string proc char+1 mark... |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
151 |
cleartomark % string proc char+1 |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
152 |
} for |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
153 |
% Now display the last character |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
154 |
PATsstr dup 0 4 -1 roll put % string proc (char+1) |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
155 |
false charpath % string proc |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
156 |
/clip load PATdraw |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
157 |
neewath |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
158 |
pop pop % - |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
159 |
} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
160 |
% PATmp - the makepattern equivalent |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
161 |
/PATmp { % patdict patmtx PATmp patinstance |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
162 |
exch dup length 7 add % We will add 6 new entries plus 1 FID |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
163 |
dict copy % Create a new dictionary |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
164 |
begin |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
165 |
% Matrix to install when painting the pattern |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
166 |
TilingType PATtcalc |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
167 |
/PatternGState PATcg def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
168 |
PatternGState /cm 3 -1 roll put |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
169 |
% Check for multi pattern sources (Level 1 fast color patterns) |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
170 |
currentdict /Multi known not { /Multi 1 def } if |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
171 |
% Font dictionary definitions |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
172 |
/FontType 3 def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
173 |
% Create a dummy encoding vector |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
174 |
/Encoding 256 array def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
175 |
3 string 0 1 255 { |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
176 |
Encoding exch dup 3 index cvs cvn put } for pop |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
177 |
/FontMatrix matrix def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
178 |
/FontBBox BBox def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
179 |
/BuildChar { |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
180 |
mark 3 1 roll % mark dict char |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
181 |
exch begin |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
182 |
Multi 1 ne {PaintData exch get}{pop} ifelse % mark [paintdata] |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
183 |
PaintType 2 eq Multi 1 ne or |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
184 |
{ XStep 0 FontBBox aload pop setcachedevice } |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
185 |
{ XStep 0 setcharwidth } ifelse |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
186 |
currentdict % mark [paintdata] dict |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
187 |
/PaintProc load % mark [paintdata] dict paintproc |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
188 |
end |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
189 |
gsave |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
190 |
false PATredef exec true PATredef |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
191 |
grestore |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
192 |
cleartomark % - |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
193 |
} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
194 |
currentdict |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
195 |
end % newdict |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
196 |
/foo exch % /foo newlict |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
197 |
definefont % newfont |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
198 |
} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
199 |
% PATpcalc - calculates the starting point and width/height |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
200 |
% of the tile fill for the shape |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
201 |
/PATpcalc { % - PATpcalc nw nh px py |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
202 |
PATDict /CurrentPattern get begin |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
203 |
gsave |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
204 |
% Set up the coordinate system to Pattern Space |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
205 |
% and lock down pattern |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
206 |
PatternGState /cm get setmatrix |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
207 |
BBox aload pop pop pop translate |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
208 |
% Determine the bounding box of the shape |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
209 |
pathbbox % llx lly urx ury |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
210 |
grestore |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
211 |
% Determine (nw, nh) the # of cells to paint width and height |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
212 |
PatHeight div ceiling % llx lly urx qh |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
213 |
4 1 roll % qh llx lly urx |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
214 |
PatWidth div ceiling % qh llx lly qw |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
215 |
4 1 roll % qw qh llx lly |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
216 |
PatHeight div floor % qw qh llx ph |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
217 |
4 1 roll % ph qw qh llx |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
218 |
PatWidth div floor % ph qw qh pw |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
219 |
4 1 roll % pw ph qw qh |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
220 |
2 index sub cvi abs % pw ph qs qh-ph |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
221 |
exch 3 index sub cvi abs exch % pw ph nw=qw-pw nh=qh-ph |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
222 |
% Determine the starting point of the pattern fill |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
223 |
%(px, py) |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
224 |
4 2 roll % nw nh pw ph |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
225 |
PatHeight mul % nw nh pw py |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
226 |
exch % nw nh py pw |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
227 |
PatWidth mul exch % nw nh px py |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
228 |
end |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
229 |
} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
230 |
|
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
231 |
% Save the original routines so that we can use them later on |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
232 |
/oldfill /fill load def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
233 |
/oldeofill /eofill load def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
234 |
/oldstroke /stroke load def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
235 |
/oldshow /show load def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
236 |
/oldashow /ashow load def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
237 |
/oldwidthshow /widthshow load def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
238 |
/oldawidthshow /awidthshow load def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
239 |
/oldkshow /kshow load def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
240 |
|
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
241 |
% These defs are necessary so that subsequent procs don't bind in |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
242 |
% the originals |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
243 |
/fill { oldfill } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
244 |
/eofill { oldeofill } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
245 |
/stroke { oldstroke } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
246 |
/show { oldshow } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
247 |
/ashow { oldashow } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
248 |
/widthshow { oldwidthshow } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
249 |
/awidthshow { oldawidthshow } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
250 |
/kshow { oldkshow } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
251 |
/PATredef { |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
252 |
MyAppDict begin |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
253 |
{ |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
254 |
/fill { /clip load PATdraw newpath } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
255 |
/eofill { /eoclip load PATdraw newpath } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
256 |
/stroke { PATstroke } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
257 |
/show { 0 0 null 0 0 6 -1 roll PATawidthshow } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
258 |
/ashow { 0 0 null 6 3 roll PATawidthshow } |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
259 |
bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
260 |
/widthshow { 0 0 3 -1 roll PATawidthshow } |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
261 |
bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
262 |
/awidthshow { PATawidthshow } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
263 |
/kshow { PATkshow } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
264 |
} { |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
265 |
/fill { oldfill } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
266 |
/eofill { oldeofill } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
267 |
/stroke { oldstroke } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
268 |
/show { oldshow } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
269 |
/ashow { oldashow } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
270 |
/widthshow { oldwidthshow } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
271 |
/awidthshow { oldawidthshow } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
272 |
/kshow { oldkshow } bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
273 |
} ifelse |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
274 |
end |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
275 |
} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
276 |
false PATredef |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
277 |
% Conditionally define setcmykcolor if not available |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
278 |
/setcmykcolor where { pop } { |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
279 |
/setcmykcolor { |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
280 |
1 sub 4 1 roll |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
281 |
3 { |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
282 |
3 index add neg dup 0 lt { pop 0 } if 3 1 roll |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
283 |
} repeat |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
284 |
setrgbcolor - pop |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
285 |
} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
286 |
} ifelse |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
287 |
/PATsc { % colorarray |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
288 |
aload length % c1 ... cn length |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
289 |
dup 1 eq { pop setgray } { 3 eq { setrgbcolor } { setcmykcolor |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
290 |
} ifelse } ifelse |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
291 |
} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
292 |
/PATsg { % dict |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
293 |
begin |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
294 |
lw setlinewidth |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
295 |
lc setlinecap |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
296 |
lj setlinejoin |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
297 |
ml setmiterlimit |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
298 |
ds aload pop setdash |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
299 |
cc aload pop setrgbcolor |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
300 |
cm setmatrix |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
301 |
end |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
302 |
} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
303 |
|
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
304 |
/PATDict 3 dict def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
305 |
/PATsp { |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
306 |
true PATredef |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
307 |
PATDict begin |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
308 |
/CurrentPattern exch def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
309 |
% If it's an uncolored pattern, save the color |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
310 |
CurrentPattern /PaintType get 2 eq { |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
311 |
/PColor exch def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
312 |
} if |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
313 |
/CColor [ currentrgbcolor ] def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
314 |
end |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
315 |
} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
316 |
% PATstroke - stroke with the current pattern |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
317 |
/PATstroke { |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
318 |
countdictstack |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
319 |
save |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
320 |
mark |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
321 |
{ |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
322 |
currentpoint strokepath moveto |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
323 |
PATpcalc % proc nw nh px py |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
324 |
clip newpath PATfill |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
325 |
} stopped { |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
326 |
(*** PATstroke Warning: Path is too complex, stroking |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
327 |
with gray) = |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
328 |
cleartomark |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
329 |
restore |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
330 |
countdictstack exch sub dup 0 gt |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
331 |
{ { end } repeat } { pop } ifelse |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
332 |
gsave 0.5 setgray oldstroke grestore |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
333 |
} { pop restore pop } ifelse |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
334 |
newpath |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
335 |
} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
336 |
/PATtcalc { % modmtx tilingtype PATtcalc tilematrix |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
337 |
% Note: tiling types 2 and 3 are not supported |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
338 |
gsave |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
339 |
exch concat % tilingtype |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
340 |
matrix currentmatrix exch % cmtx tilingtype |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
341 |
% Tiling type 1 and 3: constant spacing |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
342 |
2 ne { |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
343 |
% Distort the pattern so that it occupies |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
344 |
% an integral number of device pixels |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
345 |
dup 4 get exch dup 5 get exch % tx ty cmtx |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
346 |
XStep 0 dtransform |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
347 |
round exch round exch % tx ty cmtx dx.x dx.y |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
348 |
XStep div exch XStep div exch % tx ty cmtx a b |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
349 |
0 YStep dtransform |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
350 |
round exch round exch % tx ty cmtx a b dy.x dy.y |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
351 |
YStep div exch YStep div exch % tx ty cmtx a b c d |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
352 |
7 -3 roll astore % { a b c d tx ty } |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
353 |
} if |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
354 |
grestore |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
355 |
} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
356 |
/PATusp { |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
357 |
false PATredef |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
358 |
PATDict begin |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
359 |
CColor PATsc |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
360 |
end |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
361 |
} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
362 |
|
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
363 |
% right45 |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
364 |
11 dict begin |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
365 |
/PaintType 1 def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
366 |
/PatternType 1 def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
367 |
/TilingType 1 def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
368 |
/BBox [0 0 1 1] def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
369 |
/XStep 1 def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
370 |
/YStep 1 def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
371 |
/PatWidth 1 def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
372 |
/PatHeight 1 def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
373 |
/Multi 2 def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
374 |
/PaintData [ |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
375 |
{ clippath } bind |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
376 |
{ 20 20 true [ 20 0 0 -20 0 20 ] |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
377 |
{<0040100080200100400200800401000802001004 |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
378 |
0020080040100080200000401000802001004002 |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
379 |
0080040100080200100400200800401000802000>} |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
380 |
imagemask } bind |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
381 |
] def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
382 |
/PaintProc { |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
383 |
pop |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
384 |
exec fill |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
385 |
} def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
386 |
currentdict |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
387 |
end |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
388 |
/P5 exch def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
389 |
|
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
390 |
/cp {closepath} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
391 |
/ef {eofill} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
392 |
/gr {grestore} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
393 |
/gs {gsave} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
394 |
/sa {save} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
395 |
/rs {restore} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
396 |
/l {lineto} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
397 |
/m {moveto} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
398 |
/rm {rmoveto} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
399 |
/n {newpath} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
400 |
/s {stroke} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
401 |
/sh {show} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
402 |
/slc {setlinecap} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
403 |
/slj {setlinejoin} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
404 |
/slw {setlinewidth} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
405 |
/srgb {setrgbcolor} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
406 |
/rot {rotate} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
407 |
/sc {scale} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
408 |
/sd {setdash} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
409 |
/ff {findfont} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
410 |
/sf {setfont} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
411 |
/scf {scalefont} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
412 |
/sw {stringwidth} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
413 |
/tr {translate} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
414 |
/tnt {dup dup currentrgbcolor |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
415 |
4 -2 roll dup 1 exch sub 3 -1 roll mul add |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
416 |
4 -2 roll dup 1 exch sub 3 -1 roll mul add |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
417 |
4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb} |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
418 |
bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
419 |
/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
420 |
4 -2 roll mul srgb} bind def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
421 |
/reencdict 12 dict def /ReEncode { reencdict begin |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
422 |
/newcodesandnames exch def /newfontname exch def /basefontname exch def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
423 |
/basefontdict basefontname findfont def /newfont basefontdict maxlength dict def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
424 |
basefontdict { exch dup /FID ne { dup /Encoding eq |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
425 |
{ exch dup length array copy newfont 3 1 roll put } |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
426 |
{ exch newfont 3 1 roll put } ifelse } { pop pop } ifelse } forall |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
427 |
newfont /FontName newfontname put newcodesandnames aload pop |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
428 |
128 1 255 { newfont /Encoding get exch /.notdef put } for |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
429 |
newcodesandnames length 2 idiv { newfont /Encoding get 3 1 roll put } repeat |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
430 |
newfontname newfont definefont pop end } def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
431 |
/isovec [ |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
432 |
8#055 /minus 8#200 /grave 8#201 /acute 8#202 /circumflex 8#203 /tilde |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
433 |
8#204 /macron 8#205 /breve 8#206 /dotaccent 8#207 /dieresis |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
434 |
8#210 /ring 8#211 /cedilla 8#212 /hungarumlaut 8#213 /ogonek 8#214 /caron |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
435 |
8#220 /dotlessi 8#230 /oe 8#231 /OE |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
436 |
8#240 /space 8#241 /exclamdown 8#242 /cent 8#243 /sterling |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
437 |
8#244 /currency 8#245 /yen 8#246 /brokenbar 8#247 /section 8#250 /dieresis |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
438 |
8#251 /copyright 8#252 /ordfeminine 8#253 /guillemotleft 8#254 /logicalnot |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
439 |
8#255 /hyphen 8#256 /registered 8#257 /macron 8#260 /degree 8#261 /plusminus |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
440 |
8#262 /twosuperior 8#263 /threesuperior 8#264 /acute 8#265 /mu 8#266 /paragraph |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
441 |
8#267 /periodcentered 8#270 /cedilla 8#271 /onesuperior 8#272 /ordmasculine |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
442 |
8#273 /guillemotright 8#274 /onequarter 8#275 /onehalf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
443 |
8#276 /threequarters 8#277 /questiondown 8#300 /Agrave 8#301 /Aacute |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
444 |
8#302 /Acircumflex 8#303 /Atilde 8#304 /Adieresis 8#305 /Aring |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
445 |
8#306 /AE 8#307 /Ccedilla 8#310 /Egrave 8#311 /Eacute |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
446 |
8#312 /Ecircumflex 8#313 /Edieresis 8#314 /Igrave 8#315 /Iacute |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
447 |
8#316 /Icircumflex 8#317 /Idieresis 8#320 /Eth 8#321 /Ntilde 8#322 /Ograve |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
448 |
8#323 /Oacute 8#324 /Ocircumflex 8#325 /Otilde 8#326 /Odieresis 8#327 /multiply |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
449 |
8#330 /Oslash 8#331 /Ugrave 8#332 /Uacute 8#333 /Ucircumflex |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
450 |
8#334 /Udieresis 8#335 /Yacute 8#336 /Thorn 8#337 /germandbls 8#340 /agrave |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
451 |
8#341 /aacute 8#342 /acircumflex 8#343 /atilde 8#344 /adieresis 8#345 /aring |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
452 |
8#346 /ae 8#347 /ccedilla 8#350 /egrave 8#351 /eacute |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
453 |
8#352 /ecircumflex 8#353 /edieresis 8#354 /igrave 8#355 /iacute |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
454 |
8#356 /icircumflex 8#357 /idieresis 8#360 /eth 8#361 /ntilde 8#362 /ograve |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
455 |
8#363 /oacute 8#364 /ocircumflex 8#365 /otilde 8#366 /odieresis 8#367 /divide |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
456 |
8#370 /oslash 8#371 /ugrave 8#372 /uacute 8#373 /ucircumflex |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
457 |
8#374 /udieresis 8#375 /yacute 8#376 /thorn 8#377 /ydieresis] def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
458 |
/Helvetica /Helvetica-iso isovec ReEncode |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
459 |
/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
460 |
/$F2psEnd {$F2psEnteredState restore end} def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
461 |
|
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
462 |
$F2psBegin |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
463 |
10 setmiterlimit |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
464 |
0 slj 0 slc |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
465 |
0.06299 0.06299 sc |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
466 |
% |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
467 |
% Fig objects follow |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
468 |
% |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
469 |
% |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
470 |
% here starts figure with depth 50 |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
471 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
472 |
7.500 slw |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
473 |
gs clippath |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
474 |
3450 4020 m 3450 4080 l 3602 4080 l 3482 4050 l 3602 4020 l cp |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
475 |
eoclip |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
476 |
n 4230 3915 m 3825 3915 l 3960 4050 l |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
477 |
3465 4050 l gs col0 s gr gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
478 |
|
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
479 |
% arrowhead |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
480 |
n 3602 4020 m 3482 4050 l 3602 4080 l col0 s |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
481 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
482 |
gs clippath |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
483 |
330 5910 m 390 5910 l 390 5759 l 360 5879 l 330 5759 l cp |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
484 |
eoclip |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
485 |
n 360 2295 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
486 |
360 5895 l gs col0 s gr gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
487 |
|
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
488 |
% arrowhead |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
489 |
n 330 5759 m 360 5879 l 390 5759 l 330 5759 l cp gs 0.00 setgray ef gr col0 s |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
490 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
491 |
n 3465 2160 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
492 |
3465 6120 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
493 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
494 |
n 1215 2160 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
495 |
1215 6120 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
496 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
497 |
n 1215 3375 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
498 |
3465 3375 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
499 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
500 |
n 1215 4050 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
501 |
3465 4050 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
502 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
503 |
n 1215 4770 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
504 |
3465 4770 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
505 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
506 |
n 1215 3375 m 3465 3375 l 3465 4050 l 1215 4050 l |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
507 |
cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
508 |
15.00 15.00 sc P5 [16 0 0 -16 81.00 225.00] PATmp PATsp ef gr PATusp gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
509 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
510 |
n 1215 4410 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
511 |
3465 4410 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
512 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
513 |
n 1215 3015 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
514 |
3465 3015 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
515 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
516 |
n 855 2295 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
517 |
3465 2295 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
518 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
519 |
n 1215 2655 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
520 |
3465 2655 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
521 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
522 |
n 1215 4770 m 3465 4770 l 3465 5445 l 1215 5445 l |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
523 |
cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
524 |
15.00 15.00 sc P5 [16 0 0 -16 81.00 318.00] PATmp PATsp ef gr PATusp gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
525 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
526 |
n 855 5445 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
527 |
3465 5445 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
528 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
529 |
n 1215 5805 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
530 |
3465 5805 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
531 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
532 |
n 7560 2160 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
533 |
7560 6120 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
534 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
535 |
n 5310 2160 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
536 |
5310 6120 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
537 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
538 |
n 5310 3375 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
539 |
7560 3375 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
540 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
541 |
n 5310 4770 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
542 |
7560 4770 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
543 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
544 |
n 5310 3015 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
545 |
7560 3015 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
546 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
547 |
n 4950 2295 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
548 |
7560 2295 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
549 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
550 |
n 5310 2655 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
551 |
7560 2655 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
552 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
553 |
n 5310 5805 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
554 |
7560 5805 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
555 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
556 |
n 5310 3735 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
557 |
7560 3735 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
558 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
559 |
n 5310 4095 m 7560 4095 l 7560 5445 l 5310 5445 l |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
560 |
cp gs /PC [[1.00 1.00 1.00] [0.00 0.00 0.00]] def |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
561 |
15.00 15.00 sc P5 [16 0 0 -16 354.00 273.00] PATmp PATsp ef gr PATusp gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
562 |
% Polyline |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
563 |
n 4950 5445 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
564 |
7560 5445 l gs col0 s gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
565 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
566 |
3555 3870 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
567 |
gs 1 -1 sc (Interrupt) col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
568 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
569 |
315 4320 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
570 |
gs 1 -1 sc 90.0 rot (Time) col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
571 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
572 |
2340 2880 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
573 |
gs 1 -1 sc (Frame Assembly) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
574 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
575 |
2340 3240 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
576 |
gs 1 -1 sc (Frame Sending) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
577 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
578 |
2340 4275 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
579 |
gs 1 -1 sc (ISR) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
580 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
581 |
2340 4635 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
582 |
gs 1 -1 sc (Frame Dissection) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
583 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
584 |
2340 2520 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
585 |
gs 1 -1 sc (Data Processing) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
586 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
587 |
2340 5670 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
588 |
gs 1 -1 sc (Data Processing) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
589 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
590 |
2340 6030 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
591 |
gs 1 -1 sc (...) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
592 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
593 |
2340 2160 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
594 |
gs 1 -1 sc (...) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
595 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
596 |
1215 1845 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
597 |
gs 1 -1 sc (Interrupt Operation) col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
598 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
599 |
6435 5670 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
600 |
gs 1 -1 sc (ISR) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
601 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
602 |
6435 6030 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
603 |
gs 1 -1 sc (...) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
604 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
605 |
6435 2160 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
606 |
gs 1 -1 sc (...) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
607 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
608 |
6435 3240 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
609 |
gs 1 -1 sc (Data Processing) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
610 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
611 |
6435 2520 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
612 |
gs 1 -1 sc (ISR) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
613 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
614 |
6435 2880 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
615 |
gs 1 -1 sc (Frame Dissection) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
616 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
617 |
6435 3600 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
618 |
gs 1 -1 sc (Frame Assembly) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
619 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
620 |
6435 3960 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
621 |
gs 1 -1 sc (Frame Sending) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
622 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
623 |
5130 3870 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
624 |
gs 1 -1 sc 90.0 rot (Realtime Cycle) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
625 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
626 |
5310 1845 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
627 |
gs 1 -1 sc (Interrupt-less Operation) col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
628 |
/Helvetica-iso ff 180.00 scf sf |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
629 |
1035 3870 m |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
630 |
gs 1 -1 sc 90.0 rot (Realtime Cycle) dup sw pop 2 div neg 0 rm col0 sh gr |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
631 |
% here ends figure; |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
632 |
$F2psEnd |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
633 |
rs |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
634 |
end |
861f4715ed6f
MERGE trunk -r556:562 -> branches/stable-1.1 (new doc)
Florian Pose <fp@igh-essen.com>
parents:
diff
changeset
|
635 |
showpage |