diff options
author | Karl Berry <karl@freefriends.org> | 2010-04-19 00:42:25 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2010-04-19 00:42:25 +0000 |
commit | 9911727ec86e645091d9ccd5aa3ebd95da4cf9e3 (patch) | |
tree | 9f8a18290700f5ad2169e41167c0f4118c2f666d /Master/texmf-dist/tex | |
parent | 8ace832e879e91b82b2d380cfc322ce9b74b88f2 (diff) |
pst-fun update (18apr10)
git-svn-id: svn://tug.org/texlive/trunk@17909 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/pst-fun/pst-fun.tex | 36 |
1 files changed, 34 insertions, 2 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-fun/pst-fun.tex b/Master/texmf-dist/tex/generic/pst-fun/pst-fun.tex index aee4c4e3043..c58db748d6a 100644 --- a/Master/texmf-dist/tex/generic/pst-fun/pst-fun.tex +++ b/Master/texmf-dist/tex/generic/pst-fun/pst-fun.tex @@ -31,8 +31,8 @@ % interface to the `xkeyval' package \pst@addfams{pst-fun} -\def\fileversion{0.03} -\def\filedate{2008/06/22} +\def\fileversion{0.04} +\def\filedate{2010/04/18} \message{`PST-fun' v\fileversion, \filedate\space (hv)} % \SpecialCoor @@ -731,6 +731,38 @@ \ignorespaces% } % +\define@key[psset]{pst-fun}{noseColor}[purple!50!gray]{\def\psk@noseColor{#1}} +\define@key[psset]{pst-fun}{eyeColor}[black]{\def\psk@eyeColor{#1}} +\psset{noseColor=purple!50!gray,eyeColor=black} + +\def\psPig{\pst@object{psPig}} +\def\psPig@i(#1){% + \pst@getcoor{#1}\pst@origin + \addbefore@par{linewidth=0.1,fillcolor=pink,fillstyle=solid} + \begin@ClosedObj + \rput(!\pst@origin\space \tx@UserCoor){% + \pspolygon(-0.6,0)(-0.4,-1.7)(-0.3,-1.5)(-0.2,-1.7)(-0.1,0) + \pspolygon(0.6,0)(0.4,-1.7)(0.3,-1.5)(0.2,-1.7)(0.1,0) + \psellipse(0,0)(1.3,1.2)% + \pscurve(0.15,0.05)(0.2,0.4)(0.4,0.75)(0.55,0.8) + \pscurve(0.15,-0.05)(0.3,-0.1)(0.6,0.7)(0.55,0.85) + \pscurve(-0.15,0.05)(-0.2,0.4)(-0.4,0.75)(-0.55,0.8) + \pscurve(-0.15,-0.05)(-0.3,-0.1)(-0.6,0.7)(-0.55,0.85) + \psellipse(0,0)(0.45,0.41)% + \psellipse(0,-0.65)(0.75,0.55)% + \psellipse[fillcolor=\psk@noseColor](-0.24,-0.65)(0.2,0.3)% + \psellipse[fillcolor=\psk@noseColor](0.24,-0.65)(0.2,0.3)% + \psellipse[linewidth=0.4\pslinewidth,fillcolor=white](-0.15,0.05)(0.13,0.18) + \psellipse[linewidth=0.4\pslinewidth,fillcolor=white](0.15,0.05)(0.13,0.18) + \psellipse*[linecolor=\psk@eyeColor](-0.15,0.05)(0.06,0.085) + \psellipse*[linecolor=\psk@eyeColor](0.15,0.05)(0.06,0.085) + \psline[fillstyle=none,linejoin=1](0,1.2)(0,1.3)(-0.1,1.32)(0.125,1.4)% + (-0.1,1.5)(0.175,1.6)(-0.2,1.7) + } + \end@ClosedObj% + \ignorespaces% +} +% \catcode`\@=\PstAtCode\relax % %% END: pst-fun.tex |