![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hardcopy.ps CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10dc / cmd / postscript / hardcopy|
Return to hardcopy.ps CVS log | Up to [Research Unix] / researchv10dc / cmd / postscript / hardcopy |
1.1 root 1: %
2: % Redefiniton of the PostScript file output operators so results go to paper.
3: % Complicated and slow, but the implementation doesn't place many demands on
4: % included PostScript. About all that's required is gentle treatment of the
5: % graphics state between write calls.
6: %
7:
8: /#copies 1 store
9: /aspectratio 1 def
10: /font /Courier def
11: /formsperpage 1 def
12: /landscape false def
13: /magnification 1 def
14: /orientation 0 def
15: /pointsize 10 def
16: /rotation 1 def
17: /xoffset .1 def
18: /yoffset .1 def
19:
20: /roundpage true def
21: /useclippath true def
22: /pagebbox [0 0 612 792] def
23:
24: /inch {72 mul} def
25: /min {2 copy gt {exch} if pop} def
26:
27: /HardcopySetup {
28: landscape {/orientation 90 orientation add def} if
29: font findfont 1 1.1 div scalefont setfont
30:
31: pagedimensions
32: xcenter ycenter translate
33: orientation rotation mul rotate
34: width 2 div neg height 2 div translate
35: xoffset inch yoffset inch neg translate
36: pointsize 1.1 mul dup scale
37: magnification dup aspectratio mul scale
38: height width div 1 min dup scale
39: 0 -1 translate
40: 0 0 moveto
41: } def
42:
43: /pagedimensions {
44: useclippath {
45: /pagebbox [clippath pathbbox newpath] def
46: roundpage currentdict /roundpagebbox known and {roundpagebbox} if
47: } if
48: pagebbox aload pop
49: 4 -1 roll exch 4 1 roll 4 copy
50: landscape {4 2 roll} if
51: sub /width exch def
52: sub /height exch def
53: add 2 div /xcenter exch def
54: add 2 div /ycenter exch def
55: } def
56:
57: %
58: % Unbind the operators in an executable array or packedarray. Leaves the
59: % unbound array or the original object on the stack.
60: %
61:
62: /Unbind {
63: 0 index xcheck
64: 1 index type /arraytype eq
65: 2 index type /packedarraytype eq or and {
66: dup length array copy cvx
67: dup 0 exch {
68: dup type /operatortype eq {
69: ( ) cvs cvn cvx
70: } if
71:
72: dup type /dicttype eq {
73: dup maxlength dict exch {
74: Unbind
75: 3 copy put pop pop
76: } forall
77: } if
78:
79: 0 index xcheck
80: 1 index type /arraytype eq
81: 2 index type /packedarraytype eq or and {
82: Unbind
83: } if
84:
85: 3 copy put pop
86: 1 add
87: } forall
88: pop
89: } if
90: } def
91:
92: %
93: % New write operator - don't bind the definition! Expands tabs and backspaces,
94: % wraps long lines, and starts a new page whenever necessary. The code that
95: % handles newlines assumes lines are separated by one vertical unit.
96: %
97:
98: /write {
99: true exch
100:
101: %%case '\b':
102: dup 8#10 eq {
103: ( ) stringwidth pop neg 0 rmoveto
104: currentpoint pop 0 lt {
105: currentpoint exch pop 0 exch moveto
106: } if
107: exch pop false exch
108: } if
109:
110: %%case '\t':
111: dup 8#11 eq {
112: currentpoint pop ( ) stringwidth pop div round cvi
113: 8 mod 8 exch sub {
114: 2 index 8#40 write
115: } repeat
116: exch pop false exch
117: } if
118:
119: %%case '\n':
120: dup 8#12 eq {
121: currentpoint 0 exch 1 sub moveto pop
122:
123: gsave clippath pathbbox pop pop exch pop grestore
124: currentpoint exch pop 1 sub ge {
125: 2 index 8#14 write
126: } if
127: exch pop false exch
128: } if
129:
130: %%case '\f':
131: dup 8#14 eq {
132: gsave showpage grestore
133: 0 0 moveto
134: exch pop false exch
135: } if
136:
137: %%case '\r':
138: dup 8#15 eq {
139: currentpoint 0 exch moveto pop
140: exch pop false exch
141: } if
142:
143: %%case EOF:
144: dup -1 eq {
145: currentpoint 0 ne exch 0 ne or {
146: 2 index 8#14 write
147: } if
148: exch pop false exch
149: } if
150:
151: %%default:
152: exch {
153: dup
154: gsave clippath pathbbox pop 3 1 roll pop pop grestore
155: ( ) stringwidth pop currentpoint pop add le {
156: 2 index 8#12 write
157: } if
158: ( ) dup 0 4 -1 roll put show
159: } if
160:
161: pop % the character
162: pop % and file object
163: } def
164:
165: %
166: % All the other file output operators call our redefined write operator.
167: %
168:
169: /print {
170: (%stdout) (w) file exch {1 index exch write} forall
171: pop
172: } def
173:
174: /writestring {
175: {1 index exch write} forall
176: pop
177: } def
178:
179: /writehexstring {
180: (0123456789ABCDEF) 3 1 roll {
181: dup
182: 3 index exch -4 bitshift 16#F and get 2 index exch write
183: 2 index exch 16#F and get 1 index exch write
184: } forall
185: pop pop
186: } def
187:
188: %
189: % Unbind and redefine the remaining file output procedures.
190: %
191:
192: /= dup load Unbind def
193: /== dup load Unbind def
194: /stack dup load Unbind def
195: /pstack dup load Unbind def
196:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.