[pstricks] Fill polygon with wavy pattern
Martin Buchmann
Martin_Buchmann at gmx.net
Thu Feb 20 15:13:46 CET 2003
Okay, so that's what i've got ispired by Etienne's idea:
\psclip{%
\pspolygon[linewidth=1pt]%
(3.0,8.7)(3.0,3.2)(3.225,7.5)(3.45,3.2)(3.675,7.5)(3.9,3.2)%
(4.125,7.5)(4.35,3.2)(4.575,7.5)(4.8,3.2)(4.8,8.7)(3.0,8.7)}%
\multido{\da=3cm+11pt}{5}{%
\multido{\db=3.2cm+10pt}{16}{%
\psset{xunit=0.01pt,yunit=1pt}
\rput(\da,\db){\psplot[linewidth=.5pt]{0}{360}{x sin}}%
}}
\multido{\da=3.2cm+11pt}{5}{%
\multido{\db=3.35cm+10pt}{16}{%
\psset{xunit=0.01pt,yunit=1pt}
\rput(\da,\db){\psplot[linewidth=.5pt]{0}{360}{x sin}}%
}}
\endpsclip
Feel free to use it, if you need things similar like this. Feel free to
correct it, if you find an error.
Regards,
Martin
--
Smiley #11 The Angry Amiley :-||
You have reached your limit.
You are seething mad.
More information about the PSTricks
mailing list