1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
|
%!PS-Adobe-3.0
%%Pages: 1
%%Title: Alignment testpage for Ghostscript
%%Creator: Dieter Stueken (<EMAIL: PROTECTED>)
%%BeginProlog
% Source: http://www.geocrawler.com/archives/3/378/1997/1/50/2064509/
/rectdraw % <x0> <y0> <x1> <y1> rectdraw -
{ exch 4 -1 roll exch 2 array astore {0 moveto 0 PH rlineto stroke} forall
2 array astore {0 exch moveto PW 0 rlineto stroke} forall
} bind def
/arrow % <ang> <x0> <y0> arrow
{ gsave translate rotate
0 0 moveto 20 60 lineto -20 60 lineto closepath stroke
0 0 moveto 0 80 lineto stroke
grestore
} bind def
/triangle { % len ang x y
gsave translate dup rotate exch
0 setlinewidth
0 0 moveto
dup 0 lineto
dup 0.98 mul dup 10 div lineto
closepath
gsave 0.65 setgray fill grestore stroke
100 10 moveto
100 100 2 index {
gsave 0 -12 rmoveto 0 24 rlineto stroke grestore
gsave 0 24 rmoveto 10 div 2 index neg rotate
cvi =string cvs -6 -4 rmoveto show grestore
100 10 rmoveto
} for
0 0 moveto
0 10 2 index {
pop
gsave 0 -6 rmoveto 0 12 rlineto stroke grestore
10 1 rmoveto
} for
pop pop
grestore
} bind def
/round {dup 3 1 roll mul cvi exch div} def
/Show { % print value or unfold array
dup type /realtype eq {100 round} if
dup type /nulltype eq
{ pop (-NULL-) show}
{dup type /arraytype eq
{ ([ ) show {Show} forall ( ]) show}
{=string cvs show ( ) show}
ifelse }
ifelse
} bind def
/Pval { % key val, move down 1 line
gsave exch
gsave Show (:) show grestore
150 0 rmoveto Show
grestore
0 -12 rmoveto
} bind def
/showtext {
/S 80 string def
{ currentfile S readline pop dup (%END) eq { pop exit } if
gsave show grestore 0 -12 rmoveto
} loop
} bind def
/.knownget { 2 copy known { get true } { pop pop false } ifelse } bind def
%%EndProlog
%%BeginSetup
% you may try different settings here, but start with default settings first
%<<
% /.HWMargins [8.5 38.0 10.5 12.5]
% /Margins [-35 -51]
%>> setpagedevice
%
%%EndSetup
%%Page: 1
% printout all values
/Helvetica findfont
12 scalefont setfont
120 756 moveto
showtext
Current settings:
%END
[/OutputDevice
/Margins
/.HWMargins
/.MarginsHWResolution
/HWResolution
/PageOffset
/PageSize
] { currentpagedevice 1 index
.knownget not {(-undefined-)} if Pval
} forall
showtext
Graphics alignment:
Let the distance in inches from the left edge of the page to the
vertical line be H, and from the bottom edge to the horizontal line
be V. You may define the alignment of your page to the paper by
<< /Margins [x y] >> setpagedevice
with
%END
gsave
/res currentpagedevice /.MarginsHWResolution .knownget not {600} if def
( x = (1 - H) * ) show res 0 get =string cvs show
(, y = (V - 1) * ) show res 1 get =string cvs show
grestore 0 -12 rmoveto
showtext
If set correctly the drawn arrows should extend into the
papers corners (not the clipping corners). After archieving
that, you may continue with the clipping edges.
The clipping edges may be set by
<< /.HWMargins [ml mb mr mt] >> setpagedevice
where [ml mb mr mt] are the distances of the clipped edges of
your graphics relative to the papers edges (left bottom right top)
measured in 1/72 inches. The wedge shaped rules may be used to
define these values very accurately as its intersections are in
1/72 inches. Take the value at the cutoff point from the scale to
the next clockwise edge.
Start setting the margin values to all zero to see the natural hardware
clipping of your printer. You should then define the margins just as big
enough to keep the defined margins within your printers real hardware
clipping. This is archieved if you can see the thin line drawn all around
your defined margin. In addition the thin drawn arrows are just touching
the margin and should be totally visible.
When you put this settings into your inititializing file "gs_init.ps"
you may want to apply this setting to a specific printer device only.
Here is an example of a printer specific setup:
<<
/ljet4 << % make entries for some device
/.HWMargins [16.0 13.2 13.0 11.1]
/Margins [-132 -92]
>>
/ljet2p << % and for an other devices, too
/.HWMargins [14.4 6.8 14.5 17.5]
/Margins [-60 -23]
>>
>> currentpagedevice /OutputDevice get
.knownget {setpagedevice} if
%END
% get page size
currentpagedevice /PageSize get aload pop
/PH exch def
/PW exch def
1 setlinewidth
PW 0 0 0 triangle
PH 90 PW 0 triangle
PW 180 PW PH triangle
PH 270 0 PH triangle
% get clipping values
clippath pathbbox newpath
% show clipping box
gsave
1 setlinewidth % 0.65 setgray
4 copy rectdraw
grestore
/CT exch def
/CR exch def
/CB exch def
/CL exch def
% draw the alignment lines
0 setlinewidth
72 0 moveto 0 CT rlineto stroke
0 72 moveto CR 0 rlineto stroke
2 setlinewidth
1 setlinejoin
1 setlinecap
0 200 moveto 71 0 rlineto -24 -12 rlineto 0 24 rlineto 24 -12 rlineto stroke
34 206 moveto (H) show
144 0 moveto 0 71 rlineto -12 -24 rlineto 24 0 rlineto -12 24 rlineto stroke
150 34 moveto (V) show
% draw arrows into to the papers corners
1 setlinewidth
45
90 sub dup 0 0 arrow
90 sub dup 0 PH arrow
90 sub dup PW PH arrow
90 sub dup PW 0 arrow
pop %45
% draw arrows touching the clipping edges
0 setlinewidth
0 PW 2 div CB arrow
180 PW 2 div CT arrow
-90 CL PH 2 div arrow
90 CR PH 2 div arrow
showpage
%%EOF
|