home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / S8-PCALC.LHA / ProCalc / Prolog.ps < prev    next >
Encoding:
Text File  |  1994-11-19  |  5.7 KB  |  230 lines
  1. #
  2.  
  3. /uniqueid 0 def
  4.  
  5. /amigavec [
  6. 8#055 /hyphen
  7. 8#200 /ellipsis
  8. 8#201 /endash
  9. 8#202 /fi
  10. 8#203 /fl
  11. 8#204 /daggerdbl
  12. 8#205 /perthousand
  13. 8#206 /florin
  14. 8#207 /fraction
  15. 8#210 /lslash
  16. 8#211 /Lslash
  17. 8#212 /quotesinglbase
  18. 8#213 /quotedblbase
  19. 8#214 /scaron
  20. 8#215 /zcaron
  21. 8#216 /Scaron
  22. 8#217 /Zcaron
  23. 8#220 /dotlessi
  24. 8#221 /grave
  25. 8#222 /acute
  26. 8#223 /circumflex
  27. 8#224 /tilde
  28. 8#225 /macron
  29. 8#226 /breve
  30. 8#227 /dotaccent
  31. 8#230 /.notdef  %%--------- RESERVED FOR EXPANSION --------
  32. 8#231 /.notdef
  33. 8#232 /ring
  34. 8#233 /cedilla
  35. 8#234 /periodcentered
  36. 8#235 /hungarumlaut
  37. 8#236 /ogonek
  38. 8#237 /caron
  39. 8#240 /.notdef          %% ALT i
  40. 8#241 /exclamdown       %% ALT 4
  41. 8#242 /cent             %% ALT L
  42. 8#243 /sterling         %% ALT l
  43. 8#244 /currency         %% ALT y
  44. 8#245 /yen              %% ALT Y
  45. 8#246 /bar              %% ALT I
  46. 8#247 /section          %% ALT S
  47. 8#250 /dieresis         %% ALT K + space
  48. 8#251 /copyright        %% ALT E, e
  49. 8#252 /ordfeminine      %% ALT V, v
  50. 8#253 /guillemotleft    %% ALT 9
  51. 8#254 /logicalnot       %% ALT Z
  52. 8#255 /endash           %% ALT n
  53. 8#256 /registered       %% ALT R, r
  54. 8#257 /macron           %% ALT N
  55. 8#260 /degree           %% ALT W, w
  56. 8#261 /plusminus        %% ALT z
  57. 8#262 /quotedblright    %% ALT 2
  58. 8#263 /dagger           %% ALT 3
  59. 8#264 /quotesingle      %% ALT F + space
  60. 8#265 /mu               %% ALT U, u
  61. 8#266 /paragraph        %% ALT P, p
  62. 8#267 /bullet           %% ALT 8
  63. 8#270 /emdash           %% ALT m
  64. 8#271 /quotedblleft     %% ALT 1
  65. 8#272 /ordmasculine     %% ALT B, b
  66. 8#273 /guillemotright   %% ALT 0
  67. 8#274 /onequarter       %% ALT 5
  68. 8#275 /onehalf          %% ALT 6
  69. 8#276 /threequarters    %% ALT 7
  70. 8#277 /questiondown     %% ALT M
  71. 8#300 /Agrave           %% ALT G + A
  72. 8#301 /Aacute           %% ALT F + A
  73. 8#302 /Acircumflex      %% ALT H + A
  74. 8#303 /Atilde           %% ALT J + A
  75. 8#304 /Adieresis        %% ALT K + A
  76. 8#305 /Aring            %% ALT Q
  77. 8#306 /AE               %% ALT A
  78. 8#307 /Ccedilla         %% ALT C, c
  79. 8#310 /Egrave           %% ALT G + E
  80. 8#311 /Eacute           %% ALT F + E
  81. 8#312 /Ecircumflex      %% ALT H + E
  82. 8#313 /Edieresis        %% ALT K + E
  83. 8#314 /Igrave           %% ALT G + I
  84. 8#315 /Iacute           %% ALT F + I
  85. 8#316 /Icircumflex      %% ALT H + I
  86. 8#317 /Idieresis        %% ALT K + I
  87. 8#320 /Eth              %% ALT D
  88. 8#321 /Ntilde           %% ALT J + N
  89. 8#322 /Ograve           %% ALT G + N
  90. 8#323 /Oacute           %% ALT F + N
  91. 8#324 /Ocircumflex      %% ALT H + N
  92. 8#325 /Otilde           %% ALT J + N
  93. 8#326 /Odieresis        %% ALT K + N
  94. 8#327 /multiply         %% ALT x
  95. 8#330 /Oslash           %% ALT O
  96. 8#331 /Ugrave           %% ALT G + U
  97. 8#332 /Uacute           %% ALT F + U
  98. 8#333 /Ucircumflex      %% ALT H + U
  99. 8#334 /Udieresis        %% ALT K + U
  100. 8#335 /Yacute           %% ALT F + Y
  101. 8#336 /Thorn            %% ALT T
  102. 8#337 /germandbls       %% ALT S
  103. 8#340 /agrave           %% ALT G + a
  104. 8#341 /aacute           %% ALT F + a
  105. 8#342 /acircumflex      %% ALT H + a
  106. 8#343 /atilde           %% ALT J + a
  107. 8#344 /adieresis        %% ALT K + a
  108. 8#345 /aring            %% ALT q
  109. 8#346 /ae               %% ALT a
  110. 8#347 /ccedilla         %% ALT c
  111. 8#350 /egrave           %% ALT G + e
  112. 8#351 /eacute           %% ALT F + e
  113. 8#352 /ecircumflex      %% ALT H + e
  114. 8#353 /edieresis        %% ALT K + e
  115. 8#354 /igrave           %% ALT G + i
  116. 8#355 /iacute           %% ALT F + i
  117. 8#356 /icircumflex      %% ALT H + i
  118. 8#357 /idieresis        %% ALT K + i
  119. 8#360 /eth              %% ALT d
  120. 8#361 /ntilde           %% ALT J + n
  121. 8#362 /ograve           %% ALT G + o
  122. 8#363 /oacute           %% ALT F + o
  123. 8#364 /ocircumflex      %% ALT H + o
  124. 8#365 /otilde           %% ALT J + o
  125. 8#366 /odieresis        %% ALT K + o
  126. 8#367 /divide           %% ALT X
  127. 8#370 /oslash           %% ALT o
  128. 8#371 /ugrave           %% ALT G + u
  129. 8#372 /uacute           %% ALT F + u
  130. 8#373 /ucircumflex      %% ALT H + u
  131. 8#374 /udieresis        %% ALT K + u
  132. 8#375 /yacute           %% ALT F + y
  133. 8#376 /thorn            %% ALT t
  134. 8#377 /ydieresis        %% ALT K + y
  135. ] def
  136.  
  137. /bdef {bind def} bind def
  138. /ldef {load def} bdef
  139. /n /newpath ldef
  140. /m2 /moveto ldef
  141. /l2 /lineto ldef
  142. /c2 /curveto ldef
  143. /rm /rmoveto ldef
  144. /rl /rlineto ldef
  145. /gs /gsave ldef
  146. /gr /grestore ldef
  147. /g /setgray ldef
  148. /s /stroke ldef
  149.  
  150. /mvx {
  151.    currentpoint exch pop m2
  152. } bdef
  153. /mvy {
  154.    currentpoint pop exch m2
  155. } bdef
  156. /ln { % x y ln matrix
  157.    matrix currentmatrix 3 1 roll translate 0 0 m2
  158. }bdef
  159. /ln2 {
  160.    setmatrix
  161. } bdef
  162. /wrd { % x (s) wrd -
  163.    show mvx
  164. } bdef
  165.  
  166. /concatprocs {
  167.    3 dict begin
  168.    /proc2 exch cvlit def
  169.    /proc1 exch cvlit def
  170.    /newproc proc1 length proc2 length add array def
  171.    newproc 0 proc1 putinterval
  172.    newproc proc1 length proc2 putinterval
  173.    newproc cvx
  174.    end
  175. } bdef
  176.  
  177. /dontCopyID false def
  178. /copyfont {
  179.    { exch dup /FID ne
  180.       {
  181.          dup /UniqueID eq dontCopyID and
  182.          {pop pop}
  183.          {
  184.             dup /Encoding eq
  185.             { exch dup length array copy outfontdict 3 1 roll put}
  186.             { exch outfontdict 3 1 roll put}
  187.             ifelse
  188.          }
  189.          ifelse
  190.       }
  191.       { pop pop}
  192.       ifelse
  193.    } forall
  194. } bdef
  195.  
  196. /recode {
  197.    copyfont dup dup
  198.    outfontdict /FontName 3 -1 roll put
  199.    amigavec aload pop
  200.    amigavec length 2 idiv
  201.    {outfontdict /Encoding get 3 1 roll put} repeat
  202. } bdef
  203.  
  204. /defamigafont {
  205.    /fntsclmtx [0 0 0 0 0 0] def
  206.    exch
  207.    dup fntsclmtx exch 0 exch put
  208.        fntsclmtx exch 3 exch put
  209.    findfont fntsclmtx makefont setfont
  210. } bdef
  211.  
  212. /deffont  {
  213.    3 -1 roll
  214.    {
  215.       dup dup length dup 5 add string /newnamestr exch def
  216.       exch newnamestr copy pop newnamestr exch (Amiga) putinterval
  217.       newnamestr cvn dup FontDirectory exch known
  218.       {exch pop}
  219.       {
  220.          exch cvn findfont
  221.          dup maxlength 2 add dict /outfontdict exch def
  222.          /dontCopyID false def recode
  223.          outfontdict definefont pop
  224.       }
  225.       ifelse
  226.    }
  227.    { cvn }
  228.    ifelse
  229.    defamigafont
  230. } bdef