home *** CD-ROM | disk | FTP | other *** search
/ CICA 1993 August / CICA.cdr / cis_libs / mswin32 / 13 / kmhdr.ps < prev    next >
Encoding:
Text File  |  1993-01-05  |  3.6 KB  |  116 lines
  1. % This is a Postscript Preamble to be loaded before trying to print 
  2. %  the documents in \KMDESIGN in the October 1992 WIN NT DDK.
  3. % It can also be used to print just the even or odd pages, for "manual"
  4. %  duplex printing.
  5. %
  6. % Using these defintions, the documents print with a tolerable format
  7. %  although there are clearly some minor problems.  I've figured these out
  8. %  the commands by "reverse engineering" the postscript code.  
  9. %  I can't find the correct preample on the DDK disk.
  10.  
  11. %  Robert R. Howell   December 5, 1992
  12.  
  13. %  To print all           pages initialize oddpage at -1
  14. %  To print only the odd  pages initialize oddpage at  0
  15. %  To print only the even pages initialize oddpage at  1
  16.  
  17. /oddpage -1 def      % This prints all pages
  18.  
  19. % End of page.  Decide whether to print it based on oddpage.
  20. % If oddpage is -1, always print it.
  21. % If oddpage is  1, print it then set oddpage to 0.
  22. % If oddpage is  0, clear it then set oddpage to 1.
  23. /PE { oddpage -1 eq 
  24.          {  
  25.             showpage 
  26.          }
  27.          {  oddpage 1 eq 
  28.             {  showpage  /oddpage 0 def }
  29.             {  erasepage /oddpage 1 def }
  30.             ifelse
  31.          }
  32.          ifelse
  33.     }
  34.     def
  35.  
  36.  
  37. %Define an array of standard font names   
  38. %The program seems to call them by number.
  39.  
  40. % The numbering does not seem to be the "standard" postscript one.
  41. % The following seems to give tolerable results.
  42. /FNAMES 
  43. [ 
  44. /Times-Roman 
  45. /Times-Italic
  46. /Times-Bold
  47. /Times-BoldItalic
  48. /Courier
  49. /Courier-Oblique
  50. /Courier-Bold
  51. /Courier-BoldOblique
  52. /Helvetica
  53. /Helvetica-Oblique
  54. /Helvetica-Bold
  55. /Helvetica-BoldOblique
  56. /Helvetica-Narrow
  57. /Helvetica-Narrow-Oblique
  58. /Helvetica-Narrow-Bold
  59. /Helvetica-Narrow-BoldOblique
  60. /AvantGarde-Book
  61. /AvantGarde-BookOblique
  62. /AvantGarde-Demi
  63. /AvantGarde-DemiOblique
  64. /Bookman-Light
  65. /Bookman-LightItalic
  66. /Bookman-Demi
  67. /Bookman-DemiItalic
  68. /Times-Roman 
  69. /Times-Italic
  70. /Times-Bold
  71. /Times-BoldItalic
  72. /Palatino-Roman
  73. /Palatino-Italic
  74. /Palatino-Bold
  75. /Palatino-BoldItalic
  76. /ZapfChancery-MediumItalic
  77. /Symbol
  78. /ZapfDingbats
  79. ] def
  80.  
  81. % Change fonts.  Font 60 is a Microsoft special font.  Clip to 34.
  82. % fnumber fsize SF   sets font type and size.  
  83. /SF { exch dup 34 gt {pop 34} if FNAMES exch get findfont exch 
  84.       scalefont setfont } def
  85.  
  86. % fontnumber fontsize F   sets fonts and stores values
  87. /F { /curfontsize exch def /curfont exch def
  88.      curfont       curfontsize SF } def
  89. /B { curfont 2 add curfontsize SF } def    % Bold
  90. /I { curfont 1 add curfontsize SF } def    % Italic
  91. /E { curfont       curfontsize SF } def    % End Bold or italic
  92.  
  93. /LU { } def     % Think this should start underlining.  Not implemented
  94. /LE { } def     % Think this should end   underlining.  Not implemented
  95. /LL { pop } def % Used in tables of contents.  Not sure what it does.
  96.  
  97. /PSp {     } def       % Not sure what these should do.
  98. /PSe {     } def
  99. /SFL { pop } def
  100.  
  101. % These position text on the page, then show it.
  102. /P { 15840 exch sub 20 div exch 20 div exch moveto } def  % move to twips
  103. /S { show } def
  104. /J { 20 div 0 rmoveto } def
  105.  
  106. % These position EPS graphics on the page.
  107. % The originals may also place a border around it.
  108. /JUNKDICT 1 dict def            % Create junk dictionary, needed for II2
  109. /IX { pop pop } def             % Could be for drawing border.
  110. /IS { pop pop pop pop } def     % Could be for drawing border.
  111. /II2 { gsave save currentpoint translate 0 -15840 20 div translate 
  112.        JUNKDICT begin } def     % Change origin for EPS graphics.
  113. /II1 { } def                    % Don't know what this should do.
  114. /IT  { restore grestore } def   % Restore origin after EPS graphics.
  115.  
  116.