home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m420 / 12.ddi / PROLOG40.PS_ / PROLOG40.bin
Encoding:
Text File  |  1993-05-15  |  18.9 KB  |  346 lines
  1. %%BeginResource: procset wCorel4Dict
  2. %Copyright (c)1992, 1993 Corel Corporation.  All rights reserved. v4.00.00
  3. /wCorel4Dict 300 dict def wCorel4Dict begin
  4. /bd{bind def}bind def/ld{load def}bd/xd{exch def}bd
  5. /_ null def/rp{{pop}repeat}bd/@cp/closepath ld
  6. /@gs/gsave ld/@gr/grestore ld/@np/newpath ld
  7. /Tl/translate ld/$sv 0 def/@sv{/$sv save def}bd
  8. /@rs{$sv restore}bd/spg/showpage ld/showpage{}bd
  9. currentscreen/@dsp xd/$dsp/@dsp def/$dsa xd
  10. /$dsf xd/$sdf false def/$SDF false def/$Scra 0 def
  11. /SetScr/setscreen ld/setscreen{3 rp}bd/@ss{2 index 0 eq{$dsf 3 1 roll
  12. 4 -1 roll pop}if exch $Scra add exch load SetScr}bd
  13. /$c 0 def/$m 0 def/$y 0 def/$k 0 def/$t 1 def
  14. /$n _ def/$o 0 def/$fil 0 def/$C 0 def/$M 0 def
  15. /$Y 0 def/$K 0 def/$T 1 def/$N _ def/$O 0 def
  16. /$PF false def/s1c 0 def/s1m 0 def/s1y 0 def
  17. /s1k 0 def/s1t 0 def/s1n _ def/$bkg false def
  18. /SK 0 def/SM 0 def/SY 0 def/SC 0 def/SepMode 0 def
  19. /CurrentInkName (Composite) def/$ink -1 def
  20. /$op false def matrix currentmatrix/$ctm xd
  21. /$ptm matrix def/$ttm matrix def/$stm matrix def
  22. /$fst 128 def/$pad 0 def/$rox 0 def/$roy 0 def
  23. /CorelDrawReencodeVect [ 16#0/grave 16#5/breve 16#6/dotaccent 16#8/ring 16#A/hungarumlaut 16#B/ogonek 16#C/caron 16#D/dotlessi
  24. 16#82/quotesinglbase/florin/quotedblbase/ellipsis/dagger/daggerdbl
  25. 16#88/circumflex/perthousand/Scaron/guilsinglleft/OE
  26. 16#91/quoteleft/quoteright/quotedblleft/quotedblright/bullet/endash/emdash
  27. 16#98/tilde/trademark/scaron/guilsinglright/oe
  28. 16#9F/Ydieresis 16#A1/exclamdown/cent/sterling/currency/yen/brokenbar/section
  29. 16#a8/dieresis/copyright/ordfeminine/guillemotleft/logicalnot/minus/registered/macron
  30. 16#b0/degree/plusminus/twosuperior/threesuperior/acute/mu/paragraph/periodcentered
  31. 16#b8/cedilla/onesuperior/ordmasculine/guillemotright/onequarter/onehalf/threequarters/questiondown
  32. 16#c0/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla
  33. 16#c8/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex/Idieresis
  34. 16#d0/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis/multiply
  35. 16#d8/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute/Thorn/germandbls
  36. 16#e0/agrave/aacute/acircumflex/atilde/adieresis/aring/ae/ccedilla
  37. 16#e8/egrave/eacute/ecircumflex/edieresis/igrave/iacute/icircumflex/idieresis
  38. 16#f0/eth/ntilde/ograve/oacute/ocircumflex/otilde/odieresis/divide
  39. 16#f8/oslash/ugrave/uacute/ucircumflex/udieresis/yacute/thorn/ydieresis
  40. ] def AutoFlatness{/@ifl{dup currentflat exch sub 10 gt{
  41. ([Error: PathTooComplex; OffendingCommand: AnyPaintingOperator]\n)
  42. print flush newpath exit}{currentflat 2 add setflat}ifelse}bd
  43. /@fill/fill ld/fill{currentflat{{@fill}stopped{@ifl}{exit}ifelse
  44. }bind loop setflat}bd/@eofill/eofill ld/eofill{currentflat{
  45. {@eofill}stopped{@ifl}{exit}ifelse}bind loop
  46. setflat}bd/@clip/clip ld/clip{currentflat{{@clip}stopped{@ifl}{exit}
  47. ifelse}bind loop setflat}bd/@eoclip/eoclip ld
  48. /eoclip{currentflat{{@eoclip}stopped{@ifl}{exit}ifelse}bind loop
  49. setflat}bd/@stroke/stroke ld/stroke{currentflat{{@stroke}stopped{@ifl}
  50. {exit}ifelse}bind loop setflat}bd}if/d/setdash ld
  51. /j/setlinejoin ld/J/setlinecap ld/M/setmiterlimit ld
  52. /w/setlinewidth ld/O{/$o xd}bd/R{/$O xd}bd
  53. /W/eoclip ld/c/curveto ld/C/c ld/l/lineto ld
  54. /L/l ld/rl/rlineto ld/m/moveto ld/n/newpath ld
  55. /N/newpath ld/P{11 rp}bd/u{}bd/U{}bd/A{pop}bd
  56. /q/@gs ld/Q/@gr ld/`{}bd/~{}bd/@{}bd/&{}bd
  57. /@j{@sv @np}bd/@J{@rs}bd/g{1 exch sub/$k xd
  58. /$c 0 def/$m 0 def/$y 0 def/$t 1 def/$n _ def/$fil 0 def}bd
  59. /G{1 sub neg/$K xd _ 1 0 0 0/$C xd/$M xd/$Y xd/$T xd
  60. /$N xd}bd/k{1 index type/stringtype eq{/$t xd
  61. /$n xd}{/$t 0 def/$n _ def}ifelse/$k xd/$y xd
  62. /$m xd/$c xd/$fil 0 def}bd/K{1 index type
  63. /stringtype eq{/$T xd/$N xd}{/$T 0 def/$N _ def}ifelse
  64. /$K xd/$Y xd/$M xd/$C xd}bd/sf{1 index type
  65. /stringtype eq{/s1t xd/s1n xd}{/s1t 0 def
  66. /s1n _ def}ifelse/s1k xd/s1y xd/s1m xd/s1c xd}bd
  67. /i{dup 0 ne{setflat}{pop}ifelse}bd/v{4 -2 roll
  68. 2 copy 6 -2 roll c}bd/V/v ld/y{2 copy c}bd
  69. /Y/y ld/@w{matrix rotate/$ptm xd matrix scale
  70. $ptm dup concatmatrix/$ptm xd 1 eq{$ptm exch dup concatmatrix
  71. /$ptm xd}if 1 w}bd/@g{1 eq dup/$sdf xd{/$scp xd
  72. /$sca xd/$scf xd}if}bd/@G{1 eq dup/$SDF xd{/$SCP xd
  73. /$SCA xd/$SCF xd}if}bd/@D{2 index 0 eq{$dsf 3 1 roll
  74. 4 -1 roll pop}if 3 copy exch $Scra add exch load
  75. SetScr/$dsp xd/$dsa xd/$dsf xd}bd/$ngx{$SDF{$SCF
  76. SepMode 0 eq{$SCA}{$dsa}ifelse $SCP @ss}if}bd
  77. /p{/$pm xd 7{pop}repeat/$pyf xd/$pxf xd/$pn xd
  78. /$fil 1 def}bd/@MN{2 copy le{pop}{exch pop}ifelse}bd
  79. /@MX{2 copy ge{pop}{exch pop}ifelse}bd/InRange{3 -1 roll
  80. @MN @MX}bd/wDstChck{2 1 roll dup 3 -1 roll
  81. eq{1 add}if}bd/@dot{dup mul exch dup mul add
  82. 1 exch sub}bd/@lin{exch pop abs 1 exch sub}bd
  83. /SetRgb/setrgbcolor ld/SetHsb/sethsbcolor ld
  84. /GetRgb/currentrgbcolor ld/GetHsb/currenthsbcolor ld
  85. /SetGry/setgray ld/GetGry/currentgray ld/cmyk2rgb{3{dup 5 -1 roll
  86. add 1 exch sub dup 0 lt{pop 0}if exch}repeat
  87. pop}bd/rgb2cmyk{3{1 exch sub 3 1 roll}repeat
  88. 3 copy @MN @MN 3{dup 5 -1 roll sub neg exch}repeat}bd
  89. /rgb2hsb{SetRgb GetHsb}bd/hsb2rgb{3 -1 roll
  90. dup floor sub 3 1 roll SetHsb GetRgb}bd/rgb2g{2 index .299 mul
  91. 2 index .587 mul add 1 index .114 mul add 4 1 roll
  92. 3 rp}bd/WaldoColor where{pop}{/setcmykcolor where{pop
  93. /SetCmyk/setcmykcolor ld}{/SetCmyk{cmyk2rgb
  94. SetRgb}bd}ifelse/currentcmykcolor where{pop
  95. /GetCmyk/currentcmykcolor ld}{/GetCmyk{GetRgb
  96. rgb2cmyk}bd}ifelse/setoverprint where{pop}{/setoverprint{/$op xd}bd
  97. }ifelse/currentoverprint where{pop}{/currentoverprint{$op}bd}ifelse
  98. /colorimage where{pop/ColorImage/colorimage ld}{/ColorImage{
  99. /ncolors exch def pop/dataaq exch def{dataaq
  100. ncolors dup 3 eq{/$dat exch def 0 1 $dat length
  101. 3 div 1 sub{dup 3 mul $dat 1 index get 255 div
  102. $dat 2 index 1 add get 255 div $dat 3 index 2 add get
  103. 255 div rgb2g 255 mul cvi exch pop $dat 3 1 roll put}for
  104. $dat 0 $dat length 3 idiv getinterval pop}{4 eq{/$dat exch def
  105. 0 1 $dat length 4 div 1 sub{dup 4 mul $dat 1 index get
  106. 255 div $dat 2 index 1 add get 255 div $dat 3 index 2 add get
  107. 255 div $dat 4 index 3 add get 255 div cmyk2rgb rgb2g 255 mul
  108. cvi exch pop $dat 3 1 roll put}for $dat 0 $dat length
  109. ncolors idiv getinterval}if}ifelse}image}bd}ifelse
  110. /@tc{5 -1 roll dup 1 ge{pop}{4{dup 6 -1 roll
  111. mul exch}repeat pop}ifelse}bd/@scc{1 eq setoverprint
  112. dup _ eq{pop SepMode 0 eq{SetCmyk 0}{0 4 $ink sub index
  113. exch pop 5 1 roll 4 rp SepsColor true eq{$ink 3 gt{1 sub neg dup SetGry
  114. exch}{dup 0 0 0 4 $ink roll SetCmyk}ifelse}{1 sub neg dup SetGry}ifelse
  115. }ifelse exch pop}{SepMode 0 eq{pop @tc SetCmyk 0}{CurrentInkName eq{
  116. 4 index}{0}ifelse 6 1 roll 5 rp 1 sub neg dup SetGry}ifelse}ifelse
  117. SepMode 0 eq{pop true}{1 eq currentoverprint and not}ifelse}bd
  118. /setcmykcolor{1 5 1 roll _ currentoverprint @scc
  119. pop}bd/currentcmykcolor{0 0 0 0}bd/setrgbcolor{rgb2cmyk
  120. setcmykcolor}bd/currentrgbcolor{currentcmykcolor
  121. cmyk2rgb}bd/sethsbcolor{hsb2rgb setrgbcolor}bd
  122. /currenthsbcolor{currentrgbcolor rgb2hsb}bd
  123. /setgray{dup dup setrgbcolor}bd/currentgray{currentrgbcolor
  124. rgb2g}bd}ifelse/WaldoColor true def/@sft{$tllx $pxf add dup $tllx gt
  125. {$pwid sub}if/$tx xd $tury $pyf sub dup $tury lt{$phei add}if
  126. /$ty xd}bd/@stb{pathbbox/$ury xd/$urx xd/$lly xd/$llx xd}bd
  127. /@ep{{cvx exec}forall}bd/@tp{@sv/$in true def
  128. 2 copy dup $lly le{/$in false def}if $phei sub $ury ge{/$in false def}if
  129. dup $urx ge{/$in false def}if $pwid add $llx le{/$in false def}if
  130. $in{@np 2 copy m $pwid 0 rl 0 $phei neg rl $pwid neg 0 rl
  131. 0 $phei rl clip @np $pn cvlit load aload pop
  132. 7 -1 roll 5 index sub 7 -1 roll 3 index sub Tl
  133. matrix currentmatrix/$ctm xd @ep 4 rp}{2 rp}ifelse
  134. @rs}bd/@th{@sft 0 1 $tly 1 sub{dup $psx mul $tx add{dup $llx gt
  135. {$pwid sub}{exit}ifelse}loop exch $phei mul
  136. $ty exch sub 0 1 $tlx 1 sub{$pwid mul 3 copy
  137. 3 -1 roll add exch @tp pop}for 2 rp}for}bd/@tv{@sft
  138. 0 1 $tlx 1 sub{dup $pwid mul $tx add exch $psy mul $ty exch sub{
  139. dup $ury lt{$phei add}{exit}ifelse}loop 0 1 $tly 1 sub{$phei mul
  140. 3 copy sub @tp pop}for 2 rp}for}bd/@pf{@gs $ctm setmatrix
  141. $pm concat @stb eoclip Bburx Bbury $pm itransform
  142. /$tury xd/$turx xd Bbllx Bblly $pm itransform
  143. /$tlly xd/$tllx xd/$wid $turx $tllx sub def
  144. /$hei $tury $tlly sub def @gs $vectpat{1 0 0 0 0 _ $o @scc{eofill}if}{
  145. $t $c $m $y $k $n $o @scc{SepMode 0 eq $pfrg or{$tllx $tlly Tl
  146. $wid $hei scale <00> 8 1 false [ 8 0 0 1 0 0 ]{}imagemask}{
  147. /$bkg true def}ifelse}if}ifelse @gr $wid 0 gt $hei 0 gt and{
  148. $pn cvlit load aload pop/$pd xd 3 -1 roll sub/$phei xd
  149. exch sub/$pwid xd $wid $pwid div ceiling 1 add/$tlx xd
  150. $hei $phei div ceiling 1 add/$tly xd $psx 0 eq{@tv}{@th}ifelse}if
  151. @gr @np/$bkg false def}bd/@dlt{$fse $fss sub/nff xd
  152. $frb dup 1 eq exch 2 eq or{$frt dup $frc $frm $fry $frk
  153. @tc 4 copy cmyk2rgb rgb2hsb 3 copy/myb xd/mys xd
  154. /myh xd $tot $toc $tom $toy $tok @tc cmyk2rgb
  155. rgb2hsb 3 1 roll 4 1 roll 5 1 roll sub neg nff div/kdb xd
  156. sub neg nff div/kds xd sub neg dup 0 eq{pop
  157. $frb 2 eq{.99}{-.99}ifelse}if dup $frb 2 eq
  158. exch 0 lt and{1 add}if dup $frb 1 eq exch 0 gt and{1 sub}if
  159. nff div/kdh xd}{$frt dup $frc $frm $fry $frk
  160. @tc 5 copy $tot dup $toc $tom $toy $tok @tc 5 1 roll
  161. 6 1 roll 7 1 roll 8 1 roll 9 1 roll sub neg nff div/$dk xd
  162. sub neg nff div/$dy xd sub neg nff div/$dm xd
  163. sub neg nff div/$dc xd sub neg nff div/$dt xd}ifelse}bd
  164. /ffcol{5 copy $fsit 0 eq{setcmykcolor pop}{SepMode 0 ne{
  165. 4 index 1 sub neg SetGry 5 rp}{setcmykcolor pop}ifelse}ifelse}bd
  166. /@ftl{1 index 4 index sub dup $pad mul dup/$pdw xd
  167. 2 mul sub $fst div/$wid xd 2 index sub/$hei xd
  168. pop Tl @dlt $fss 0 eq{ffcol 0 0 m 0 $hei l $pdw $hei l
  169. $pdw 0 l @cp fill $pdw 0 Tl}if $fss $wid mul 0 Tl
  170. nff{ffcol 0 0 m 0 $hei l $wid $hei l $wid 0 l
  171. @cp fill $wid 0 Tl $frb dup 1 eq exch 2 eq or{4 rp
  172. myh mys myb kdb add 3 1 roll kds add 3 1 roll
  173. kdh add 3 1 roll 3 copy/myb xd/mys xd/myh xd
  174. hsb2rgb rgb2cmyk}{$dk add 5 1 roll $dy add 5 1 roll
  175. $dm add 5 1 roll $dc add 5 1 roll $dt add 5 1 roll}ifelse}repeat
  176. 5 rp $tot dup $toc $tom $toy $tok @tc ffcol 0 0 m
  177. 0 $hei l $pdw $hei l $pdw 0 l @cp fill 5 rp}bd
  178. /@ftr{1 index 4 index sub dup $rox mul/$row xd
  179. 2 div 1 index 4 index sub dup $roy mul/$roh xd
  180. 2 div 2 copy dup mul exch dup mul add sqrt $row dup mul
  181. $roh dup mul add sqrt add dup/$hei xd $fst div/$wid xd
  182. 4 index add $roh add exch 5 index add $row add
  183. exch Tl 4 rp @dlt $fss 0 eq{ffcol fill 1.0 $pad 2 mul sub
  184. dup scale}if $hei $fss $wid mul sub/$hei xd
  185. nff{ffcol $wid 0 m 0 0 $hei 0 360 arc fill/$hei $hei $wid sub def
  186. $frb dup 1 eq exch 2 eq or{4 rp myh mys myb
  187. kdb add 3 1 roll kds add 3 1 roll kdh add 3 1 roll
  188. 3 copy/myb xd/mys xd/myh xd hsb2rgb rgb2cmyk}{$dk add 5 1 roll
  189. $dy add 5 1 roll $dm add 5 1 roll $dc add 5 1 roll
  190. $dt add 5 1 roll}ifelse}repeat 5 rp}bd/@ftc{1 index 4 index sub
  191. dup $rox mul/$row xd 2 div 1 index 4 index sub
  192. dup $roy mul/$roh xd 2 div 2 copy dup mul exch dup mul add sqrt
  193. $row dup mul $roh dup mul add sqrt add dup/$hei xd
  194. $fst div/$wid xd 4 index add $roh add exch 5 index add $row add
  195. exch Tl 4 rp @dlt $fss 0 eq{ffcol fill}{n}ifelse
  196. /$dang 180 $fst 1 sub div def/$sang $dang -2 div 180 add def
  197. /$eang $dang 2 div 180 add def/$sang $sang $dang $fss mul add def
  198. /$eang $eang $dang $fss mul add def/$sang $eang $dang sub def
  199. nff{ffcol $wid 0 m 0 0 $hei $sang $fan add $eang $fan add arc fill
  200. $wid 0 m 0 0 $hei $eang neg $fan add $sang neg $fan add arc fill
  201. /$sang $eang def/$eang $eang $dang add def
  202. $frb dup 1 eq exch 2 eq or{4 rp myh mys myb
  203. kdb add 3 1 roll kds add 3 1 roll kdh add 3 1 roll
  204. 3 copy/myb xd/mys xd/myh xd hsb2rgb rgb2cmyk}{$dk add 5 1 roll
  205. $dy add 5 1 roll $dm add 5 1 roll $dc add 5 1 roll
  206. $dt add 5 1 roll}ifelse}repeat 5 rp}bd/@ff{/$fss 0 def
  207. 1 1 $fsc 1 sub{dup 1 sub $fsit 0 eq{$fsa exch 5 mul
  208. 5 getinterval aload 2 rp/$frk xd/$fry xd/$frm xd/$frc xd
  209. /$frn _ def/$frt 1 def $fsa exch 5 mul 5 getinterval aload pop
  210. $fss add/$fse xd/$tok xd/$toy xd/$tom xd/$toc xd
  211. /$ton _ def/$tot 1 def}{$fsa exch 7 mul 7 getinterval aload 2 rp
  212. /$frt xd/$frn xd/$frk xd/$fry xd/$frm xd/$frc xd
  213. $fsa exch 7 mul 7 getinterval aload pop $fss add/$fse xd
  214. /$tot xd/$ton xd/$tok xd/$toy xd/$tom xd/$toc xd}ifelse
  215. $fsit 0 eq SepMode 0 eq or dup not CurrentInkName $frn eq
  216. and or{@sv eoclip currentflat dup 5 mul setflat
  217. Bbllx Bblly Bburx Bbury $fty 2 eq{@ftc}{$fty 1 eq{1 index 3 index m
  218. 2 copy l 3 index 1 index l 3 index 3 index l
  219. @cp @ftr}{1 index 3 index m 2 copy l 3 index 1 index l
  220. 3 index 3 index l @cp 4 rp $fan rotate pathbbox
  221. @ftl}ifelse}ifelse setflat @rs/$fss $fse def}if}for
  222. @np}bd/@Pf{@sv SepMode 0 eq $ink 3 eq or{0 J 0 j [] 0 d
  223. $t $c $m $y $k $n $o @scc pop $ctm setmatrix
  224. 72 1000 div dup matrix scale dup concat dup Bburx exch Bbury exch
  225. itransform ceiling cvi/Bbury xd ceiling cvi/Bburx xd
  226. Bbllx exch Bblly exch itransform floor cvi/Bblly xd
  227. floor cvi/Bbllx xd $Prm aload pop $Psn load exec}{1 SetGry eofill}ifelse
  228. @rs @np}bd/F{matrix currentmatrix $sdf{$scf $sca $scp @ss}if
  229. $fil 1 eq{@pf}{$fil 2 eq{@ff}{$fil 3 eq{@Pf}{$t $c $m $y $k $n $o
  230. @scc{eofill}{@np}ifelse}ifelse}ifelse}ifelse
  231. $sdf{$dsf $dsa $dsp @ss}if setmatrix}bd/f{@cp F}bd
  232. /S{matrix currentmatrix $ctm setmatrix $SDF{$SCF $SCA $SCP @ss}if
  233. $T $C $M $Y $K $N $O @scc{matrix currentmatrix
  234. $ptm concat stroke setmatrix}{@np}ifelse $SDF{$dsf $dsa $dsp @ss}if
  235. setmatrix}bd/s{@cp S}bd/B{@gs F @gr S}bd/b{@cp B}bd
  236. /E{5 array astore exch cvlit exch def}bd/@cc{
  237. currentfile $dat readhexstring pop}bd/@sm{/$ctm $ctm currentmatrix def
  238. }bd/@E{/Bbury xd/Bburx xd/Bblly xd/Bbllx xd}bd
  239. /@c{@cp}bd/@p{/$fil 1 def 1 eq dup/$vectpat xd{/$pfrg true def}{@gs
  240. $t $c $m $y $k $n $o @scc/$pfrg xd @gr}ifelse
  241. /$pm xd/$psy xd/$psx xd/$pyf xd/$pxf xd/$pn xd}bd
  242. /@P{/$fil 3 def/$Psn xd array astore/$Prm xd}bd
  243. /@k{/$fil 2 def/$roy xd/$rox xd/$pad xd/$fty xd/$fan xd
  244. $fty 1 eq{/$fan 0 def}if/$frb xd/$fst xd/$fsc xd
  245. /$fsa xd/$fsit 0 def}bd/@x{/$fil 2 def/$roy xd/$rox xd/$pad xd
  246. /$fty xd/$fan xd $fty 1 eq{/$fan 0 def}if/$frb xd
  247. /$fst xd/$fsc xd/$fsa xd/$fsit 1 def}bd/@ii{concat
  248. 3 index 3 index m 3 index 1 index l 2 copy l
  249. 1 index 3 index l 3 index 3 index l clip 4 rp}bd
  250. /tcc{@cc}def/@i{@sm @gs @ii 6 index 1 ne{/$frg true def
  251. 2 rp}{1 eq{s1t s1c s1m s1y s1k s1n $o @scc
  252. /$frg xd}{/$frg false def}ifelse 1 eq{@gs $ctm setmatrix
  253. F @gr}if}ifelse @np/$ury xd/$urx xd/$lly xd/$llx xd
  254. /$bts xd/$hei xd/$wid xd/$dat $wid $bts mul 8 div ceiling cvi string def
  255. $bkg $frg or{$SDF{$SCF $SCA $SCP @ss}if $llx $lly Tl
  256. $urx $llx sub $ury $lly sub scale $bkg{$t $c $m $y $k $n $o @scc pop}if
  257. $wid $hei abs $bts 1 eq{$bkg}{$bts}ifelse [ $wid 0 0
  258. $hei neg 0 $hei 0 gt{$hei}{0}ifelse]/tcc load
  259. $bts 1 eq{imagemask}{image}ifelse $SDF{$dsf $dsa $dsp @ss}if}{
  260. $hei abs{tcc pop}repeat}ifelse @gr $ctm setmatrix}bind def
  261. /@M{@sv}bd/@N{/@cc{}def 1 eq{12 -1 roll neg 12 1 roll
  262. @I}{13 -1 roll neg 13 1 roll @i}ifelse @rs}bd
  263. /@I{@sm @gs @ii @np/$ury xd/$urx xd/$lly xd/$llx xd
  264. /$ncl xd/$bts xd/$hei xd/$wid xd/$dat $wid $bts mul $ncl mul 8 div ceiling cvi string def
  265. $ngx $llx $lly Tl $urx $llx sub $ury $lly sub scale
  266. $wid $hei abs $bts [ $wid 0 0 $hei neg 0 $hei 0 gt{$hei}{0}ifelse]
  267. /@cc load false $ncl ColorImage $SDF{$dsf $dsa $dsp @ss}if
  268. @gr $ctm setmatrix}bd/z{exch findfont exch scalefont setfont}bd
  269. /ZB{9 dict dup begin 4 1 roll/FontType 3 def
  270. /FontMatrix xd/FontBBox xd/Encoding 256 array def
  271. 0 1 255{Encoding exch/.notdef put}for/CharStrings 256 dict def
  272. CharStrings/.notdef{}put/Metrics 256 dict def
  273. Metrics/.notdef 3 -1 roll put/BuildChar{exch
  274. dup/$char exch/Encoding get 3 index get def
  275. dup/Metrics get $char get aload pop setcachedevice
  276. begin Encoding exch get CharStrings exch get
  277. end exec}def end definefont pop}bd/ZBAddChar{findfont begin
  278. dup 4 1 roll dup 6 1 roll Encoding 3 1 roll put
  279. CharStrings 3 1 roll put Metrics 3 1 roll put
  280. end}bd/Z{findfont dup maxlength 2 add dict exch
  281. dup{1 index/FID ne{3 index 3 1 roll put}{2 rp}ifelse}forall
  282. pop dup dup/Encoding get 256 array copy dup/$fe xd
  283. /Encoding exch put dup/Fontname 3 index put
  284. 3 -1 roll dup length 0 ne{0 exch{dup type 0 type eq{exch pop}{
  285. $fe exch 2 index exch put 1 add}ifelse}forall
  286. pop}if dup 256 dict dup/$met xd/Metrics exch put
  287. dup/FontMatrix get 0 get 1000 mul 1 exch div
  288. 3 index length 256 eq{0 1 255{dup $fe exch get
  289. dup/.notdef eq{2 rp}{5 index 3 -1 roll get
  290. 2 index mul $met 3 1 roll put}ifelse}for}if
  291. pop definefont pop pop}bd/@ftx{{currentpoint 3 -1 roll
  292. (0) dup 3 -1 roll 0 exch put dup @gs true charpath
  293. $ctm setmatrix @@txt @gr @np stringwidth pop 3 -1 roll add exch moveto
  294. }forall}bd/@ft{matrix currentmatrix exch $sdf{$scf $sca $scp @ss}if
  295. $fil 1 eq{/@@txt/@pf ld @ftx}{$fil 2 eq{/@@txt/@ff ld @ftx}{$fil 3 eq
  296. {/@@txt/@Pf ld @ftx}{$t $c $m $y $k $n $o @scc{show}{pop}ifelse}ifelse
  297. }ifelse}ifelse $sdf{$dsf $dsa $dsp @ss}if setmatrix}bd
  298. /@st{matrix currentmatrix exch $SDF{$SCF $SCA $SCP @ss}if
  299. $T $C $M $Y $K $N $O @scc{{currentpoint 3 -1 roll
  300. (0) dup 3 -1 roll 0 exch put dup @gs true charpath
  301. $ctm setmatrix $ptm concat stroke @gr @np stringwidth pop 3 -1 roll add exch moveto
  302. }forall}{pop}ifelse $SDF{$dsf $dsa $dsp @ss}if
  303. setmatrix}bd/@te{@ft}bd/@tr{@st}bd/@ta{dup
  304. @gs @ft @gr @st}bd/@t@a{dup @gs @st @gr @ft}bd
  305. /@tm{@sm concat}bd/e{/t{@te}def}bd/r{/t{@tr}def}bd
  306. /o{/t{pop}def}bd/a{/t{@ta}def}bd/@a{/t{@t@a}def}bd
  307. /t{@te}def/T{@np $ctm setmatrix/$ttm matrix def}bd
  308. /ddt{t}def/@t{/$stm $stm currentmatrix def
  309. 3 1 roll moveto $ttm concat ddt $stm setmatrix}bd
  310. /@n{/$ttm exch matrix rotate def}bd/@s{}bd
  311. /@l{}bd/@B{@gs S @gr F}bd/@b{@cp @B}bd/@sep{
  312. CurrentInkName (Composite) eq{/$ink -1 def}{CurrentInkName (Cyan) eq
  313. {/$ink 0 def}{CurrentInkName (Magenta) eq{/$ink 1 def}{
  314. CurrentInkName (Yellow) eq{/$ink 2 def}{CurrentInkName (Black) eq
  315. {/$ink 3 def}{/$ink 4 def}ifelse}ifelse}ifelse}ifelse}ifelse}bd
  316. /@whi{@gs -72000 dup moveto -72000 72000 lineto
  317. 72000 dup lineto 72000 -72000 lineto closepath 1 SetGry fill
  318. @gr}bd/@neg{ [{1 exch sub}/exec cvx currenttransfer/exec cvx] cvx settransfer
  319. @whi}bd/currentscale{1 0 dtransform matrix defaultmatrix idtransform
  320. dup mul exch dup mul add sqrt 0 1 dtransform
  321. matrix defaultmatrix idtransform dup mul exch dup mul add sqrt}bd
  322. /@unscale{currentscale 1 exch div exch 1 exch div exch scale}bd
  323. /@square{dup 0 rlineto dup 0 exch rlineto neg 0 rlineto
  324. closepath}bd/corelsym{gsave newpath Tl -90 rotate
  325. 7{45 rotate -.75 2 moveto 1.5 @square fill}repeat
  326. grestore}bd/@reg{gsave newpath Tl -6 -6 moveto 12 @square
  327. gsave 1 GetGry sub SetGry fill grestore 4{90 rotate
  328. 0 4 m 0 4 rl}repeat stroke 0 0 corelsym grestore}bd
  329. /$corelmeter [1 .95 .75 .50 .25 .05 0] def
  330. /@colormeter{@gs newpath 0 SetGry 0.3 setlinewidth
  331. /Courier findfont 5 scalefont setfont/y exch def
  332. /x exch def 0 1 6{x 20 sub y m 20 @square @gs $corelmeter exch get dup SetGry fill @gr
  333. stroke x 2 add y 8 add moveto 100 mul 100 exch sub cvi 20 string cvs show
  334. /y y 20 add def}for @gr}bd/@crop{gsave .3 setlinewidth
  335. 0 SetGry Tl rotate 0 0 m 0 -24 rl -4 -24 m 8 @square
  336. -4 -20 m 8 0 rl stroke grestore}bd/@colorbox{gsave
  337. newpath Tl 100 exch sub 100 div SetGry -8 -8 moveto 16 @square fill
  338. 0 SetGry 10 -2 moveto show grestore}bd/deflevel 0 def
  339. /@sax{/deflevel deflevel 1 add def}bd/@eax{
  340. /deflevel deflevel dup 0 gt{1 sub}if def deflevel 0 gt{/eax load}{eax}
  341. ifelse}bd/eax{{exec}forall}bd/@rax{deflevel 0 eq{@rs @sv}if}bd
  342. /@daq{dup type/arraytype eq{{}forall}if}bd
  343. /@BMP{/@cc xd 12 index 1 eq{12 -1 roll pop
  344. @i}{7 -2 roll 2 rp @I}ifelse}bd end
  345. %%EndResource
  346.