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