[pstricks] Pigs in pgf Space

[Herbert Voss]

Am 01.04.2010 12:42, schrieb Marc van Dongen:
> % Enjoy.

... and in pst space :-)

\documentclass{minimal}

\usepackage{pst-coil}
\SpecialCoor

\makeatletter
\define at key[psset]{}{noseColor}{\def\psk at noseColor{#1}}
\define at key[psset]{}{eyeColor}{\def\psk at eyeColor{#1}}
\psset{noseColor=purple!50!gray,eyeColor=black}

\def\pspig{\pst at object{pspig}}
\def\pspig at i(#1){%
  \pst at getcoor{#1}\pst at origin
  \addbefore at par{linewidth=0.1,fillcolor=pink,fillstyle=solid}
  \begin at ClosedObj
     \rput(!\pst at origin\space \tx at 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 at noseColor](-0.24,-0.65)(0.2,0.3)%
       \psellipse[fillcolor=\psk at 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 at eyeColor](-0.15,0.05)(0.06,0.085)
       \psellipse*[linecolor=\psk at 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 at ClosedObj%
  \ignorespaces%
}
\makeatother

\begin{document}

\begin{pspicture}(-1,-1)(4,4)
  \pspig(0,0)\pspig[fillcolor=blue!40,noseColor=purple,
    linewidth=4pt,unit=2](4,0)
\end{pspicture}