Return to psfuncts.psw CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / AppKit / Backspace

Annotation of Examples/AppKit/Backspace/psfuncts.psw, revision 1.1.1.1

1.1       root        1: defineps loadPSProcedures()
                      2:        /Rectfill {     0 0 4 2 roll rectfill } bind def
                      3: endps
                      4: 
                      5: 
                      6: defineps tweakWindow(userobject windowNum ; int level)
                      7: 
                      8:        % tweaks a window so it works as a background window
                      9: 
                     10:        level windowNum setwindowlevel
                     11:        true windowNum setautofill
                     12:        
                     13:        gsave
                     14:        windowNum windowdeviceround
                     15:        0 setgray
                     16:        setexposurecolor
                     17:        grestore
                     18: 
                     19: endps
                     20: 
                     21: 
                     22: defineps PSWmakeWindowGray(userobject windowNum)
                     23: 
                     24:        % sets a windows tier to level
                     25:        gsave
                     26:        windowNum windowdeviceround
                     27:        0.333 setgray
                     28:        setexposurecolor
                     29:        grestore
                     30: 
                     31: endps
                     32: 
                     33: 
                     34: defineps PSWDefineFont(char *fontname)
                     35:   
                     36:        9 dict dup begin
                     37:                /FontName /fontname def
                     38:                /FontType 3 def
                     39:                /FontMatrix [1 0 0 1 0 0] def
                     40:                /FontBBox [0 0 7 7] def
                     41:                
                     42: 
                     43:                /Encoding 256 array def
                     44:                        0 1 255 {Encoding exch /.notdef put} for
                     45:        
                     46:                Encoding
                     47:                        dup (a) 0 get /az put
                     48:                        dup (b) 0 get /bz put
                     49:                        dup (c) 0 get /cz put
                     50:                        dup (d) 0 get /dz put
                     51:                        dup (e) 0 get /ez put
                     52:                        dup (f) 0 get /fz put
                     53:                        dup (g) 0 get /gz put
                     54:                        dup (h) 0 get /hz put
                     55:                        dup (i) 0 get /iz put
                     56:                        dup (j) 0 get /jz put
                     57:                        dup (k) 0 get /kz put
                     58:                        (l) 0 get /lz put
                     59:        
                     60:                /CharProcs 14 dict def
                     61:                CharProcs begin
                     62:                        /.notdef { } def
                     63:                        /az {1 1 Rectfill} bind def
                     64:                        /bz {2 1 Rectfill} bind def
                     65:                        /cz {2 2 Rectfill} bind def
                     66:                        /dz {3 2 Rectfill} bind def
                     67:                        /ez {3 3 Rectfill} bind def
                     68:                        /fz {3 3 Rectfill} bind def     
                     69:                                
                     70:                        /gz {3 4 moveto 3 4 lineto stroke} bind def             
                     71:                        /hz {2 4 moveto 3 4 lineto 3 5 lineto stroke} bind def          
                     72:                        /iz {2 4 moveto 4 4 lineto 3 3 moveto 3 5 lineto stroke} bind def               
                     73:                        /jz {1 4 moveto 5 4 lineto 3 2 moveto 3 6 lineto stroke} bind def               
                     74:                        /kz {1 4 moveto 5 4 lineto 3 2 moveto 3 6 lineto 
                     75:                                2 3 moveto 4 5 lineto 2 5 moveto 4 3 lineto stroke} bind def            
                     76:                        /lz {0 4 moveto 6 4 lineto 3 1 moveto 3 7 lineto
                     77:                                2 3 moveto 4 5 lineto 2 5 moveto 4 3 lineto stroke} bind def            
                     78:                end
                     79:        
                     80:                /BuildGlyph
                     81:                {
                     82:                        7 0 
                     83:                        0 0 7 7 setcachedevice
                     84:                        true setstrokeadjust
                     85:                        exch /CharProcs get exch
                     86:                                2 copy known not {pop /.notdef } if
                     87:                                get exec
                     88:                }  bind def
                     89:        
                     90:                /BuildChar
                     91:                {
                     92:                        1 index /Encoding get exch get
                     93:                        1 index /BuildGlyph get exec
                     94:                }  bind def
                     95: 
                     96:                % currentdict
                     97:        end
                     98:   
                     99:        /fontname exch definefont pop
                    100: endps
                    101: 
                    102: 
                    103: 
                    104: defineps PSWXYShow (float X, Y; char *CharString; float XYScratch[j]; int j)
                    105:        X Y moveto  (CharString) XYScratch xyshow
                    106: endps
                    107: 
                    108: defineps PSWorkspaceWindow(|float *x,*y,*w,*h)
                    109:        workspaceWindow currentwindowbounds h w y x
                    110: endps

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