home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 March / VPR0003B.ISO / support / usprndrv / alpha / pscript4.dll / 259 / 18 < prev    next >
Text File  |  1999-10-14  |  2KB  |  33 lines
  1. %%BeginResource: file Pscript_Win_GdiObject_L1 5.0 0
  2. /GDIBWPatternDict 25 dict @ `/PatternType 1 d/PaintType 2 d/RepsV 6 d/RepsH 5 d
  3. /BBox[0 0 RepsH 1]d/TilingType 1 d/XStep 1 d/YStep 1 d/Height 8 RepsV mul d
  4. /Width 8 d/mx[Width 0 0 Height neg 0 Height]d/FGnd null d/BGnd null d
  5. /SetBGndFGnd{}b/PaintProc{` SetBGndFGnd RepsH{Width Height F mx PaintData
  6. imagemask Width 0 +}repeat E}b E d/GDIpattfill{@ ` BGnd null ne PaintType 2 eq
  7. and{: BGnd aload ! scol fEOFill{O}{L}? ; FGnd aload ! U/iCol 2 ^ put @ 0 eq{!
  8. 2}{@ 1 eq ~ 2 eq or{4}{5}?}? -1 $}if E @ patterncalc : 4 ^/PaintType get 2 eq
  9. {iCol 0 eq{6 -1 $}if iCol 1 eq iCol 2 eq or{8 -3 $}if iCol 3 eq iCol 4 eq or{9
  10. -4 $}if iCol scol}if fEOFill{eoclip}{clip}? N patternfill ; N}b/hbf
  11. {GDIpattfill}b/hfMain{/fEOFill ~ d ~/iCol ~ d GDIpattfill}b/hf{: hfMain ;}b
  12. /mpstr 1 string d/mp{~ @ length 12 add dict copy `/PatternCTM matrix
  13. currentmatrix d/PatternMatrix ~ d/PatWidth XStep mpstr length mul d/PatHeight
  14. YStep d/FontType 3 d/Encoding 256 array d 3 string 0 1 255{Encoding ~ @ 3 ^ cvs
  15. cvn put}for !/FontMatrix matrix d/FontBBox BBox d/BuildChar{! @ ` XStep 0
  16. FontBBox aload ! setcachedevice/PaintProc , E : exec ;}b & E ~ @ 3 -1 $
  17. definefont}b/build_pattern{: GDIBWPatternDict ` Width Height E dsnap +S
  18. /GDIBWPatternMx matrix currentmatrix d ; CTMsave GDIBWPatternMx setmatrix
  19. GDIBWPatternDict @ ` xOrg yOrg E matrix + mp CTMrestore}b/patterncalc{` :
  20. PatternCTM setmatrix PatternMatrix concat BBox aload ! ! ! + pathbbox ;
  21. PatHeight V ceiling 4 1 $ PatWidth V ceiling 4 1 $ PatHeight V floor 4 1 $
  22. PatWidth V floor 4 1 $ 2 ^ sub cvi abs ~ 3 ^ sub cvi abs ~ 4 2 $ PatHeight mul
  23. ~ PatWidth mul ~ E}b/patternfill{5 -1 $ @ ` Ji PatternCTM setmatrix
  24. PatternMatrix concat 0 2 ^ 2 ^ M 0 1 mpstr length 1 sub{1 ^ mpstr 3 1 $ put}for
  25. ! 2 ^{currentpoint 5 ^{mpstr S}repeat YStep add M}repeat ! ! ! ! E}b/pbf{: 14
  26. dict `/fGray ~ d/fEOFill ~ d/yOrg ~ d/xOrg ~ d/PaintData ~ d/OutputBPP ~ d
  27. /Height ~ d/Width ~ d/mx xOrg yOrg matrix + d fGray{/PaintProc{` Width Height
  28. OutputBPP mx PaintData image E}b}{/PaintProc{` Width Height 8 mx PaintData F
  29. OutputBPP 8 idiv colorimage E}b}? pathbbox fEOFill{eoclip}{clip}?/Top ~ d/Right
  30. ~ d/Bottom ~ d/Left ~ d Top Height neg Bottom 1 sub{Left Width Right 1 sub{1 ^
  31. 2 copy + & PaintProc neg ~ neg ~ +}bind for !}bind for E ;}b
  32. %%EndResource
  33.