Return to Level2Stars.eps CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / PostScript

Annotation of Examples/PostScript/Level2Stars.eps, revision 1.1.1.1

1.1       root        1: %!PS-Adobe-2.0 EPSF-2.0
                      2: %%Title: Level2Stars.eps
                      3: %%Creator: Ali Ozer
                      4: %%CreationDate: Fri May 29 14:00:03 1992
                      5: %%BoundingBox: 0 0 600 200
                      6: %%DocumentFonts: Times-BoldItalic
                      7: %%EndComments
                      8: 
                      9: % First check to see if this device is Level II
                     10: 
                     11: /DeviceIsLevel2
                     12:     systemdict /languagelevel known {languagelevel 2 ge} {false} ifelse
                     13: def
                     14: 
                     15: DeviceIsLevel2 {       % A PostScript Level 2 device
                     16: 
                     17:     % Star code mostly from chapter 4 of the Second Edition
                     18:     % of the PostScript Language Reference Manual
                     19:     
                     20:     8 dict dup begin
                     21:        /PatternType    1 def
                     22:        /PaintType      1 def
                     23:        /TilingType     1 def
                     24:        /BBox           [0 0 40 40] def
                     25:        /XStep          40 def
                     26:        /YStep          40 def
                     27:        /star           {
                     28:            gsave 0 8 moveto 4 {144 rotate 0 8 lineto} repeat
                     29:            closepath fill grestore
                     30:        } def
                     31:        /PaintProc      {
                     32:            begin
                     33:            0.333 setgray 0 0 40 40 rectfill
                     34:            1.0 0.0 0.0 setrgbcolor 10 10 translate star
                     35:            0.0 1.0 0.0 setrgbcolor 0 20 translate star
                     36:            0.0 0.0 1.0 setrgbcolor 20 -20 translate star
                     37:            1.0 1.0 0.0 setrgbcolor 0 20 translate star
                     38:            end
                     39:        } def
                     40:     end
                     41:     matrix makepattern
                     42:     /starpattern exch def
                     43: 
                     44:     /setStarPattern {
                     45:         starpattern setpattern
                     46:     } def     
                     47: 
                     48: } {    % Not a PostScript Level 2 device!
                     49:     
                     50:     /setStarPattern {  % We have to fake the pattern
                     51:         0.5 setgray
                     52:     } def     
                     53: 
                     54: } ifelse
                     55: 
                     56: /centerText {  % (str) y w centerText -
                     57:     2 index stringwidth        % (str) y w wx wy
                     58:     pop sub 2 div      % (str) y (w-wx)/2
                     59:     exch moveto                % (str)
                     60:     show
                     61: } def
                     62: 
                     63: 0.333 setgray
                     64: /Times-BoldItalic findfont 24 scalefont setfont
                     65: (If the text below is filled with stars, then this is a) 170 600 centerText
                     66: (device) 10 600 centerText
                     67: 
                     68: setStarPattern
                     69: /Times-BoldItalic findfont 160 scalefont setfont
                     70: (Level 2) 40 600 centerText

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