[pstricks] PSTricks Digest, Vol 120, Issue 9 , 10 , 11

[Germain BOYER]

Changes to use better nodesep and angle.
\makeatletter
\def\psdotx{\@ifnextchar[{\psdotx at i}{\psdotx at i[]}}
\def\psdotx at i[#1](#2){{%
\psset{#1}%
\pnode(#2){thenode}%
\pnode([nodesep=1.5mm,angle=45,#1]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)
}}% fin de \newcommand
\makeatother


\documentclass[a4paper,11pt]{article}
\usepackage{pstricks-add}


\begin{document}
\psset{unit=1cm}
%
\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=red,nodesep=2mm](B)
\psdotx[linecolor=green,nodesep=4mm,angle=30](2,2)
\psdotx[linecolor=green,nodesep=4mm,angle=60](5,3)
\psdotx[linecolor=blue,nodesep=3mm](5;45)
\psdotx[linewidth=0.25mm,angle=30](C)
%
\psdotx[linecolor=red,nodesep=5mm](D)
\psdotx[nodesep=5mm,linewidth=0.5mm](E)
%
\psdots(A)(2,2)(5;45)
\end{pspicture}


\end{document}


Is it possible to do \psdotsx(A)(2,2)(5;45) like \psdots(A)(2,2)(5;45) ?


Certainly yes but perhaps it's difficult.


Thanks for your answers.


Germain 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tug.org/pipermail/pstricks/attachments/20130126/1ca3b566/attachment.html>