home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 128.img / WS6#06.LZH / WSPROL.PS < prev    next >
Text File  |  1990-02-18  |  5KB  |  279 lines
  1. %!PS-Adobe-2.0
  2. %%Creator: WordStar Release 6.0
  3. %%Pages: (atend)
  4. %%EndComments
  5.  
  6. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  7. % 
  8. %
  9. % Here you can define a routine "cleanup" that will be called
  10. % at the end of printing the document.
  11.  
  12.  
  13. %
  14. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  15.  
  16. /Ulgap 2 def                % underline gap
  17.  
  18. /inch {72 mul} bind def
  19. /inches {72 mul} bind def
  20.  
  21. /endpage where not
  22.     { /endpage { restore } bind def } { pop } ifelse
  23.  
  24. /cleanup where not
  25.     { /cleanup { } def } { pop } ifelse
  26.  
  27. /resetvars
  28. {
  29.     /bw 4 inch def            % box width
  30.     /bh 4 inch def            % box height
  31.     /bt 1.5 def            % box edge thickness
  32.     /bg 3 def            % nested box gap
  33.     /Ulgap 2 def            % underline gap
  34.     /pgsize 11 inch def        % for page orientation
  35. } bind def
  36.  
  37. % awidthshow a segment
  38. %
  39. /S    % Cx 0 32 Ax 0 Str Xs Ys
  40. {
  41.     moveto
  42.     awidthshow
  43. } bind def
  44.  
  45. % awidthshow a segment with underline
  46. %
  47. /SU    % Thik -Drop Cx 0 32 Ax 0 Str Xs Ys -Trim
  48. {
  49.     10 1 roll
  50.     2 copy
  51.     13 2 roll
  52.     moveto
  53.     awidthshow
  54.     dup
  55.     4 1 roll
  56.     rmoveto
  57.     setlinewidth
  58.     add
  59.     gsave
  60.        lineto
  61.        stroke
  62.     grestore
  63. } bind def
  64.  
  65. % underline whitespace
  66. %
  67. /WU    % Xe Ye Xs Ys Thik
  68. {
  69.     setlinewidth
  70.     moveto
  71.     lineto
  72.     currentpoint
  73.     stroke
  74.     moveto
  75. } bind def
  76.  
  77. % double underline whitespace
  78. %
  79. /WDU    % Xe Ye Xs Ys Thik
  80. {
  81.     5 copy
  82.     WU            % draw the first line 
  83.     gsave
  84.        0 1 index
  85.        Ulgap add
  86.        neg translate    % translate: 0 -(Thik+Ulgap) 
  87.                    % Xe Ye Xs Ys Thik
  88.        WU            % draw the second line
  89.     grestore
  90. } bind def
  91.  
  92.  
  93. % awidthshow a segment with double underline
  94. %
  95. /SDU    % Thik -Drop Cx 0 32 Ax 0 Str Xs Ys -Trim
  96. {
  97.     10 1 roll
  98.     2 copy
  99.     13 2 roll
  100.     moveto
  101.     awidthshow
  102.     dup
  103.     3 1 roll
  104.     rmoveto           % move to ul position
  105.     currentpoint
  106.     4 -1 roll
  107.     dup
  108.     setlinewidth
  109.     dup
  110.     7 1 roll
  111.     sub
  112.     Ulgap sub
  113.     6 2 roll
  114.     add
  115.     gsave           % cp saved before ul
  116.        lineto       % draw upper ul
  117.        Ulgap add
  118.        neg
  119.        0 exch rmoveto
  120.        lineto       % draw lower ul
  121.        stroke       % show lines
  122.     grestore       % restore cp
  123. } bind def
  124.  
  125. % move with underline
  126. %
  127. /MU    % Xdest
  128. {
  129.     currentpoint
  130.     exch
  131.     pop
  132.     lineto
  133.     currentpoint
  134.     stroke
  135.     moveto
  136. } bind def
  137.  
  138. % move with double underline
  139. %
  140. /MDU    % Xdest Thik
  141. {
  142.     currentpoint
  143.     3 -1 roll
  144.     dup
  145.     5 1 roll
  146.     sub
  147.     Ulgap sub
  148.     4 2 roll
  149.     currentpoint
  150.     exch
  151.     pop
  152.     lineto
  153.     currentpoint
  154.     stroke
  155.     moveto
  156.     neg
  157.     Ulgap sub
  158.     0 exch
  159.     gsave
  160.        rmoveto
  161.        lineto
  162.        stroke
  163.     grestore
  164. } bind def
  165.  
  166. % strikeout a char
  167. %
  168. /Strike            % (-) Ax Ci Ci+1
  169. {
  170.     pop pop
  171.     dup
  172.     2 index exch
  173.     currentpoint
  174.     pop
  175.     add
  176.     exch
  177.     Xs Ys moveto
  178.     show
  179.     dup
  180.     Ys moveto
  181.     /Xs exch def
  182. } bind def
  183.  
  184. % kshow with strikeout
  185. %
  186. /SX            % (-) Ax Str Xs Ys
  187. {
  188.     moveto
  189.     currentpoint
  190.     /Ys exch def
  191.     /Xs exch def
  192.     {Strike} exch
  193.     kshow
  194.     currentpoint    % for SXU
  195.     pop        % for SXU
  196.     /Xe exch def    % for SXU
  197.     pop
  198.     Xs Ys moveto
  199.     show
  200. } bind def
  201.  
  202. % kshow with strikeout and underline
  203. %
  204. /SXU            % Thik -Drop (-) Ax Str Xs Ys
  205. {
  206.     2 copy
  207.     7 1 roll
  208.     9 1 roll
  209.     SX
  210.     add
  211.     Xe exch
  212.     dup
  213.     4 1 roll
  214.     5 2 roll
  215.     WU
  216. } bind def    
  217.  
  218. % Reencode font encoding vector for a standard font
  219. %
  220. % do so only for fonts which have StandardEncoding
  221. /RV    % FontName
  222. {
  223.     dup findfont begin
  224.     currentdict dup length dict begin
  225.         { %forall
  226.             1 index /FID ne {def} {pop pop} ifelse
  227.         } forall
  228.         /FontName exch def
  229.         Encoding StandardEncoding eq
  230.         {%if    % only reencode if the current encoding IS StandardEncoding
  231.             /Encoding IBMenc def
  232.         }if
  233.         currentdict dup end end
  234.     /FontName get exch definefont pop
  235. } bind def
  236.  
  237. /IBMenc StandardEncoding 256 array copy def
  238.  
  239. %%EndProlog
  240.  
  241. %%BeginSetup
  242.  
  243. % initialize the IBMenc reencoding vector
  244. %
  245. 0 [  7    /bullet
  246.     20    /paragraph /section
  247.    128    /Ccedilla /udieresis /eacute /acircumflex /adieresis /agrave
  248.     /aring /ccedilla /ecircumflex /edieresis /egrave /idieresis 
  249.     /icircumflex /igrave /Adieresis /Aring /Eacute /ae /AE 
  250.     /ocircumflex /odieresis /ograve /ucircumflex /ugrave /ydieresis
  251.     /Odieresis /Udieresis /oslash /sterling /Oslash 
  252.    159    /florin /aacute /iacute /oacute /uacute /ntilde /Ntilde /ordfeminine
  253.     /ordmasculine /questiondown /registered /logicalnot 
  254.    173    /exclamdown /guillemotleft /guillemotright 
  255.    181    /Aacute /Acircumflex /Agrave /copyright   
  256.    189    /cent /yen
  257.    198    /atilde /Atilde
  258.    207    /currency
  259.    210    /Ecircumflex /Edieresis /Egrave /dotlessi /Iacute /Icircumflex
  260.     /Idieresis
  261.    222    /Igrave
  262.    224    /Oacute /germandbls /Ocircumflex /Ograve /otilde /Otilde
  263.    233    /Uacute /Ucircumflex /Ugrave
  264.    238    /macron /acute
  265.    247    /cedilla /ring /dieresis /dotaccent ]
  266.      { %forall
  267.         dup type /nametype eq 
  268.         { %ifelse
  269.             IBMenc 2 index 2 index put
  270.             pop 1 add
  271.         }{ %else
  272.             exch pop
  273.         } ifelse
  274.       } forall
  275. pop
  276.  
  277. %%EndSetup
  278. 
  279.