Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
%
2 
% Center pages, based on pageheight and pagewidth, and redefine showpage
3 
% to put cropmarks at each corner. Device dependent code to expand the
4 
% paper size goes in procedure expandpagesize. Currently only supports
5 
% a Linotronic 200P typesetter using 12 inch wide paper. You'll have to
6 
% add code to expandpagesize to support different typesetters or even a
7 
% 200P that's running differently.
8 
%
9 
 
10 
/CropmarkDict 40 dict dup begin
11 
 
12 
/expandpage true def
13 
/magnification 1 def
14 
/pageheight 11.0 def
15 
/pagewidth 8.5 def
16 
/scaletofit false def
17 
/scaling 1 def
18 
 
19 
/marklength .3 def	% inches
20 
/markstart .125 def	% inches
21 
/markend .04 def	% inches
22 
/marklinewidth .25 def	% points
23 
 
24 
/inch {72 mul} def
25 
/min {2 copy gt {exch} if pop} def
26 
/max {2 copy lt {exch} if pop} def
27 
 
28 
/setup {
29 
	/markspace markstart marklength add markend add inch marklinewidth add def
30 
	/totalheight pageheight inch markspace 2 mul add def
31 
	/totalwidth pagewidth inch markspace 2 mul add def
32 
 
33 
	pagedimensions
34 
	checkpagesize
35 
	/scaling getscaling def
36 
	xcenter ycenter translate
37 
	scaling scaling scale
38 
	pagewidth inch 2 div neg pageheight inch 2 div neg translate
39 
	clippage
40 
} def
41 
 
42 
/pagedimensions {
43 
	clippath pathbbox newpath
44 
	4 -1 roll exch 4 1 roll 4 copy
45 
	sub /width exch def
46 
	sub /height exch def
47 
	add 2 div /xcenter exch def
48 
	add 2 div /ycenter exch def
49 
} def
50 
 
51 
/checkpagesize {
52 
	height totalheight lt width totalwidth lt or expandpage and {
53 
		expandpagesize
54 
		pagedimensions
55 
	} if
56 
} def
57 
 
58 
/expandpagesize {	% device dependent code
59 
	/Product statusdict begin /product where {pop product}{()} ifelse end def
60 
 
61 
	Product (Linotype) eq {		% Linotronic 200P and other models?
62 
		statusdict /setpageparams known {
63 
			/maxwidth 12.0 inch def		% 12 inch wide paper?
64 
			totalheight maxwidth le {
65 
				totalheight
66 
				totalwidth
67 
				maxwidth totalheight sub 2 div
68 
 
69 
			}{
70 
				totalwidth maxwidth min
71 
				totalheight
72 
				maxwidth totalwidth maxwidth min sub 2 div
73 
				1
74 
			} ifelse
75 
			statusdict /setpageparams get exec
76 
		} if
77 
	} if
78 
} def
79 
 
80 
/getscaling {
81 
	scaletofit
82 
		{height totalheight div width totalwidth div min 1 min}
83 
		{1}
84 
	ifelse
85 
} def
86 
 
87 
/clippage {
88 
	newpath
89 
 
90 
	pagewidth inch 0 rlineto
91 
 
92 
	pagewidth neg inch 0 rlineto
93 
	closepath clip
94 
	newpath
95 
} def
96 
 
97 
/cropmark {
98 
	gsave
99 
	translate
100 
	rotate
101 
	marklinewidth dup translate
102 
 
103 
	markstart inch 0 moveto marklength inch 0 rlineto stroke
104 
 
105 
	grestore
106 
} bind def
107 
 
108 
/@PreviousShowpage /showpage load def
109 
 
110 
end def
111 
 
112 
%
113 
% Cropmarks - in the default coordinate system.
114 
%
115 
 
116 
/showpage {
117 
	gsave
118 
	CropmarkDict begin
119 
		initgraphics
120 
		marklinewidth setlinewidth
121 
		xcenter ycenter translate
122 
		scaling scaling scale
123 
 
124 
		90 pagewidth inch neg 2 div pageheight inch 2 div cropmark
125 
		180 pagewidth inch neg 2 div pageheight inch 2 div neg cropmark
126 
		270 pagewidth inch 2 div pageheight inch 2 div neg cropmark
127 
		@PreviousShowpage
128 
	end
129 
	grestore
130 
} bind def
131