Source PostScript (circ.pps)

%% syntaxe : x y circ
/circ {
   2 copy point
   gsave 
      stranslate
      1 setgray
      1 setlinecap
      newpath
         0 0 smoveto
         0 0 rlineto
         dotsize 2 div setlinewidth
         dotscale scale
      stroke
   grestore
} def

/circ0 {
   1 dict begin
      /dotsize dotsize 3 div def
      circ
   end
} def
/circ1 {
   1 dict begin
      /dotsize dotsize 2 div def
      circ
   end
} def
/circ2 {
   1 dict begin
      /dotsize dotsize 2 mul def
      circ
   end
} def
/circ3 {
   1 dict begin
      /dotsize dotsize 3 mul def
      circ
   end
} def