path: root/Master/texmf-dist/tex/generic/pst-fun/pst-fun.tex

%%
%% This is file `pst-fun.tex',
%%
%% IMPORTANT NOTICE:
%%
%% Package `pst-fun.tex'
%%
%% Manuel Luque <ml@pstricks.de>
%% Herbert Voss <hv@pstricks.de>
%%
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN archives
%% in directory macros/latex/base/lppl.txt.
%%
%% DESCRIPTION:
%%   `pst-fun' is a PSTricks package for funny macros
%%
%%
\csname PSTfunLoaded\endcsname
\let\PSTfunLoaded\endinput
% Requires PSTricks
\ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi
\ifx\PSTnodesLoaded\endinput\else\input pst-node.tex\fi
\ifx\GradientLoaded\endinput\else\input pst-grad.tex\fi
\ifx\PstSlopeLoaded\endinput\else\input pst-slpe.tex\fi
\ifx\MultidoLoaded\endinput\else \input multido  \fi
%\ifx\PSTricksAddLoaded\endinput\else\input pstricks-add.tex\fi
\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey.tex \fi
%
\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
% interface to the `xkeyval' package
\pst@addfams{pst-fun}

\def\fileversion{0.04}
\def\filedate{2010/04/18}
\message{`PST-fun' v\fileversion, \filedate\space (hv)}
%
\SpecialCoor
\pstheader{pst-fun.pro}
%
\def\psParrot{\pst@object{psParrot}}
\def\psParrot@i#1{%
  \begin@SpecialObj%
  \addto@pscode{
  #1
  tx@FunDict begin tx@Parrot end }
  \end@SpecialObj}
%
\def\psBill{% %Côté gauche et oreille          Manuel Luque 2007/07/23
  \pscurve(0.4,1.38)(0,1.6)(-0.2,1.65)(-0.4,1.53)(-0.5,1.4)(-0.55,1.2)(-0.5,1)
  \psline(-0.5,1)(-0.45,0.6)
  \pscurve(-0.45,0.6)(-0.75,0.4)(-0.9,0)(-0.8,-0.45)(-0.5,-0.5)(-0.4,-0.2)(-0.4,0.1)
	(-0.25,0.5)(-0.2,0.8)(-0.3,1)
  \pscurve(-0.3,1)(-0.2,0.8)(0,0.7)(0.2,0.6)(0.22,0.5)(0.17,0.3)
  %Collier
  \pscurve(0.1,0.2)(0.25,0.4)(0.6,0.6)(0.75,0.55)
  \psline(0.75,0.55)(0.8,0.4)\pscurve(0.8,0.4)(0.5,0.25)(0.25,0)
  \psline(0.25,0)(0.1,0.2)
  %patte gauche
  \pscurve(0.15,0.1)(0.05,0)(-0.1,-0.25)(-0.05,-0.5)(0.15,-0.55)
  \pscurve(0.2,-0.2)(0.2,-0.45)(0.15,-0.55)(0.1,-1)(0.2,-1.25)(0.2,-1.5)
   	(0.2,-1.5)(0,-1.45)(-0.2,-1.4)(-0.5,-1.5)(-0.6,-1.65)(-0.55,-1.8)
  \pscurve(-0.4,-1.6)(-0.55,-1.8)(-0.4,-1.9)
  \pscurve(-0.3,-1.7)(-0.4,-1.9)(0,-1.9)(.5,-1.8)(.48,-1.65)(0.4,-1.35)
  \pscurve(0.4,-1.35)(0.6,-1.35)(0.8,-1.25)
  \pscurve(0.6,-1.35)(0.6,-1.45)(0.6,-1.7)(0.75,-1.9)(1,-2)(1.35,-1.8)(1.2,-1.6)
  \pscurve(1.35,-1.8)(1.5,-1.75)(1.4,-1.5)(1,-1.5)(1,-1.5)(0.85,-1.25)
  %ventre
  \pscurve(0.85,-1.25)(1,-1)(1,-0.75)(0.9,-0.3)(0.8,0)
  %coude droit
  \pscurve(1,-0.55)(1.15,-0.45)(1,0)(0.7,0.35)
  %oreille droite
  \pscurve(0.5,0.8)(0.8,0.55)(0.9,0.25)(1,0)(1.25,-0.1)(1.4,0.35)(1.2,0.6)(0.8,0.8)(0.7,0.88)
  \pscurve(0,0.95)(0.2,0.8)(0.5,0.9)
  \pscurve(0.5,0.9)(0.8,0.9)(1,1.15)
  \pscurve(1,1.15)(1.1,1)(1.2,1.2)(1.1,1.5)
  %Truffe
  \psccurve[fillstyle=solid,fillcolor=lightgray](1.1,1.5)(1,1.8)(0.7,1.9)
 	(0.52,1.6)(0.6,1.25)(1,1.35)
  \pscurve(0.5,1.4)(0.4,1.2)(0.5,1.1)
  \pscurve(0.4,1.35)(0.25,1.5)(0,1.6)(-0.2,1.65)(-0.45,1.5)
  %les yeux
  \pscurve(0.4,1.3)(0.25,1.5)(0.1,1.5)(0.1,1.4)
  \pscurve(0.25,1.25)(0,1.4)(-0.1,1.4)(-0.05,1.25)(0.1,1.1)
  \pscircle*(0.3,1.35){0.05}
  \pscircle*(0.17,1.25){0.05}
  %rictus
  \pscurve(-0.1,0.9)(0,0.93)(0.05,1.01)
  %sourcils
  \pscurve(-0.1,1.5)(-0.2,1.47)(-0.1,1.25)
  \pscircle(0.7,-0.9){0.1}
  %quelques poils
  \psline(-0.45,1.5)(-0.35,2)
  \psline(-0.35,1.6)(-0.2,2.2)
  \psline(-0.2,1.6)(-0.2,2)
  \psline(-0.2,1.5)(0,1.8)
  \pscurve(0.6,0.9)(0.5,0.8)(0.45,0.55)
  %queue
  \pscurve(0.1,-0.8)(0,-0.82)(-0.1,-1)(0,-1.1)(0.18,-1.18)
  \psline(0.45,0)(0.4,-0.25)
  \psline(0.35,-0.2)(0.55,-0.4)
  \psline(0.7,-0.3)(0.7,-0.5)
  \psline(1,-0.25)(1.2,-0.5)%
}
%
\def\psFish{\pst@object{psFish}}% manuel
\def\psFish@i{{%
  \pst@killglue
  \begin@SpecialObj%
    \pscurve(0.1,1.8)(0.4,1.65)(0.6,1.1)(0.85,1.2)
    \pscurve(1.6,3.25)(2.5,4.2)(2.5,3.5)
    \pscurve(4.25,1.9)(4.5,1.5)(3.9,1.4)(3.7,0.8)(3.2,1.5)
    \pscurve(2.5,3.5)(2.75,3.75)(3.2,4)(3.75,3.2)(3.2,2.8)%(2.8,3.2)
    \pscurve(5,2.45)(6,2.5)(5.75,2)(6,1.5)(5.8,1.4)(5,1.6)
    \pscurve(3.2,1.4)(3.1,0.7)(3.5,0.5)(2.7,0.5)
    \pscurve(1.8,1.1)(2.2,1.4)(2.7,1.6)(2.6,1.2)(2.65,1.1)(2.6,1)(2.65,0.9)(1.9,0.5)
%
    \pscurve(0.25,2.4)(1,3)(1.6,3.25)(2.5,3.5)(3,3)(4,2.6)
    (5,2.45)(5.7,2.75)(6,2.5)(5.75,2)(6,1.5)(5.9,1.35)(5,1.6)
    (4,1.7)(3,1.1)(2.7,-.2)(2,0)(1,0.3)(0.8,0.3)(0.35,1)
    (0.1,1.8)(0,2.1)(0.1,2.2)(0.5,1.9)(0.45,2.2)(0.25,2.4)
    \pscircle[fillstyle=none](0.9,2.5){0.25}
    \pscircle*(0.9,2.5){0.15}
    \pscircle[fillstyle=solid,linestyle=none](0.85,2.55){0.03}
    \pscurve[fillstyle=none](0.35,1)(1,0.8)(1.45,1)(1.6,1.6)(1.5,2.25)%
  \end@SpecialObj}\ignorespaces}
%
\def\psLouisXIII{\pst@object{psLouisXIII}}
\def\psLouisXIII@i{{%
  \pst@killglue
  \begin@SpecialObj
  %Sourcils
  \pscurve[linewidth=3\pslinewidth,linecolor=gray](-0.9,0.5)(-0.4,0.7)(0,.57)
  \pscurve[linewidth=3\pslinewidth,linecolor=gray](0.4,0.57)(0.7,0.7)(0.9,0.7)
  %Yeux
  \psclip{%
    \pscustom{%
	\pscurve(-0.8,0.35)(-0.45,0.5)(-0.2,0.4)
	\pscurve(-0.2,0.4)(-0.5,0.2)(-0.8,0.35)}}
    \pscircle(-0.6,0.35){0.15}
    \pscircle*[linecolor=blue](-0.6,0.35){0.05}
  \endpsclip
  \psclip{%
    \pscustom{%
      \pscurve(0.4,0.42)(0.6,0.5)(0.8,0.5)
      \pscurve(0.8,0.5)(0.6,0.25)(0.4,0.42)}}
      \pscircle(0.55,0.4){0.15}
      \pscircle*[linecolor=blue](0.55,0.4){0.05}
  \endpsclip
  \pscurve(-0.7,0.1)(-0.5,0.05)(-0.25,0.2)
  \pscurve(0.5,0.2)(0.7,0.1)(0.8,0.3)
  %Nez
  \pscurve(0.2,0.5)(0.4,0)(0.5,-0.3)(0.2,-0.6)
  \pscurve(-0.1,-0.3)(-0.3,-0.5)(-0.1,-0.6)(0,-0.5)(0.2,-0.6)
  %Ovale
  \pscurve(0,1.9)(0,1.6)(0.5,1.5)(0.9,1.28)(0.85,0.8)(1,0.4)(1,0)(0.9,-0.5)
    (0.6,-1)(0.3,-1.4)(-0.15,-1.4)(-0.75,-1.25)(-1,-0.9)
  %loevre inf
  \pscurve(-0.1,-1.1)(0.15,-1.1)(0.5,-1)
  \pscurve(-0.3,-1)(0.1,-1)(0.45,-0.9)
  %moustache
  \pscustom[fillstyle=solid,fillcolor=lightgray]{%
    \pscurve(-0.6,-0.9)(-0.4,-0.75)(0,-0.6)
    \psline(0,-0.6)(0.05,-0.9)
    \pscurve(0.05,-0.9)(-0.2,-0.95)(-0.4,-1.1)
    \psline(-0.4,-1.1)(-0.6,-0.9)}
  \pscustom[fillstyle=solid,fillcolor=lightgray]{%
    \pscurve(0.15,-0.6)(0.6,-0.65)(0.8,-0.8)
    \psline(0.8,-0.8)(0.7,-1)
    \pscurve(0.7,-1)(0.5,-0.9)(0.2,-0.9)
    \psline(0.2,-0.9)(0.15,-0.6)}
  \psline(0.05,-0.9)(0.2,-0.9)
  %
  \psline(0.7,-1)(2,-2)
  \pspolygon[fillstyle=solid,fillcolor=cyan](0,-2)(0.2,-1.75)(0.4,-1.7)(1,-2)
  \psline(0.2,-1.75)(0.1,-1.42)
  \psline(0.25,-1.43)(0.4,-1.7)
  \psline(0.1,0.2)(0.2,-0.1)
  %Cheveux
  \psset{linewidth=2\pslinewidth,linecolor=gray}
  \pscurve(0,1.9)(0.4,1.75)(0.9,1.7)(1.15,1.4)(1.05,0.85)(1.2,0.7)
  \pscurve(1.05,0.7)(1.15,0.2)(1.2,-0.2)(1.35,-0.3)(1.5,-0.2)
  \pscurve(1.05,-0.3)(1.15,-0.65)(1.1,-1)(1.3,-1.1)(1.45,-0.9)
  \pscurve(0.85,-0.7)(0.85,-1)(1.1,-1.2)(1.35,-1.5)(1.3,-1.8)(1.15,-1.9)(1.05,-1.7)
  \pscurve(-0.1,1.9)(-0.2,1.8)(-0.6,1.8)(-0.9,1.65)(-1,1.4)
  \pscurve(-0.1,1.6)(-0.3,1.5)(-0.3,1.45)(-0.8,1.35)(-0.95,1.15)(-0.9,0.9)(-0.7,0.9)(-0.7,1.1)
  \pscurve(-1,0.8)(-1.1,0.6)(-1.1,0.3)(-1.05,0)(-1.2,-0.2)(-1.3,0)(-1.2,0.1)
  \pscurve(-1.1,1.3)(-1.3,1.1)(-1.7,0.9)(-1.8,0.7)(-1.85,0.6)(-1.9,0.3)(-1.7,0.25)(-1.6,0.35)
  \pscurve(-1.05,-0.2)(-1.1,-0.7)(-1.1,-1.1)(-1.3,-1.2)(-1.4,-1)(-1.35,-0.8)
  \pscurve(-1.35,-0.8)(-1.45,-1.3)(-1.5,-1.6)(-1.7,-1.7)(-1.9,-1.55)(-1.7,-1.4)
  \pscurve(-1.6,0.7)(-1.75,0.3)(-1.6,-0.2)(-1.6,-0.65)(-1.8,-0.9)(-2,-0.5)
  \pscurve(-1.5,-0.6)(-1.7,-1)(-2,-1.4)(-1.9,-1.9)(-1.6,-2)(-1.4,-1.9)(-1.4,-1.7)
  \pscurve(-0.1,1.9)(-0.3,1.85)(-0.6,1.8)(-0.95,1.8)(-1.3,1.7)(-1.5,1.45)(-1.7,1)(-1.9,0.85)
  \end@SpecialObj}\ignorespaces}
%
\def\psPulpo{\pst@object{psPulpo}}
\def\psPulpo@i{{%
  \pst@killglue%
  \addbefore@par{fillstyle=solid,linewidth=0.5mm}
  \begin@SpecialObj
    \pscurve(6.4,1.3)(7,0.8)(8,0.4)(9,0.7)(9.3,1)(9.6,1.6)(10,2.05)(10.3,2.1)%
	(10.6,2)(10.8,1.6)(10.6,2.2)(10,2.4)(9.5,2)(9,1.2)(8,0.8)(7.5,1)(7,1.5)
    \pscurve(4.6,1.3)(4,0.8)(3,0.4)(2,0.7)(1.7,1)(1.4,1.6)(1,2.05)(0.7,2.1)%
	(0.4,2)(0.2,1.6)(0.4,2.2)(1,2.4)(1.5,2)(2,1.2)(3,0.8)(3.5,1)(4,1.5)
    \pscircle(7,1.1){0.1}  \pscircle(7.4,0.8){0.1}
    \pscircle(8,0.6){0.1} \pscircle(8.5,0.7){0.1}
    \pscircle(9,1){0.1}   \pscircle(9.4,1.6){0.1}
    \pscircle(9.7,2){0.1}
    %
    \pscircle(4,1.1){0.1}  \pscircle(3.6,0.8){0.1}
    \pscircle(3,0.6){0.1}  \pscircle(2.5,0.7){0.1}
    \pscircle(2,1){0.1}    \pscircle(1.6,1.6){0.1}
    \pscircle(1.3,2){0.1}
%
    \pscurve(5.5,3)(5.5,2)(6,1)(6.5,1.3)(6.9,2.4)(7.3,4)(8.2,5.4)(8.8,4.55)(9.3,3.9)%
	(9.8,4)(9.4,4)(9,4.7)(8.2,5.7)(7.4,5)(7,4)(6.7,3)(6.2,2)(5.8,1.8)(5.5,2)
    %
    \pscurve(5.5,3)(5.5,2)(5,1)(4.5,1.3)(4.1,2.4)(3.7,4)(2.8,5.4)(2.2,4.55)(1.7,3.9)%
	(1.2,4)(1.6,4)(2,4.7)(2.8,5.7)(3.6,5)(4,4)(4.3,3)(4.8,2)(5.2,1.8)(5.5,2)
    \pscircle(6,1.2){0.1}    \pscircle(6.8,2.6){0.1}
    \pscircle(6.95,3.3){0.1} \pscircle(7.13,4){0.1}
    \pscircle(7.37,4.5){0.1} \pscircle(7.6,5.05){0.1}
    \pscircle(8,5.5){0.08}
    %
    \pscircle(5,1.2){0.1}    \pscircle(4.2,2.6){0.1}
    \pscircle(4.05,3.3){0.1} \pscircle(3.87,4){0.1}
    \pscircle(3.63,4.5){0.1} \pscircle(3.4,5.05){0.1}
    \pscircle(3,5.5){0.08}
    %
    \pscurve(5.5,5)(6,4.85)(6.3,4.6)(6.5,4.3)(6.55,4)(6.45,3.6)(6.3,3.4)(6.15,3.2)%
	(6.3,2.95)(6.17,2.7)(6.6,2.4)(4.4,2.4)(4.83,2.7)(4.7,2.95)(4.85,3.2)%
	(4.7,3.4)(4.55,3.6)(4.45,4)(4.5,4.3)(4.7,4.6)(5,4.85)(5.5,5)
% tentacule 1
    \pscurve(6.17,2.7)(6.6,2.4)(7.2,2.4)(8,2.6)(9,3)(9.7,3.6)(10,4.5)(9.8,4.6)%
	(10,4.7)(10.2,4.6)(10.2,4.2)(10,3.7)(9.3,3)(8,2.25)(7,2)(6.4,2)(6,2.3)
    \pscircle(6.3,2.3){0.1}  \pscircle(6.65,2.2){0.1}
    \pscircle(7.1,2.2){0.1}  \pscircle(7.55,2.28){0.1}
    \pscircle(7.9,2.45){0.1} \pscircle(8.3,2.5){0.1}
    \pscircle(8.6,2.68){0.08}
% tentacule 1
    \pscurve(4.83,2.7)(4.4,2.4)(3.8,2.4)(3,2.6)(2,3)(1.3,3.6)(1,4.5)(1.2,4.6)(1,4.7)%
	(0.8,4.6)(0.8,4.2)(1,3.7)(1.7,3)(3,2.25)(4,2)(4.6,2)(5,2.3)
    \pscircle(4.7,2.3){0.1}  \pscircle(4.45,2.2){0.1}
    \pscircle(3.9,2.2){0.1}  \pscircle(3.45,2.28){0.1}
    \pscircle(3.1,2.45){0.1} \pscircle(2.7,2.5){0.1}
    \pscircle(2.4,2.68){0.08}
    % deuxieme tentacule
    \pscurve(6,2.4)(6.1,2)(6.4,1.8)(7,2)(7.7,4)(8.2,5)(9,5.55)(9.6,5.4)(9,5.3)%
	(8.6,5)(8,4)(7.7,3)(7.5,2)(7,1.5)(6.4,1.3)(6,1.4)(5.5,2)(5.5,2.5)
    \pscircle(5.8,2){0.1}    \pscircle(6.1,1.6){0.1}
    \pscircle(6.6,1.6){0.1}  \pscircle(7,1.8){0.1}
    \pscircle(7.3,2.2){0.1}  \pscircle(7.5,2.6){0.1}
    \pscircle(7.6,3){0.1}    \pscircle(7.7,3.4){0.08}
    \pscircle(7.8,3.8){0.08} \pscircle(8,4.4){0.08}
    \pscircle(8.2,4.7){0.08}\pscircle(8.4,5){0.08}
    \pscircle(8.6,5.2){0.08}
% 23 juin
    \pscurve(5,2.4)(4.9,2)(4.6,1.8)(4,2)(3.3,4)(2.8,5)(2,5.55)(1.4,5.4)(2,5.3)(2.4,5)%
	(3,4)(3.3,3)(3.5,2)(4,1.5)(4.6,1.3)(5,1.4)(5.5,2)(5.5,2.5)
    \pscircle(5.2,2){0.1}    \pscircle(4.9,1.6){0.1}
    \pscircle(4.4,1.6){0.1}  \pscircle(4,1.8){0.1}
    \pscircle(3.7,2.2){0.1}  \pscircle(3.5,2.6){0.1}
    \pscircle(3.4,3){0.1}    \pscircle(3.3,3.4){0.08}
    \pscircle(3.2,3.8){0.08} \pscircle(3,4.4){0.08}
    \pscircle(2.8,4.7){0.08} \pscircle(2.6,5){0.08}
    \pscircle(2.4,5.2){0.08}
%
    \pscircle[linewidth=1.5\pslinewidth,fillstyle=solid,fillcolor=white](6,2.95){0.2}
    \pscircle[fillstyle=solid,fillcolor=black](6.05,2.95){0.15}
    \pscircle[fillstyle=solid,fillcolor=white,linestyle=none](6.07,2.97){0.05}
    \pscircle[linewidth=1.5\pslinewidth,fillstyle=solid,fillcolor=white](5,2.95){0.2}
    \pscircle[fillstyle=solid,fillcolor=black](4.95,2.95){0.15}
    \pscircle[fillstyle=solid,fillcolor=white,linestyle=none](4.97,2.97){0.05}
    \psset{linewidth=0.5mm}
    \pscurve(5.85,3.15)(6.1,3.2)(5.9,3.4)
    \pscurve(5.15,3.15)(4.9,3.2)(5.1,3.4)
    \pscurve(5.55,3.2)(5.6,3.4)(5.8,3.6)(6.1,3.6)(5.8,3.9)
    \pscurve(5.95,4.1)(6.2,4.15)(5.9,4.3)
    \pscurve(5.9,4.4)(6.1,4.45)(5.9,4.6)
    \pscurve(5.45,3.2)(5.4,3.4)(5.2,3.6)(4.9,3.6)(5.2,3.9)
    \pscurve(5.05,4.1)(4.8,4.15)(5.1,4.3)
    \pscurve(5.1,4.4)(4.9,4.45)(5.1,4.6)
\iffalse
    \pscurve(8.4,1.3)(9,0.8)(10,0.4)(11,0.7)(11.3,1)(11.6,1.6)(12,2.05)(12.3,2.1)%
	(12.6,2)(12.8,1.6)(12.6,2.2)(12,2.4)(11.5,2)(11,1.2)(10,0.8)(9.5,1)(9,1.5)
    \pscurve(6.6,1.3)(6,0.8)(5,0.4)(4,0.7)(3.7,1)(3.4,1.6)(3,2.05)(2.7,2.1)%
	(2.4,2)(2.2,1.6)(2.4,2.2)(3,2.4)(3.5,2)(4,1.2)(5,0.8)(5.5,1)(6,1.5)
    \pscircle(9,1.1){0.1}  \pscircle(9.4,0.8){0.1}
    \pscircle(10,0.6){0.1} \pscircle(10.5,0.7){0.1}
    \pscircle(11,1){0.1}   \pscircle(11.4,1.6){0.1}
    \pscircle(11.7,2){0.1}
    %
    \pscircle(6,1.1){0.1}  \pscircle(5.6,0.8){0.1}
    \pscircle(5,0.6){0.1}  \pscircle(4.5,0.7){0.1}
    \pscircle(4,1){0.1}    \pscircle(3.6,1.6){0.1}
    \pscircle(3.3,2){0.1}
%
    \pscurve(7.5,3)(7.5,2)(8,1)(8.5,1.3)(8.9,2.4)(9.3,4)(10.2,5.4)(10.8,4.55)(11.3,3.9)%
	(11.8,4)(11.4,4)(11,4.7)(10.2,5.7)(9.4,5)(9,4)(8.7,3)(8.2,2)(7.8,1.8)(7.5,2)
    %
    \pscurve(7.5,3)(7.5,2)(7,1)(6.5,1.3)(6.1,2.4)(5.7,4)(4.8,5.4)(4.2,4.55)(3.7,3.9)%
	(3.2,4)(3.6,4)(4,4.7)(4.8,5.7)(5.6,5)(6,4)(6.3,3)(6.8,2)(7.2,1.8)(7.5,2)
    \pscircle(8,1.2){0.1}    \pscircle(8.8,2.6){0.1}
    \pscircle(8.95,3.3){0.1} \pscircle(9.13,4){0.1}
    \pscircle(9.37,4.5){0.1} \pscircle(9.6,5.05){0.1}
    \pscircle(10,5.5){0.08}
    %
    \pscircle(7,1.2){0.1}    \pscircle(6.2,2.6){0.1}
    \pscircle(6.05,3.3){0.1} \pscircle(5.87,4){0.1}
    \pscircle(5.63,4.5){0.1} \pscircle(5.4,5.05){0.1}
    \pscircle(5,5.5){0.08}
    %
    \pscurve(7.5,5)(8,4.85)(8.3,4.6)(8.5,4.3)(8.55,4)(8.45,3.6)(8.3,3.4)(8.15,3.2)%
	(8.3,2.95)(8.17,2.7)(8.6,2.4)(6.4,2.4)(6.83,2.7)(6.7,2.95)(6.85,3.2)%
	(6.7,3.4)(6.55,3.6)(6.45,4)(6.5,4.3)(6.7,4.6)(7,4.85)(7.5,5)
% tentacule 1
    \pscurve(8.17,2.7)(8.6,2.4)(9.2,2.4)(10,2.6)(11,3)(11.7,3.6)(12,4.5)(11.8,4.6)%
	(12,4.7)(12.2,4.6)(12.2,4.2)(12,3.7)(11.3,3)(10,2.25)(9,2)(8.4,2)(8,2.3)
    \pscircle(8.3,2.3){0.1}  \pscircle(8.65,2.2){0.1}
    \pscircle(9.1,2.2){0.1}  \pscircle(9.55,2.28){0.1}
    \pscircle(9.9,2.45){0.1} \pscircle(10.3,2.5){0.1}
    \pscircle(10.6,2.68){0.08}
% tentacule 1
    \pscurve(6.83,2.7)(6.4,2.4)(5.8,2.4)(5,2.6)(4,3)(3.3,3.6)(3,4.5)(3.2,4.6)(3,4.7)%
	(2.8,4.6)(2.8,4.2)(3,3.7)(3.7,3)(5,2.25)(6,2)(6.6,2)(7,2.3)
    \pscircle(6.7,2.3){0.1}  \pscircle(6.45,2.2){0.1}
    \pscircle(5.9,2.2){0.1}  \pscircle(5.45,2.28){0.1}
    \pscircle(5.1,2.45){0.1} \pscircle(4.7,2.5){0.1}
    \pscircle(4.4,2.68){0.08}
    % deuxieme tentacule
    \pscurve(8,2.4)(8.1,2)(8.4,1.8)(9,2)(9.7,4)(10.2,5)(11,5.55)(11.6,5.4)(11,5.3)%
	(10.6,5)(10,4)(9.7,3)(9.5,2)(9,1.5)(8.4,1.3)(8,1.4)(7.5,2)(7.5,2.5)
    \pscircle(7.8,2){0.1}    \pscircle(8.1,1.6){0.1}
    \pscircle(8.6,1.6){0.1}  \pscircle(9,1.8){0.1}
    \pscircle(9.3,2.2){0.1}  \pscircle(9.5,2.6){0.1}
    \pscircle(9.6,3){0.1}    \pscircle(9.7,3.4){0.08}
    \pscircle(9.8,3.8){0.08} \pscircle(10,4.4){0.08}
    \pscircle(10.2,4.7){0.08}\pscircle(10.4,5){0.08}
    \pscircle(10.6,5.2){0.08}
% 23 juin
    \pscurve(7,2.4)(6.9,2)(6.6,1.8)(6,2)(5.3,4)(4.8,5)(4,5.55)(3.4,5.4)(4,5.3)(4.4,5)%
	(5,4)(5.3,3)(5.5,2)(6,1.5)(6.6,1.3)(7,1.4)(7.5,2)(7.5,2.5)
    \pscircle(7.2,2){0.1}    \pscircle(6.9,1.6){0.1}
    \pscircle(6.4,1.6){0.1}  \pscircle(6,1.8){0.1}
    \pscircle(5.7,2.2){0.1}  \pscircle(5.5,2.6){0.1}
    \pscircle(5.4,3){0.1}    \pscircle(5.3,3.4){0.08}
    \pscircle(5.2,3.8){0.08} \pscircle(5,4.4){0.08}
    \pscircle(4.8,4.7){0.08} \pscircle(4.6,5){0.08}
    \pscircle(4.4,5.2){0.08}
%
    \pscircle[linewidth=1.5\pslinewidth,fillstyle=solid,fillcolor=white](8,2.95){0.2}
    \pscircle[fillstyle=solid,fillcolor=black](8.05,2.95){0.15}
    \pscircle[fillstyle=solid,fillcolor=white,linestyle=none](8.07,2.97){0.05}
    \pscircle[linewidth=1.5\pslinewidth,fillstyle=solid,fillcolor=white](7,2.95){0.2}
    \pscircle[fillstyle=solid,fillcolor=black](6.95,2.95){0.15}
    \pscircle[fillstyle=solid,fillcolor=white,linestyle=none](6.97,2.97){0.05}
    \psset{linewidth=0.5mm}
    \pscurve(7.85,3.15)(8.1,3.2)(7.9,3.4)
    \pscurve(7.15,3.15)(6.9,3.2)(7.1,3.4)
    \pscurve(7.55,3.2)(7.6,3.4)(7.8,3.6)(8.1,3.6)(7.8,3.9)
    \pscurve(7.95,4.1)(8.2,4.15)(7.9,4.3)
    \pscurve(7.9,4.4)(8.1,4.45)(7.9,4.6)
    \pscurve(7.45,3.2)(7.4,3.4)(7.2,3.6)(6.9,3.6)(7.2,3.9)
    \pscurve(7.05,4.1)(6.8,4.15)(7.1,4.3)
    \pscurve(7.1,4.4)(6.9,4.45)(7.1,4.6)
\fi
  \end@SpecialObj}
  \ignorespaces}
%
\def\Datas{%
  \pnode(2.3,0.4){P5}\pnode(2.1,0.15){P6}
  \pnode(2.37,0.7){P1}\pnode(2.37,0.4){P2}\pnode(2.3,0.4){pp2}\pnode(2.22,0.4){P3}\pnode(2.2,0.4){P4}
  \pnode(2.1,0.15){G4}\pnode(2.25,0.18){G5}\pnode(2.38,0.15){G6}
  \pnode(2.1,0.15){G1}\pnode(2,0){G2}\pnode(2.1,-0.12){G3}
  \pnode(2.1,0.15){G7}\pnode(2.1,0){G8}\pnode(2.2,-0.1){G9}
  \pnode(2.1,0.15){G10}\pnode(2.38,0.15){G11}\pnode(2.32,0.09){G12}
  \pnode(1.85,0.25){p1}\pnode(1.75,0.1){p2}
  \pnode(1.75,0.1){g1}\pnode(1.6,0.04){g2}\pnode(1.65,-0.1){g3}
  \pnode(1.75,0.1){g4}\pnode(1.65,0){g5}\pnode(1.7,-0.1){g6}
  \pnode(1.75,0.1){g7}\pnode(1.7,0){g8}\pnode(1.8,-0.1){g9}
  \pnode(1.75,0.1){g10}\pnode(1.88,0.1){g11}\pnode(1.9,0.05){g12}
  \pnode(0.6,0.74){T1}\pnode(0.61,0.85){T2}\pnode(0.7,1.1){T3}\pnode(0.9,1.22){T4}\pnode(1,1.23){T5}\pnode(1.2,1.22){T6}
  \pnode(1.35,1.2){T7}\pnode(1.7,1.3){T8}\pnode(2,1.42){T9}\pnode(2.3,1.5){T10}\pnode(2.55,1.52){T11}\pnode(2.55,1.52){T12}
  \pnode(3,1.9){T13}\pnode(3.2,2.1){T14}\pnode(3.4,2.2){T15}\pnode(3.45,2){T16}\pnode(3.3,1.8){T17}\pnode(2.8,1.37){T18}\pnode(2.8,1.37){T19} % queue
  \pnode(2.7,0.9){T20}
  \pnode(2.1,0.3){T21}\pnode(1.7,0.14){T22}\pnode(1.3,0.16){T23}
  \pnode(1,0.4){T24}\pnode(0.8,0.6){T25}\pnode(0.7,0.62){T26}\pnode(0.75,0.7){T27}
  \pnode(1.12,1.23){d1}\pnode(1.2,1.22){d2}
  \pnode(1.35,1.2){d3}\pnode(1.7,1.3){d4}\pnode(2,1.42){d5}\pnode(2.3,1.5){d6}\pnode(2.55,1.52){d7}
  \pnode(2.85,1.55){d8}\pnode(2.85,1.55){d9}\pnode(2.8,1.37){d10}\pnode(2.6,1.35){d11}\pnode(2.3,1.3){d12}
  \pnode(2.1,1.1){d13}\pnode(1.9,0.8){d14}\pnode(1.7,0.7){d15}\pnode(1.5,0.68){d16}
  \pnode(1.3,0.7){d17}\pnode(1.3,0.7){d18}\pnode(1.35,0.8){d19}\pnode(1.35,1){d20}
  \pnode(1.25,1.15){d21}
  \pnode(0.75,0.7){c1}\pnode(1.02,0.9){c2}\pnode(1.15,1){c3}\pnode(1.25,1){c4}\pnode(1.25,0.8){c5}
  \pnode(1.1,0.62){c6}\pnode(0.9,0.6){c7}\pnode(0.7,0.62){c8}\pnode(0.7,0.62){c9}\pnode(0.8,0.6){c10}
  \pnode(0.9,0.55){c11}\pnode(1,0.53){c12}\pnode(1.2,0.6){c13}\pnode(1.3,0.7){c14}\pnode(1.35,0.8){c15}
  \pnode(1.35,1){c16}\pnode(1.25,1.15){c17}\pnode(1.12,1.23){c18}\pnode(1.12,1.23){c19}
  \pnode(1.15,1.1){c20}\pnode(1.1,1){c21}\pnode(0.97,0.9){c22}
  \pnode(0.8,0.95){C1}\pnode(0.95,1){C2}\pnode(1.1,1.1){C3}
  \pnode(1.12,1.23){C4}\pnode(1.12,1.23){C5}\pnode(1,1.23){C6}
  \pnode(0.9,1.22){C7}\pnode(0.7,1.1){C8}\pnode(0.6,0.74){C9}
  \pnode(0.45,0.62){B1}\pnode(0.6,0.74){B2}\pnode(0.75,0.7){B3}\pnode(0.7,0.62){B4}
  \pnode(1.5,0.68){A1}\pnode(1.7,0.7){A2}
  \pnode(1.9,0.8){A3}\pnode(2.1,1.1){A4}\pnode(2.3,1.3){A5}\pnode(2.6,1.35){A6}
  \pnode(2.8,1.37){A7}\pnode(3,1.4){A8}\pnode(3.2,1.47){A9}\pnode(3.2,1.47){A10}\pnode(3.2,1.47){A11}
  \pnode(3.1,1.3){A12}\pnode(2.7,0.9){A13}\pnode(2.3,0.75){A14}
  \pnode(2,0.68){A15}\pnode(1.4,0.68){A16}\pnode(1.3,0.7){A17}\pnode(1.3,0.7){A18}
  \pnode(0.45,0.62){B5}\pnode(0.73,0.7){B6}}
%
\newcmykcolor{marron}{0.2 0.5 0.7 0}
\newcmykcolor{darkGreen}{1 0 1 0.7}
\newcmykcolor{lightYellow}{0 0 0.7 0}
%
\def\psBranch{% Manuel
 \pnode(0.5,0.2){b1}\pnode(1.05,-0.15){b2}\pnode(1.3,0){bb2}\pnode(1.55,0.05){b3}\pnode(2.6,0.2){b4}
  \pnode(4,0.87){b5}\pnode(5,1.2){b6}\pnode(6.5,1.25){bb6}\pnode(7.8,1.15){b7}\pnode(7,2){b8}\pnode(7,2.15){b9}
  \pnode(8,1.2){b10}\pnode(10,1){b11}\pnode(10,0.7){b12}
  \pnode(8,0.9){b13}\pnode(5,0.95){b14}
  \pnode(4,0.6){b15}\pnode(2.9,0){b16}\pnode(2.2,-0.5){b17}
  \pnode(2.1,-0.5){b18}\pnode(2.7,0){b19}\pnode(2,-0.1){b20}\pnode(1.5,-0.1){b21}
  \pnode(0.7,-0.55){b22}\pnode(0.6,-0.5){b23}\pnode(1,-0.25){b24}\pnode(0.7,-0.1){b25}\pnode(0.45,0.12){b26}
  \psccurve[fillstyle=solid,fillcolor=marron,linestyle=none](b1)(b1)(b2)(bb2)(b3)(b4)(b5)(b5)(b6)(bb6)
    (b7)(b7)(b8)(b8)(b9)(b9)(b10)(b11)(b11)(b12)(b12)(b13)(b14)(b15)(b15)(b16)(b17)(b17)(b18)(b18)
    (b19)(b19)(b20)(b21)(b22)(b22)(b23)(b23)(b24)(b24)(b25)(b26)
  \pscurve(b1)(b2)(bb2)(b3)(b4)(b5)(b5)(b6)(bb6)(b7)(b7)(b8)
  \pscurve(b9)(b10)(b11)
  \pscurve(b12)(b13)(b14)(b15)(b15)(b15)(b16)(b16)(b17)(b17)(b18)(b18)(b19)(b19)(b20)(b21)(b22)
  \pscurve(b23)(b24)(b24)(b25)(b26)}
%
\define@boolkey[psset]{pst-fun}[Pst@]{Branch}[true]{}% draw the branch?
\psset[pst-fun]{Branch=false}
%
\def\psBird{\pst@object{psBird}}
\def\psBird@i{{%
  \pst@killglue%
  \Datas%
  \use@par
  \ifPst@Branch \psBranch \fi
  \psline[linewidth=0.75mm](P5)(P6)
  \psccurve[fillstyle=solid,fillcolor=lightYellow](P1)(P2)(pp2)(P3)(P4)
  % griffes
  \pscurve(G1)(G2)(G3)
  \pscurve(G4)(G5)(G6)
  \pscurve(G7)(G8)(G9)
  \pscurve(G10)(G11)(G12)
  \psline[linewidth=0.75mm](p1)(p2)
  \pscurve(g1)(g2)(g3)
  \pscurve(g4)(g5)(g6)
  \pscurve(g7)(g8)(g9)
  \pscurve(g10)(g11)(g12)
  % tete et corps
  \psccurve[fillstyle=gradient,gradend=white,gradbegin=yellow,gradmidpoint=0.5](T1)(T1)(T2)(T3)(T4)(T5)(T6)
        (T7)(T8)(T9)(T10)(T11)(T12)
        (T13)(T14)(T15)(T16)(T17)(T18)(T19) % queue
        (T20)(T21)(T22)(T23)(T24)(T25)(T26)(T26)(T27)(T27)
  % dos
  \psccurve[linestyle=none,fillstyle=gradient,gradend=darkGreen,gradbegin=green,gradmidpoint=0](d1)(d1)(d2)(d3)(d4)
    (d5)(d6)(d7)(d8)(d9)(d10)(d11)(d12)(d13)(d14)(d15)(d16)(d17)(d18)(d19)(d20)(d21)
  \psccurve[fillstyle=gradient,gradbegin=blue,gradend=green,linestyle=none,gradmidpoint=1]%
    (T11)(T11)(T12)(T13)(T14)(T15)(T16)(T17)(T18)(T18)(d8)(d8)
  % collier
  \psccurve[linestyle=none,fillstyle=gradient,gradend=white,gradbegin=black](c1)(c1)(c2)(c3)(c4)(c5)(c6)(c7)(c8)(c9)
	(c10)(c11)(c12)(c13)(c14)(c15)(c16)(c17)(c18)(c19)(c20)(c21)(c22)
  % calotte
  \psccurve[fillstyle=gradient,gradend=white,gradbegin=blue,linestyle=none]%
    (C1)(C2)(C3)(C4)(C5)(C6)(C7)(C8)(C9)(C9)
  % bec
  \pspolygon[fillstyle=solid,fillcolor=gray](B1)(B2)(B3)(B4)
  \psline(B5)(B6)
  % oeil
%  \pnode(0.85,0.8){O1}
  \pscircle[fillstyle=solid,fillcolor=black](0.85,0.8){0.05}
  \pscircle[fillstyle=solid,fillcolor=white,linestyle=none](0.84,0.82){0.010}
  % aile
  \psccurve[fillstyle=gradient,gradbegin=blue,gradend=green,linestyle=none]%
    (A1)(A2)(A3)(A4)(A5)(A6)(A7)(A8)(A9)(A10)(A11)(A12)(A13)(A14)(A15)(A16)(A17)(A18)%
%  \endpspicture
  }\ignorespaces}
%
\newpsstyle{LukesHat}{fillstyle=solid,fillcolor=yellow}
\def\psLuke{\pst@object{psLuke}}% manuel
\def\psLuke@i{{%
  \pst@killglue
  \addbefore@par{linewidth=2pt,linecolor=black!80}
  \begin@SpecialObj%
    \pscustom[style=LukesHat]{%
      \pscurve(7.5,9)(6.8,9)(6,9.5)(4,9.5)(2,8)(1.1,6)(1.2,5)(1.6,4.2)(2.5,4.6)(3.2,5.5)
      \psline(3.2,5.5)(2.5,6.2)
      \pscurve(2.5,6.2)(3,7.3)(4,8.2)(5.5,8.8)(6.5,8.7)(7.5,9)}
    \pscustom[style=LukesHat]{%
      \psline(1.4,7.1)(1,7.3)(2,9.4)(3,9.9)(3.5,9.2)
      \pscurve(3.5,9.2)(3,9)(2,8)(1.4,7.1)}
    \pscustom{% head
      \pscurve(4.9,8.6)(5.3,8)(6,7)(5.5,6.5)
      \pscurve(5.5,6.5)(5.5,5.5)(5.7,5.2)(5.6,5)(5,5.1)
      \pscurve(5,5.1)(5,4.5)(4.6,4)(4,4.75)
      \pscurve(4,4.75)(4.2,4.2)(4.2,4)(4.1,3.4)
      \psline(4.1,3.4)(3.5,3.7)(3.7,5)(3.5,5.5)(3.2,5.5)(2.5,6.2)
      \pscurve(2.5,6.2)(3,7.3)(4,8.2)(4.9,8.6)}
      \psline(4.2,6.2)(4.6,6.6)
      \psline(4.3,6)(4.8,6.3)
      \pscurve(4.5,6.1)(5,5.6)(5.5,5.5)\psline(5.6,5.4)(8.2,3.9)
    \pspolygon[linestyle=none,linewidth=0.1pt,fillcolor=black,fillstyle=solid]%
      (8.2,3.8)(7.7,4.2)(8.2,4.1)(7.9,4.3)(7.9,4.4)(7.7,4.45)(7.75,4.5)(7.3,4.45)%
      (7.4,4.2)(7.5,3.8)(7.55,4)(7.95,3.9)(8,4)(7.6,4.2)
    \pscustom[linestyle=none,linewidth=0.1pt,fillcolor=black,fillstyle=solid]{% eye
      \pscurve(4.8,7.9)(4.8,7.3)(4.5,7.4)
      \pscurve(4.5,7.4)(4.8,7.2)(5.1,7.3)
      \pscurve(5.1,7.3)(4.9,7.35)(4.8,7.9)}
    \pscustom{%
      \pscurve(4.1,3.8)(5,3.1)(4.9,2.8)(4.6,1.6)(3.8,0.3)
      \pscurve(3.8,0.3)(3.9,0.8)(3.5,2)(3.2,2.5)(3.2,3.5)(3.3,3.9)(3.5,4)
      \pscurve(3.5,4)(3.5,3.7)(4,3.3)(5,3.1)}  
    \pscurve(4.5,1.8)(3.9,2)(3.4,2.8)(3.2,3.5)(3.3,3.9)(3.6,4)
    \pscurve(4.3,2.4)(4,2.6)(3.4,2.8)
    \psline(4.1,2.8)(4.9,2.9)
    \pspolygon[linestyle=none,linewidth=0.1pt,fillcolor=black,fillstyle=solid]%
      (4.2,2.2)(4.3,2.3)(4.5,2.1)
    \pscurve(3.5,1.9)(3.6,1)(3.7,0.8)(3.9,0.9)
    \pscurve(1.15,4.9)(0.5,4.7)(0,4.3)
    \pscurve(0,4.3)(1,4.25)(1.8,4)(2.1,3.8)(3,3.75)(3.2,3.5)
    \pscurve(2.7,4.8)(3.15,4.2)(3.2,4)(3.3,3.9)
    \psline(2.1,3.8)(1.3,3.4)
    \pscurve(1.3,3.4)(2.1,3.2)(3,3.5)
    \psccurve(3,3.5)(3,4)(3.15,4.1)(3.3,4)(3.2,3.8)(3.1,3.5)
    \pscurve(3.9,6)(3.6,5.5)(3.2,5.6)(2.9,6)(2.8,6.3)(3,6.7)(3.2,6.8)(3.8,6.2)(4,6.3)%
	(3.9,7)(3.6,7.5)(3.3,7.5)(3.2,7)(3.2,6.7)
    \pscurve(3.5,5.9)(3.2,6)(3.25,6.3)
    \pscurve(2.8,6.3)(3.25,6.3)(3.65,6)
    \pscurve(3.2,7.5)(3.55,7.4)(3.5,7)(3.55,6.45)
    \pscurve(6.5,8.7)(7,8.45)(7.3,7.9)
    \pscurve(7,8.45)(7.1,8)(7,7.5)(7,7.3)
    \pscurve(7,7.3)(6.95,7.5)(6.6,8)(6.3,8.4)
    \pscurve(5.8,8.8)(6,8.7)(6.1,8.2)(6.25,7.5)
    \pscurve(4.9,8.6)(5.5,8.6)(6,8.5)(6.2,8.2)
    \pscurve(4.9,8.6)(5.6,8.4)(5.8,8.2)(6,7.8)
    \pscurve(5.1,8)(5.2,7.9)(5.7,8.2)(6,8.3)(6.2,8.7)
    \psccurve[linestyle=none,linewidth=0.1pt,fillcolor=black,fillstyle=solid]%
      (4.15,7.9)(4.2,8.15)(4.5,8.2)(4.7,8.15)(4.5,8.05)(4.4,8)(4.2,7.95)
  \end@SpecialObj}\ignorespaces}
%
\def\psAnt{\pst@object{psAnt}}% manuel
\def\psAnt@i{%
  \pst@killglue%
  \addbefore@par{fillcolor=gray,fillstyle=solid}
  \begin@ClosedObj%
  \addto@pscode{
0.025 0.025 scale
0 2700 moveto
-3 -24 -8 -109 -11 -189 rcurveto
-13 -321 -69 -511 -204 -694 rcurveto
-28 -38 -51 -72 -51 -76 rcurveto
0 -8 181 -185 303 -294 rcurveto
48 -44 87 -85 87 -92 rcurveto
0 -7 -10 -18 -22 -25 rcurveto
-65 -33 -139 -138 -192 -271 rcurveto
-46 -116 -34 -171 56 -249 rcurveto
43 -37 rlineto
-53 -54 rlineto
-30 -29 -68 -73 -85 -97 rcurveto
-32 -43 rlineto
-6 68 rlineto
-7 77 -53 223 -98 311 rcurveto
-108 215 -338 375 -558 391 rcurveto
-78 5 -87 -1 -51 -35 rcurveto
31 -28 74 -49 196 -94 rcurveto
169 -63 245 -121 283 -217 rcurveto
12 -31 49 -106 82 -165 rcurveto
72 -129 75 -159 33 -264 rcurveto
-28 -71 rlineto
27 -59 rlineto
30 -64 65 -168 65 -195 rcurveto
0 -10 -6 -18 -14 -18 rcurveto
-8 0 -35 -16 -60 -35 rcurveto
-45 -34 rlineto
-51 97 rlineto
-118 231 -193 261 -510 208 rcurveto
-643 -109 -885 -175 -997 -270 rcurveto
-64 -54 -33 -60 86 -16 rcurveto
102 37 305 91 496 130 rcurveto
336 69 532 87 602 54 rcurveto
19 -9 102 -85 184 -167 rcurveto
159 -161 160 -162 138 -239 rcurveto
-6 -24 -16 -38 -26 -38 rcurveto
-9 0 -45 -7 -79 -16 rcurveto
-62 -15 rlineto
-47 35 rlineto
-68 52 -136 69 -260 64 rcurveto
-101 -3 -105 -5 -207 -55 rcurveto
-181 -91 -447 -327 -682 -608 rcurveto
-150 -179 -225 -255 -336 -340 rcurveto
-52 -41 -108 -84 -124 -98 rcurveto
-41 -34 -27 -50 38 -45 rcurveto
103 9 232 127 458 418 rcurveto
77 101 186 206 283 274 rcurveto
153 109 274 204 353 280 rcurveto
82 79 rlineto
53 -6 rlineto
28 -3 104 -22 167 -42 rcurveto
94 -31 136 -38 230 -44 rcurveto
135 -7 132 -15 -26 -56 rcurveto
-55 -14 -124 -40 -154 -58 rcurveto
-106 -63 -274 -251 -353 -397 rcurveto
-60 -111 -82 -198 -82 -330 rcurveto
0 -108 2 -119 30 -175 rcurveto
58 -114 170 -213 291 -256 rcurveto
73 -26 215 -31 289 -10 rcurveto
149 43 339 377 410 721 rcurveto
19 88 25 281 13 355 rcurveto
-6 32 1 23 36 -50 rcurveto
102 -213 118 -267 129 -425 rcurveto
11 -155 0 -500 -28 -870 rcurveto
-8 -107 -18 -332 -21 -500 rcurveto
-8 -359 -3 -399 55 -460 rcurveto
37 -39 81 -54 81 -27 rcurveto
0 7 -21 53 -46 102 rcurveto
-47 90 rlineto
12 280 rlineto
13 328 23 424 58 600 rcurveto
27 130 rlineto
-2 454 rlineto
-3 455 rlineto
-38 50 rlineto
-54 72 -60 86 -71 171 rcurveto
-5 42 -19 97 -30 122 rcurveto
-11 25 -20 53 -20 61 rcurveto
0 22 50 92 65 92 rcurveto
7 0 53 -44 101 -97 rcurveto
49 -54 159 -170 245 -259 rcurveto
122 -126 163 -174 187 -225 rcurveto
62 -127 122 -380 187 -789 rcurveto
44 -281 88 -431 128 -438 rcurveto
28 -5 22 72 -23 289 rcurveto
-21 107 -46 264 -55 349 rcurveto
-30 308 -60 431 -147 606 rcurveto
-64 132 -150 237 -286 352 rcurveto
-137 116 -188 170 -214 230 rcurveto
-25 56 -48 138 -48 171 rcurveto
0 14 -7 32 -16 42 rcurveto
-15 16 -14 19 14 33 rcurveto
16 8 78 27 138 42 rcurveto
141 35 208 66 357 163 rcurveto
204 133 232 142 582 186 rcurveto
116 14 286 39 379 56 rcurveto
129 23 192 30 262 27 rcurveto
51 -1 96 0 100 4 rcurveto
13 14 -6 39 -41 53 rcurveto
-46 20 -104 19 -216 -4 rcurveto
-52 -11 -125 -22 -164 -26 rcurveto
-110 -10 -460 -54 -570 -71 rcurveto
-126 -20 -178 -41 -351 -142 rcurveto
-132 -77 -286 -151 -346 -166 rcurveto
-36 -8 -36 8 -2 89 rcurveto
69 162 87 261 59 328 rcurveto
-6 15 0 17 68 17 rcurveto
119 0 145 32 202 252 rcurveto
19 72 36 132 37 134 rcurveto
2 2 56 -56 119 -128 rcurveto
144 -165 189 -201 244 -196 rcurveto
89 9 436 93 559 135 rcurveto
136 46 307 122 337 149 rcurveto
22 19 14 44 -13 44 rcurveto
-11 0 -77 -24 -148 -54 rcurveto
-113 -48 -278 -101 -425 -136 rcurveto
-105 -25 -289 -60 -314 -60 rcurveto
-19 0 -52 27 -137 114 rcurveto
-140 143 -233 262 -272 347 rcurveto
-56 125 -157 165 -301 120 rcurveto
-61 -19 rlineto
-170 180 rlineto
-93 99 -173 190 -176 202 rcurveto
-4 16 14 64 60 157 rcurveto
36 74 77 168 91 209 rcurveto
33 96 49 270 42 449 rcurveto
-6 137 -21 191 -31 110 rcurveto
  }
  \end@ClosedObj%
  \ignorespaces%
}
%
\def\psKangaroo{\pst@object{psKangaroo}}% manuel
\def\psKangaroo@i#1{%
  \pst@killglue%
  \addbefore@par{fillstyle=solid,fillcolor=gray,linewidth=0.01}%
  \begin@ClosedObj%
  \psset{xunit=0.006784,yunit=0.00735}
  \psscalebox{#1}{%
%  \begin{pspicture}(-63.5,0)(79,126)%
% Body 
  \pspolygon(52.5,68)(55,72.5)(55.8,76.5)(56.8,79.8)(58.2,83)(60,85.8)(61.5,86.5) 
    (64,87)(66,87.5)(67.8,87.3)(70,87)(71.5,87.3)(73,88)(74.7,88.5) 
    (76,90.3)(77,91.5)(72.8,93.8)(69,96)(64.5,99)(59.4,103)(56.2,106.3) 
    (53,110.5)(49.5,115.5)(47.2,119.9)(45.7,126)(43.2,123)(41.5,121)(37.5,125) 
    (37,122.5)(36.8,120)(37,117)(37.6,113.5)(38.6,110)(40,106.3)(42,102.3) 
    (43.5,99.5)(45,97)(46.2,94)(46.8,91.7)(47.2,88)(47,83.5)(46.3,80.8) 
    (45.3,78.5)(42.5,76.5)(39.5,75.8)(36,75.9)(33,75.9)(29,76.2)(26,77) 
    (22.3,77.5)(18,78.4)(12.8,79.3)(8.6,80)(5.5,80.3)(3,80.5)(0,80) 
    (-5.2,78.5)(-9,76.3)(-11.2,74.8)(-13,72.5)(-16.5,68)(-16.5,68)(-19.5,62.5) 
    (-22,58)(-25.5,53)(-29,48.5)(-32.5,45)(-36,42)(-39,39.5)(-44,37) 
    (-49,35)(-51,34)(-53.5,34.5)(-55.5,36)(-56.5,38)(-56.5,40.5)(-55,41.5) 
    (-53.5,41)(-51.5,41)(-50.5,43)(-50.5,44.5)(-51,47)(-51.5,47.2)(-56.5,47) 
    (-58.5,46.5)(-60,44.7)(-62,42.3)(-63,39.5)(-63.5,36.3)(-63.5,33)(-63.1,29.5) 
    (-61.5,26)(-58,23.6)(-54,22.2)(-50.7,22)(-47.5,22)(-44.5,22.3)(-41,23.5) 
    (-36.8,25.8)(-33,28)(-28.5,31)(-23.4,35)(-20.2,38.3)(-17,42.5)(-13.5,47.5) 
    (-11.2,51.9)(-9.7,58)(-7.2,55)(-5.5,53)(-1.5,57)(-1,54.5)(-0.8,52) 
    (-1,49)(-1.6,45.5)(-2.6,42)(-4,38.3)(-6,34.3)(-7.5,31.5)(-9,29) 
    (-10.2,26)(-10.8,23.7)(-11.2,20)(-11,15.5)(-10.3,12.8)(-9.3,10.5)(-6.5,8.5) 
    (-3.5,7.8)(0,7.9)(3,7.9)(7,8.2)(10,9)(13.7,9.5)(18,10.4) 
    (23.2,11.3)(27.4,12)(30.5,12.3)(33,12.5)(36,12)(41.2,10.5)(45,8.3) 
    (47.2,6.8)(49,4.5)(52.5,0)(50,4.5)(49.2,8.5)(48.2,11.8)(46.8,15) 
    (45,17.8)(43.5,18.5)(41,19)(39,19.5)(37.2,19.3)(35,19)(33.5,19.3) 
    (32,20)(30.3,20.5)(29,22.3)(28,23.5)(28,23.5)(24.5,22.3)(21.5,22) 
    (18.3,22)(15,22.2)(11,23.6)(7.5,26)(5.9,29.5)(5.5,33)(5.5,36.3) 
    (6,39.5)(7,42.3)(9,44.7)(10.5,46.5)(12.5,47)(17.5,47.2)(18,47) 
    (18.5,44.5)(18.5,43)(17.5,41)(15.5,41)(14,41.5)(12.5,40.5)(12.5,38) 
    (13.5,36)(15.5,34.5)(18,34)(20,35)(25,37)(30,39.5)(33,42) 
    (36.5,45)(40,48.5)(43.5,53)(47,58)(49.5,62.5)(52.5,68) 
% Eye 
  \pscircle*[linecolor=white](58.2,98.3){2\psxunit} 
  \pscircle*(58.2,97.3){\psxunit} 
% Mouth 
  \psline(71.5,88)(70,89.3)(68.5,90.3)(67,91.9) 
% Tear 
  \psline(42,121)(45,118)(47,115.3)(48.5,112.7)(50,110)(51.8,106.5)(52.5,103.7)(53,100.5) 
  \pspolygon(41.2,115.8)(43.2,114.7)(45,112.5)(47,109.8)(48,107)(49.5,104.2) 
    (50.5,101.6)(51,98.5)(47.7,100.6)(46,102.2)(44.8,104)(43.5,106) 
    (42.5,108)(41.7,110.5)(41,113.2)%
%  \end{pspicture}
}%
  \end@ClosedObj%
  \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
\endinput
%