Return to pattern.cps CVS log

Up to [WindowsNT SDKs] / ntddk / src / print / pscript / ps

Annotation of ntddk/src/print/pscript/ps/pattern.cps, revision 1.1.1.1

1.1       root        1: 
                      2: %%BeginResource: file Adobe_WinNT_Pattern 2.0 0
                      3: /SavedCTM null def/CTMsave{/SavedCTM SavedCTM currentmatrix def}b/CTMrestore{SavedCTM
                      4: setmatrix}b/mp null def/ADO_mxRot null def/GDIBWPatternDict 18 dict
                      5: dup begin/PatternType 1 def/PaintType L2?{1}{2}ifelse def/RepsV L2?{1}{6}ifelse
                      6: def/RepsH L2?{1}{5}ifelse def/BBox [0 0 RepsH 1] def/TilingType 1 def/XStep
                      7: 1 def/YStep 1 def/Height null def/Width null def/mx null def/FGnd null
                      8: def/BGnd null def/SetBGndFGnd L2?{{BGnd null ne{BGnd aload pop sgco
                      9: BBox aload pop 2 index sub exch 3 index sub exch rf}if FGnd null ne{FGnd
                     10: aload pop sgco}if}}{{}}ifelse b/PaintProc{begin SetBGndFGnd RepsH{Width
                     11: Height false mx PaintData imagemask Width 0 translate}repeat end}b
                     12: end def/GDIBWPatternMx null def/pfprep{save 6 1 roll/PatternOfTheDay
                     13: 6 1 roll GDIBWPatternDict begin/PaintData exch def/yExt exch def/Width
                     14: exch def/BGnd exch def/FGnd exch def/Height yExt RepsV mul def/mx [
                     15: Width 0 0 Height neg 0 Height ] def end gsave 72 DPI div -72 DPI div
                     16: scale GDIBWPatternDict begin Width Height end dsnap scale/GDIBWPatternMx
                     17: matrix currentmatrix def grestore CTMsave GDIBWPatternMx setmatrix
                     18: GDIBWPatternDict 0 8 matrix translate mp CTMrestore exch pop}b/hrf
                     19: null def/prf{pfprep exch 6 1 roll 5 hrf restore}b/GraphInit{GDIBWPatternMx
                     20: null eq{/SavedCTM matrix def gsave ADO_mxRot concat 0 0 _snap translate
                     21: grestore}if}b
                     22: %%EndResource
                     23: 
                     24: %%BeginResource: file Adobe_WinNT_Pattern_L1 2.0 0
                     25:  L2? not DefIf_B{/GDIpattfill{dup begin BGnd null ne PaintType
                     26: 2 eq and{gsave BGnd aload pop sgco fEOFill{eofill}{fill}ifelse grestore
                     27: FGnd aload pop userdict/fGray 2 index put{2}{4}ifelse -1 roll}if end
                     28: dup patterncalc gsave 4 index/PaintType get 2 eq{fGray{6 -1 roll sg}{8
                     29: -3 roll sco}ifelse}if fEOFill{eoclip}{clip}ifelse newpath patternfill
                     30: grestore newpath}b/hrf{/fGray 1 index 6 eq def -4 roll newpath rp closepath/fEOFill
                     31: false def GDIpattfill}b/mpstr 10 string def/mp{exch dup length 12 add
                     32: dict copy begin/PatternCTM matrix currentmatrix def/PatternMatrix exch
                     33: def/PatWidth XStep mpstr length mul def/PatHeight YStep def/FontType
                     34: 3 def/Encoding 256 array def 3 string 0 1 255{Encoding exch dup 3 index
                     35: cvs cvn put}for pop/FontMatrix matrix def/FontBBox BBox def/BuildChar{pop
                     36: dup begin XStep 0 FontBBox aload pop setcachedevice/PaintProc load
                     37: end gsave exec grestore}b currentdict end exch dup 3 -1 roll definefont}b/patterncalc{begin
                     38: gsave PatternCTM setmatrix PatternMatrix concat BBox aload pop pop
                     39: pop translate pathbbox grestore PatHeight div ceiling 4 1 roll PatWidth
                     40: div ceiling 4 1 roll PatHeight div floor 4 1 roll PatWidth div floor
                     41: 4 1 roll 2 index sub cvi abs exch 3 index sub cvi abs exch 4 2 roll
                     42: PatHeight mul exch PatWidth mul exch end}b/patternfill{5 -1 roll dup
                     43: begin setfont PatternCTM setmatrix PatternMatrix concat 0 2 index 2
                     44: index M 0 1 mpstr length 1 sub{1 index mpstr 3 1 roll put}for pop 2
                     45: index{currentpoint 5 index{mpstr show}repeat YStep add M}repeat pop
                     46: pop pop pop end}b}DefIf_E
                     47: %%EndResource
                     48: 
                     49: %%BeginResource: file Adobe_WinNT_Pattern_L2 2.0 0
                     50:  L2? DefIf_B{/mp/makepattern load def/hrf{6
                     51: eq setAorABC setpattern rectfill}b}DefIf_E
                     52: %%EndResource
                     53: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.