Mercurial > emacs
annotate lispintro/lambda-1.eps @ 60573:76fcfe4d97de
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 11 Mar 2005 23:51:27 +0000 |
parents | 5791a1f3fd71 |
children | 6ad2412f0362 |
rev | line source |
---|---|
41417
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
1 %! |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
2 %%BoundingBox: 33 710 173 759 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
3 %%Title: lambda-diagram1 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
4 %%CreationDate: Wed Mar 8 14:31:53 1995 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
5 %%Creator: Tgif-2.16-p4 by William Chia-Wei Cheng (william@cs.UCLA.edu) |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
6 % |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
7 % Due to bugs in Transcript, the 'PS-Adobe-' stuff is omitted from line 1 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
8 % |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
9 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
10 /tgifdict 132 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
11 tgifdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
12 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
13 % |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
14 % Using a zero value radius for an ellipse or an arc would result |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
15 % in a non-invertible CTM matrix which causes problem when this |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
16 % when this PostScript is wrapped inside other routines, such as |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
17 % the multi.ps package from |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
18 % ftp.ucc.su.oz.au:/pub/ps_printing/multi. You can overcome such |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
19 % error by uncommenting the sole line of the procedure below: |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
20 % |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
21 /tgif_min_radius |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
22 { |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
23 % dup 0.01 lt { pop 0.01 } if |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
24 } bind def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
25 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
26 /tgifellipsedict 6 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
27 tgifellipsedict /mtrx matrix put |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
28 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
29 /tgifellipse |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
30 { tgifellipsedict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
31 /yrad exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
32 /xrad exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
33 /y exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
34 /x exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
35 /savematrix mtrx currentmatrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
36 x y translate |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
37 xrad yrad scale |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
38 0 0 1 0 360 arc |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
39 savematrix setmatrix |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
40 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
41 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
42 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
43 /tgifarrowtipdict 8 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
44 tgifarrowtipdict /mtrx matrix put |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
45 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
46 /tgifarrowtip |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
47 { tgifarrowtipdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
48 /dy exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
49 /dx exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
50 /h exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
51 /w exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
52 /y exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
53 /x exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
54 /savematrix mtrx currentmatrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
55 x y translate |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
56 dy dx atan rotate |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
57 0 0 moveto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
58 w neg h lineto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
59 w neg h neg lineto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
60 savematrix setmatrix |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
61 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
62 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
63 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
64 /tgifarcdict 8 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
65 tgifarcdict /mtrx matrix put |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
66 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
67 /tgifarcn |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
68 { tgifarcdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
69 /endangle exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
70 /startangle exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
71 /yrad exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
72 /xrad exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
73 /y exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
74 /x exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
75 /savematrix mtrx currentmatrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
76 x y translate |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
77 xrad yrad scale |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
78 0 0 1 startangle endangle arc |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
79 savematrix setmatrix |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
80 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
81 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
82 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
83 /tgifarc |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
84 { tgifarcdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
85 /endangle exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
86 /startangle exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
87 /yrad exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
88 /xrad exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
89 /y exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
90 /x exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
91 /savematrix mtrx currentmatrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
92 x y translate |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
93 xrad yrad scale |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
94 0 0 1 startangle endangle arcn |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
95 savematrix setmatrix |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
96 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
97 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
98 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
99 /tgifsetuserscreendict 22 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
100 tgifsetuserscreendict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
101 /tempctm matrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
102 /temprot matrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
103 /tempscale matrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
104 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
105 /concatprocs |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
106 { /proc2 exch cvlit def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
107 /proc1 exch cvlit def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
108 /newproc proc1 length proc2 length add array def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
109 newproc 0 proc1 putinterval |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
110 newproc proc1 length proc2 putinterval |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
111 newproc cvx |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
112 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
113 /resmatrix matrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
114 /findresolution |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
115 { 72 0 resmatrix defaultmatrix dtransform |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
116 /yres exch def /xres exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
117 xres dup mul yres dup mul add sqrt |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
118 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
119 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
120 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
121 /tgifsetuserscreen |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
122 { tgifsetuserscreendict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
123 /spotfunction exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
124 /screenangle exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
125 /cellsize exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
126 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
127 /m tempctm currentmatrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
128 /rm screenangle temprot rotate def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
129 /sm cellsize dup tempscale scale def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
130 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
131 sm rm m m concatmatrix m concatmatrix pop |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
132 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
133 1 0 m dtransform /y1 exch def /x1 exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
134 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
135 /veclength x1 dup mul y1 dup mul add sqrt def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
136 /frequency findresolution veclength div def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
137 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
138 /newscreenangle y1 x1 atan def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
139 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
140 m 2 get m 1 get mul m 0 get m 3 get mul sub 0 gt |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
141 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
142 {{neg} /spotfunction load concatprocs |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
143 /spotfunction exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
144 } if |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
145 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
146 frequency newscreenangle /spotfunction load setscreen |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
147 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
148 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
149 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
150 /tgifsetpatterndict 18 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
151 tgifsetpatterndict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
152 /bitison |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
153 { /ybit exch def /xbit exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
154 /bytevalue bstring ybit bwidth mul xbit 8 idiv add get def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
155 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
156 /mask 1 7 xbit 8 mod sub bitshift def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
157 bytevalue mask and 0 ne |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
158 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
159 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
160 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
161 /tgifbitpatternspotfunction |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
162 { tgifsetpatterndict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
163 /y exch def /x exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
164 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
165 /xindex x 1 add 2 div bpside mul cvi def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
166 /yindex y 1 add 2 div bpside mul cvi def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
167 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
168 xindex yindex bitison |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
169 { /onbits onbits 1 add def 1 } |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
170 { /offbits offbits 1 add def 0 } |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
171 ifelse |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
172 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
173 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
174 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
175 /tgifsetpattern |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
176 { tgifsetpatterndict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
177 /cellsz exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
178 /angle exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
179 /bwidth exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
180 /bpside exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
181 /bstring exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
182 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
183 /onbits 0 def /offbits 0 def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
184 cellsz angle /tgifbitpatternspotfunction load tgifsetuserscreen |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
185 {} settransfer |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
186 offbits offbits onbits add div setgray |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
187 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
188 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
189 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
190 /tgifxpmdict 4 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
191 /tgifbwpicstr 1 string def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
192 /tgifcolorpicstr 3 string def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
193 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
194 /tgifsetpixels { tgifxpmdict begin /pixels exch def end } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
195 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
196 /tgifsetpix { tgifxpmdict begin pixels 3 1 roll putinterval end } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
197 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
198 /tgifbwspot |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
199 { tgifxpmdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
200 /index exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
201 tgifbwpicstr 0 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
202 pixels index 3 mul 3 getinterval aload pop |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
203 255 mul .114 mul exch 255 mul .587 mul add exch 255 mul .299 mul add |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
204 cvi put |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
205 tgifbwpicstr |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
206 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
207 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
208 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
209 /tgifcolorspot |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
210 { tgifxpmdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
211 /index exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
212 pixels index 3 mul 3 getinterval aload pop |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
213 255 mul cvi tgifcolorpicstr 2 3 -1 roll put |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
214 255 mul cvi tgifcolorpicstr 1 3 -1 roll put |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
215 255 mul cvi tgifcolorpicstr 0 3 -1 roll put |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
216 tgifcolorpicstr |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
217 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
218 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
219 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
220 /tgifnewcolorspot |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
221 { tgifxpmdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
222 /index exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
223 pixels index 3 mul 3 getinterval aload pop setrgbcolor |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
224 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
225 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
226 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
227 /tgifcolordict 4 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
228 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
229 /colorimage where |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
230 { pop } |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
231 { /colorimage |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
232 { tgifcolordict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
233 pop pop pop pop pop |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
234 /ih exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
235 /iw exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
236 /x 0 def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
237 /y 0 def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
238 1 1 ih |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
239 { pop 1 1 iw |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
240 { pop currentfile |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
241 tgifbwpicstr readhexstring pop 0 get tgifnewcolorspot |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
242 x y moveto 1 0 rlineto 0 1 rlineto -1 0 rlineto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
243 closepath fill |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
244 /x x 1 add def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
245 } for |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
246 /y y 1 add def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
247 /x 0 def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
248 } for |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
249 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
250 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
251 } ifelse |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
252 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
253 /tgifpatdict 10 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
254 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
255 /tgifpatbyte |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
256 { currentdict /retstr get exch |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
257 pat i cellsz mod get put |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
258 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
259 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
260 /tgifpatproc |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
261 { 0 1 widthlim {tgifpatbyte} for retstr |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
262 /i i 1 add def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
263 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
264 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
265 /tgifpatfill |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
266 { tgifpatdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
267 /h exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
268 /w exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
269 /lty exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
270 /ltx exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
271 /cellsz exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
272 /pat exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
273 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
274 /widthlim w cellsz div cvi 1 sub def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
275 /retstr widthlim 1 add string def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
276 /i 0 def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
277 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
278 ltx lty translate |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
279 w h true [1 0 0 1 0 0] {tgifpatproc} imagemask |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
280 ltx neg lty neg translate |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
281 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
282 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
283 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
284 /pat1 <ffffffffffffffff> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
285 /pat2 <0000000000000000> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
286 /pat3 <8000000008000000> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
287 /pat4 <8800000022000000> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
288 /pat5 <8800220088002200> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
289 /pat6 <8822882288228822> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
290 /pat7 <aa55aa55aa55aa55> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
291 /pat8 <77dd77dd77dd77dd> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
292 /pat9 <77ffddff77ffddff> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
293 /pat10 <77ffffff77ffffff> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
294 /pat11 <7fffffff7fffffff> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
295 /pat12 <8040200002040800> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
296 /pat13 <40a00000040a0000> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
297 /pat14 <ff888888ff888888> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
298 /pat15 <ff808080ff080808> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
299 /pat16 <f87422478f172271> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
300 /pat17 <038448300c020101> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
301 /pat18 <081c22c180010204> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
302 /pat19 <8080413e080814e3> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
303 /pat20 <8040201008040201> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
304 /pat21 <8844221188442211> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
305 /pat22 <77bbddee77bbddee> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
306 /pat23 <c1e070381c0e0783> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
307 /pat24 <7fbfdfeff7fbfdfe> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
308 /pat25 <3e1f8fc7e3f1f87c> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
309 /pat26 <0102040810204080> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
310 /pat27 <1122448811224488> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
311 /pat28 <eeddbb77eeddbb77> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
312 /pat29 <83070e1c3870e0c1> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
313 /pat30 <fefdfbf7efdfbf7f> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
314 /pat31 <7cf8f1e3c78f1f3e> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
315 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
316 /tgifcentertext { dup stringwidth pop 2 div neg 0 rmoveto } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
317 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
318 /tgifrighttext { dup stringwidth pop neg 0 rmoveto } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
319 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
320 /tgifreencsmalldict 12 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
321 /tgifReEncodeSmall |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
322 { tgifreencsmalldict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
323 /newcodesandnames exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
324 /newfontname exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
325 /basefontname exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
326 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
327 /basefontdict basefontname findfont def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
328 /newfont basefontdict maxlength dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
329 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
330 basefontdict |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
331 { exch dup /FID ne |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
332 { dup /Encoding eq |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
333 { exch dup length array copy newfont 3 1 roll put } |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
334 { exch newfont 3 1 roll put } |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
335 ifelse |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
336 } |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
337 { pop pop } |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
338 ifelse |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
339 } |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
340 forall |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
341 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
342 newfont /FontName newfontname put |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
343 newcodesandnames aload pop |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
344 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
345 newcodesandnames length 2 idiv |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
346 { newfont /Encoding get 3 1 roll put} |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
347 repeat |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
348 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
349 newfontname newfont definefont pop |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
350 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
351 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
352 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
353 /tgifgray { 8 1 0 72 300 32 div div tgifsetpattern } bind def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
354 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
355 /tgifboxdict 6 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
356 /tgifboxstroke |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
357 { tgifboxdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
358 /pat def /w def /y2 exch def /x2 exch def /y1 exch def /x1 exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
359 1.415 setmiterlimit |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
360 w 1 eq { w setlinewidth } if |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
361 pat pat1 ne pat pat2 ne and { gsave pat tgifgray } if |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
362 newpath x1 y1 moveto x2 y1 lineto x2 y2 lineto x1 y2 lineto closepath |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
363 pat pat2 eq { 1 setgray stroke 0 setgray } { stroke } ifelse |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
364 pat pat1 ne pat pat2 ne and { grestore } if |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
365 w 1 eq { 1 setlinewidth } if |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
366 1 setmiterlimit |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
367 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
368 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
369 /tgifboxfill |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
370 { tgifboxdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
371 /pat def /y2 exch def /x2 exch def /y1 exch def /x1 exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
372 pat pat1 ne pat pat2 ne and { gsave pat tgifgray } if |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
373 newpath x1 y1 moveto x2 y1 lineto x2 y2 lineto x1 y2 lineto closepath |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
374 pat pat2 eq { 1 setgray fill 0 setgray } { fill } ifelse |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
375 pat pat1 ne pat pat2 ne and { grestore } if |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
376 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
377 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
378 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
379 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
380 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
381 %%PageBoundingBox: 33 710 173 759 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
382 tgifdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
383 /tgifsavedpage save def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
384 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
385 1 setmiterlimit |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
386 1 setlinewidth |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
387 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
388 0 setgray |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
389 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
390 72 0 mul 72 11.00 mul translate |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
391 72 128 div 100 mul 100 div dup neg scale |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
392 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
393 gsave |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
394 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
395 % TEXT |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
396 0 setgray |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
397 /Courier findfont [17 0 0 -17 0 0] makefont setfont |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
398 gsave |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
399 63 75 moveto (\(multiply-by-seven 3\)) show |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
400 grestore |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
401 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
402 % POLY/OPEN-SPLINE |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
403 gsave |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
404 newpath |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
405 80 80 moveto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
406 96 96 lineto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
407 224 96 lineto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
408 240 80 lineto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
409 stroke |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
410 grestore |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
411 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
412 % POLY/OPEN-SPLINE |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
413 gsave |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
414 newpath |
42507
5791a1f3fd71
Edit lambda-*.eps image files so arrows line up properly.
Robert J. Chassell <bob@rattlesnake.com>
parents:
41417
diff
changeset
|
415 264 119 moveto |
5791a1f3fd71
Edit lambda-*.eps image files so arrows line up properly.
Robert J. Chassell <bob@rattlesnake.com>
parents:
41417
diff
changeset
|
416 -22 0 atan dup cos 8 mul 264 exch sub |
41417
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
417 exch sin 8 mul 97 exch sub lineto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
418 stroke |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
419 grestore |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
420 gsave |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
421 newpath |
42507
5791a1f3fd71
Edit lambda-*.eps image files so arrows line up properly.
Robert J. Chassell <bob@rattlesnake.com>
parents:
41417
diff
changeset
|
422 264 97 8 3 0 -22 tgifarrowtip |
41417
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
423 closepath fill |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
424 grestore |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
425 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
426 % POLY/OPEN-SPLINE |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
427 gsave |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
428 newpath |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
429 160 103 moveto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
430 160 119 lineto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
431 stroke |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
432 grestore |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
433 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
434 % TEXT |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
435 0 setgray |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
436 /Courier findfont [17 0 0 -17 0 0] makefont setfont |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
437 gsave |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
438 112 139 moveto (function) show |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
439 grestore |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
440 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
441 % TEXT |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
442 0 setgray |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
443 /Courier findfont [17 0 0 -17 0 0] makefont setfont |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
444 gsave |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
445 224 139 moveto (argument) show |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
446 grestore |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
447 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
448 grestore |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
449 tgifsavedpage restore |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
450 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
451 %MatchingCreationDate: Wed Mar 8 14:31:53 1995 |