home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / Mathscript_cr.lzx / MathScript / Files / MathScriptDict < prev   
Encoding:
Text File  |  1996-06-15  |  895 b   |  30 lines
  1. /MathScriptDict 50 dict def
  2. MathScriptDict begin
  3. /tf {ury exch sub} bind def
  4. /m {tf moveto} bind def
  5. /l {setlinewidth tf lineto stroke} bind def
  6. /L {tf lineto} bind def
  7. /s {show} bind def
  8. /ReEncode {
  9.   findfont dup length dict begin
  10.   {1 index /FID ne {def} {pop pop} ifelse} forall
  11.   /Encoding exch def
  12.   currentdict definefont pop
  13.   end
  14.   } def
  15. /Assign {
  16.   findfont dup length dict begin
  17.   {1 index /FID ne {def} {pop pop} ifelse} forall
  18.   currentdict definefont pop
  19.   end
  20.   } def
  21. /S0 {/F0 findfont exch scalefont setfont} bind def
  22. /S1 {/F1 findfont exch scalefont setfont} bind def
  23. /S2 {/F2 findfont exch scalefont setfont} bind def
  24. /S3 {/F3 findfont exch scalefont setfont} bind def
  25. /S4 {/F4 findfont exch scalefont setfont} bind def
  26. /S5 {/F5 findfont exch scalefont setfont} bind def
  27. /S6 {/F6 findfont exch scalefont setfont} bind def
  28. /S7 {/F7 findfont exch scalefont setfont} bind def
  29. end
  30.