Source PostScript (pictdot.pps)

/pictdot_dim {
   -2 dotscale pop mul 
   -2 dotscale exch pop mul 
   2 dotscale pop mul 
   2 dotscale exch pop mul 
} def

/pictdot {
gsave
currentpoint translate
   0 0 dot
grestore
} def