home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / w / w002 / 1.img / TOP.DAT / TOP_DATA.H < prev    next >
Encoding:
Text File  |  1992-02-06  |  5.5 KB  |  179 lines
  1. dup /Private 8 dict dup begin
  2. /RD {string currentfile exch readstring pop} executeonly def
  3. /ND {noaccess def} executeonly def
  4. /NP {noaccess put} executeonly def
  5. /BlueValues [-15 0 895 909 912 927] def
  6. /MinFeature {16 16} def
  7. /password 5839 def
  8. % Copyright (c) 1987 Adobe Systems Incorporated.
  9. % All rights reserved.
  10. % This code to be used for Flex and hint replacement.
  11. /OtherSubrs
  12. [systemdict /internaldict known
  13. {1183615869 systemdict /internaldict get exec
  14. /FlxProc known {save true} {false} ifelse}
  15. {userdict /internaldict known not {
  16. userdict /internaldict
  17. {count 0 eq
  18. {/internaldict errordict /invalidaccess get exec} if
  19. dup type /integertype ne
  20. {/internaldict errordict /invalidaccess get exec} if
  21. dup 1183615869 eq
  22. {pop 0}
  23. {/internaldict errordict /invalidaccess get exec}
  24. ifelse
  25. }
  26. dup 14 get 1 25 dict put
  27. bind executeonly put
  28. } if
  29. 1183615869 userdict /internaldict get exec
  30. /FlxProc known {save true} {false} ifelse}
  31. ifelse
  32. [
  33. systemdict /internaldict known not
  34. { 100 dict /begin cvx /mtx matrix /def cvx } if
  35. systemdict /currentpacking known {currentpacking true setpacking} if
  36. {
  37. systemdict /internaldict known {
  38. 1183615869 systemdict /internaldict get exec
  39. /$FlxDict known not {
  40. 100 dict begin
  41. /mtx matrix def
  42. 1183615869 systemdict /internaldict get exec
  43. /$FlxDict currentdict put
  44. end} if
  45. 1183615869 systemdict /internaldict get exec /$FlxDict get begin
  46. } if
  47. grestore
  48. /exdef {exch def} def
  49. /dmin exch abs 100 div def
  50. /epX exdef /epY exdef
  51. /c4y2 exdef /c4x2 exdef /c4y1 exdef /c4x1 exdef /c4y0 exdef /c4x0 exdef
  52. /c3y2 exdef /c3x2 exdef /c3y1 exdef /c3x1 exdef /c3y0 exdef /c3x0 exdef
  53. /c1y2 exdef /c1x2 exdef /c2x2 c4x2 def /c2y2 c4y2 def
  54. /yflag c1y2 c3y2 sub abs c1x2 c3x2 sub abs gt def
  55. /PickCoords {
  56. {c1x0 c1y0 c1x1 c1y1 c1x2 c1y2 c2x0 c2y0 c2x1 c2y1 c2x2 c2y2}
  57. {c3x0 c3y0 c3x1 c3y1 c3x2 c3y2 c4x0 c4y0 c4x1 c4y1 c4x2 c4y2}
  58. ifelse
  59. /y5 exdef /x5 exdef /y4 exdef /x4 exdef /y3 exdef /x3 exdef
  60. /y2 exdef /x2 exdef /y1 exdef /x1 exdef /y0 exdef /x0 exdef
  61. } def
  62. mtx currentmatrix pop
  63. mtx 0 get abs .00001 lt mtx 3 get abs .00001 lt or
  64. {/flipXY -1 def}
  65. {mtx 1 get abs .00001 lt mtx 2 get abs .00001 lt or
  66. {/flipXY 1 def}
  67. {/flipXY 0 def}
  68. ifelse }
  69. ifelse
  70. /erosion 1 def
  71. systemdict /internaldict known {
  72. 1183615869 systemdict /internaldict get exec dup
  73. /erosion known
  74. {/erosion get /erosion exch def}
  75. {pop}
  76. ifelse
  77. } if
  78. yflag
  79. {flipXY 0 eq c3y2 c4y2 eq or
  80. {false PickCoords}
  81. {/shrink c3y2 c4y2 eq
  82. {0}{c1y2 c4y2 sub c3y2 c4y2 sub div abs} ifelse def
  83. /yshrink {c4y2 sub shrink mul c4y2 add} def
  84. /c1y0 c3y0 yshrink def /c1y1 c3y1 yshrink def
  85. /c2y0 c4y0 yshrink def /c2y1 c4y1 yshrink def
  86. /c1x0 c3x0 def /c1x1 c3x1 def /c2x0 c4x0 def /c2x1 c4x1 def
  87. /dY 0 c3y2 c1y2 sub round
  88. dtransform flipXY 1 eq {exch} if pop abs def
  89. dY dmin lt PickCoords
  90. y2 c1y2 sub abs 0.001 gt {
  91. c1x2 c1y2 transform flipXY 1 eq {exch} if
  92. /cx exch def /cy exch def
  93. /dY 0 y2 c1y2 sub round dtransform flipXY 1 eq {exch}
  94. if pop def
  95. dY round dup 0 ne
  96. {/dY exdef }
  97. {pop dY 0 lt {-1}{1} ifelse /dY exdef}
  98. ifelse
  99. /erode PaintType 2 ne erosion 0.5 ge and def
  100. erode {/cy cy 0.5 sub def} if
  101. /ey cy dY add def
  102. /ey ey ceiling ey sub ey floor add def
  103. erode {/ey ey 0.5 add def} if
  104. ey cx flipXY 1 eq {exch} if itransform exch pop
  105. y2 sub /eShift exch def
  106. /y1 y1 eShift add def /y2 y2 eShift add def /y3 y3
  107. eShift add def
  108. } if
  109. } ifelse
  110. }
  111. {flipXY 0 eq c3x2 c4x2 eq or
  112. {false PickCoords }
  113. {/shrink c3x2 c4x2 eq
  114. {0}{c1x2 c4x2 sub c3x2 c4x2 sub div abs} ifelse def
  115. /xshrink {c4x2 sub shrink mul c4x2 add} def
  116. /c1x0 c3x0 xshrink def /c1x1 c3x1 xshrink def
  117. /c2x0 c4x0 xshrink def /c2x1 c4x1 xshrink def
  118. /c1y0 c3y0 def /c1y1 c3y1 def /c2y0 c4y0 def /c2y1 c4y1 def
  119. /dX c3x2 c1x2 sub round 0 dtransform
  120. flipXY -1 eq {exch} if pop abs def
  121. dX dmin lt PickCoords
  122. x2 c1x2 sub abs 0.001 gt {
  123. c1x2 c1y2 transform flipXY -1 eq {exch} if
  124. /cy exch def /cx exch def
  125. /dX x2 c1x2 sub round 0 dtransform flipXY -1 eq {exch} if pop def
  126. dX round dup 0 ne
  127. {/dX exdef}
  128. {pop dX 0 lt {-1}{1} ifelse /dX exdef}
  129. ifelse
  130. /erode PaintType 2 ne erosion .5 ge and def
  131. erode {/cx cx .5 sub def} if
  132. /ex cx dX add def
  133. /ex ex ceiling ex sub ex floor add def
  134. erode {/ex ex .5 add def} if
  135. ex cy flipXY -1 eq {exch} if itransform pop
  136. x2 sub /eShift exch def
  137. /x1 x1 eShift add def /x2 x2 eShift add def /x3 x3 eShift add def
  138. } if 
  139. } ifelse
  140. } ifelse
  141. x2 x5 eq y2 y5 eq or
  142. {x5 y5 lineto }
  143. {x0 y0 x1 y1 x2 y2 curveto
  144. x3 y3 x4 y4 x5 y5 curveto}
  145. ifelse
  146. epY epX
  147. }
  148. systemdict /currentpacking known {exch setpacking} if
  149. /exec cvx /end cvx ] cvx
  150. executeonly
  151. exch
  152. {pop true exch restore}
  153. {
  154. systemdict /internaldict known not
  155. {1183615869 userdict /internaldict get exec
  156. exch /FlxProc exch put true}
  157. {1183615869 systemdict /internaldict get exec
  158. dup length exch maxlength eq
  159. {false}
  160. {1183615869 systemdict /internaldict get exec
  161. exch /FlxProc exch put true}
  162. ifelse}
  163. ifelse}
  164. ifelse
  165. {systemdict /internaldict known
  166. {{1183615869 systemdict /internaldict get exec /FlxProc get exec}}
  167. {{1183615869 userdict /internaldict get exec /FlxProc get exec}}
  168. ifelse executeonly
  169. } if
  170. {gsave currentpoint newpath moveto} executeonly
  171. {currentpoint grestore gsave currentpoint newpath moveto}
  172. executeonly
  173. {systemdict /internaldict known not
  174. {pop 3}
  175. {1183615869 systemdict /internaldict get exec
  176. dup /startlock known
  177. {/startlock get exec}
  178. {dup /strtlck known
  179. {/strtlck get exec}
  180. {pop 3}
  181. ifelse}
  182. ifelse}
  183. ifelse
  184. } executeonly
  185. ] noaccess def
  186. /Subrs 4 array
  187. dup 0 15 RD ┐1p|=-ôD\ΓR NP
  188. dup 1 9 RD ┐1py╝÷Uz NP
  189. dup 2 9 RD ┐1py╜─₧i NP
  190. dup 3 5 RD ┐1p∙ NP
  191. ND
  192. 2 index /CharStrings 190 dict dup begin
  193. /space 10 RD ┐1py╚⌠Φö╦ ND
  194.