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#_10200.txt < prev    next >
Encoding:
Text File  |  1993-06-17  |  5.1 KB  |  231 lines
  1. ]ND
  2.  
  3. }executeonly
  4.  
  5. ifelse
  6.  
  7. ifelse}
  8.  
  9. {dup /strtlck known{/strtlck get exec}{pop 3}ifelse}
  10.  
  11. {/startlock get exec}
  12.  
  13. dup /startlock known
  14.  
  15. {1183615869 systemdict /internaldict get exec
  16.  
  17. {pop 3}
  18.  
  19. {systemdict /internaldict known not
  20.  
  21. {currentpoint grestore gsave currentpoint newpath moveto}executeonly
  22.  
  23. {gsave currentpoint newpath moveto}executeonly
  24.  
  25. }if
  26.  
  27. ifelse executeonly
  28.  
  29. {{1183615869 userdict /internaldict get exec /FlxProc get exec}}
  30.  
  31. {{1183615869 systemdict /internaldict get exec /FlxProc get exec}}
  32.  
  33. {systemdict /internaldict known
  34.  
  35. ifelse
  36.  
  37. ifelse}
  38.  
  39. ifelse}
  40.  
  41. {1183615869 systemdict /internaldict get exec exch /FlxProc exch put true}
  42.  
  43. {false}
  44.  
  45. {1183615869 systemdict /internaldict get exec dup length exch maxlength eq
  46.  
  47. {1183615869 userdict /internaldict get exec exch /FlxProc exch put true}
  48.  
  49. {systemdict /internaldict known not
  50.  
  51. {pop true exch restore}
  52.  
  53. /exec cvx /end cvx]cvx executeonly exch
  54.  
  55. systemdict /currentpacking known{exch setpacking}if
  56.  
  57. epY epX}
  58.  
  59. ifelse
  60.  
  61. {x0 y0 x1 y1 x2 y2 curveto x3 y3 x4 y4 x5 y5 curveto}
  62.  
  63. {x5 y5 lineto}
  64.  
  65. x2 x5 eq y2 y5 eq or
  66.  
  67. }ifelse}ifelse
  68.  
  69. /x3 x3 eShift add def}if
  70.  
  71. x2 sub /eShift exch def /x1 x1 eShift add def /x2 x2 eShift add def
  72.  
  73. erode{/ex ex .5 add def}if ex cy flipXY -1 eq{exch}if itransform pop
  74.  
  75. /ex cx dX add def /ex ex ceiling ex sub ex floor add def
  76.  
  77. /erode PaintType 2 ne erosion .5 ge and def erode{/cx cx .5 sub def}if
  78.  
  79. dX round dup 0 ne{/dX exdef}{pop dX 0 lt{-1}{1}ifelse /dX exdef}ifelse
  80.  
  81. /dX x2 c1x2 sub round 0 dtransform flipXY -1 eq{exch}if pop def
  82.  
  83. c1x2 c1y2 transform flipXY -1 eq{exch}if /cy exch def /cx exch def
  84.  
  85. dX dmin lt PickCoords x2 c1x2 sub abs 0.001 gt{
  86.  
  87. /dX c3x2 c1x2 sub round 0 dtransform flipXY -1 eq{exch}if pop abs def
  88.  
  89. /c1y0 c3y0 def /c1y1 c3y1 def /c2y0 c4y0 def /c2y1 c4y1 def
  90.  
  91. /c2x0 c4x0 xshrink def /c2x1 c4x1 xshrink def
  92.  
  93. /c1x0 c3x0 xshrink def /c1x1 c3x1 xshrink def
  94.  
  95. /xshrink{c4x2 sub shrink mul c4x2 add}def
  96.  
  97. {/shrink c3x2 c4x2 eq{0}{c1x2 c4x2 sub c3x2 c4x2 sub div abs}ifelse def
  98.  
  99. {false PickCoords}
  100.  
  101. {flipXY 0 eq c3x2 c4x2 eq or
  102.  
  103. }ifelse}
  104.  
  105. /y3 y3 eShift add def}if
  106.  
  107. y2 sub /eShift exch def /y1 y1 eShift add def /y2 y2 eShift add def
  108.  
  109. erode{/ey ey 0.5 add def}if ey cx flipXY 1 eq{exch}if itransform exch pop
  110.  
  111. /ey cy dY add def /ey ey ceiling ey sub ey floor add def
  112.  
  113. /erode PaintType 2 ne erosion 0.5 ge and def erode{/cy cy 0.5 sub def}if
  114.  
  115. dY round dup 0 ne{/dY exdef}{pop dY 0 lt{-1}{1}ifelse /dY exdef}ifelse
  116.  
  117. /dY 0 y2 c1y2 sub round dtransform flipXY 1 eq{exch}if pop def
  118.  
  119. c1x2 c1y2 transform flipXY 1 eq{exch}if /cx exch def /cy exch def
  120.  
  121. dY dmin lt PickCoords y2 c1y2 sub abs 0.001 gt{
  122.  
  123. /dY 0 c3y2 c1y2 sub round dtransform flipXY 1 eq{exch}if pop abs def
  124.  
  125. /c1x0 c3x0 def /c1x1 c3x1 def /c2x0 c4x0 def /c2x1 c4x1 def
  126.  
  127. /c2y0 c4y0 yshrink def /c2y1 c4y1 yshrink def
  128.  
  129. /c1y0 c3y0 yshrink def /c1y1 c3y1 yshrink def
  130.  
  131. /yshrink{c4y2 sub shrink mul c4y2 add}def
  132.  
  133. {/shrink c3y2 c4y2 eq{0}{c1y2 c4y2 sub c3y2 c4y2 sub div abs}ifelse def
  134.  
  135. {false PickCoords}
  136.  
  137. {flipXY 0 eq c3y2 c4y2 eq or
  138.  
  139. yflag
  140.  
  141. /erosion known{/erosion get /erosion exch def}{pop}ifelse}if
  142.  
  143. {1183615869 systemdict /internaldict get exec dup
  144.  
  145. systemdict /internaldict known
  146.  
  147. /erosion 1 def
  148.  
  149. {/flipXY 1 def}{/flipXY 0 def}ifelse}ifelse
  150.  
  151. {mtx 1 get abs .00001 lt mtx 2 get abs .00001 lt or
  152.  
  153. {/flipXY -1 def}
  154.  
  155. mtx currentmatrix pop mtx 0 get abs .00001 lt mtx 3 get abs .00001 lt or
  156.  
  157. }def
  158.  
  159. /y2 exdef /x2 exdef /y1 exdef /x1 exdef /y0 exdef /x0 exdef
  160.  
  161. /y5 exdef /x5 exdef /y4 exdef /x4 exdef /y3 exdef /x3 exdef
  162.  
  163. ifelse
  164.  
  165. {c3x0 c3y0 c3x1 c3y1 c3x2 c3y2 c4x0 c4y0 c4x1 c4y1 c4x2 c4y2}
  166.  
  167. {c1x0 c1y0 c1x1 c1y1 c1x2 c1y2 c2x0 c2y0 c2x1 c2y1 c2x2 c2y2}
  168.  
  169. /PickCoords{
  170.  
  171. /yflag c1y2 c3y2 sub abs c1x2 c3x2 sub abs gt def
  172.  
  173. /c1y2 exdef /c1x2 exdef /c2x2 c4x2 def /c2y2 c4y2 def
  174.  
  175. /c3y2 exdef /c3x2 exdef /c3y1 exdef /c3x1 exdef /c3y0 exdef /c3x0 exdef
  176.  
  177. /c4y2 exdef /c4x2 exdef /c4y1 exdef /c4x1 exdef /c4y0 exdef /c4x0 exdef
  178.  
  179. /epX exdef /epY exdef
  180.  
  181. /dmin exch abs 100 div def
  182.  
  183. /exdef{exch def}def
  184.  
  185. grestore
  186.  
  187. 1183615869 systemdict /internaldict get exec /$FlxDict get begin}if
  188.  
  189. /$FlxDict currentdict put end}if
  190.  
  191. 1183615869 systemdict /internaldict get exec
  192.  
  193. /$FlxDict known not{100 dict begin /mtx matrix def
  194.  
  195. {systemdict /internaldict known{1183615869 systemdict /internaldict get exec
  196.  
  197. systemdict /currentpacking known{currentpacking true setpacking}if
  198.  
  199. [systemdict /internaldict known not{100 dict /begin cvx /mtx matrix /def cvx}if
  200.  
  201. /FlxProc known {save true}{false}ifelse}ifelse
  202.  
  203. 1183615869 userdict /internaldict get exec
  204.  
  205. dup 14 get 1 25 dict put bind executeonly put}if
  206.  
  207. dup 1183615869 eq{pop 0}{/internaldict errordict /invalidaccess get exec}ifelse}
  208.  
  209. dup type /integertype ne{/internaldict errordict /invalidaccess get exec}if
  210.  
  211. {count 0 eq {/internaldict errordict /invalidaccess get exec}if
  212.  
  213. {userdict /internaldict known not{userdict /internaldict
  214.  
  215. {1183615869 systemdict /internaldict get exec/FlxProc known{save true}{false}ifelse}
  216.  
  217. [systemdict /internaldict known
  218.  
  219. /OtherSubrs
  220.  
  221. %.that their outline data has not come from an Adobe typeface.
  222.  
  223. %.Used in Fontographer with permission, provided users confirm
  224.  
  225. %.This code to be used for Flex and hint replacement.
  226.  
  227. %.All rights reserved.
  228.  
  229. %.Copyright (c) 1987 Adobe Systems Incorporated.
  230.  
  231.