my god! it's full of stars

stars.ps

/starpath { % n r1 r2 x y
    matrix currentmatrix 6 1 roll                % [] n r1 r2 x y
    translate                                    % [] n r1 r2
    10 dict begin {/r2 /r1 /n} {exch def}forall  % []

        /da 360 n div def

        r2 0 moveto
        n {
            da 2 div rotate
            r1 0 lineto
            da 2 div rotate
            r2 0 lineto
        }
        repeat
        closepath

    end       % []
    setmatrix %
} def

10 30 70 300 400 starpath fill
20 40 50 400 500 starpath stroke