[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