home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / PROPAGEV1.2.1.DMS / in.adf / data / alt_psprlg next >
Encoding:
Text File  |  1994-03-26  |  4.8 KB  |  238 lines
  1.  
  2. /uniqueid 0 def
  3. /amigavec [
  4. 8#055 /hyphen
  5. 8#230 /dotlessi
  6. 8#231 /grave
  7. 8#232 /acute
  8. 8#233 /circumflex
  9. 8#234 /tilde
  10. 8#235 /dieresis
  11. 8#236 /ring
  12. 8#237 /cedilla
  13. 8#240 /space
  14. 8#244 /currency
  15. 8#246 /bar
  16. 8#250 /dieresis
  17. 8#251 /copyright
  18. 8#252 /ordfeminine
  19. 8#254 /logicalnot
  20. 8#255 /.notdef
  21. 8#256 /registered
  22. 8#257 /macron
  23. 8#260 /ring
  24. 8#261 /.notdef
  25. 8#262 /.notdef
  26. 8#263 /dagger
  27. 8#264 /.notdef
  28. 8#265 /.notdef
  29. 8#267 /bullet
  30. 8#271 /.notdef
  31. 8#272 /ordmasculine
  32. 8#274 /.notdef
  33. 8#275 /.notdef
  34. 8#276 /.notdef
  35. 8#300 /Agrave
  36. 8#301 /Aacute
  37. 8#302 /Acircumflex
  38. 8#303 /Atilde
  39. 8#304 /Adieresis
  40. 8#305 /Aring
  41. 8#306 /AE
  42. 8#307 /Ccedilla
  43. 8#310 /Egrave
  44. 8#311 /Eacute
  45. 8#312 /Ecircumflex
  46. 8#313 /Edieresis
  47. 8#314 /Igrave
  48. 8#315 /Iacute
  49. 8#316 /Icircumflex
  50. 8#317 /Idieresis
  51. 8#320 /.notdef
  52. 8#321 /Ntilde
  53. 8#322 /Ograve
  54. 8#323 /Oacute
  55. 8#324 /Ocircumflex
  56. 8#325 /Otilde
  57. 8#326 /Odieresis
  58. 8#327 /.notdef
  59. 8#330 /Oslash
  60. 8#331 /Ugrave
  61. 8#332 /Uacute
  62. 8#333 /Ucircumflex
  63. 8#334 /Udieresis
  64. 8#335 /.notdef
  65. 8#336 /.notdef
  66. 8#337 /germandbls
  67. 8#340 /agrave
  68. 8#341 /aacute
  69. 8#342 /acircumflex
  70. 8#343 /atilde
  71. 8#344 /adieresis
  72. 8#345 /aring
  73. 8#346 /ae
  74. 8#347 /ccedilla
  75. 8#350 /egrave
  76. 8#351 /eacute
  77. 8#352 /ecircumflex
  78. 8#353 /edieresis
  79. 8#354 /igrave
  80. 8#355 /iacute
  81. 8#356 /icircumflex
  82. 8#357 /idieresis
  83. 8#360 /.notdef
  84. 8#361 /ntilde
  85. 8#362 /ograve
  86. 8#363 /oacute
  87. 8#364 /ocircumflex
  88. 8#365 /otilde
  89. 8#366 /odieresis
  90. 8#367 /.notdef
  91. 8#370 /oslash
  92. 8#371 /ugrave
  93. 8#372 /uacute
  94. 8#373 /ucircumflex
  95. 8#374 /udieresis
  96. 8#375 /.notdef
  97. 8#376 /.notdef
  98. 8#377 /ydieresis
  99. ] def
  100. /dontCopyID false def
  101. /copyfont {
  102.    { exch dup /FID ne
  103.       {
  104.      dup /UniqueID eq dontCopyID and
  105.      {pop pop}
  106.      {
  107.         dup /Encoding eq
  108.         { exch dup length array copy outfontdict 3 1 roll put}
  109.         { exch outfontdict 3 1 roll put}
  110.         ifelse
  111.      }
  112.      ifelse
  113.       }
  114.       { pop pop}
  115.       ifelse
  116.    } forall
  117. } bind def
  118. /recode {
  119.    copyfont dup dup
  120.    outfontdict /FontName 3 -1 roll put
  121.    amigavec aload pop
  122.    amigavec length 2 idiv
  123.    {outfontdict /Encoding get 3 1 roll put} repeat
  124. } bind def
  125. /defamigafont {
  126.    /fntsclmtx [0 0 0 0 0 0] def
  127.    exch
  128.    dup fntsclmtx exch 0 exch put
  129.    neg fntsclmtx exch 3 exch put
  130.    findfont fntsclmtx makefont setfont
  131. } bind def
  132. /deffont  {
  133.    3 -1 roll
  134.    {
  135.       dup dup length dup 5 add string /newnamestr exch def
  136.       exch newnamestr copy pop newnamestr exch (Amiga) putinterval
  137.       newnamestr cvn dup FontDirectory exch known
  138.       {exch pop}
  139.       {
  140.      exch cvn findfont
  141.      dup maxlength dict /outfontdict exch def
  142.      /dontCopyID false def recode
  143.      outfontdict definefont pop
  144.       }
  145.       ifelse
  146.    }
  147.    { cvn }
  148.    ifelse
  149.    defamigafont
  150. } bind def
  151.  
  152. /mvx {
  153.    currentpoint exch pop moveto
  154. } bind def
  155. /mvy {
  156.    currentpoint pop exch moveto
  157. } bind def
  158.  
  159. /MakeOutline {
  160.    3 -1 roll
  161.    {/xtra 8 def /suffix (OutAmiga) def}
  162.    {/xtra 3 def /suffix (Out) def}
  163.    ifelse
  164.    dup dup length dup xtra add string /newnamestr exch def
  165.    exch newnamestr copy pop newnamestr exch suffix putinterval
  166.    newnamestr cvn dup FontDirectory exch known
  167.    {exch pop}
  168.    {
  169.       exch cvn findfont
  170.       dup dup maxlength
  171.       exch /UniqueID known not {1 add} if
  172.       dict /outfontdict exch def
  173.       /dontCopyID true def
  174.       xtra 8 eq {recode}{copyfont dup} ifelse
  175. %      outfontdict /UniqueID uniqueid put
  176. %      /uniqueid uniqueid 1 add def
  177.       outfontdict /PaintType 2 put
  178.       outfontdict /StrokeWidth 1000 36 div put
  179.       outfontdict definefont pop
  180.    } ifelse
  181.    defamigafont
  182. } bind def
  183. /rect 4 array def  % used in dobox
  184. /dorect {
  185.    newpath
  186.    rect aload pop 4 copy moveto 3 1 roll exch lineto
  187.    4 2    roll lineto lineto
  188.    closepath
  189. } bind def
  190.  
  191. /dobox {          %clip trnsp x1 y1 x2 y2 dobox
  192.    rect astore pop
  193.    {} {dorect 1 setgray fill} ifelse
  194.    {dorect clip} if
  195. } bind def
  196.  
  197. /dogreyimage {     % width height xscl yscl x0 y0 dogreyimage
  198.    5 index 1 add 2 idiv string
  199.    /picstr exch def
  200.    translate scale
  201.    4 [1 0 0 1 0 0]
  202.    {currentfile  picstr readhexstring pop }
  203.    image
  204. } bind def
  205.  
  206. /do8greyimage {   % width height xscl yscl x0 y0 do8greyimage
  207.           % same as above, but 8 bits per sample
  208.    5 index string
  209.    /picstr exch def
  210.    translate scale
  211.    8 [1 0 0 1 0 0]
  212.    {currentfile  picstr readhexstring pop }
  213.    image
  214. } bind def
  215.  
  216. /docolorimage { % width height xscl yscl x0 y0 docolorimage
  217.    4 dict begin
  218.      5 index 1 add 2 idiv
  219.      dup /cstr exch string def
  220.      dup /ystr exch string def
  221.      dup /mstr exch string def
  222.      /kstr exch string def
  223.      translate scale
  224.      4 [1 0 0 1 0 0]
  225.      { currentfile cstr readhexstring pop }
  226.      { currentfile mstr readhexstring pop }
  227.      { currentfile ystr readhexstring pop }
  228.      { currentfile kstr readhexstring pop }
  229.      true 4 colorimage
  230.    end
  231. } bind def
  232.  
  233. /bwline {  % linewidth linejoin linecap grey dash 0 bwline
  234.    setdash setgray setlinecap setlinejoin setlinewidth
  235. } bind def
  236.  
  237. /colorline {  %linewidth linejoin linecap c m y k dash 0 colorline
  238.    setdash setcmykcolor setlinecap s