home *** CD-ROM | disk | FTP | other *** search
/ CorelDRAW! 10 / cd10_pgrm.iso / Corel / Graphics10 / Programs / Data / shfill100.ps < prev    next >
Encoding:
Text File  |  2000-09-05  |  1.9 KB  |  27 lines
  1. /CorelShfillMapColor{SepMode_5 0 ne{0 4 $ink_5 sub index exch pop 2 index type
  2. /stringtype eq{pop exch CurrentInkName_5 ne{pop 0}if 5 1 roll pop pop pop pop
  3. SepsColor true eq{0 0 0 4 -1 roll}{1 sub neg}ifelse}{5 1 roll pop pop pop pop
  4. SepsColor true eq{$ink_5 3 gt{1 sub neg}{0 0 0 4 $ink_5 roll}ifelse}{1 sub neg
  5. }ifelse}ifelse}if}bd/CorelShfillGetColorSpace{SepMode_5 0 eq{/DeviceCMYK}{
  6. SepsColor true eq{/DeviceCMYK}{/DeviceGray}ifelse}ifelse}bd
  7. /CorelShfillDoLinearParams{flattenpath pathbbox 2 index add 2 div/$y1 xd/$x1 xd
  8. $y1/$y0 xd pop/$x0 xd $x1 $x0 sub $pad mul/$pdw xd $x1 $pdw sub/$x1 xd $x0 $pdw
  9. add/$x0 xd $x0 $x1 add 2 div/$xmid xd $y0/$ymid xd $xmid $x1 sub/$x1 xd $x1 neg
  10. /$x0 xd 0/$y0 xd 0/$y1 xd $xmid $ymid translate/Coords[$x1 $y1 $x0 $y0]}def
  11. /CorelShfillDoRadialSquareParams{flattenpath pathbbox/$y1 xd/$x1 xd/$y0 xd/$x0
  12. xd $x1 $x0 sub/$width xd $y1 $y0 sub/$height xd $rox $width mul/$row xd $roy
  13. $height mul/$roh xd $x0 $width 2 div add/$x0 xd $y0 $height 2 div add/$y0 xd
  14. $x0 $row add/$x0 xd $y0 $roh add/$y0 xd $x0/$x1 xd $y0/$y1 xd $width dup mul
  15. $height dup mul add sqrt 2 div $row dup mul $roh dup mul add sqrt add 1 $pad 2
  16. mul sub mul/$rad0 xd 0/$rad1 xd}def/CorelShfillDoRadialParams{
  17. CorelShfillDoRadialSquareParams/Coords[$x0 $y0 $rad0 $x1 $y1 $rad1]}def
  18. /CorelShfillDoSquareParams{CorelShfillDoRadialSquareParams $x0 $y0 translate
  19. $rad0/$x1 xd $x1 neg/$x0 xd $rad0/$y1 xd $y1 neg/$y0 xd/DataSource[0 0 0 1 0
  20. $x1 $y1 0 0 $x0 $y1 0 2 $x0 $y0 0 2 $x1 $y0 0 2 $x1 $y1 0]}def
  21. /CorelShfillDoParams{/CorelShfillFunction exch bd/$roy xd/$rox xd/$pad xd/$fan
  22. xd/$fil 4 def}bd/CorelShfillDoFill{currentdict/CorelShfillFunction known{$ctm
  23. setmatrix wclip Bbllx Bblly Bburx Bbury 1 index 3 index m 2 copy l 3 index 1
  24. index l 3 index 3 index l @cp pop pop pop pop $fan rotate $o 1 eq setoverprint
  25. CorelShfillFunction}{}ifelse}bd/CorelShfillDoMesh{$o 1 eq setoverprint shfill}
  26. bd
  27.