[pstricks] PSTricks Digest, Vol 120, Issue 15

[Germain BOYER]

Bonjour,

Great thanks Herbert for your answer.

It works very nice.

You are fantastic. Great thanks.

Germain 

------------------------------

Message: 4
Date: Tue, 29 Jan 2013 09:02:54 +0100
From: Herbert Voss <Herbert.Voss at FU-Berlin.DE>
To: Graphics with PSTricks <pstricks at tug.org>
Subject: [pstricks] \psdotx
Message-ID: <5107822E.6090405 at FU-Berlin.DE>
Content-Type: text/plain; charset="UTF-8"; format=flowed

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}


------------------------------

Subject: Digest Footer

_______________________________________________
PSTricks mailing list
PSTricks at tug.org
http://tug.org/mailman/listinfo/pstricks


------------------------------

End of PSTricks Digest, Vol 120, Issue 15
*****************************************
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tug.org/pipermail/pstricks/attachments/20130130/bc2a541c/attachment-0001.html>