/size 200 def

/starside
{ size 0 lineto
  currentpoint translate
  -144 rotate} def

/star
{ currentrgbcolor initgraphics setrgbcolor moveto
  currentpoint translate
  20 rotate
  4 {starside} repeat
  closepath} def

/e {erasepage} def

/lots {
1 1 100 {pop vsr vsr vsr setrgbcolor 
         /size smallr 2 div def smallr smallr 2 mul star fill} for} def

/smallr {rand 50 div} def

/vsr {rand 17000 div dup 1 gt {pop vsr} if} def

/a {740 -10 10 {/size exch def vsr vsr vsr setrgbcolor 5 500 star fill} for
   } def

/f {
1 1 100 {pop vsr vsr vsr setrgbcolor 
         /size smallr 2 div def smallr smallr 2 mul star} for gsave} def

/g {grestore gsave} def
