home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2004 September / maximum-cd-2004-09.iso / Software / Apps / CorelDRAWGraphicsSuite12.exe / Data1.cab / shfill.ps < prev    next >
Encoding:
Text File  |  2003-10-30  |  2.0 KB  |  29 lines
  1. % Copyright (c)1992-2003 Corel Corporation
  2. % All rights reserved.     v12 r0.0
  3. /CorelShfillMapColor{SepMode_5 0 ne{0 4 $ink_5 sub index exch pop 2 index type
  4. /stringtype eq{pop exch CurrentInkName_5 ne{pop 0}if 5 1 roll pop pop pop pop
  5. SepsColor true eq{0 0 0 4 -1 roll}{1 sub neg}ifelse}{5 1 roll pop pop pop pop
  6. SepsColor true eq{$ink_5 3 gt{1 sub neg}{0 0 0 4 $ink_5 roll}ifelse}{1 sub neg
  7. }ifelse}ifelse}if}bd/CorelShfillGetColorSpace{SepMode_5 0 eq{/DeviceCMYK}{
  8. SepsColor true eq{/DeviceCMYK}{/DeviceGray}ifelse}ifelse}bd
  9. /CorelShfillDoLinearParams{flattenpath pathbbox 2 index add 2 div/$y1 xd/$x1 xd
  10. $y1/$y0 xd pop/$x0 xd $x1 $x0 sub $pad mul/$pdw xd $x1 $pdw sub/$x1 xd $x0 $pdw
  11. add/$x0 xd $x0 $x1 add 2 div/$xmid xd $y0/$ymid xd $xmid $x1 sub/$x1 xd $x1 neg
  12. /$x0 xd 0/$y0 xd 0/$y1 xd $xmid $ymid translate/Coords[$x1 $y1 $x0 $y0]}def
  13. /CorelShfillDoRadialSquareParams{flattenpath pathbbox/$y1 xd/$x1 xd/$y0 xd/$x0
  14. xd $x1 $x0 sub/$width xd $y1 $y0 sub/$height xd $rox $width mul/$row xd $roy
  15. $height mul/$roh xd $x0 $width 2 div add/$x0 xd $y0 $height 2 div add/$y0 xd
  16. $x0 $row add/$x0 xd $y0 $roh add/$y0 xd $x0/$x1 xd $y0/$y1 xd $width dup mul
  17. $height dup mul add sqrt 2 div $row dup mul $roh dup mul add sqrt add 1 $pad 2
  18. mul sub mul/$rad0 xd 0/$rad1 xd}def/CorelShfillDoRadialParams{
  19. CorelShfillDoRadialSquareParams/Coords[$x0 $y0 $rad0 $x1 $y1 $rad1]}def
  20. /CorelShfillDoSquareParams{CorelShfillDoRadialSquareParams $x0 $y0 translate
  21. $rad0/$x1 xd $x1 neg/$x0 xd $rad0/$y1 xd $y1 neg/$y0 xd/DataSource[0 0 0 1 0
  22. $x1 $y1 0 0 $x0 $y1 0 2 $x0 $y0 0 2 $x1 $y0 0 2 $x1 $y1 0]}def
  23. /CorelShfillDoParams{/CorelShfillFunction exch bd/$roy xd/$rox xd/$pad xd/$fan
  24. xd/$fil 4 def}bd/CorelShfillDoFill{currentdict/CorelShfillFunction known{$ctm
  25. setmatrix wclip Bbllx Bblly Bburx Bbury 1 index 3 index m 2 copy l 3 index 1
  26. index l 3 index 3 index l @cp pop pop pop pop $fan rotate $o 1 eq setoverprint
  27. CorelShfillFunction}{}ifelse}bd/CorelShfillDoMesh{$o 1 eq setoverprint shfill}
  28. bd
  29.