Source PostScript (point.pps)

%% les agrandissements predefinis
/point0 {
   1 dict begin
      /dotsize dotsize 3 div def
      point
   end
} def
/point1 {
   1 dict begin
      /dotsize dotsize 2 div def
      point
   end
} def
/point2 {
   1 dict begin
      /dotsize dotsize 2 mul def
      point
   end
} def
/point3 {
   1 dict begin
      /dotsize dotsize 3 mul def
      point
   end
} def

%% syntaxe : x y point
/point {
   gsave
      1 setlinecap
      newpath
         smoveto
         0 0 rlineto
         dotsize setlinewidth
         dotscale scale
      stroke
   grestore
} def

/points {
   aload length 2 idiv 
   {point} repeat
} def

/Points {
   count 2 idiv {point} repeat
} def