home *** CD-ROM | disk | FTP | other *** search
/ Lighthouse Design Suite / LIGHTHOUSE.mdf / WriteUp_1.2 / Application / WriteUp.app / preprint.ps < prev    next >
Text File  |  1993-01-03  |  2KB  |  84 lines
  1. % BEGIN PasteUp prologue extensions for preprint
  2.  
  3. % general
  4.     /setoverprint where { pop }{ %ifelse
  5.     /setoverprint { pop } def
  6.     } ifelse
  7.     /setbleed {        % bool setbleed
  8.     { %if
  9.         /*rectclip /rectclip load def
  10.         /rectclip {
  11.         dup type /arraytype eq {
  12.             aload pop
  13.         } if
  14.         72 add exch 72 add exch 4 2 roll
  15.         36 sub exch 36 sub exch 4 2 roll *rectclip
  16.         } def
  17.     } if
  18.     } bind def
  19.     /setcmykcolor where { pop }{ %ifelse
  20.     /setcmykcolor { %def
  21.         1 sub 4 1 roll
  22.         3 { %repeat
  23.         3 index add neg dup 0 lt {pop 0} if 3 1 roll
  24.         } repeat setrgbcolor pop
  25.     } bind def
  26.     } ifelse
  27.     /set_real_black { systemdict begin 0 setgray end } bind def
  28.     /set_real_white { systemdict begin 1 setgray end } bind def
  29.     
  30. % crop marks and registration marks:
  31.     /T {
  32.     transform round exch round exch itransform
  33.     } bind def
  34.     /doublestroke {    % paint white background just in case
  35.     gsave 1 setgray 10 setlinewidth stroke grestore
  36.     stroke
  37.     } bind def
  38.     /drawPageBackground {
  39.     gsave 1 setgray rectfill grestore
  40.     } bind def
  41.     /cropDraw {
  42.         T rmoveto rlineto T rmoveto rlineto
  43.         0.05 setlinewidth set_real_black doublestroke
  44.     } bind def
  45.     /cropLowerLeft {    % X Y cropLowerLeft
  46.     gsave T moveto 0 -30 40 -10 -30 0 -10 0 cropDraw grestore
  47.     } bind def
  48.     /cropLowerRight {    % X Y cropLowerRight
  49.     gsave T moveto 0 -30 -40 -10 30 0 10 0 cropDraw grestore
  50.     } bind def
  51.     /cropUpperLeft {    % X Y cropUpperLeft
  52.     gsave T moveto 0 30 40 10 -30 0 -10 0 cropDraw grestore
  53.     } bind def
  54.     /cropUpperRight {    % X Y cropUpperRight
  55.     gsave T moveto 0 30 -40 10 30 0 10 0 cropDraw grestore
  56.     } bind def
  57.     % registration mark courtesy of Peter Truskier of Star Graphics
  58.     /regMark {        % X Y regMark
  59.     gsave
  60.         0.25 setlinewidth
  61.         set_real_black % 2 copy T moveto
  62.         newpath
  63.         2 copy T 4 0 360 arc fill
  64.         2 copy T 8 0 360 arc stroke
  65.         2 copy exch 16 sub exch T moveto 32 0 rlineto
  66.         2 copy 16 sub T moveto 0 32 rlineto stroke
  67.         set_real_white
  68.         2 copy T moveto
  69.         2 copy T 4.4 0 90 arc closepath stroke
  70.         2 copy T moveto
  71.         2 copy T 4.4 180 270 arc closepath stroke
  72.         pop pop
  73.     grestore
  74.     } bind def
  75.     /showDocumentName {    % (docName) (TITLE:) X Y showDocumentName
  76.     gsave
  77.         /Helvetica-Bold findfont 10 scalefont setfont
  78.         set_real_white 3 copy 5 sub exch 5 sub exch
  79.         3 -1 roll stringwidth pop 110.0 add 20 rectfill
  80.         set_real_black moveto show ( \() show show ( \)) show
  81.     grestore
  82.     } bind def
  83. % END PasteUp prologue extensions
  84.