annotate doc/lispintro/cons-5.eps @ 86670:5ca57b537bc2

Move to etc/nxml
author Glenn Morris <rgm@gnu.org>
date Wed, 28 Nov 2007 05:05:25 +0000
parents 609e25774393
children 107ccd98fa12
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
83953
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
1 %!
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
2 %%BoundingBox: 15 680 305 764
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
3 %%Title: cons-cell-diagram5
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
4 %%CreationDate: Wed Mar 8 14:27:28 1995
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
5 %%Creator: Tgif-2.16-p4 by William Chia-Wei Cheng (william@cs.UCLA.edu)
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
6 %
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
7 % Due to bugs in Transcript, the 'PS-Adobe-' stuff is omitted from line 1
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
8 %
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
9
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
10 % Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
11 % Free Software Foundation, Inc.
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
12 %
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
13 % This file is part of GNU Emacs.
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
14 %
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
15 % GNU Emacs is free software; you can redistribute it and/or modify
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
16 % it under the terms of the GNU General Public License as published by
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
17 % the Free Software Foundation; either version 3, or (at your option)
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
18 % any later version.
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
19 %
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
20 % GNU Emacs is distributed in the hope that it will be useful,
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
21 % but WITHOUT ANY WARRANTY; without even the implied warranty of
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
22 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
23 % GNU General Public License for more details.
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
24 %
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
25 % You should have received a copy of the GNU General Public License
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
26 % along with GNU Emacs; see the file COPYING. If not, write to
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
27 % the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
28 % Boston, MA 02110-1301, USA.
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
29
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
30 /tgifdict 132 dict def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
31 tgifdict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
32
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
33 %
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
34 % Using a zero value radius for an ellipse or an arc would result
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
35 % in a non-invertible CTM matrix which causes problem when this
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
36 % when this PostScript is wrapped inside other routines, such as
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
37 % the multi.ps package from
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
38 % ftp.ucc.su.oz.au:/pub/ps_printing/multi. You can overcome such
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
39 % error by uncommenting the sole line of the procedure below:
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
40 %
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
41 /tgif_min_radius
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
42 {
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
43 % dup 0.01 lt { pop 0.01 } if
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
44 } bind def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
45
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
46 /tgifellipsedict 6 dict def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
47 tgifellipsedict /mtrx matrix put
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
48
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
49 /tgifellipse
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
50 { tgifellipsedict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
51 /yrad exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
52 /xrad exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
53 /y exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
54 /x exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
55 /savematrix mtrx currentmatrix def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
56 x y translate
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
57 xrad yrad scale
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
58 0 0 1 0 360 arc
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
59 savematrix setmatrix
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
60 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
61 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
62
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
63 /tgifarrowtipdict 8 dict def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
64 tgifarrowtipdict /mtrx matrix put
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
65
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
66 /tgifarrowtip
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
67 { tgifarrowtipdict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
68 /dy exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
69 /dx exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
70 /h exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
71 /w exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
72 /y exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
73 /x exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
74 /savematrix mtrx currentmatrix def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
75 x y translate
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
76 dy dx atan rotate
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
77 0 0 moveto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
78 w neg h lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
79 w neg h neg lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
80 savematrix setmatrix
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
81 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
82 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
83
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
84 /tgifarcdict 8 dict def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
85 tgifarcdict /mtrx matrix put
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
86
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
87 /tgifarcn
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
88 { tgifarcdict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
89 /endangle exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
90 /startangle exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
91 /yrad exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
92 /xrad exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
93 /y exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
94 /x exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
95 /savematrix mtrx currentmatrix def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
96 x y translate
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
97 xrad yrad scale
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
98 0 0 1 startangle endangle arc
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
99 savematrix setmatrix
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
100 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
101 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
102
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
103 /tgifarc
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
104 { tgifarcdict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
105 /endangle exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
106 /startangle exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
107 /yrad exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
108 /xrad exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
109 /y exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
110 /x exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
111 /savematrix mtrx currentmatrix def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
112 x y translate
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
113 xrad yrad scale
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
114 0 0 1 startangle endangle arcn
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
115 savematrix setmatrix
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
116 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
117 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
118
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
119 /tgifsetuserscreendict 22 dict def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
120 tgifsetuserscreendict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
121 /tempctm matrix def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
122 /temprot matrix def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
123 /tempscale matrix def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
124
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
125 /concatprocs
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
126 { /proc2 exch cvlit def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
127 /proc1 exch cvlit def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
128 /newproc proc1 length proc2 length add array def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
129 newproc 0 proc1 putinterval
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
130 newproc proc1 length proc2 putinterval
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
131 newproc cvx
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
132 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
133 /resmatrix matrix def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
134 /findresolution
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
135 { 72 0 resmatrix defaultmatrix dtransform
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
136 /yres exch def /xres exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
137 xres dup mul yres dup mul add sqrt
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
138 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
139 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
140
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
141 /tgifsetuserscreen
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
142 { tgifsetuserscreendict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
143 /spotfunction exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
144 /screenangle exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
145 /cellsize exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
146
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
147 /m tempctm currentmatrix def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
148 /rm screenangle temprot rotate def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
149 /sm cellsize dup tempscale scale def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
150
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
151 sm rm m m concatmatrix m concatmatrix pop
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
152
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
153 1 0 m dtransform /y1 exch def /x1 exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
154
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
155 /veclength x1 dup mul y1 dup mul add sqrt def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
156 /frequency findresolution veclength div def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
157
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
158 /newscreenangle y1 x1 atan def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
159
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
160 m 2 get m 1 get mul m 0 get m 3 get mul sub 0 gt
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
161
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
162 {{neg} /spotfunction load concatprocs
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
163 /spotfunction exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
164 } if
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
165
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
166 frequency newscreenangle /spotfunction load setscreen
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
167 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
168 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
169
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
170 /tgifsetpatterndict 18 dict def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
171 tgifsetpatterndict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
172 /bitison
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
173 { /ybit exch def /xbit exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
174 /bytevalue bstring ybit bwidth mul xbit 8 idiv add get def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
175
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
176 /mask 1 7 xbit 8 mod sub bitshift def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
177 bytevalue mask and 0 ne
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
178 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
179 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
180
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
181 /tgifbitpatternspotfunction
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
182 { tgifsetpatterndict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
183 /y exch def /x exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
184
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
185 /xindex x 1 add 2 div bpside mul cvi def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
186 /yindex y 1 add 2 div bpside mul cvi def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
187
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
188 xindex yindex bitison
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
189 { /onbits onbits 1 add def 1 }
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
190 { /offbits offbits 1 add def 0 }
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
191 ifelse
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
192 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
193 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
194
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
195 /tgifsetpattern
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
196 { tgifsetpatterndict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
197 /cellsz exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
198 /angle exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
199 /bwidth exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
200 /bpside exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
201 /bstring exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
202
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
203 /onbits 0 def /offbits 0 def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
204 cellsz angle /tgifbitpatternspotfunction load tgifsetuserscreen
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
205 {} settransfer
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
206 offbits offbits onbits add div setgray
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
207 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
208 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
209
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
210 /tgifxpmdict 4 dict def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
211 /tgifbwpicstr 1 string def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
212 /tgifcolorpicstr 3 string def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
213
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
214 /tgifsetpixels { tgifxpmdict begin /pixels exch def end } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
215
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
216 /tgifsetpix { tgifxpmdict begin pixels 3 1 roll putinterval end } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
217
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
218 /tgifbwspot
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
219 { tgifxpmdict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
220 /index exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
221 tgifbwpicstr 0
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
222 pixels index 3 mul 3 getinterval aload pop
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
223 255 mul .114 mul exch 255 mul .587 mul add exch 255 mul .299 mul add
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
224 cvi put
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
225 tgifbwpicstr
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
226 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
227 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
228
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
229 /tgifcolorspot
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
230 { tgifxpmdict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
231 /index exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
232 pixels index 3 mul 3 getinterval aload pop
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
233 255 mul cvi tgifcolorpicstr 2 3 -1 roll put
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
234 255 mul cvi tgifcolorpicstr 1 3 -1 roll put
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
235 255 mul cvi tgifcolorpicstr 0 3 -1 roll put
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
236 tgifcolorpicstr
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
237 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
238 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
239
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
240 /tgifnewcolorspot
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
241 { tgifxpmdict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
242 /index exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
243 pixels index 3 mul 3 getinterval aload pop setrgbcolor
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
244 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
245 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
246
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
247 /tgifcolordict 4 dict def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
248
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
249 /colorimage where
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
250 { pop }
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
251 { /colorimage
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
252 { tgifcolordict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
253 pop pop pop pop pop
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
254 /ih exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
255 /iw exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
256 /x 0 def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
257 /y 0 def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
258 1 1 ih
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
259 { pop 1 1 iw
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
260 { pop currentfile
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
261 tgifbwpicstr readhexstring pop 0 get tgifnewcolorspot
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
262 x y moveto 1 0 rlineto 0 1 rlineto -1 0 rlineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
263 closepath fill
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
264 /x x 1 add def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
265 } for
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
266 /y y 1 add def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
267 /x 0 def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
268 } for
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
269 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
270 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
271 } ifelse
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
272
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
273 /tgifpatdict 10 dict def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
274
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
275 /tgifpatbyte
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
276 { currentdict /retstr get exch
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
277 pat i cellsz mod get put
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
278 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
279
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
280 /tgifpatproc
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
281 { 0 1 widthlim {tgifpatbyte} for retstr
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
282 /i i 1 add def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
283 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
284
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
285 /tgifpatfill
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
286 { tgifpatdict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
287 /h exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
288 /w exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
289 /lty exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
290 /ltx exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
291 /cellsz exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
292 /pat exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
293
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
294 /widthlim w cellsz div cvi 1 sub def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
295 /retstr widthlim 1 add string def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
296 /i 0 def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
297
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
298 ltx lty translate
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
299 w h true [1 0 0 1 0 0] {tgifpatproc} imagemask
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
300 ltx neg lty neg translate
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
301 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
302 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
303
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
304 /pat1 <ffffffffffffffff> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
305 /pat2 <0000000000000000> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
306 /pat3 <8000000008000000> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
307 /pat4 <8800000022000000> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
308 /pat5 <8800220088002200> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
309 /pat6 <8822882288228822> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
310 /pat7 <aa55aa55aa55aa55> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
311 /pat8 <77dd77dd77dd77dd> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
312 /pat9 <77ffddff77ffddff> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
313 /pat10 <77ffffff77ffffff> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
314 /pat11 <7fffffff7fffffff> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
315 /pat12 <8040200002040800> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
316 /pat13 <40a00000040a0000> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
317 /pat14 <ff888888ff888888> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
318 /pat15 <ff808080ff080808> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
319 /pat16 <f87422478f172271> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
320 /pat17 <038448300c020101> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
321 /pat18 <081c22c180010204> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
322 /pat19 <8080413e080814e3> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
323 /pat20 <8040201008040201> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
324 /pat21 <8844221188442211> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
325 /pat22 <77bbddee77bbddee> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
326 /pat23 <c1e070381c0e0783> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
327 /pat24 <7fbfdfeff7fbfdfe> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
328 /pat25 <3e1f8fc7e3f1f87c> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
329 /pat26 <0102040810204080> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
330 /pat27 <1122448811224488> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
331 /pat28 <eeddbb77eeddbb77> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
332 /pat29 <83070e1c3870e0c1> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
333 /pat30 <fefdfbf7efdfbf7f> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
334 /pat31 <7cf8f1e3c78f1f3e> def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
335
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
336 /tgifcentertext { dup stringwidth pop 2 div neg 0 rmoveto } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
337
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
338 /tgifrighttext { dup stringwidth pop neg 0 rmoveto } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
339
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
340 /tgifreencsmalldict 12 dict def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
341 /tgifReEncodeSmall
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
342 { tgifreencsmalldict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
343 /newcodesandnames exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
344 /newfontname exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
345 /basefontname exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
346
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
347 /basefontdict basefontname findfont def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
348 /newfont basefontdict maxlength dict def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
349
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
350 basefontdict
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
351 { exch dup /FID ne
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
352 { dup /Encoding eq
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
353 { exch dup length array copy newfont 3 1 roll put }
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
354 { exch newfont 3 1 roll put }
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
355 ifelse
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
356 }
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
357 { pop pop }
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
358 ifelse
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
359 }
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
360 forall
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
361
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
362 newfont /FontName newfontname put
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
363 newcodesandnames aload pop
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
364
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
365 newcodesandnames length 2 idiv
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
366 { newfont /Encoding get 3 1 roll put}
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
367 repeat
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
368
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
369 newfontname newfont definefont pop
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
370 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
371 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
372
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
373 /tgifgray { 8 1 0 72 300 32 div div tgifsetpattern } bind def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
374
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
375 /tgifboxdict 6 dict def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
376 /tgifboxstroke
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
377 { tgifboxdict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
378 /pat def /w def /y2 exch def /x2 exch def /y1 exch def /x1 exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
379 1.415 setmiterlimit
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
380 w 1 eq { w setlinewidth } if
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
381 pat pat1 ne pat pat2 ne and { gsave pat tgifgray } if
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
382 newpath x1 y1 moveto x2 y1 lineto x2 y2 lineto x1 y2 lineto closepath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
383 pat pat2 eq { 1 setgray stroke 0 setgray } { stroke } ifelse
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
384 pat pat1 ne pat pat2 ne and { grestore } if
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
385 w 1 eq { 1 setlinewidth } if
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
386 1 setmiterlimit
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
387 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
388 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
389 /tgifboxfill
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
390 { tgifboxdict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
391 /pat def /y2 exch def /x2 exch def /y1 exch def /x1 exch def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
392 pat pat1 ne pat pat2 ne and { gsave pat tgifgray } if
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
393 newpath x1 y1 moveto x2 y1 lineto x2 y2 lineto x1 y2 lineto closepath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
394 pat pat2 eq { 1 setgray fill 0 setgray } { fill } ifelse
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
395 pat pat1 ne pat pat2 ne and { grestore } if
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
396 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
397 } def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
398
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
399 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
400
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
401 %%PageBoundingBox: 15 680 305 764
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
402 tgifdict begin
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
403 /tgifsavedpage save def
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
404
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
405 1 setmiterlimit
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
406 1 setlinewidth
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
407
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
408 0 setgray
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
409
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
410 72 0 mul 72 11.00 mul translate
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
411 72 128 div 100 mul 100 div dup neg scale
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
412
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
413 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
414
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
415 % POLY/OPEN-SPLINE
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
416 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
417 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
418 156 105 moveto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
419 156 137 lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
420 stroke
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
421 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
422
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
423 % POLY/OPEN-SPLINE
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
424 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
425 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
426 171 125 moveto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
427 0 56 atan dup cos 8 mul 227 exch sub
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
428 exch sin 8 mul 125 exch sub lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
429 stroke
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
430 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
431 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
432 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
433 227 125 8 3 56 0 tgifarrowtip
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
434 closepath fill
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
435 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
436
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
437 % BOX
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
438 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
439 1.415 setmiterlimit
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
440 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
441 232 103 moveto 296 103 lineto 296 135 lineto 232 135 lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
442 closepath stroke
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
443 1 setmiterlimit
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
444 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
445
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
446 % POLY/OPEN-SPLINE
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
447 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
448 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
449 264 103 moveto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
450 264 135 lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
451 stroke
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
452 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
453
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
454 % POLY/OPEN-SPLINE
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
455 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
456 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
457 279 117 moveto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
458 0 59 atan dup cos 8 mul 338 exch sub
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
459 exch sin 8 mul 117 exch sub lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
460 stroke
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
461 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
462 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
463 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
464 338 117 8 3 59 0 tgifarrowtip
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
465 closepath fill
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
466 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
467
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
468 % TEXT
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
469 0 setgray
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
470 /Courier findfont [17 0 0 -17 0 0] makefont setfont
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
471 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
472 289 172 moveto (a different piece of text) show
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
473 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
474
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
475 % POLY/OPEN-SPLINE
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
476 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
477 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
478 248 119 moveto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
479 248 168 lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
480 0 29 atan dup cos 8 mul 277 exch sub
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
481 exch sin 8 mul 168 exch sub lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
482 stroke
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
483 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
484 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
485 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
486 277 168 8 3 29 0 tgifarrowtip
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
487 closepath fill
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
488 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
489
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
490 % TEXT
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
491 0 setgray
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
492 /Courier findfont [17 0 0 -17 0 0] makefont setfont
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
493 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
494 147 66 moveto (kill-ring-yank-pointer) show
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
495 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
496
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
497 % POLY/OPEN-SPLINE
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
498 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
499 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
500 207 76 moveto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
501 207 114 lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
502 0 18 atan dup cos 8 mul 225 exch sub
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
503 exch sin 8 mul 114 exch sub lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
504 stroke
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
505 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
506 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
507 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
508 225 114 8 3 18 0 tgifarrowtip
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
509 closepath fill
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
510 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
511
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
512 % BOX
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
513 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
514 1.415 setmiterlimit
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
515 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
516 341 98 moveto 405 98 lineto 405 130 lineto 341 130 lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
517 closepath stroke
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
518 1 setmiterlimit
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
519 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
520
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
521 % POLY/OPEN-SPLINE
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
522 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
523 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
524 372 98 moveto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
525 372 130 lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
526 stroke
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
527 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
528
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
529 % POLY/OPEN-SPLINE
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
530 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
531 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
532 388 115 moveto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
533 0 48 atan dup cos 8 mul 436 exch sub
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
534 exch sin 8 mul 115 exch sub lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
535 stroke
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
536 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
537 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
538 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
539 436 115 8 3 48 0 tgifarrowtip
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
540 closepath fill
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
541 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
542
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
543 % TEXT
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
544 0 setgray
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
545 /Courier findfont [17 0 0 -17 0 0] makefont setfont
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
546 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
547 448 121 moveto (nil) show
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
548 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
549
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
550 % TEXT
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
551 0 setgray
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
552 /Courier findfont [17 0 0 -17 0 0] makefont setfont
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
553 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
554 397 154 moveto (yet more text) show
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
555 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
556
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
557 % POLY/OPEN-SPLINE
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
558 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
559 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
560 356 112 moveto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
561 356 149 lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
562 0 35 atan dup cos 8 mul 391 exch sub
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
563 exch sin 8 mul 149 exch sub lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
564 stroke
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
565 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
566 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
567 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
568 391 149 8 3 35 0 tgifarrowtip
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
569 closepath fill
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
570 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
571
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
572 % BOX
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
573 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
574 1.415 setmiterlimit
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
575 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
576 126 105 moveto 190 105 lineto 190 137 lineto 126 137 lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
577 closepath stroke
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
578 1 setmiterlimit
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
579 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
580
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
581 % TEXT
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
582 0 setgray
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
583 /Courier findfont [17 0 0 -17 0 0] makefont setfont
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
584 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
585 206 192 moveto (some text) show
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
586 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
587
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
588 % POLY/OPEN-SPLINE
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
589 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
590 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
591 142 120 moveto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
592 142 187 lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
593 0 48 atan dup cos 8 mul 190 exch sub
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
594 exch sin 8 mul 187 exch sub lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
595 stroke
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
596 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
597 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
598 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
599 190 187 8 3 48 0 tgifarrowtip
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
600 closepath fill
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
601 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
602
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
603 % TEXT
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
604 0 setgray
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
605 /Courier findfont [17 0 0 -17 0 0] makefont setfont
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
606 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
607 32 66 moveto (kill-ring) show
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
608 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
609
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
610 % POLY/OPEN-SPLINE
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
611 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
612 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
613 65 81 moveto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
614 65 121 lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
615 0 51 atan dup cos 8 mul 116 exch sub
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
616 exch sin 8 mul 121 exch sub lineto
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
617 stroke
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
618 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
619 gsave
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
620 newpath
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
621 116 121 8 3 51 0 tgifarrowtip
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
622 closepath fill
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
623 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
624
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
625 grestore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
626 tgifsavedpage restore
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
627 end
609e25774393 Move here from ../../lispintro/
Glenn Morris <rgm@gnu.org>
parents:
diff changeset
628 %MatchingCreationDate: Wed Mar 8 14:27:28 1995