%
% this file psmarker.list defines the markers for the PolyMarker opcode
% they are invoked as : x y Mnnn
% all markers shall be defined according to the templates provided below
%
%  - they shall be named Mnnn (with nnn a 3-digit number 000 to 999)
%  - the first and last line of each definition must be always the same as indicated
%  - any number of middle lines describe the marker shape
%    - the marker is described in 1x1 point square around the origin
%    - the linewidth shall be set explicitly
%    - as a first action always do a 0 0 moveto
%    - remember that the markers will be scaled by chsize (in points)
%  - include a comment explaining what the marker is before each marker
%
%M001 : diamond
/M001 {moveto gsave currentpoint translate chsize dup scale
       0.1 setlinewidth 0 0 moveto 0.5 0 rmoveto -0.5 0.5 rlineto -0.5 -0.5 rlineto 
       0.5 -0.5 rlineto closepath stroke
       grestore} BD
%M002 : cross
/M002 {moveto gsave currentpoint translate chsize dup scale
       0.1 setlinewidth 0 0 moveto 0 0.5 rmoveto 0 -1 rlineto 0.5 0.5 rmoveto -1 0 rlineto stroke
       grestore} BD
%M003 : filled diamond
/M003 {moveto gsave currentpoint translate chsize dup scale
       0 0 moveto 0.5 0 rmoveto -0.5 0.5 rlineto -0.5 -0.5 rlineto 
       0.5 -0.5 rlineto closepath fill
       grestore} BD
%M004 : square
/M004 {moveto gsave currentpoint translate chsize dup scale
       0.1 setlinewidth 0 0 moveto 0.5 0.5 rmoveto -1 0 rlineto 0 -1 rlineto 
       1 0 rlineto closepath stroke
       grestore} BD
%M005 : filled square
/M005 {moveto gsave currentpoint translate chsize dup scale
       0 0 moveto 0.5 0.5 rmoveto -1 0 rlineto 0 -1 rlineto 
       1 0 rlineto closepath fill
       grestore} BD
%M006 : circle
/M006 {moveto gsave currentpoint translate chsize dup scale
       0.1 setlinewidth newpath 0 0 0.5 0 360 arc stroke
       grestore} BD
%M007 : filled circle
/M007 {moveto gsave currentpoint translate chsize dup scale
       0 0 0.5 0 360 arc fill
       grestore} BD
%
% end of marker definitions