summaryrefslogtreecommitdiff
path: root/Build/source/texk/dvipsk/contrib/crop.lpr
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/dvipsk/contrib/crop.lpr')
-rw-r--r--Build/source/texk/dvipsk/contrib/crop.lpr271
1 files changed, 0 insertions, 271 deletions
diff --git a/Build/source/texk/dvipsk/contrib/crop.lpr b/Build/source/texk/dvipsk/contrib/crop.lpr
deleted file mode 100644
index d79484266d9..00000000000
--- a/Build/source/texk/dvipsk/contrib/crop.lpr
+++ /dev/null
@@ -1,271 +0,0 @@
-%!
-% This file is for crop marks and registration marks if there is color.
-%
-% First, we translate and draw the marks. You can change the way the
-% marks are drawn, but the quarter inch border around the page is fixed.
-%
-% This file uses bop-hook; sorry.
-%
-TeXDict begin
-%
-% CM %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% %
-% x_center y_center CM - %
-% %
-% Make a crop mark at x_center y_center. This crop mark is just a cross. %
-% Checks to see if TeXcolorcmyk is defined---if there is no color, you can %
-% setgray instead of setcmykcolor. %
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-/cX 18 def % the crop offset
-/CM
-{
- gsave
- 3 1 roll
- translate
- rotate
- .3 setlinewidth
- /TeXcolorcmyk where {pop 1 1 1 1 setcmykcolor} {0 setgray} ifelse
- 0 cX neg moveto
- 0 cX 2 div neg lineto stroke
- cX neg 0 moveto
- cX 2 div neg 0 lineto stroke
- grestore
-} def
-%
-% RegMark %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% %
-% x_center y_center RegMark - %
-% %
-% Make a registration mark at x_center y_center. Consists of two concentric %
-% circles, the inner one filled, and a cross hair through them. Preferred %
-% by those who register films for proof. Checks to see if TeXcolorcmyk is %
-% defined---if there is no color, you don't need registration marks! %
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-/RegMark
-{
- /TeXcolorcmyk where
- {
- pop
- gsave
- translate
- .3 setlinewidth
- 1 1 1 1 setcmykcolor
- 0 0 3 0 360 arc fill
- 0 0 6 0 360 arc stroke
- 0 1 3 {
- pop
- 90 rotate
- 0 0 0 0 setcmykcolor
- 0 0 moveto 3 0 lineto stroke
- 1 1 1 1 setcmykcolor
- 3 0 moveto 8 0 lineto stroke
- } for
- grestore
- } {pop pop} ifelse
-} def
-%
-% DoLogo %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% %
-% x_left y_upper DoLogo - %
-% %
-% If /CompositorName is defined, then the logo will be placed in the crop %
-% area. /JobDescription and /Contractor can also be defined in the TeX file %
-% to define the job. If there is no definition, they simply will not show %
-% up. Examples: %
-% /CompositorName (Meridian Creative Group) def %
-% /JobDescription (College Algebra: Concepts and Models 2/e) def %
-% /Contractor (D.C. Heath and Company) def %
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-/DoLogo
-{
- moveto
- save
- %
- % Variables to control the look of the Logo:
- %
- /LogoVgap 1 def % Vertical gap between logo string and box
- /LogoHgap 3 def % Horizontal gap between logo string and box
- /LogoFont {6 /Helvetica} def % The font to use for this logo.
- %
- % Gather some useful information about the Logo Font.
- %
- /LogoAscent LogoFont findfont /FontBBox get 3 get abs 1000 div mul def
- /LogoDescent LogoFont findfont /FontBBox get 1 get abs 1000 div mul def
- /LogoHeight LogoAscent LogoDescent add def
- %
- % <string> AddToLogo <string width>
- %
- /LogoWidth 0 def
- /AddToLogo
- {
- dup show % leaving <string> on stack
- stringwidth pop % <swidth> on stack
- } def
- %
- % Start by setting line width, color, and establish logo font.
- %
- .24 setlinewidth
- /TeXcolorcmyk where {pop 1 1 1 1 setcmykcolor} {0 setgray} ifelse
- LogoFont findfont exch scalefont setfont
- %
- % Then move into position
- %
- LogoHgap LogoVgap LogoAscent add neg rmoveto
- %
- % If there is a logo, there will be a compositor, so start by setting
- % the compositor name and add to the LogoWidth.
- %
- CompositorName AddToLogo % Add compositor name to logo
- LogoWidth add /LogoWidth exch def % Add compositor name to logo width
- %
- % If there is a job description, set it next.
- %
- /JobDescription where
- {
- pop % Get rid of dictionary
- LogoFont pop 0 rmoveto % Move a bit to the right
- LogoWidth LogoFont pop add % Add that on to the logo width
- JobDescription AddToLogo % Add job description to logo
- add /LogoWidth exch def % Add job description to logo width
- } if
- %
- % Same thing with Contractor.
- %
- /Contractor where
- {
- pop % Get rid of dictionary
- LogoFont pop 0 rmoveto % Move a bit to the right
- LogoWidth LogoFont pop add % Add that on to the logo width
- Contractor AddToLogo % Add contractor to logo
- add /LogoWidth exch def % Add contractor to logo width
- } if
- %
- % Add the gaps onto the logo dimensions for box drawing.
- %
- /LogoHeight LogoHeight 2 LogoVgap mul add def
- /LogoWidth LogoWidth 2 LogoHgap mul add def
- %
- % Move into lower right corner of box and draw it clockwise.
- %
- LogoHgap LogoVgap LogoDescent add neg rmoveto
- LogoWidth neg 0 rlineto 0 LogoHeight rlineto
- LogoWidth 0 rlineto 0 LogoHeight neg rlineto stroke
- restore
- stroke
-} def
-%
-/DrawCenterTicks
-{
- gsave
- .3 setlinewidth
- /TeXcolorcmyk where {pop 1 1 1 1 setcmykcolor} {0 setgray} ifelse
- hsize cX 2 mul sub 2 div cX 2 div neg moveto
- 0 cX 2 div neg rlineto
- hsize cX 1.5 mul sub vsize cX 2 mul sub 2 div moveto
- cX 2 div 0 rlineto
- hsize cX 2 mul sub 2 div vsize cX 1.5 mul sub moveto
- 0 cX 2 div rlineto
- cX 2 div neg vsize cX 2 mul sub 2 div moveto
- cX 2 div neg 0 rlineto
- stroke
- grestore
-} def
-%
-% NamePlates %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% left bottom NamePlates - %
-% %
-% /FirstPlate, /SecondPlate, /ThirdPlate, and /FourthPlate have default %
-% names but may be overridden in the job.hdr. %
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-/NamePlates
-{
- gsave
- translate
- % Make sure each plate has a name.
- /FirstPlate where {pop} {/FirstPlate (Cyan) def} ifelse
- /SecondPlate where {pop} {/SecondPlate (Magenta) def} ifelse
- /ThirdPlate where {pop} {/ThirdPlate (Yellow) def} ifelse
- /FourthPlate where {pop} {/FourthPlate (Black) def} ifelse
- /Helvetica-Bold findfont 10 scalefont setfont
- % Cyan block
- 1 0 0 0 setcmykcolor
- 0 0 moveto
- 9 0 lineto
- 9 9 lineto
- 0 9 lineto
- closepath
- fill
- 0 0 0 0 setcmykcolor
- 0.75 1 moveto
- (C) show
- % Magenta block
- 0 1 0 0 setcmykcolor
- 9 0 moveto
- 18 0 lineto
- 18 9 lineto
- 9 9 lineto
- closepath
- fill
- 0 0 0 0 setcmykcolor
- 9.25 1 moveto
- (M) show
- % Yellow block
- 0 0 1 0 setcmykcolor
- 18 0 moveto
- 27 0 lineto
- 27 9 lineto
- 18 9 lineto
- closepath
- fill
- 0 0 0 0 setcmykcolor
- 19.25 1 moveto
- (Y) show
- % Black block
- 0 0 0 1 setcmykcolor
- 27 0 moveto
- 36 0 lineto
- 36 9 lineto
- 27 9 lineto
- closepath
- fill
- 0 0 0 0 setcmykcolor
- 27.5 1 moveto
- (K) show
- % Name Plates
- /Helvetica-Narrow findfont 9 scalefont setfont
- 1 1 1 1 setcmykcolor
- ( Plate:) show
- 1 0 0 0 setcmykcolor
- FirstPlate show
- 0 1 0 0 setcmykcolor
- SecondPlate show
- 0 0 1 0 setcmykcolor
- ThirdPlate show
- 0 0 0 1 setcmykcolor
- FourthPlate show
- grestore
-} def
-%
-end %TeXDict
-%
-/bop-hook {
- cX dup TR % move the origin a bit
- gsave
- % Draw center tic marks in the crop margin
- DrawCenterTicks
- % Do the logo
- /CompositorName where {pop cX 2 div dup neg DoLogo} if
- % Name the plates
- /TeXcolorcmyk where {pop hsize 2 div cX add -18 NamePlates} if
- % now draw four crop marks and four registration marks
- 0 0 0 CM cX -2 div dup RegMark
- vsize cX 2 mul sub dup
- hsize cX 2 mul sub dup
- isls { 4 2 roll } if
- 0 2 copy 90 CM cX 2 div sub exch cX 2 div add exch RegMark
- exch 2 copy 180 CM cX 2 div add exch cX 2 div add exch RegMark
- 0 exch 2 copy 270 CM cX 2 div add exch cX 2 div sub exch RegMark
- grestore
- 0 cX -2 mul TR % now move to where we start drawing
- isls { cX -2 mul 0 TR } if
-} def