Flag.ps

The following should produce a PostScript version of the American flag:

%!PS
%%BoundingBox: 0 0 792 612
/w 792 def /h 612 def
/hh h 13 div def
/star { 0 x newpath moveto
1 1 5 { 144 rotate 0 x lineto } for fill } def
gsave
1 0 0 setrgbcolor
0 2 13 {0 0 newpath moveto w 0 rlineto 0 hh rlineto w neg 0 rlineto closepath fill
0 hh 2 mul translate} for
grestore
0 hh 6 mul translate
0 0 1 setrgbcolor 0 0 newpath moveto
/w w 2 div def
w 0 rlineto 0 hh 7 mul rlineto w neg 0 rlineto closepath fill
/x 15 def
1 setgray
/hh hh 7 mul def
1 2 11 {/a exch w mul 12 div def
1 2 9 {/b exch hh mul 10 div def gsave a b translate star grestore } for } for
2 2 10 {/a exch w mul 12 div def
2 2 8 {/b exch hh mul 10 div def gsave a b translate star grestore } for } for
showpage