home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd2.bin / Corel / Programs / Data / startup.ps < prev    next >
Text File  |  1997-02-27  |  10KB  |  398 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. /TYPE4 false def
  23. /DLL 10 string (DLL) getenv {pop true def} {false def} ifelse
  24.  
  25. /#runpath 128 string (RUNPATH) getenv {def} {() def} ifelse
  26.  
  27. /PowerDoc false def
  28. /MESSAGES 10 string (MESSAGES) getenv {def} {(OFF) def} ifelse
  29. /SERVER 10 string (SERVER) getenv {def} { (NO) def } ifelse
  30.  
  31. PowerDoc {
  32.     /MESSAGES (OFF) def
  33. } if
  34.  
  35. $error /inerror false put
  36. MESSAGES (ON) eq {
  37. %(!cls)run
  38. ( ============================================================================) = flush
  39. ( |                 Begin PowerPage Level 2 /DOS execution                   |) = flush
  40. ( | Copyright (c) 1992, 1993 by Pipeline Associates, Inc., Morris Plains, NJ |) = flush
  41. ( |                          All rights reserved.                            |) = flush
  42. ( ============================================================================) = flush
  43. (\r\n\r\n) print flush
  44. } if
  45.  
  46. % /stderr (%stderr) (w) file def
  47.  
  48. /setpageparams {pop pop pop pop} def
  49. /#fontpath (fonts;/ps;/ps/kanji/fonts) def
  50.  
  51. /setrealdevice {pop pop} def
  52. /execjob {} def
  53. % The following for LW version 68 
  54.  
  55.  /flushfile {
  56.     userdict /md known {
  57.         /__str 32000 string def
  58.         /__file exch def
  59.         {
  60.             __file __str readline not  {
  61.                 exit 
  62.             } { 
  63.                 (cleartomark) eq { exit } if 
  64.             } ifelse
  65.         } loop
  66.     } {
  67.         systemdict /flushfile get exec
  68.     } ifelse
  69. } def
  70.  
  71. /=string 128 string def
  72. /a3 {} def
  73. /a4special {} def
  74.  
  75. /PRINTER 15 string (PRINTER) getenv {def} {() def} ifelse
  76. /CIE 15 string (CIE) getenv {def} {(ON) def} ifelse
  77. /RIBBONS 10 string (RIBBONS) getenv {def} {(1) def} ifelse
  78. /DEPTH 10 string (DEPTH) getenv {cvi def} {1 def} ifelse
  79. /SMOOTH 10 string (SMOOTH) getenv {def} {(ON) def} ifelse
  80. /PAPERSIZE 15 string (PAPERSIZE) getenv {def} {(letter) def} ifelse
  81. /GRAYSCALE 15 string (GRAYSCALE) getenv {def} {(ON) def} ifelse 
  82. /hres 10 string (RESOLUTION) getenv {cvi def} {1000 def} ifelse
  83. /vres 10 string (RESOLUTION) getenv {cvi def} {1000 def} ifelse
  84.  
  85. GRAYSCALE (ON) eq DEPTH 8 eq and {
  86.     /GRAYSCALE 1 def
  87. } {
  88.     /GRAYSCALE 0 def
  89. } ifelse
  90.  
  91. PRINTER () eq {
  92.     /A-size { statusdict begin [612 792] null [0 0] [0 0 0 0] genpaper end } def
  93.     /B-size { statusdict begin [792 1124] null [0 0] [0 0 0 0] genpaper end } def
  94. } if
  95.  
  96. MESSAGES (ON) eq DLL not and {
  97.     (Printer: ) print PRINTER print (\r\n) print
  98.     (Papersize: ) print PAPERSIZE print (\r\n) print
  99.  
  100.     (Ribbon colors: ) print RIBBONS (1) eq {
  101.         (Monochrome) 
  102.     }{
  103.         RIBBONS
  104.     } ifelse print (\r\n) print
  105.  
  106.     (Pixel depth: ) print DEPTH 10 string cvs print ( bits/pixel\r\n)print
  107.     (Resolution: ) print hres 10 string cvs print ( dpi\r\n)print
  108.     flush
  109. } if
  110.  
  111. /rerun {
  112.         $lastfilerun //run
  113. } def
  114.  
  115. /run {
  116.         /$lastfilerun exch def
  117.         $lastfilerun //run
  118. } def
  119.  
  120. /timerun {
  121.     <</OutputPage false>>setpagedevice
  122.     /time usertime def
  123.     systemdict /run get exec
  124.     usertime time sub timeprint
  125. } def
  126.  
  127. /timeprint {
  128.     1000 div (time (secs): ) print = flush
  129.     (\r\n)print flush
  130. } def
  131.  
  132. statusdict begin
  133. /product PRINTER () eq { (PowerPage) } { PRINTER } ifelse def
  134. /setbin {statusdict exch /$$bin exch put} def
  135. /currentbin {statusdict /$$bin get} def
  136. /$$bin 0 def
  137.  
  138. /cartstatus { pop 0 0 0 true } bind def
  139. end
  140.  
  141. true setglobal
  142. systemdict begin
  143. /_findfont /findfont load def
  144. /findfont {
  145.     systemdict /FontDirectory get exch 2 copy known 
  146.     { 
  147.         get
  148.     } {
  149.         exch pop 
  150.         /Font {findresource} stopped {
  151.             pop $error /command /findfont put stop
  152.         } if
  153.     } ifelse
  154. } bind def
  155. end
  156. false setglobal
  157.     
  158. (resource.ps)run
  159. % (setpage.ps) run
  160.  
  161. statusdict begin
  162. /genpaper {
  163.     << /Policies << /PageSize 7>> >> setpagedevice
  164.     statusdict begin 
  165.         /traydict 5 dict def
  166.         traydict begin
  167.             /PageMargins exch def
  168.             /Margins exch def
  169.             /ImagingBBox exch def
  170.             /PageSize exch def
  171.         end
  172.         traydict  setpagedevice 
  173.     end
  174. } def
  175. end
  176.  
  177.  
  178. true setglobal
  179.  
  180. % The "InvalidFont" font -- mimics Adobe's default font
  181.  
  182. 11 dict dup begin
  183. /FontInfo 9 dict dup begin
  184. /version (4/20/91 10:58 AM) readonly def
  185. /Notice(Copyright (C) 1993 by Pipeline Associates, Inc., All Rights Reserved)def
  186. /FullName (InvalidFont) readonly def
  187. /FamilyName (InvalidFont) readonly def
  188. /Weight (Medium) readonly def
  189. /ItalicAngle 0 def
  190. /isFixedPitch false def
  191. /UnderlinePosition 0 def
  192. /UnderlineThickness 0 def
  193. end readonly def
  194. /FontName /InvalidFont def
  195. /Encoding 256 array 0 1 255{1 index exch /.notdef put}for def
  196. /FontMatrix[1.0 0.0 0.0 1.0 0.0 0.0]def
  197. /CDevProc {11{pop}repeat 1 0 0 0 1 1 0 -1 .5 1}def
  198. /BuildChar {pop pop 1 0 0 0 1 1 0 -1 .5 1 setcachedevice2} def
  199. /FontType -1 def
  200. end
  201. /InvalidFont exch definefont pop
  202. false setglobal
  203.  
  204. % mark DEPTH RIBBONS cvi hres MEMdict /installdevice get exec
  205.  
  206. /InvalidFont findfont setfont
  207.  
  208. %
  209. % load Level 2 default CIE color rendering dictionary 
  210. %
  211. CIE (ON) eq {
  212.     %
  213.     %
  214.     % PhotoShop friendly default CRD
  215.     %
  216.     systemdict /setcolorrendering known {
  217.         6 dict begin
  218.             /ColorRenderingType 1 def
  219.             /MatrixLMN [2.951 -1.085 .0864
  220.                 -1.289 1.991 -.2711
  221.                 -.4738 .0372  1.0910] def
  222.             /EncodeLMN  [ {dup 0 lt {pop 0} {
  223.                 dup 1 gt {pop 1} {0.555555 exp} ifelse} 
  224.                 ifelse} dup dup] def
  225.             /WhitePoint  [.9505 1 1.0891] def
  226.             /TransformPQR [ {} {} {} ] def
  227.             /PipelineCIEDefault 1 def
  228.             currentdict
  229.         end setcolorrendering
  230.     }if
  231. }{
  232.     % Old-style 'do-nothing' default CRD
  233.     %
  234.     systemdict /setcolorrendering known {
  235.         3 dict begin
  236.             /ColorRenderingType    1 def
  237.             /WhitePoint    [0.9505 1.0 1.089] def
  238.             /TransformPQR [ {} {} {} ] def
  239.             currentdict
  240.         end setcolorrendering
  241.     }if
  242. } ifelse
  243.  
  244.  
  245. RIBBONS (4) eq {
  246.     {pop 0} setundercolorremoval
  247.     {pop 0} setblackgeneration
  248. } if
  249.  
  250. /letter {statusdict begin [612 792] null [0 0] [0 0 0 0] genpaper end} def
  251. /landscape {statusdict begin [792 612] null [0 0] [0 0 0 0] genpaper end} def
  252. /Letter {statusdict begin [612 792] null [0 0] [0 0 0 0] genpaper end} def
  253. /11x17 {statusdict begin [792 1224] null [0 0] [0 0 0 0] genpaper end} def
  254. /tabloid {statusdict begin [792 1224] null [0 0] [0 0 0 0] genpaper end} def
  255. /Tabloid {statusdict begin [792 1224] null [0 0] [0 0 0 0] genpaper end} def
  256. /Legal { statusdict begin [612 1008] null [0 0] [0 0 0 0] genpaper end } def
  257. /legal { statusdict begin [612 1008] null [0 0] [0 0 0 0] genpaper end } def
  258. /A4 { statusdict  begin [595 842]  null [0 0] [0 0 0 0] genpaper end } def
  259. /a4 { statusdict  begin [595 842]  null [0 0] [0 0 0 0] genpaper end } def
  260. /note {initgraphics} def
  261. /a3 {initgraphics} def
  262. /custom { 
  263.     <</HWResolution [200 200] /PageSize [1440 2160] /ImagingBBox null
  264.        /PageMargins [0 0 0 0]>> setpagedevice 
  265. } def    
  266.  
  267. %
  268. % Now install the appropriate paper size
  269. % 
  270. <<    
  271.     /PageSize [612 792]
  272.     /ImagingModel 4 
  273.     /ColorDepth DEPTH
  274.     /Colors RIBBONS cvi 
  275.     /HWResolution [hres vres]
  276.     /GrayScale GRAYSCALE 
  277.     /Yorient 1           % Page flipped vertically if -1, normal if 1
  278.      /OutputProc { }
  279. >> setpagedevice
  280.  
  281. %DLL {
  282. %    10 string (HIRES) getenv {
  283. %         << /OutputProc { (c:/pwrpage/page) (bmp24) writepage } >> setpagedevice
  284. %    <</OutputPage false>>setpagedevice
  285. %    } {
  286. %         << /OutputProc { (c:/pwrpage/page) (bmp) writepage } >> setpagedevice
  287. %    } ifelse
  288. %} {
  289.     % << /OutputProc { (c:/pwrpage/page) (bmp) writepage } >> setpagedevice
  290.     % << /OutputProc { (c:/tmp/page.out) (bin) writepage } >> setpagedevice
  291. %     << /OutputProc { (page.bmp) (bmp) writepage } >> setpagedevice
  292. %} ifelse
  293.  
  294. PAPERSIZE cvx exec  
  295.  
  296. statusdict begin 
  297.     /lettertray {} def 
  298.     /11x17tray {} def 
  299.     /setpapertray {pop} def
  300. end
  301.  
  302. DLL {
  303.     mark 256 2000 setcacheparams
  304. } {
  305.     mark 2000 10000 setcacheparams
  306. } ifelse
  307.  
  308. /timeit {
  309.     /S__1 save def
  310.     dup print (: ) print 
  311.     timerun 
  312.     clear
  313.     S__1 restore
  314. } def
  315.  
  316.  
  317. false echo
  318.  
  319. systemdict begin 
  320.     true setglobal
  321.     /cexec { pop } def
  322.     /devformat { pop pop pop } bind def
  323.     /product (PowerPage) def
  324.     false setglobal
  325. end
  326.  
  327. true setglobal
  328. (ROMFONT1)run
  329. false setglobal
  330.  
  331. %
  332. % Initiialize Type4 font support if necessary 
  333. %
  334. TYPE4 { (type4.ps) run } if
  335.  
  336. {pop 0} setundercolorremoval
  337. {} setblackgeneration
  338.  
  339. /OLDSMOOTH (XXX) def
  340.  
  341. statusdict begin
  342.     mark currentscreen counttomark array astore exch pop /DEFAULTSCREEN exch def
  343. end
  344.  
  345. /setsmoothing {
  346.     10 string (SMOOTH) getenv {
  347.         dup  dup
  348.         OLDSMOOTH ne {
  349.             (ON) eq {
  350.                 (Smoothing turned on for next job\r\n) print flush
  351.     
  352.                 26.5 45
  353.                 {
  354.                     dup 0 lt { 1 add } if exch
  355.                     dup 0 lt { 1 add } if exch
  356.                     .49 sub 2 mul exch .48 sub 2 mul
  357.                     abs exch abs dup 2 index add 1.1 le
  358.                     {dup mul exch dup mul add 2 div 1 exch sub}
  359.                     {1 exch sub dup mul exch 1 exch sub dup mul add 2 div 1 sub}
  360.                     ifelse
  361.                 }
  362.             } {
  363.                     (Smoothing turned off for next job\r\n) print flush 
  364.  
  365.                 statusdict /DEFAULTSCREEN get aload pop 
  366.             } ifelse
  367.             
  368.             setscreen
  369.         } {
  370.             pop
  371.         }
  372.         ifelse
  373.  
  374.         /OLDSMOOTH exch def
  375.     } if
  376. } bind def
  377.     
  378. setsmoothing
  379. MEMdict pop    % Ensure that MEMdict gets initialized at lowest save level.
  380.  
  381. SERVER (YES) eq {
  382.     MESSAGES (ON) eq {
  383.         (Running PostScript job server\n)print flush
  384.     } if
  385.     (server2.ps)run
  386.     userdict /start {serve} put
  387. } {
  388.     save pop
  389. } ifelse
  390.  
  391. vmstatus sub neg exch pop .6 mul cvi setvmthreshold
  392.  
  393. MESSAGES (ON) eq {
  394.     (Waiting for PostScript job...\n)print flush
  395. } if
  396.  
  397.  
  398.