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

[Germain BOYER]

\psdotx short with multido


\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){thenodea}
\multido{\ia=0+90 , \ib=1+1}{4}{%
\psRelNode[angle=\ia](thenode)(thenodea){1}{thenode\ib}
\psline(thenode)(thenode\ib)%
}% fin du \multido
}}% fin de \newcommand
\makeatother
Re: PSTricks Digest, Vol 120, Issue 9 , 10 , 11
Germain 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tug.org/pipermail/pstricks/attachments/20130126/c69e7bcf/attachment.html>