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     ! 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.