<HTML><HEAD><TITLE></TITLE>
<META name=GENERATOR
content="KsDHTMLEDLib.ocx, FreeWare HTML Editor 1.164.2, © Kurt Senfer">
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type></HEAD>
<BODY style="FONT-FAMILY: Arial; FONT-SIZE: 12pt" leftMargin=5 topMargin=5
#ffffff>
<DIV>\psdotx short with multido
<P
style="TEXT-INDENT: 0px; MARGIN: 0px; -qt-block-indent: 0; -qt-paragraph-type: empty"><BR></P>
<P style="TEXT-INDENT: 0px; MARGIN: 0px; -qt-block-indent: 0">\makeatletter</P>
<P
style="TEXT-INDENT: 0px; MARGIN: 0px; -qt-block-indent: 0">\def\psdotx{\@ifnextchar[{\psdotx@i}{\psdotx@i[]}}</P>
<P
style="TEXT-INDENT: 0px; MARGIN: 0px; -qt-block-indent: 0">\def\psdotx@i[#1](#2){{%</P>
<P style="TEXT-INDENT: 0px; MARGIN: 0px; -qt-block-indent: 0">\psset{#1}%</P>
<P
style="TEXT-INDENT: 0px; MARGIN: 0px; -qt-block-indent: 0">\pnode(#2){thenode}%</P>
<P
style="TEXT-INDENT: 0px; MARGIN: 0px; -qt-block-indent: 0">\pnode([nodesep=1.5mm,angle=45,#1]thenode){thenodea}</P>
<P style="TEXT-INDENT: 0px; MARGIN: 0px; -qt-block-indent: 0">\multido{\ia=0+90
, \ib=1+1}{4}{%</P>
<P
style="TEXT-INDENT: 0px; MARGIN: 0px; -qt-block-indent: 0">\psRelNode[angle=\ia](thenode)(thenodea){1}{thenode\ib}</P>
<P
style="TEXT-INDENT: 0px; MARGIN: 0px; -qt-block-indent: 0">\psline(thenode)(thenode\ib)%</P>
<P style="TEXT-INDENT: 0px; MARGIN: 0px; -qt-block-indent: 0">}% fin du
\multido</P>
<P style="TEXT-INDENT: 0px; MARGIN: 0px; -qt-block-indent: 0">}}% fin de
\newcommand</P>
<P
style="TEXT-INDENT: 0px; MARGIN: 0px; -qt-block-indent: 0">\makeatother</P></DIV>
<DIV>Re: PSTricks Digest, Vol 120, Issue 9 , 10 , 11</DIV>
<DIV></DIV>
<DIV>Germain </DIV></BODY></HTML>