[pstricks] \psdotx

[Herbert Voss]

Here is a possible solution for multiple dots

Herbert

\documentclass[a4paper,11pt]{article}
\usepackage{pstricks-add}
\makeatletter
\def\psdotx{\@ifnextchar[{\psdotx at i}{\psdotx at i[]}}
\def\psdotx at i[#1](#2){\def\psdotx at para{#1}
   \begingroup%
   \psset{#1}\psdotx at ii(#2)}
\def\psdotx at ii(#1){%
   \pnode(#1){thenode}\psdotx at iii%
   \@ifnextchar({\psdotx at ii}{\endgroup}
}% fin de \newcommand
\def\psdotx at iii{%
   \pnode([nodesep=1.5mm,angle=45,\psdotx at para]thenode){thenode1}%
   \psRelNode[angle=90](thenode)(thenode1){1}{thenode2}%
   \psRelNode[angle=180](thenode)(thenode2){1}{thenode3}%
   \psRelNode[angle=270](thenode)(thenode3){1}{thenode4}%
   \psline(thenode)(thenode1)%
   \psline(thenode)(thenode2)%
   \psline(thenode)(thenode3)%
   \psline(thenode)(thenode4)}
\makeatother

\begin{document}

\begin{pspicture}(-2,-1)(8,6.2)
\psset{gridcolor=gray, gridwidth=0.15mm, gridlabels=0pt, subgriddiv=1}
\psgrid(-2,-1)(8,6)
\psaxes[linewidth=0.25mm , tickwidth=0.25mm](0,0)(-2,-1)(8,6)
\pnode(4,1){A}
\pnode(6,2){B}
\pnode(1,5){C}
\pnode(3,4){D}
\pnode(2,1){E}
\psset{linewidth=0.35mm}
\psdotx(A)

\psdotx[linecolor=blue,nodesep=3mm](B)(2,2)(5;45)

\psdotx[linecolor=green,nodesep=4mm,angle=60](5,3)
\psdotx[linewidth=0.25mm,angle=30](C)
\psdotx[linecolor=red,nodesep=5mm](D)
\psdotx[nodesep=5mm,linewidth=0.5mm](E)
\psdot(5;45)
\end{pspicture}

\end{document}