summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-fun
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-04-19 00:42:25 +0000
committerKarl Berry <karl@freefriends.org>2010-04-19 00:42:25 +0000
commit9911727ec86e645091d9ccd5aa3ebd95da4cf9e3 (patch)
tree9f8a18290700f5ad2169e41167c0f4118c2f666d /Master/texmf-dist/tex/generic/pst-fun
parent8ace832e879e91b82b2d380cfc322ce9b74b88f2 (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/generic/pst-fun')
-rw-r--r--Master/texmf-dist/tex/generic/pst-fun/pst-fun.tex36
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