home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 March / VPR0003B.ISO / support / usprndrv / i386 / pscript4.dll / 259 / 16 < prev    next >
Text File  |  1999-10-14  |  3KB  |  42 lines
  1. %%BeginResource: file Pscript_Win_Dib_L2 5.0 0
  2. /iw 0 d/ih 0 d/im_save 0 d/s 0 d/polarity 0 d/smoothflag 0 d/mystring 0 d/bpc 0
  3. d/maskcolor 0 d/mask? F d/setup1asciiproc{[currentfile mystring/readhexstring
  4. cvx/! cvx]cvx bind}b/setup1binaryproc{[currentfile mystring/readstring cvx/!
  5. cvx]cvx bind}b/setup2asciiproc{currentfile/ASCII85Decode filter/RunLengthDecode
  6. filter}b/setup2binaryproc{currentfile/RunLengthDecode filter}b/jpegasciiproc
  7. {currentfile/ASCII85Decode filter<</Relax 1>>/DCTDecode filter}b/jpegbinaryproc
  8. {currentfile<</Relax 1>>/DCTDecode filter}b/mycolorspace{colspABC}d/myimagedict
  9. {/myimagedict 10 dict d myimagedict @ `/ImageType 1 d/MultipleDataSource F d E}
  10. b/imageprocarray[/setup1binaryproc/setup1asciiproc/setup2binaryproc
  11. /setup2asciiproc/setup1binarydecodeproc/setup1asciidecodeproc]d/jpegprocarray[
  12. /jpegasciiproc/jpegbinaryproc]d/Q{/im_save save d scol imageprocarray ~ get/s ~
  13. , d/polarity ~ d/smoothflag ~ d +/dx 2 ^ d/dy 1 ^ d +S/mystring ~ string d/bpc
  14. ~ d/ih ~ d/iw ~ d fx rf}b/X{/im_save save d/mask? ~ d/maskcolor ~ d
  15. imageprocarray ~ get/s ~ , d/polarity ~ d/smoothflag ~ d +/dx 2 ^ d/dy 1 ^ d +S
  16. /mystring ~ string d/bpc ~ d/ih ~ d/iw ~ d}b/Z{im_save restore}b/beginjpeg{
  17. /jpeg_save save d jpegprocarray ~ get/jpegimageproc ~ , d + +S/bpc ~ d/ih ~ d
  18. /iw ~ d bpc 24 eq{/DeviceRGB}{/DeviceGray}? setcolorspace myimagedict @ `
  19. /ImageType 1 d/Width iw d/Height ih d/Decode bpc 24 eq{[0 1 0 1 0 1]}{[0 1]}? d
  20. /ImageMatrix[iw 0 0 ih 0 0]d/BitsPerComponent 8 d/DataSource jpegimageproc d E
  21. image}b/endjpeg{jpeg_save restore}b/Y{scol myimagedict @ ` mask?{/ImageType 4 d
  22. /MaskColor maskcolor d}if/Width iw d/Height ih d/Decode polarity{[1 0]}{[0 1]}?
  23. d/ImageMatrix[iw 0 0 ih 0 0]d/DataSource s d/BitsPerComponent 1 d/Interpolate
  24. smoothflag d E imagemask}bd/doclutimage{/rgbclut ~ d bpc @ 8 eq{! 255}{4 eq{15}
  25. {3}?}?/hival ~ d[/Indexed currentcolorspace hival rgbclut]setcolorspace
  26. myimagedict @ ` mask?{/ImageType 4 d/MaskColor maskcolor d}if/Width iw d/Height
  27. ih d/Decode[0 hival]d/ImageMatrix[iw 0 0 ih 0 0]d/DataSource s d
  28. /BitsPerComponent bpc d/Interpolate smoothflag d E image}b/doCMYKclutimage{
  29. /CMYKclut ~ d bpc @ 8 eq{! 255}{4 eq{15}{3}?}?/hival ~ d[/Indexed/DeviceCMYK
  30. hival CMYKclut]setcolorspace myimagedict @ ` mask?{/ImageType 4 d/MaskColor
  31. maskcolor d}if/Width iw d/Height ih d/Decode[0 hival]d/ImageMatrix[iw 0 0 ih 0
  32. 0]d/DataSource s d/BitsPerComponent bpc d/Interpolate smoothflag d E image}b
  33. /doNimage{bpc 24 eq{currentcolorspace}{colspA}? setcolorspace myimagedict @ `
  34. mask?{/ImageType 4 d/MaskColor maskcolor d}if/Width iw d/Height ih d/Decode bpc
  35. 24 eq{[0 1 0 1 0 1]}{[0 1]}? d/ImageMatrix[iw 0 0 ih 0 0]d/DataSource s d
  36. /BitsPerComponent bpc 24 eq{8}{bpc}? d/Interpolate smoothflag d E image}b
  37. /doCMYKimage{/DeviceCMYK setcolorspace myimagedict @ ` mask?{/ImageType 4 d
  38. /MaskColor maskcolor d}if/Width iw d/Height ih d/Decode[0 1 0 1 0 1 0 1]d
  39. /ImageMatrix[iw 0 0 ih 0 0]d/DataSource s d/BitsPerComponent 8 d/Interpolate
  40. smoothflag d E image}b
  41. %%EndResource
  42.