| 1 | %!PS-Adobe-3.0 EPSF-3.0 |
|---|
| 2 | %%BoundingBox: 0 0 400 500 |
|---|
| 3 | %%%%%%%%%%%%%%%% Based on example 4.21, from Postscript Reference Manual, page 255 |
|---|
| 4 | 0 100 translate |
|---|
| 5 | |
|---|
| 6 | |
|---|
| 7 | /Star4 |
|---|
| 8 | << |
|---|
| 9 | /PatternType 1 % Tiling pattern |
|---|
| 10 | /PaintType 1 % Colored |
|---|
| 11 | /TilingType 1 |
|---|
| 12 | /BBox [0 0 60 60] |
|---|
| 13 | /XStep 60 |
|---|
| 14 | /YStep 60 |
|---|
| 15 | |
|---|
| 16 | /star |
|---|
| 17 | { gsave |
|---|
| 18 | 0 12 moveto |
|---|
| 19 | 4 {144 rotate 0 12 lineto} repeat |
|---|
| 20 | closepath fill |
|---|
| 21 | grestore } bind |
|---|
| 22 | |
|---|
| 23 | /PaintProc |
|---|
| 24 | { begin % Push pattern on dictionary stack |
|---|
| 25 | 1 0 0 setrgbcolor % Set color for dark gray stars |
|---|
| 26 | 15 15 translate star |
|---|
| 27 | 30 30 translate star |
|---|
| 28 | 0.9 setgray % Set color for light gray stars |
|---|
| 29 | -30 0 translate star |
|---|
| 30 | 30 -30 translate star |
|---|
| 31 | end } bind |
|---|
| 32 | >> |
|---|
| 33 | matrix |
|---|
| 34 | makepattern |
|---|
| 35 | def |
|---|
| 36 | |
|---|
| 37 | |
|---|
| 38 | /Pattern setcolorspace |
|---|
| 39 | Star4 setcolor |
|---|
| 40 | 120 120 184 120 rectfill |
|---|
| 41 | |
|---|
| 42 | 0.0 setgray |
|---|
| 43 | 120 120 184 120 rectstroke |
|---|
| 44 | /Times-Roman 270 selectfont |
|---|
| 45 | 160 100 translate |
|---|
| 46 | 0.5 setgray |
|---|
| 47 | 0 0 moveto (A) show |
|---|
| 48 | |
|---|
| 49 | |
|---|
| 50 | /Pattern setcolorspace |
|---|
| 51 | Star4 setcolor |
|---|
| 52 | 0 0 moveto (A) show |
|---|
| 53 | |
|---|
| 54 | |
|---|
| 55 | |
|---|
