[pstricks] Quintett

[Ulrich Bongartz]

thx :-)

----- Original Message ----- 
From: "Herbert Voss" <Herbert.Voss at FU-Berlin.DE>
To: "Graphics with PSTricks" <pstricks at tug.org>
Sent: Thursday, December 17, 2009 9:16 PM
Subject: Re: [pstricks] Quintett


> 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
> _______________________________________________
> PSTricks mailing list
> PSTricks at tug.org
> http://tug.org/mailman/listinfo/pstricks
> archive: http://www.tug.org/pipermail/pstricks/
>