/SRGB {setrgbcolor}  BD
   /SL   {setlinewidth} BD
   /M    {moveto}       BD
   /L    {lineto}       BD
   /RL   {rlineto}      BD
   /RM   {rmoveto}      BD
   /GS   {gsave}        BD
   /GR   {grestore}     BD
   /CPT  {currentpoint translate}       BD
   /CPTZ {currentpoint translate 0 0 M} BD
   /Dot  {GS currentpoint 0.2 cm 0 360 arc 0 0 0 SRGB fill GR}  BD