home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / 3M / US English / 3M Rainbow Ctlr / 3M Rainbow Ctlr 3.0-PPC / 3M Rainbow PS Support / PS Startup < prev    next >
Encoding:
Text File  |  1994-02-07  |  8.6 KB  |  396 lines  |  [TEXT/3M16]
  1. %!
  2. % 3M Rainbow PS Startup
  3.  
  4. % (c) Copyright 1994 3M
  5. % (c) Copyright 1990-1994 Adobe Systems Incorporated.
  6. % All rights reserved.
  7.  
  8. % Patents Pending
  9.  
  10. % NOTICE:  All information contained herein is the property of
  11. % Adobe Systems Incorporated.  Many of the intellectual and
  12. % technical concepts contained herein are proprietary to Adobe,
  13. % are protected as trade secrets, and are made available only to
  14. % Adobe licensees for their internal use.  Any reproduction or
  15. % dissemination of this software is strictly forbidden unless
  16. % prior written permission is obtained from Adobe.
  17.  
  18. % PostScript and Display PostScript are trademarks of Adobe Systems
  19. % Incorporated which may be registered in certain jurisdictions.
  20.  
  21. %
  22. % Main startup job.
  23. %
  24.  
  25. currentpacking
  26. true setpacking
  27.  
  28. currentglobal
  29. true setglobal
  30.  
  31. %
  32. % The default color rendering dictionary is only suitable for a
  33. % monochrome device. Switch to a sample rendering suitable for a color
  34. % device if the process color model is DeviceRGB or DeviceCMYK
  35. %
  36.  
  37. % remember the current default monochrome colorrendering
  38.  
  39. /MonochromeColorRendering currentcolorrendering /ColorRendering defineresource pop
  40.  
  41. % select a default colorrendering based upon ProcessColorModel
  42.  
  43. currentpagedevice dup /ProcessColorModel known {
  44.   /ProcessColorModel get /DeviceGray ne
  45.   {
  46.     /DefaultColorRendering                              % key
  47.     /3MRainbowCRD /ColorRendering findresource            % instance
  48.     /ColorRendering                                      % category
  49.     defineresource pop
  50.   } if
  51. }{
  52.   pop % currentpagedevice dict
  53. } ifelse
  54.  
  55. setglobal
  56.  
  57. %
  58. % Delete the media size and tray definitions not supported by this product.
  59. % 
  60.  
  61. % Product initially includes:
  62. %    letter, lettersmall, legal, ledger, 11x17, a4, a3, a4small, b5, note
  63.  
  64.  
  65. [/legal /ledger /b5] {
  66.   userdict exch undef
  67. } forall
  68.  
  69. % Product initially includes:
  70. %    lettertray, legaltray, ledgertray, a3tray, a4tray, b5tray, 11x17tray
  71.  
  72. [/legaltray /ledgertray /b5tray] {
  73.   statusdict exch undef
  74. } forall
  75.  
  76. %
  77. % Define Default OutputDevice resource.
  78. %
  79.  
  80. currentglobal
  81. true setglobal
  82.  
  83. /Default <<
  84.   /PageSize                [[858.24 1236.48]]
  85.   /ManualSize            [[858.24 1236.48]]
  86.   /HWResolution            [[300.0 300.0]]
  87. >> /OutputDevice defineresource pop
  88.  
  89. /Printer <<
  90.   /PageSize                [[612 792] [842 1191] [595 842] [858.24 690.24] [858.24 1236.48]]
  91.   /ManualSize            [[612 792] [842 1191] [595 842] [858.24 690.24] [858.24 1236.48]]
  92.   /HWResolution            [[300.0 300.0]]
  93. >> /OutputDevice defineresource pop
  94.  
  95. setglobal
  96.  
  97. %
  98. % Files captured on a PC may contain one or more ^D characters to mark EOF.
  99. % These character are part of the communication protocol and not part of the
  100. % PostScript language.  The following code defines a procedure for ^D which
  101. % simply issues a warning and effectively discards the character.
  102. %
  103.  
  104. (\004) cvn
  105. {
  106. } bind def
  107.  
  108.  
  109. (\032) cvn
  110. {
  111. } bind def
  112.  
  113. %
  114. % To change the font which is substituted for missing fonts, uncomment the
  115. % line below and change "/Courier" to be "/YourSubstituteFontname".
  116. %
  117.  
  118. currentglobal
  119. true setglobal    % This is important for Kanji
  120. $error /SubstituteFont {
  121.     128 string dup 0 (MissingFont: ) putinterval dup 3 -1 roll
  122.     100 string cvs 13 exch putinterval
  123.     /CPSI /ProcSet findresource begin
  124.     () externalcommand pop pop
  125.     end 
  126.     /Courier
  127. } put
  128. setglobal
  129.  
  130. %
  131. % Initialize Kanji resources, if any are available.
  132. %
  133.  
  134. mark
  135.   {
  136.     /Kanji /ProcSet findresource
  137.     /initialize get exec
  138.   } stopped
  139. cleartomark    % Ignore errors.
  140.  
  141. setpacking
  142.  
  143. % 
  144. % To save memory, no fonts are initially in FontDirectory.
  145. % Applying findfont to the standard set loads enough to define the font
  146. % but does not load all of the individual character definitions.
  147. % This can be important because performace can suffer if a document uses
  148. % save/restore around each page and the first reference to font is within
  149. % the save/restore, which cause the font to be reloaded for each page.
  150. %
  151.  
  152. [
  153.   /Times-Roman        /Helvetica                /Courier                /Symbol
  154.   /Times-Italic        /Helvetica-Oblique        /Courier-Oblique
  155.   /Times-Bold        /Helvetica-Bold            /Courier-Bold
  156.   /Times-BoldItalic    /Helvetica-BoldOblique    /Courier-BoldOblique
  157. ] {
  158.       findfont    % Locate the font definition
  159.      pop            % Discard the dictionary
  160. } forall
  161.  
  162. %
  163. % Clean up userdict after loading fonts
  164. %
  165.  
  166. [/| /|- /-| /RD /ND /NP] {
  167.   dup userdict exch known {
  168.    userdict exch undef
  169.   }{
  170.     pop
  171.   } ifelse
  172. } forall
  173.  
  174.  
  175. %
  176. %    **** Begin section to add 3M Specific commands to PostScript ****
  177. %
  178.  
  179. userdict begin
  180.  
  181. %
  182. %    New commands to change to CMYK and Grayscale modes
  183. %
  184.  
  185.     /mmmSetupGrayscaleMode {
  186.         %  Change CPSI's Color Model
  187.         << /ProcessColorModel /DeviceGray >> setpagedevice
  188.         
  189.         %  Change the Color Rendering resource
  190.         /DefaultColorRendering                                  % key
  191.         /MonochromeColorRendering /ColorRendering findresource    % instance
  192.         /ColorRendering                                          % category
  193.         defineresource pop
  194.     } bind def
  195.     
  196.     /mmmSetupCMYKMode {
  197.         %  Change CPSI's Color Model
  198.         << /ProcessColorModel /DeviceCMYK >> setpagedevice
  199.         
  200.         %  Change the Color Rendering resource
  201.         /DefaultColorRendering                                  % key
  202.         /3MRainbowCRD /ColorRendering findresource                % instance
  203.         /ColorRendering                                          % category
  204.         defineresource pop
  205.     } bind def
  206.  
  207. %
  208. %    Page size operators for compatibility with Rainbow Level 1.
  209. %
  210.     
  211.     %  Define the WB command
  212.     /WB {
  213.         << 
  214.             /PageSize        [858.24 1236.48]
  215.             /ImagingBBox    null
  216.             /Policies        <<
  217.                                 /PolicyNotFound        1
  218.                                 /PageSize            7
  219.                                 /ProcessColorModel    0
  220.                                 /NumCopies            1
  221.                             >>
  222.         >> setpagedevice
  223.     } bind readonly def
  224.     
  225.     %  Change the /PageSize policy in the setpage and setpageparams definitions
  226.     
  227.     statusdict begin
  228.         /setpageparams load
  229.             mark exch
  230.             aload pop
  231.             3 -1 roll
  232.             mark exch
  233.             aload pop
  234.             4 -1 roll
  235.             pop 7        % New Policy
  236.             4 1 roll
  237.             ] cvx
  238.             3 1 roll
  239.             ] cvx /setpageparams exch def
  240.             
  241.         /setpage load
  242.             mark exch
  243.             aload pop
  244.             3 -1 roll
  245.             mark exch
  246.             aload pop
  247.             4 -1 roll
  248.             pop 7        % New Policy
  249.             4 1 roll
  250.             ] cvx
  251.             3 1 roll
  252.             ] cvx /setpage exch def
  253.     end
  254.     
  255.     %  Destroy Adobe's setdefaulttimeouts command and substitute
  256.     statusdict /setdefaulttimeouts undef
  257.     /setdefaulttimeouts { pop pop pop } bind readonly def
  258.  
  259.  
  260. %
  261. %    Concatinate strings.
  262. %    [obj1] [obj2] mark (str1) (str2) ... (strn)  stringcat  [obj1] [obj2] compstr
  263. %
  264.     
  265.     /stringcat {
  266.         counttomark /stringcount exch def
  267.         /totallength 0 def
  268.         stringcount copy
  269.         stringcount { length /totallength exch totallength add def } repeat
  270.         /compstr totallength string def
  271.         /strpos totallength def
  272.         stringcount {
  273.             dup length /strpos exch neg strpos add def
  274.             compstr strpos 3 -1 roll putinterval
  275.         } repeat
  276.         pop
  277.         compstr
  278.     } bind def
  279.  
  280. %
  281. %    Redefine the copypage and showpage functions to handle multiple copy
  282. %    capabilities.
  283. %
  284.     
  285.     /copystr 10 string def
  286.     /*showpage /showpage load def
  287.     /showpage {
  288.         /CPSI /ProcSet findresource begin
  289.         statusdict begin
  290.         /SaveCopies #copies def
  291.         #copies 0 gt {
  292.             mark (NumCopies: ) #copies copystr cvs stringcat () externalcommand pop pop
  293.             /#copies 1 def
  294.         } if
  295.         *showpage
  296.         /#copies SaveCopies def
  297.         end % statusdict
  298.         end % CPSI Procset
  299.     } bind def
  300.     
  301.     /*copypage /copypage load def
  302.     /copypage {
  303.         /CPSI /ProcSet findresource begin
  304.         statusdict begin
  305.         (NumCopies: 1) () externalcommand pop pop
  306.         *copypage
  307.         end % statusdict
  308.         end % CPSI Procset
  309.     } bind def
  310.  
  311. %
  312. %    Do not allow a flatness setting larger than 3 pixels
  313. %
  314.  
  315.     /*setflat /setflat load def
  316.     /setflat {
  317.         dup 3.0 gt {
  318.             (%%[ Warning: ") print =string cvs print
  319.             ( setflat" is inappropriate at 300 dpi; using "3.0 setflat" ]%%\r\n) print
  320.             flush
  321.             3.0
  322.         } if
  323.         *setflat
  324.     } bind def
  325.  
  326.  
  327. %
  328. %    Define Separation definition commands
  329. %
  330.     
  331.     /mmmBeginYellow {
  332.         /CPSI /ProcSet findresource begin
  333.         (BeginYellow) () externalcommand pop pop
  334.         end % CPSI ProcSet
  335.     } bind def
  336.     
  337.     /mmmBeginMagenta {
  338.         /CPSI /ProcSet findresource begin
  339.         (BeginMagenta) () externalcommand pop pop
  340.         end % CPSI ProcSet
  341.     } bind def
  342.     
  343.     /mmmBeginCyan {
  344.         /CPSI /ProcSet findresource begin
  345.         (BeginCyan) () externalcommand pop pop
  346.         end % CPSI ProcSet
  347.     } bind def
  348.     
  349.     /mmmBeginBlack {
  350.         /CPSI /ProcSet findresource begin
  351.         (BeginBlack) () externalcommand pop pop
  352.         end % CPSI ProcSet
  353.     } bind def
  354.     
  355.     /mmmBeginUnknown {
  356.         /CPSI /ProcSet findresource begin
  357.         (BeginUnknown) () externalcommand pop pop
  358.         end % CPSI ProcSet
  359.     } bind def
  360.     
  361.     
  362.     end  % userdict
  363.  
  364. %
  365. % Set System Defaults
  366. %
  367.  
  368. <<
  369.     /MaxScreenStorage            204800
  370. >> setsystemparams
  371.  
  372. <<
  373.     /Policies <<
  374.         /PolicyNotFound        1
  375.         /PageSize            7
  376.         /ProcessColorModel    0
  377.         /NumCopies            1
  378.     >>
  379. >> setpagedevice
  380.  
  381. currentsystemparams begin
  382. 2 dict dup dup
  383. /MaxSourceList RamSize 5 mul 10 idiv dup 260000 lt { pop 260000 } if put
  384. /MaxDisplayList RamSize 1 mul 10 idiv dup 260000 lt { pop 260000 } if put
  385. end
  386. setsystemparams
  387.  
  388. currentcolortransfer setcolortransfer
  389. {dup dup mul mul 0.5 mul} setblackgeneration
  390. {pop 0} setundercolorremoval
  391.  
  392.  
  393. %
  394. % End of 3M Rainbow startup file
  395. %
  396.