Mercurial > emacs
annotate lispintro/lambda-1.eps @ 79421:56d25c64546c
*** empty log message ***
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Thu, 15 Nov 2007 22:13:17 +0000 |
parents | ee787fc40e93 |
children | a8fd89a466fd |
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 |
75452
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
10 % Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007 |
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
11 % Free Software Foundation, Inc. |
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
12 % |
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
13 % This file is part of GNU Emacs. |
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
14 % |
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
15 % GNU Emacs is free software; you can redistribute it and/or modify |
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
16 % it under the terms of the GNU General Public License as published by |
78256
ee787fc40e93
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75452
diff
changeset
|
17 % the Free Software Foundation; either version 3, or (at your option) |
75452
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
18 % any later version. |
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
19 % |
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
20 % GNU Emacs is distributed in the hope that it will be useful, |
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
21 % but WITHOUT ANY WARRANTY; without even the implied warranty of |
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
22 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
23 % GNU General Public License for more details. |
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
24 % |
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
25 % You should have received a copy of the GNU General Public License |
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
26 % along with GNU Emacs; see the file COPYING. If not, write to |
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
27 % the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
28 % Boston, MA 02110-1301, USA. |
6ad2412f0362
Add FSF Copyright and GNU GPL notice. Copyright years copied from
Glenn Morris <rgm@gnu.org>
parents:
42507
diff
changeset
|
29 |
41417
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
30 /tgifdict 132 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
31 tgifdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
32 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
33 % |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
34 % 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
|
35 % 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
|
36 % 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
|
37 % the multi.ps package from |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
38 % 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
|
39 % 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
|
40 % |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
41 /tgif_min_radius |
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 % 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
|
44 } bind def |
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 /tgifellipsedict 6 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
47 tgifellipsedict /mtrx matrix put |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
48 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
49 /tgifellipse |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
50 { tgifellipsedict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
51 /yrad exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
52 /xrad exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
53 /y exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
54 /x exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
55 /savematrix mtrx currentmatrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
56 x y translate |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
57 xrad yrad scale |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
58 0 0 1 0 360 arc |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
59 savematrix setmatrix |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
60 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
61 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
62 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
63 /tgifarrowtipdict 8 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
64 tgifarrowtipdict /mtrx matrix put |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
65 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
66 /tgifarrowtip |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
67 { tgifarrowtipdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
68 /dy exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
69 /dx exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
70 /h exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
71 /w exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
72 /y exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
73 /x exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
74 /savematrix mtrx currentmatrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
75 x y translate |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
76 dy dx atan rotate |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
77 0 0 moveto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
78 w neg h lineto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
79 w neg h neg lineto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
80 savematrix setmatrix |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
81 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
82 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
83 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
84 /tgifarcdict 8 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
85 tgifarcdict /mtrx matrix put |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
86 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
87 /tgifarcn |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
88 { tgifarcdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
89 /endangle exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
90 /startangle exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
91 /yrad exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
92 /xrad exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
93 /y exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
94 /x exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
95 /savematrix mtrx currentmatrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
96 x y translate |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
97 xrad yrad scale |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
98 0 0 1 startangle endangle arc |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
99 savematrix setmatrix |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
100 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
101 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
102 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
103 /tgifarc |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
104 { tgifarcdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
105 /endangle exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
106 /startangle exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
107 /yrad exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
108 /xrad exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
109 /y exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
110 /x exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
111 /savematrix mtrx currentmatrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
112 x y translate |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
113 xrad yrad scale |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
114 0 0 1 startangle endangle arcn |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
115 savematrix setmatrix |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
116 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
117 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
118 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
119 /tgifsetuserscreendict 22 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
120 tgifsetuserscreendict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
121 /tempctm matrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
122 /temprot matrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
123 /tempscale matrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
124 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
125 /concatprocs |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
126 { /proc2 exch cvlit def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
127 /proc1 exch cvlit def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
128 /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
|
129 newproc 0 proc1 putinterval |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
130 newproc proc1 length proc2 putinterval |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
131 newproc cvx |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
132 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
133 /resmatrix matrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
134 /findresolution |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
135 { 72 0 resmatrix defaultmatrix dtransform |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
136 /yres exch def /xres exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
137 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
|
138 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
139 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
140 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
141 /tgifsetuserscreen |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
142 { tgifsetuserscreendict begin |
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 /screenangle exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
145 /cellsize exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
146 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
147 /m tempctm currentmatrix def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
148 /rm screenangle temprot rotate def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
149 /sm cellsize dup tempscale scale def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
150 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
151 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
|
152 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
153 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
|
154 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
155 /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
|
156 /frequency findresolution veclength div def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
157 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
158 /newscreenangle y1 x1 atan def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
159 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
160 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
|
161 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
162 {{neg} /spotfunction load concatprocs |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
163 /spotfunction exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
164 } if |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
165 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
166 frequency newscreenangle /spotfunction load setscreen |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
167 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
168 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
169 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
170 /tgifsetpatterndict 18 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
171 tgifsetpatterndict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
172 /bitison |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
173 { /ybit exch def /xbit exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
174 /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
|
175 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
176 /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
|
177 bytevalue mask and 0 ne |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
178 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
179 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
180 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
181 /tgifbitpatternspotfunction |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
182 { tgifsetpatterndict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
183 /y exch def /x exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
184 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
185 /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
|
186 /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
|
187 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
188 xindex yindex bitison |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
189 { /onbits onbits 1 add def 1 } |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
190 { /offbits offbits 1 add def 0 } |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
191 ifelse |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
192 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
193 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
194 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
195 /tgifsetpattern |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
196 { tgifsetpatterndict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
197 /cellsz exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
198 /angle exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
199 /bwidth exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
200 /bpside exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
201 /bstring exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
202 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
203 /onbits 0 def /offbits 0 def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
204 cellsz angle /tgifbitpatternspotfunction load tgifsetuserscreen |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
205 {} settransfer |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
206 offbits offbits onbits add div setgray |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
207 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
208 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
209 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
210 /tgifxpmdict 4 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
211 /tgifbwpicstr 1 string def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
212 /tgifcolorpicstr 3 string def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
213 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
214 /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
|
215 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
216 /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
|
217 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
218 /tgifbwspot |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
219 { tgifxpmdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
220 /index exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
221 tgifbwpicstr 0 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
222 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
|
223 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
|
224 cvi put |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
225 tgifbwpicstr |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
226 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
227 } 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 /tgifcolorspot |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
230 { tgifxpmdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
231 /index exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
232 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
|
233 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
|
234 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
|
235 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
|
236 tgifcolorpicstr |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
237 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
238 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
239 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
240 /tgifnewcolorspot |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
241 { tgifxpmdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
242 /index exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
243 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
|
244 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
245 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
246 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
247 /tgifcolordict 4 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
248 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
249 /colorimage where |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
250 { pop } |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
251 { /colorimage |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
252 { tgifcolordict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
253 pop pop pop pop pop |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
254 /ih exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
255 /iw exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
256 /x 0 def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
257 /y 0 def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
258 1 1 ih |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
259 { pop 1 1 iw |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
260 { pop currentfile |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
261 tgifbwpicstr readhexstring pop 0 get tgifnewcolorspot |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
262 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
|
263 closepath fill |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
264 /x x 1 add def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
265 } for |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
266 /y y 1 add def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
267 /x 0 def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
268 } for |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
269 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
270 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
271 } ifelse |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
272 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
273 /tgifpatdict 10 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
274 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
275 /tgifpatbyte |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
276 { currentdict /retstr get exch |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
277 pat i cellsz mod get put |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
278 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
279 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
280 /tgifpatproc |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
281 { 0 1 widthlim {tgifpatbyte} for retstr |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
282 /i i 1 add def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
283 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
284 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
285 /tgifpatfill |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
286 { tgifpatdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
287 /h exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
288 /w exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
289 /lty exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
290 /ltx exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
291 /cellsz exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
292 /pat exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
293 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
294 /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
|
295 /retstr widthlim 1 add string def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
296 /i 0 def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
297 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
298 ltx lty translate |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
299 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
|
300 ltx neg lty neg translate |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
301 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
302 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
303 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
304 /pat1 <ffffffffffffffff> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
305 /pat2 <0000000000000000> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
306 /pat3 <8000000008000000> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
307 /pat4 <8800000022000000> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
308 /pat5 <8800220088002200> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
309 /pat6 <8822882288228822> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
310 /pat7 <aa55aa55aa55aa55> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
311 /pat8 <77dd77dd77dd77dd> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
312 /pat9 <77ffddff77ffddff> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
313 /pat10 <77ffffff77ffffff> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
314 /pat11 <7fffffff7fffffff> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
315 /pat12 <8040200002040800> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
316 /pat13 <40a00000040a0000> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
317 /pat14 <ff888888ff888888> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
318 /pat15 <ff808080ff080808> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
319 /pat16 <f87422478f172271> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
320 /pat17 <038448300c020101> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
321 /pat18 <081c22c180010204> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
322 /pat19 <8080413e080814e3> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
323 /pat20 <8040201008040201> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
324 /pat21 <8844221188442211> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
325 /pat22 <77bbddee77bbddee> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
326 /pat23 <c1e070381c0e0783> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
327 /pat24 <7fbfdfeff7fbfdfe> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
328 /pat25 <3e1f8fc7e3f1f87c> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
329 /pat26 <0102040810204080> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
330 /pat27 <1122448811224488> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
331 /pat28 <eeddbb77eeddbb77> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
332 /pat29 <83070e1c3870e0c1> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
333 /pat30 <fefdfbf7efdfbf7f> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
334 /pat31 <7cf8f1e3c78f1f3e> def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
335 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
336 /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
|
337 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
338 /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
|
339 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
340 /tgifreencsmalldict 12 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
341 /tgifReEncodeSmall |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
342 { tgifreencsmalldict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
343 /newcodesandnames exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
344 /newfontname exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
345 /basefontname exch def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
346 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
347 /basefontdict basefontname findfont def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
348 /newfont basefontdict maxlength dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
349 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
350 basefontdict |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
351 { exch dup /FID ne |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
352 { dup /Encoding eq |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
353 { 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
|
354 { exch newfont 3 1 roll put } |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
355 ifelse |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
356 } |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
357 { pop pop } |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
358 ifelse |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
359 } |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
360 forall |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
361 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
362 newfont /FontName newfontname put |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
363 newcodesandnames aload pop |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
364 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
365 newcodesandnames length 2 idiv |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
366 { newfont /Encoding get 3 1 roll put} |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
367 repeat |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
368 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
369 newfontname newfont definefont pop |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
370 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
371 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
372 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
373 /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
|
374 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
375 /tgifboxdict 6 dict def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
376 /tgifboxstroke |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
377 { tgifboxdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
378 /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
|
379 1.415 setmiterlimit |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
380 w 1 eq { w setlinewidth } if |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
381 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
|
382 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
|
383 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
|
384 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
|
385 w 1 eq { 1 setlinewidth } if |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
386 1 setmiterlimit |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
387 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
388 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
389 /tgifboxfill |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
390 { tgifboxdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
391 /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
|
392 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
|
393 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
|
394 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
|
395 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
|
396 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
397 } def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
398 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
399 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
400 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
401 %%PageBoundingBox: 33 710 173 759 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
402 tgifdict begin |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
403 /tgifsavedpage save def |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
404 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
405 1 setmiterlimit |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
406 1 setlinewidth |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
407 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
408 0 setgray |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
409 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
410 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
|
411 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
|
412 |
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 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
415 % TEXT |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
416 0 setgray |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
417 /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
|
418 gsave |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
419 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
|
420 grestore |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
421 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
422 % POLY/OPEN-SPLINE |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
423 gsave |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
424 newpath |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
425 80 80 moveto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
426 96 96 lineto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
427 224 96 lineto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
428 240 80 lineto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
429 stroke |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
430 grestore |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
431 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
432 % POLY/OPEN-SPLINE |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
433 gsave |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
434 newpath |
42507
5791a1f3fd71
Edit lambda-*.eps image files so arrows line up properly.
Robert J. Chassell <bob@rattlesnake.com>
parents:
41417
diff
changeset
|
435 264 119 moveto |
5791a1f3fd71
Edit lambda-*.eps image files so arrows line up properly.
Robert J. Chassell <bob@rattlesnake.com>
parents:
41417
diff
changeset
|
436 -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
|
437 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
|
438 stroke |
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 gsave |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
441 newpath |
42507
5791a1f3fd71
Edit lambda-*.eps image files so arrows line up properly.
Robert J. Chassell <bob@rattlesnake.com>
parents:
41417
diff
changeset
|
442 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
|
443 closepath fill |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
444 grestore |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
445 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
446 % POLY/OPEN-SPLINE |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
447 gsave |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
448 newpath |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
449 160 103 moveto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
450 160 119 lineto |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
451 stroke |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
452 grestore |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
453 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
454 % TEXT |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
455 0 setgray |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
456 /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
|
457 gsave |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
458 112 139 moveto (function) show |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
459 grestore |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
460 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
461 % TEXT |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
462 0 setgray |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
463 /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
|
464 gsave |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
465 224 139 moveto (argument) show |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
466 grestore |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
467 |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
468 grestore |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
469 tgifsavedpage restore |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
470 end |
b64f74d6f056
Edit image file so arrow lines up properly.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
471 %MatchingCreationDate: Wed Mar 8 14:31:53 1995 |