summaryrefslogtreecommitdiff
path: root/Build/source/texk/dvipsk/contrib/colorsep.lpro
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/dvipsk/contrib/colorsep.lpro')
-rw-r--r--Build/source/texk/dvipsk/contrib/colorsep.lpro184
1 files changed, 0 insertions, 184 deletions
diff --git a/Build/source/texk/dvipsk/contrib/colorsep.lpro b/Build/source/texk/dvipsk/contrib/colorsep.lpro
deleted file mode 100644
index 89e4bedf8b6..00000000000
--- a/Build/source/texk/dvipsk/contrib/colorsep.lpro
+++ /dev/null
@@ -1,184 +0,0 @@
-%!
-% Colour separation.
-% Ask dvips to do 4 pages. In bop-hook, cycle
-% round CMYK color spaces.
-%
-% Sebastian Rahtz 30.9.93
-% checked 7.1.94
-% from Green Book, and Kunkel Graphic Design with PostScript
-% (Green Book Listing 9-5, on page 153.)
-%
-/seppages 0 def
-userdict begin
-/Min {% 3 items on stack
-2 copy lt { pop }{ exch pop } ifelse
-2 copy lt { pop }{ exch pop } ifelse
-} def
-/SetGray {
- 1 exch sub systemdict begin adjustdot setgray end
-} def
-/sethsbcolor {systemdict begin
- sethsbcolor currentrgbcolor end
- userdict begin setrgbcolor end}def
-
-/ToCMYK
-% Red book p 305
- {
-% subtract each colour from 1
- 3 { 1 exch sub 3 1 roll } repeat
-% define percent of black undercolor
-% find minimum (k)
- 3 copy Min
-% remove undercolor
- blackUCR sub
- dup 0 lt {pop 0} if
- /percent_UCR exch def
-%
-% subtract that from each colour
-%
- 3 { percent_UCR sub 3 1 roll } repeat
-% work out black itself
- percent_UCR 1.25 mul % 1 exch sub
-% stack should now have C M Y K
-} def
-%
-% crop marks
-%
-/cX 18 def
-/CM{gsave TR 0 cX neg moveto 0 cX lineto stroke
-cX neg 0 moveto cX 0 lineto stroke grestore}def
-%
-/bop-hook{cX dup TR
-%
-% which page are we producing
-%
- seppages 1 add
- /seppages exch def
- seppages 5 eq { /seppages 1 def } if
- seppages 1 eq {
- /ColourName (CYAN) def
- CYAN setupcolor
- /WhichColour 3 def } if
- seppages 2 eq {
- /ColourName (MAGENTA) def
- MAGENTA setupcolor
- /WhichColour 2 def } if
- seppages 3 eq {
- /ColourName (YELLOW) def
- YELLOW setupcolor
- /WhichColour 1 def } if
- seppages 4 eq {
- /ColourName (BLACK) def
- BLACK setupcolor
- /WhichColour 0 def } if
-%
-% crop marks
-%
-gsave .3 setlinewidth
-3 -7 moveto
-/Helvetica findfont 6 scalefont setfont
-ColourName show
-0 0 CM
-vsize cX 2 mul sub dup hsize cX 2 mul sub dup isls{4 2 roll}if 0 CM
-exch CM 0
-exch CM
-grestore 0 cX -2 mul TR isls
-{cX -2 mul 0 TR}if
- } def end
-%
-/separations 48 dict def
-separations begin
- /cmykprocs [ %def
- % cyan
- { pop pop pop SetGray }
- % magenta
- { pop pop exch pop SetGray }
- % yellow
- { pop 3 1 roll pop pop SetGray }
- % black
- { 4 1 roll pop pop pop SetGray }
- ] def
- /rgbprocs [ %def
- % cyan
- { ToCMYK pop pop pop SetGray }
- % magenta
- { ToCMYK pop pop exch pop SetGray }
- % yellow
- { ToCMYK pop 3 1 roll pop pop SetGray }
- % black
- { ToCMYK 4 1 roll pop pop pop SetGray }
- ] def
- /testprocs [ %def
- % cyan
- { ToCMYK pop pop pop }
- % magenta
- { ToCMYK pop pop exch pop }
- % yellow
- { ToCMYK pop 3 1 roll pop pop }
- % black
- { ToCMYK 4 1 roll pop pop pop }
- ] def
- /screenangles [ %def
- 105 % cyan
- 75 % magenta
- 0 % yellow
- 45 % black
- ] def
-end % separations
-
-% setupcolortakes 0, 1, 2, or 3 as its argument,
-% for cyan, magenta, yellow, and black.
-/CYAN 0 def /MAGENTA 1 def
-/YELLOW 2 def /BLACK 3 def
-/setupcolor{ %def
- userdict begin
- dup separations /cmykprocs get exch get
- /setcmykcolor exch def
- dup separations /rgbprocs get exch get
- /setrgbcolor exch def
- dup separations /testprocs get exch get
- /testrgbcolor exch def
- separations /screenangles get exch get
- currentscreen
- exch pop 3 -1 roll exch
- setscreen
- /setscreen { pop pop pop } def
-%
-% redefine setgray so that it only shows on the black separation
-%
- /setgray {
- WhichColour 0 eq
- {systemdict begin adjustdot setgray end}
- {pop systemdict begin 1 setgray end}
- ifelse}def
- end
-} bind def
-
-%
-% from Kunkel
-%
-/adjustdot { dup 0 eq { } { dup 1 exch sub .1 mul add} ifelse } def
-%
-% redefine existing operators
-%
-% Percent of undercolor removal
-/magentaUCR .3 def
-/yellowUCR .07 def
-/blackUCR .4 def
-%
-% Correct yellow and magenta
-/correctMY {rgb2cym
- 1 index yellowUCR mul sub 3 1 roll
- 1 index magentaUCR mul sub 3 1 roll
- 3 1 roll rgb2cym}def
-%
-%(bluely green ) =
-%CYAN setupcolor
-%.1 .4 .5 testrgbcolor =
-%MAGENTA setupcolor
-%.1 .4 .5 testrgbcolor =
-%YELLOW setupcolor
-%.1 .4 .5 testrgbcolor =
-%BLACK setupcolor
-%.1 .4 .5 testrgbcolor =
-%quit