home *** CD-ROM | disk | FTP | other *** search
/ CorelDRAW! 10 / cd10_pgrm.iso / Corel / Graphics10 / Programs / Data / img100.ps < prev    next >
Encoding:
Text File  |  2000-09-05  |  3.8 KB  |  51 lines
  1. /@ii{concat 3 index 3 index m 3 index 1 index l 2 copy l 1 index 3 index l 3
  2. index 3 index l clip pop pop pop pop}bd/@i{@sm @gs @ii 6 index 1 ne{/$frg true
  3. def pop pop}{1 eq{s1t s1c s1m s1y s1k s1n $O @scc_5/$frg xd}{/$frg false def}
  4. ifelse 1 eq{@gs $ctm setmatrix F @gr}if}ifelse @np/$ury xd/$urx xd/$lly xd
  5. /$llx xd/$bts xd/$hei xd/$wid xd/$dat $wid $bts mul 8 div ceiling cvi string
  6. def $bkg $frg or{$SDF{$SCF $SCA $SCP @ss}if $llx $lly Tl $urx $llx sub $ury
  7. $lly sub scale $bkg{$t $c $m $y $k $n $o @scc_5 pop}if $wid $hei abs $bts 1 eq
  8. {$bkg}{$bts}ifelse[$wid 0 0 $hei neg 0 $hei 0 gt{$hei}{0}ifelse]/tcc load $bts
  9. 1 eq{imagemask}{image}ifelse $SDF{$dsf $dsa $dsp @ss}if}{$hei abs{tcc pop}
  10. repeat}ifelse @gr $ctm setmatrix}bd/@I{@sm @gs @ii @np/$ury xd/$urx xd/$lly xd
  11. /$llx xd/$ncl xd/$bts xd/$hei xd/$wid xd $ngx $llx $lly Tl $urx $llx sub $ury
  12. $lly sub scale $wid $hei abs $bts[$wid 0 0 $hei neg 0 $hei 0 gt{$hei}{0}ifelse
  13. ]$msimage false eq $ncl 1 eq or{/$dat $wid $bts mul $ncl mul 8 div ceiling cvi
  14. string def/@cc load false $ncl ColorImage}{$wid $bts mul 8 div ceiling cvi $ncl
  15. 3 eq{dup dup/$dat1 exch string def/$dat2 exch string def/$dat3 exch string def
  16. /@cc1 load/@cc2 load/@cc3 load}{dup dup dup/$dat1 exch string def/$dat2 exch
  17. string def/$dat3 exch string def/$dat4 exch string def/@cc1 load/@cc2 load
  18. /@cc3 load/@cc4 load}ifelse true $ncl ColorImage}ifelse $SDF{$dsf $dsa $dsp
  19. @ss}if @gr $ctm setmatrix}bd/@cc1{currentfile $dat1 readhexstring pop}bd/@cc2{
  20. currentfile $dat2 readhexstring pop}bd/@cc3{currentfile $dat3 readhexstring pop
  21. }bd/@cc4{currentfile $dat4 readhexstring pop}bd/$msimage false def/COMP 0 def
  22. /MaskedImage false def L2?{/@I_2{@sm @gs @ii @np/$ury xd/$urx xd/$lly xd/$llx
  23. xd/$ncl xd/$bts xd/$hei xd/$wid xd/$dat $wid $bts mul $ncl mul 8 div ceiling
  24. cvi string def $ngx $ncl 1 eq{/DeviceGray}{$ncl 3 eq{/DeviceRGB}{/DeviceCMYK}
  25. ifelse}ifelse setcolorspace $llx $lly Tl $urx $llx sub $ury $lly sub scale 8
  26. dict begin/ImageType 1 def/Width $wid def/Height $hei abs def/BitsPerComponent
  27. $bts def/Decode $ncl 1 eq{[0 1]}{$ncl 3 eq{[0 1 0 1 0 1]}{[0 1 0 1 0 1 0 1]}
  28. ifelse}ifelse def/ImageMatrix[$wid 0 0 $hei neg 0 $hei 0 gt{$hei}{0}ifelse]def
  29. /DataSource currentfile/ASCII85Decode filter COMP 1 eq{/DCTDecode filter}{COMP
  30. 2 eq{/RunLengthDecode filter}if}ifelse def currentdict end image $SDF{$dsf $dsa
  31. $dsp @ss}if @gr $ctm setmatrix}bd}{/@I_2{}bd}ifelse/@I_3{@sm @gs @ii @np/$ury
  32. xd/$urx xd/$lly xd/$llx xd/$ncl xd/$bts xd/$hei xd/$wid xd/$dat $wid $bts mul
  33. $ncl mul 8 div ceiling cvi string def $ngx $ncl 1 eq{/DeviceGray}{$ncl 3 eq
  34. {/DeviceRGB}{/DeviceCMYK}ifelse}ifelse setcolorspace $llx $lly Tl $urx $llx sub
  35. $ury $lly sub scale/ImageDataDict 8 dict def ImageDataDict begin/ImageType 1
  36. def/Width $wid def/Height $hei abs def/BitsPerComponent $bts def/Decode $ncl 1
  37. eq{[0 1]}{$ncl 3 eq{[0 1 0 1 0 1]}{[0 1 0 1 0 1 0 1]}ifelse}ifelse def
  38. /ImageMatrix[$wid 0 0 $hei neg 0 $hei 0 gt{$hei}{0}ifelse]def/DataSource
  39. currentfile/ASCII85Decode filter COMP 1 eq{/DCTDecode filter}{COMP 2 eq{
  40. /RunLengthDecode filter}if}ifelse def end/MaskedImageDict 7 dict def
  41. MaskedImageDict begin/ImageType 3 def/InterleaveType 3 def/MaskDict
  42. ImageMaskDict def/DataDict ImageDataDict def end MaskedImageDict image $SDF
  43. {$dsf $dsa $dsp @ss}if @gr $ctm setmatrix}bd/@SetMask{/$mbts xd/$mhei xd/$mwid
  44. xd/ImageMaskDict 8 dict def ImageMaskDict begin/ImageType 1 def/Width $mwid def
  45. /Height $mhei abs def/BitsPerComponent $mbts def/DataSource maskstream def
  46. /ImageMatrix[$mwid 0 0 $mhei neg 0 $mhei 0 gt{$mhei}{0}ifelse]def/Decode[1 0]
  47. def end}bd/@daq{dup type/arraytype eq{{}forall}if}bd/@BMP{/@cc xd UseLevel 3 eq
  48. MaskedImage true eq and{7 -2 roll pop pop @I_3}{12 index 1 gt UseLevel 2 eq
  49. UseLevel 3 eq or and{7 -2 roll pop pop @I_2}{11 index 1 eq{12 -1 roll pop @i}{
  50. 7 -2 roll pop pop @I}ifelse}ifelse}ifelse}bd
  51.