home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 2 / Mac_Expert_2.iso / Applications / Fontographer® 4.0.2 / Disk 2 / PC Font Access / PC Font Access.rsrc / STR#_10011.txt < prev    next >
Encoding:
Text File  |  1993-06-17  |  1.4 KB  |  65 lines
  1. end exec pop exec
  2.  
  3. /SharedFontDirectory dup where{pop pop}{0 dict 3 index exec}ifelse
  4.  
  5. }bind 3 index exec
  6.  
  7. }{pop pop pop $mmff_origfindfont}ifelse}{pop $mmff_origfindfont}ifelse}ifelse
  8.  
  9. 2 copy exch /FontName exch put definefont}{cleartomark $mmff_origfindfont} ifelse end
  10.  
  11. NormalizeDesignVector ConvertDesignVector] currentdict exch makeblendedfont
  12.  
  13. get length counttomark 2 sub eq exch pop}{pop pop}ifelse}if{
  14.  
  15. loop false /FontInfo where{pop FontInfo /BlendAxisTypes 2 copy known{
  16.  
  17. [exch{(_)search{{cvr}stopped{pop pop}{exch pop exch}ifelse}{pop exit}ifelse}
  18.  
  19. $mmff_origfindfont begin pop
  20.  
  21. cvn dup dup FontDirectory exch known exch SharedFontDirectory exch known or{
  22.  
  23. {$mmff_origfindfont}{dup dup length string cvs(_)search{
  24.  
  25. {false}ifelse}ifelse
  26.  
  27. {dup SharedFontDirectory exch get /FontType get 3 ne}
  28.  
  29. {dup SharedFontDirectory exch known
  30.  
  31. {dup FontDirectory exch get /FontType get 3 ne}
  32.  
  33. dup FontDirectory exch known
  34.  
  35. /findfont{
  36.  
  37. /$mmff_origfindfont /findfont load 3 index exec
  38.  
  39. currentshared{{}}{true setshared{false setshared}}ifelse}{{}}ifelse}ifelse
  40.  
  41. {begin{currentdict scheck}{false}ifelse{
  42.  
  43. {{}userdict}ifelse begin}
  44.  
  45. pop{currentshared{{}}{true setshared{false setshared}}ifelse shareddict}
  46.  
  47. /findfont where pop dup systemdict eq{
  48.  
  49. /setshared where{pop true}{false}ifelse
  50.  
  51. /$mmff_origfindfont where{pop save{restore}{pop pop}}{{}{def}}ifelse
  52.  
  53. }bind def
  54.  
  55. ^p
  56.  
  57. /ConvertDesignVector{
  58.  
  59. }bind def
  60.  
  61. ^o
  62.  
  63. /NormalizeDesignVector{
  64.  
  65.