home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 09 / dtp / pstext.ini < prev   
Text File  |  1990-07-05  |  2KB  |  93 lines
  1. %!PS-Adobe-2.0
  2. %%Creator: PSTEXT-Treiber
  3. % (c) 1990, David Geffen & TOOLBOX
  4. %%Title:   PSTEXT Header File
  5. %%EndComments
  6. % Umlaut Functions
  7. /reencsmalldict 12 dict def
  8. /ReEncodeSmall
  9. {
  10.     reencsmalldict begin
  11.     /newcodesandnames exch def
  12.     /newfontname exch def
  13.     /basefontname exch def
  14.     /basefontdict basefontname findfont def
  15.     /newfont basefontdict maxlength dict def
  16.     basefontdict
  17.     {
  18.         exch dup /FID ne
  19.         {
  20.             dup /Encoding eq
  21.             {
  22.                 exch dup length array copy
  23.                 newfont 3 1 roll put
  24.             }
  25.             {
  26.                 exch newfont 3 1 roll put
  27.             }
  28.             ifelse
  29.         }
  30.         {
  31.             pop pop
  32.         }
  33.         ifelse
  34.     }
  35.     forall
  36.     newfont /FontName newfontname put
  37.     newcodesandnames aload pop
  38.     newcodesandnames length 2 idiv
  39.     {
  40.         newfont /Encoding get 3 1 roll put
  41.     }
  42.     repeat
  43.     newfontname newfont definefont pop
  44.     end
  45. } 
  46. def
  47. /umlauts [
  48. 8#204 /adieresis
  49. 8#224 /odieresis
  50. 8#201 /udieresis
  51. 8#216 /Adieresis
  52. 8#231 /Odieresis
  53. 8#232 /Udieresis
  54. 8#341 /germandbls
  55. ] def
  56. /.f. /.f.-Umlaut umlauts
  57. ReEncodeSmall
  58. % End of Preparation of Umlaut Functions
  59. % Global Variables
  60. /.f.-Umlaut findfont
  61. .p. scalefont setfont
  62. /X .x. def
  63. /Y .y. def
  64. /lineheight {.p. .d. add} def
  65. /colwidth {.w.} def 
  66. % shline shows a line and updates Y
  67. /shline
  68. {
  69.     show
  70.     Y lineheight sub
  71.     /Y exch def
  72.     X Y moveto
  73. } def
  74. % show page and update X and Y
  75. /nextpage 
  76. { 
  77.     showpage 
  78.     /X .x. def
  79.     /Y .y. def
  80.     .t.
  81.     X Y moveto 
  82. } def
  83. % nextcol prepares the next column
  84. /nextcol
  85. {
  86.     X colwidth add
  87.     /X exch def
  88.     /Y .y. def
  89.     X Y moveto
  90. } def
  91. .t.
  92. X Y moveto
  93.