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#_10010.txt < prev    next >
Encoding:
Text File  |  1993-06-17  |  2.8 KB  |  111 lines
  1. {pop pop}ifelse exec
  2.  
  3. }bind put}
  4.  
  5. }ifelse currentfont /ScaleMatrix get makefont setfont
  6.  
  7. dup /Encoding currentfont /Encoding get put definefont
  8.  
  9. ]exch findfont exch makeblendedfont
  10.  
  11. {cleartomark pop findfont}{
  12.  
  13. /$fbf {FontDirectory counttomark 3 add -1 roll known
  14.  
  15. }bind put
  16.  
  17. currentdict end
  18.  
  19. currentdict Blend 2 index exec
  20.  
  21. }ifelse pop pop}forall pop pop pop pop}
  22.  
  23. {/makeblendedfont cvx errordict /typecheck get exec}ifelse
  24.  
  25. {/dicttype eq{6 copy 3 1 roll get exch 2 index exec}
  26.  
  27. dup 2 index length exch sub getinterval}if}if}ifelse put}
  28.  
  29. dup 0 get 0 le{dup 0 exch{0 gt{exit}if 1 add}forall
  30.  
  31. 2 copy exch length 1 sub lt{1 add}if}ifelse}loop pop
  32.  
  33. 3 index exch 3 index 1 sub exch put 3 copy put pop
  34.  
  35. {dup dup 1 sub 3 index exch get exch 3 index exch get
  36.  
  37. pop 2 index 2 index 0 put 0}if le{1 sub}
  38.  
  39. dup dup 1 sub 3 index exch get exch 3 index exch get 2 copy eq{
  40.  
  41. dup length 1 sub{dup 0 le{exit}if
  42.  
  43. 1 index dup /StemSnapH eq exch /StemSnapV eq or{
  44.  
  45. 2 index 3 1 roll put}for exch pop exch pop}ifelse 3 copy
  46.  
  47. {dup 10 index 6 index exec{9 index exch 9 index exec}if}if
  48.  
  49. dup 3 index exch get dup type /arraytype eq
  50.  
  51. {exch dup length array 1 index xcheck{cvx}if dup length 1 sub 0 exch 1 exch{
  52.  
  53. 2 copy 8 index exch exec {pop 5 index 5 index exec}
  54.  
  55. /integertype eq exch /realtype eq exch or and}forall}ifelse}
  56.  
  57. {{length 1 index length ne{pop false}{true exch{type dup
  58.  
  59. exch pop exch pop 2 index /ForceBoldThreshold get gt 3 copy}
  60.  
  61. {dup 4 index exch get{2 index exch get add}{pop}ifelse}for
  62.  
  63. {5 index 0 0 1 3 index length 1 sub
  64.  
  65. {{dup type dup /arraytype eq{pop 1 index /ForceBold eq
  66.  
  67. exch pop exch pop}
  68.  
  69. 0 0 1 3 index length 1 sub{dup 4 index exch get exch 3 index exch get mul add}for
  70.  
  71. {2 copy length exch length ne{/makeblendedfont cvx errordict /typecheck get exec}if
  72.  
  73. pop{/add load}if]cvx def
  74.  
  75. exch pop true exch}ifelse}for
  76.  
  77. 3 1 roll /mul load 3 1 roll}ifelse 1 index{/add load 3 1 roll}if
  78.  
  79. {dup 1 eq{pop}{2 index{/exch load 4 1 roll}if
  80.  
  81. {pop 1 index{/exch load 3 1 roll}if /pop load 3 1 roll}
  82.  
  83. {1 index dup length 3 -1 roll sub get dup 0 eq
  84.  
  85. dup /$Blend exch[exch false exch dup length 1 sub -1 1
  86.  
  87. dup /WeightVector exch def
  88.  
  89. {pop pop}{def}ifelse}forall currentdict end def}forall
  90.  
  91. {dup load dup maxlength dict begin{false{/UniqueID /XUID}{3 index eq or}forall
  92.  
  93. {/Private /FontInfo}
  94.  
  95. {false{/FID /UniqueID /XUID}{3 index eq or}forall{pop pop}{def}ifelse}forall
  96.  
  97. exch dup maxlength dict begin
  98.  
  99. {/makeblendedfont cvx errordict /rangecheck get exec}if
  100.  
  101. {dup 0 exch{add}forall 1 sub abs .01 gt}{true}ifelse
  102.  
  103. {/makeblendedfont{8 pop 2 copy length exch /WeightVector get length eq
  104.  
  105. pop false}{0 get dup type /integertype ne{pop false}{8 lt}ifelse}ifelse}{true}ifelse
  106.  
  107. /makeblendedfont where{/makeblendedfont get dup type /operatortype eq{
  108.  
  109. /shareddict where{pop currentshared{setshared}true setshared shareddict}{{}userdict}ifelse dup
  110.  
  111.