home *** CD-ROM | disk | FTP | other *** search
/ Corel Professional Photos 200: Sampler / COREL_200.iso / DRWMODEL / PROGRAMS / DATA / STARTUP.PS < prev    next >
Text File  |  1994-05-04  |  7KB  |  261 lines
  1.  %
  2.  %                    Copyright (c) 1990-1994  by
  3.  %            Pipeline Associates, Inc., Morris Plains, NJ
  4.  %                        All rights reserved.
  5.  %
  6.  %   This software is furnished under a license and may be used and
  7.  %   copied  only  in accordance with the terms of such license and
  8.  %   with the  inclusion  of  the  above  copyright  notice.   This
  9.  %   software  or  any  other copies thereof may not be provided or
  10.  %   otherwise made available to any other person except as allowed
  11.  %   under  license.  No  title to and ownership of the software is
  12.  %   hereby transferred.
  13.  %
  14.  %   This software is proprietary to Pipeline Associates, Inc., and
  15.  %   is not to be disclosed without written permission from Pipeline
  16.  %   Associates, Inc.
  17.  %
  18.  %   This file may not be changed without express written permission
  19.  %   of Pipeline Associates, Inc.
  20.  %
  21.  
  22. /#runpath 128 string (RUNPATH) getenv {def} {()def} ifelse
  23. /MESSAGES 10 string (MESSAGES) getenv {def} { (OFF) def } ifelse
  24.  
  25. $error /inerror false put
  26. /setpageparams {pop pop pop pop} def
  27. /#fontpath (fonts) def
  28. /setrealdevice {pop pop} def
  29. /execjob {} def
  30.  
  31. % The following for LW version 68 
  32.  /flushfile {
  33.     userdict /md known {
  34.         /__str 32000 string def
  35.         /__file exch def
  36.         {
  37.             __file __str readline not  {
  38.                 exit 
  39.             } { 
  40.                 (cleartomark) eq { exit } if 
  41.             } ifelse
  42.         } loop
  43.     } {
  44.         systemdict /flushfile get exec
  45.     } ifelse
  46. } def
  47.  
  48. /=string 128 string def
  49. /a3 {} def
  50. /a4special {} def
  51.  
  52. /PRINTER 15 string (PRINTER) getenv {def} {() def} ifelse
  53. /CIE 15 string (CIE) getenv {def} {(ON) def} ifelse
  54. /RIBBONS 10 string (RIBBONS) getenv {def} {(1) def} ifelse
  55. /DEPTH 10 string (DEPTH) getenv {cvi def} {1 def} ifelse
  56. /PAPERSIZE 15 string (PAPERSIZE) getenv {def} {(MaxPage) def} ifelse
  57. /hres 10 string (RESOLUTION) getenv {cvi def} {1000 def} ifelse
  58. /vres 10 string (RESOLUTION) getenv {cvi def} {1000 def} ifelse
  59.  
  60. /rerun {
  61.         $lastfilerun //run
  62. } def
  63.  
  64. /run {
  65.         /$lastfilerun exch def
  66.         $lastfilerun //run
  67. } def
  68.  
  69. /timerun {
  70.     /time usertime def
  71.     run
  72.     usertime time sub timeprint
  73. } def
  74.  
  75. /timeprint {
  76.     1000 div (time (secs): ) print = flush
  77.     (\r\n)print flush
  78. } def
  79.  
  80. statusdict begin
  81. /product PRINTER () eq { (PowerPage Level 2) } { PRINTER } ifelse def
  82. /setbin {statusdict exch /$$bin exch put} def
  83. /currentbin {statusdict /$$bin get} def
  84. /$$bin 0 def
  85.  
  86. /cartstatus { pop 0 0 0 true } bind def
  87. end
  88.  
  89. true setglobal
  90. systemdict begin
  91. /_findfont /findfont load def
  92. /findfont {
  93.     systemdict /FontDirectory get exch 2 copy known 
  94.     { 
  95.         get
  96.     } {
  97.         exch pop 
  98.         /Font {findresource} stopped {
  99.             pop $error /command /findfont put stop
  100.         } if
  101.     } ifelse
  102. } bind def
  103. end
  104.  
  105. false setglobal
  106. (resource.ps)run
  107. true setglobal
  108.  
  109. % The "InvalidFont" font -- mimics Adobe's default font
  110.  
  111. 11 dict dup begin
  112. /FontInfo 9 dict dup begin
  113. /version (4/20/91 10:58 AM) readonly def
  114. /Notice(Copyright (C) 1993 by Pipeline Associates, Inc., All Rights Reserved)def
  115. /FullName (InvalidFont) readonly def
  116. /FamilyName (InvalidFont) readonly def
  117. /Weight (Medium) readonly def
  118. /ItalicAngle 0 def
  119. /isFixedPitch false def
  120. /UnderlinePosition 0 def
  121. /UnderlineThickness 0 def
  122. end readonly def
  123. /FontName /InvalidFont def
  124. /Encoding 256 array 0 1 255{1 index exch /.notdef put}for def
  125. /FontMatrix[1.0 0.0 0.0 1.0 0.0 0.0]def
  126. /CDevProc {11{pop}repeat 1 0 0 0 1 1 0 -1 .5 1}def
  127. /BuildChar {pop pop 1 0 0 0 1 1 0 -1 .5 1 setcachedevice2} def
  128. /FontType -1 def
  129. end
  130. /InvalidFont exch definefont pop
  131. false setglobal
  132. /InvalidFont findfont setfont
  133.  
  134. %
  135. % load Level 2 default CIE color rendering dictionary 
  136. %
  137. CIE (ON) eq {
  138.     %
  139.     %
  140.     % PhotoShop friendly default CRD
  141.     %
  142.     systemdict /setcolorrendering known {
  143.         5 dict begin
  144.             /ColorRenderingType 1 def
  145.             /MatrixLMN [2.951 -1.085 .0864
  146.                 -1.289 1.991 -.2711
  147.                 -.4738 .0372  1.0910] def
  148.             /EncodeLMN  [ {dup 0 lt {pop 0} {
  149.                 dup 1 gt {pop 1} {0.555555 exp} ifelse} 
  150.                 ifelse} dup dup] def
  151.             /WhitePoint  [.9505 1 1.0891] def
  152.             /TransformPQR [ {} {} {} ] def
  153.             currentdict
  154.         end setcolorrendering
  155.     }if
  156. }{
  157.     % Old-style 'do-nothing' default CRD
  158.     %
  159.     systemdict /setcolorrendering known {
  160.         3 dict begin
  161.             /ColorRenderingType    1 def
  162.             /WhitePoint    [0.9505 1.0 1.089] def
  163.             /TransformPQR [ {} {} {} ] def
  164.             currentdict
  165.         end setcolorrendering
  166.     }if
  167. } ifelse
  168.  
  169. RIBBONS (4) eq {
  170.     {pop 0} setundercolorremoval
  171.     {pop 0} setblackgeneration
  172. } if
  173.  
  174. % MaxPage is a 32" by 32" page; Theoretically, with it's center-origin
  175. %  page and 16-bit coordinates, Draw should be able to import a 65.535"
  176. %  by 65.535" maximum page. In actual practice, sice Draw! limits the
  177. %  maximum pagesize to 30" by 30", MaxPage should be more than enough.
  178. /MaxPage {statusdict begin [2304 2304] null [0 0] [0 0 0 0] genpaper end} def
  179.  
  180. /letter {statusdict begin [612 792] null [0 0] [0 0 0 0] genpaper end} def
  181.  
  182. /landscape {statusdict begin [792 612] null [0 0] [0 0 0 0] genpaper end} def
  183.  
  184. /Letter {statusdict begin [612 792] null [0 0] [0 0 0 0] genpaper end} def
  185.  
  186. /11x17 {statusdict begin [792 1224] null [0 0] [0 0 0 0] genpaper end} def
  187.  
  188. /tabloid {statusdict begin [792 1224] null [0 0] [0 0 0 0] genpaper end} def
  189.  
  190. /Tabloid {statusdict begin [792 1224] null [0 0] [0 0 0 0] genpaper end} def
  191.  
  192. /Legal {statusdict begin [612 1008] null [0 0] [0 0 0 0] genpaper end } def
  193.  
  194. /legal {statusdict begin [612 1008] null [0 0] [0 0 0 0] genpaper end } def
  195.  
  196. /A4 {statusdict  begin [595 842]  null [0 0] [0 0 0 0] genpaper end } def
  197.  
  198. /a4 {statusdict  begin [595 842]  null [0 0] [0 0 0 0] genpaper end } def
  199.  
  200. /note {initgraphics} def
  201.  
  202. /a3 {initgraphics} def
  203.  
  204. /custom { 
  205.     <</HWResolution [200 200] /PageSize [1440 2160] /ImagingBBox null
  206.        /PageMargins [0 0 0 0]>> setpagedevice 
  207. } def    
  208.  
  209. statusdict /setuppd get exec
  210.     <<    /Yorient 1
  211.             /ImagingModel 4
  212.             /ColorDepth DEPTH
  213.             /Colors RIBBONS cvi 
  214.            /HWResolution [hres vres]
  215.     >> setpagedevice
  216.     << /OutputProc { MEMdict /outputpage get exec } >> setpagedevice
  217.  
  218. PAPERSIZE cvx exec  
  219.  
  220. statusdict begin 
  221.     /lettertray {} def 
  222.     /11x17tray {} def 
  223.     /setpapertray {pop} def
  224. end
  225.  
  226. mark 2000 10000 setcacheparams
  227.  
  228. /timeit {
  229.     /S__1 save def
  230.     dup print (: ) print 
  231.     timerun 
  232.     clear
  233.     S__1 restore
  234. } def
  235.  
  236.  
  237. false echo
  238.  
  239. systemdict begin 
  240.     true setglobal
  241.     /cexec { pop } def
  242.     /devformat { pop pop pop } bind def
  243.     /product (PowerPage) def
  244.     false setglobal
  245. end
  246.  
  247. true setglobal
  248. (ROMFONT1)run
  249. {pop 0} setundercolorremoval
  250. {} setblackgeneration
  251. false setglobal
  252.  
  253. statusdict begin
  254.     mark currentscreen counttomark array astore exch pop /DEFAULTSCREEN exch def
  255. end
  256.  
  257. save pop % Protect lowest level state before running any PS jobs.
  258.  
  259.  
  260.  
  261.