[pstricks] Quintett

[Herbert Voss]

Am 17.12.2009 20:46, schrieb Ulrich Bongartz:

> \begin{pspicture}(0,0)(15,15)
> \rput[c](7.5,7.5){%
>  \PstPolygon[PolyName=A,%
>                fillstyle=solid,%
>                fillcolor=lightgray,%
>                linewidth=2pt,%
>                PolyNbSides=5,%
>                PstPicture=false]
> \PstPolygon[PolyName=B,%
>                PolyNbSides=5,%
>                linewidth=2pt,%
>                PstPicture=false,%
>                unit=9]}

\multido{\iA=1+1,\iB=2+1}{5}{%
  \ncline{A\iA}{B\iA}
  \ifnum\iB>5 \def\iB{1}\fi
  \pcline[linestyle=none](B\iA)(B\iB)\ncput*{foo}}


> \end{pspicture}

Herbert