%%
%% This is file `pst-fun.tex',
%%
%% IMPORTANT NOTICE:
%%
%% Package `pst-fun.tex'
%%
%% Manuel Luque 
%% Herbert Voss <hvoss@tug.org>
%%
%% 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.06}
\def\filedate{2026/05/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%
}
\def\psDog{\@ifnextchar[{\psDog@i}{\psDog@i[]}}%
\def\psDog@i[#1]{%
  \pscustom[#1]{%
    \translate(-1.4,-1.9)\scale{0.2 0.2}%
    \pspolygon( 3.666,15.100)% 
( 2.833,14.900)( 2.233,14.366)( 2.133,13.966)%  
( 1.733,13.966)( 1.433,13.366)( 1.433,13.000)%  
( 1.566,12.633)( 2.066,12.333)( 2.466,12.200)%  
( 2.766,12.200)( 3.000,12.333)( 3.333,12.300)%
( 3.533,12.033)( 3.666,11.400)( 4.033,10.566)% 
( 4.000, 9.133)( 4.833, 7.300)( 5.300, 4.400)%  
( 5.333, 3.400)( 5.233, 2.700)( 4.700, 2.466)%
( 4.633, 2.100)( 5.133, 1.933)( 5.600, 1.933)%
( 5.833, 2.033)( 6.033, 2.333)( 6.166, 3.166)%
( 6.300, 3.300)( 6.366, 5.366)( 6.566, 6.966)%  
( 8.233, 7.133)(11.033, 8.033)(11.600, 7.733)% 
(12.266, 6.600)(13.300, 5.500)(14.066, 4.933)%  
(14.600, 4.300)(14.733, 3.966)(14.700, 2.866)% 
(14.600, 2.666)(14.233, 2.466)(14.166, 2.066)%  
(14.333, 1.933)(14.666, 1.900)(15.133, 1.966)%  
(15.400, 2.200)(15.733, 4.833)(15.333, 5.400)% 
(14.600, 6.100)(14.266, 7.033)(14.000, 9.800)%  
(13.833,10.433)(13.666,10.666)(14.033,11.366)%  
(14.033,11.633)(13.666,11.666)(13.200,11.200)%  
(12.100,11.433)(10.400,11.400)( 8.366,11.533)%  
( 7.966,11.833)( 7.233,11.966)( 6.966,12.200)% 
( 6.666,12.233)( 5.700,13.600)( 4.966,14.266)% 
( 4.933,14.533)( 4.733,14.733)( 4.366,14.900)%  
( 4.300,15.033)( 3.700,15.100)}}
%
\define@key[psset]{pst-fun}{hatcolor}[{[rgb]{1 0 0}}]{\pst@getcolor{#1}\pscolor@hat}
\define@key[psset]{pst-fun}{shirtcolor}[{[rgb]{1 0 0}}]{\pst@getcolor{#1}\pscolor@shirt}
\psset[pst-fun]{hatcolor=yellow,shirtcolor={[rgb]{1,0.2,1}}}

\def\psHumanA{\@ifnextchar[{\psHumanA@i}{\psHumanA@i[]}}%
\def\psHumanA@i[#1]{\@ifnextchar({\psHumanA@ii[#1]}{\psHumanA@ii[#1](0,0)}}
\def\psHumanA@ii[#1](#2,#3){%
  \pst@dima=0.6\psxunit
  \rput(!#2 \pst@number\pst@dima 28.82 div sub #3){%
  \pscustom[#1]{%
%    \translate(0.6,0)
%    \scale{0.2 0.2}%
    \pst@dima=0.2\psxunit
    \pst@dimb=0.2\psyunit
    \code{
      \pst@number\pst@dima 28.82 div 
      \pst@number\pst@dimb 28.82 div 
      scale
% 1                   pathnumber
% filledpath
 0 setlinecap
 10.0 setmiterlimit
 0 setlinejoin
 [ ] 0.0 setdash
 0.1 setlinewidth
 0.0 0.0 0.0 1.0 setcmykcolor
%
newpath
 101.207 315.5 moveto
 98.8828 307.0 98.668 305.703 99.6992 306.332 curveto
 101.016 307.137 103.41 316.398 102.766 318.199 curveto
 102.508 318.914 101.809 317.699 101.207 315.5 curveto
 closepath
fill
% 2                   pathnumber
% filledpath
 0 setlinecap
 10.0 setmiterlimit
 0 setlinejoin
 [ ] 0.0 setdash
 0.1 setlinewidth
 0.0 0.0 0.0 1.0 setcmykcolor
%
newpath
 68.1484 293.602 moveto
 63.9258 288.801 63.043 284.207 65.8984 281.898 curveto
 67.1016 280.93 68.5352 280.008 69.25 279.75 curveto
 70.0234 279.473 68.7305 277.398 65.8398 274.301 curveto
 58.1055 266.0 55.0977 258.016 57.0195 250.898 curveto
 58.0469 247.102 57.9414 246.766 54.8984 244.25 curveto
 53.1133 242.77 50.8594 239.699 49.8008 237.301 curveto
 47.918 233.043 47.8516 233.0 42.9492 233.0 curveto
 38.4492 233.0 37.9961 233.203 37.9492 235.25 curveto
 37.9023 237.352 37.832 237.379 36.8594 235.699 curveto
 34.707 231.973 36.5 230.672 42.8984 231.309 curveto
 48.3008 231.852 48.8477 231.727 49.3516 229.852 curveto
 49.8086 228.137 49.0 227.406 44.3984 225.383 curveto
 38.3984 222.746 36.4258 222.441 35.4648 224.0 curveto
 34.5352 225.512 33.0 225.199 33.0 223.5 curveto
 33.0 220.191 39.3984 221.008 47.8984 225.398 curveto
 50.8008 226.898 51.1602 226.895 53.5 225.352 curveto
 55.2148 224.219 57.1016 223.887 59.5 224.301 curveto
 62.1016 224.746 62.8164 224.59 62.2813 223.699 curveto
 61.4766 222.359 58.1992 219.797 56.0 218.789 curveto
 54.9102 218.289 55.1016 218.086 56.6992 218.051 curveto
 58.2188 218.016 60.707 220.102 64.75 224.801 curveto
 70.6016 231.602 lineto
 74.3008 228.898 lineto
 77.5 226.566 77.7969 226.039 76.5 225.0 curveto
 75.6719 224.34 75.0 222.5 75.0 220.898 curveto
 75.0 218.055 74.8984 218.0 69.8008 218.0 curveto
 61.3008 218.0 56.1289 213.504 55.6602 205.699 curveto
 55.4844 202.801 54.4883 200.211 52.6016 197.75 curveto
 51.0664 195.75 49.9922 193.285 50.2266 192.301 curveto
 50.7891 189.922 47.1016 184.809 39.8984 177.988 curveto
 35.1992 173.535 34.0 171.789 34.0 169.398 curveto
 34.0 165.063 36.6016 163.156 43.0 162.805 curveto
 47.3008 162.566 48.4141 162.172 48.1055 161.0 curveto
 46.7148 155.699 46.8984 154.152 49.1016 152.617 curveto
 52.1016 150.523 55.8594 150.508 58.8008 152.57 curveto
 62.3008 155.023 62.6953 153.465 59.3008 150.602 curveto
 53.1016 145.379 48.1836 135.266 51.0 133.52 curveto
 51.6484 133.117 51.6484 132.25 51.0 131.051 curveto
 50.1875 129.547 50.6016 128.625 53.1992 126.137 curveto
 56.8008 122.691 63.6016 118.0 65.0 118.0 curveto
 65.5078 118.0 65.7266 113.0 65.5 106.5 curveto
 65.1445 96.3008 64.8086 94.5039 62.5117 90.6016 curveto
 58.7461 84.1992 58.3008 80.1211 61.0469 77.1992 curveto
 63.0938 75.0195 63.2383 74.1016 62.6406 67.1016 curveto
 61.7109 56.1992 61.0469 54.5 56.3984 51.1367 curveto
 53.5 49.0391 51.9844 47.0781 51.5 44.8008 curveto
 51.0664 42.7656 48.6055 39.1992 45.0742 35.5 curveto
 37.9141 28.0 35.9375 24.2617 35.3008 17.0 curveto
 34.8359 11.6992 35.0156 11.0547 37.8789 7.80078 curveto
 42.8594 2.14063 51.6992 0.542969 61.6992 3.49609 curveto
 65.6914 4.67188 67.9414 6.25 72.0508 10.75 curveto
 74.9727 13.9492 78.0742 17.7656 79.0508 19.3516 curveto
 80.8008 22.1992 lineto
 94.1484 22.4492 lineto
 101.852 22.5938 110.781 23.418 115.25 24.3984 curveto
 123.0 26.1016 lineto
 132.199 22.9492 lineto
 140.199 20.2109 142.379 19.8594 148.898 20.2539 curveto
 157.699 20.7891 163.082 23.1328 167.809 28.5 curveto
 175.336 37.043 169.898 46.6211 155.398 50.375 curveto
 152.199 51.2031 149.305 52.4961 149.074 53.1992 curveto
 148.309 55.5273 143.0 59.8203 140.102 60.457 curveto
 136.805 61.1758 136.645 61.6016 134.91 74.1992 curveto
 133.852 81.8984 133.898 83.4609 135.301 86.6992 curveto
 138.203 93.3984 137.906 97.0547 134.133 101.0 curveto
 130.207 105.105 125.52 126.801 126.523 136.199 curveto
 127.125 141.801 126.945 142.82 124.898 145.398 curveto
 122.602 148.301 lineto
 125.949 151.0 lineto
 128.75 153.258 129.191 154.137 128.648 156.352 curveto
 128.281 157.852 127.348 159.0 126.5 159.0 curveto
 125.703 159.0 124.719 160.148 124.398 161.449 curveto
 124.07 162.793 122.059 171.5 119.949 180.699 curveto
 116.102 197.5 lineto
 118.301 199.25 lineto
 119.5 200.203 121.09 201.004 121.801 201.012 curveto
 123.699 201.031 131.0 197.055 131.0 196.0 curveto
 131.0 194.199 134.301 192.0 137.0 192.0 curveto
 141.012 192.0 144.242 195.102 145.445 200.102 curveto
 146.453 204.301 146.684 204.516 150.5 204.813 curveto
 155.199 205.18 158.0 207.379 158.0 210.699 curveto
 158.0 213.301 155.117 219.0 153.801 219.0 curveto
 153.387 219.0 153.0 219.648 153.0 220.352 curveto
 153.0 221.32 155.199 221.848 160.801 222.223 curveto
 170.102 222.844 176.715 225.816 183.602 232.461 curveto
 187.398 236.129 188.094 237.336 187.602 239.398 curveto
 187.277 240.746 187.547 243.102 188.184 244.5 curveto
 189.688 247.801 187.902 252.0 185.0 252.0 curveto
 183.898 252.0 183.0 252.629 183.0 253.398 curveto
 183.0 255.352 179.5 256.34 177.102 255.063 curveto
 175.992 254.477 174.051 254.0 172.75 254.0 curveto
 171.313 254.0 169.063 252.602 166.965 250.398 curveto
 163.055 246.301 156.801 243.07 152.699 243.031 curveto
 149.668 243.004 149.445 244.0 151.027 250.5 curveto
 151.684 253.199 151.641 255.395 150.898 257.25 curveto
 149.938 259.66 149.25 260.0 145.352 260.0 curveto
 141.949 260.0 140.32 259.422 138.449 257.551 curveto
 136.0 255.102 lineto
 138.199 250.5 lineto
 140.016 246.699 140.195 245.57 139.215 244.0 curveto
 136.902 240.285 137.781 237.199 142.633 232.0 curveto
 146.832 227.5 147.184 226.75 146.148 224.5 curveto
 145.461 223.0 144.16 222.0 142.898 222.0 curveto
 139.699 222.0 135.012 218.813 134.367 216.199 curveto
 134.023 214.801 134.434 213.195 135.418 212.102 curveto
 136.766 210.602 136.684 207.0 135.301 207.0 curveto
 133.898 207.0 129.176 210.145 128.684 211.398 curveto
 128.371 212.207 126.301 213.824 124.199 214.898 curveto
 121.301 216.387 120.133 217.695 119.648 220.0 curveto
 119.293 221.699 117.824 224.25 116.398 225.648 curveto
 113.949 228.055 113.398 228.16 106.801 227.512 curveto
 98.1016 226.656 98.0313 227.883 106.5 232.848 curveto
 117.602 239.352 124.813 248.91 123.59 255.5 curveto
 123.152 257.883 123.668 259.898 125.617 263.398 curveto
 130.293 271.801 127.145 279.0 118.801 279.0 curveto
 115.699 279.0 114.305 278.344 112.0 275.801 curveto
 109.914 273.5 108.988 272.992 108.699 274.0 curveto
 106.945 280.102 106.043 281.68 103.199 283.617 curveto
 97.1445 287.742 86.1992 287.277 77.0 282.504 curveto
 75.3984 281.676 73.3828 281.0 72.5 281.0 curveto
 69.8789 281.0 70.8008 284.367 74.0 286.477 curveto
 77.8984 289.051 78.8477 292.418 76.4258 295.102 curveto
 73.8789 297.918 71.582 297.5 68.1484 293.602 curveto
 closepath
0 setgray
 fill
%  0.0 0.0 0.0 1.0 setcmykcolor
%1 0 0 setrgbcolor
\pst@usecolor\pscolor@hat 
newpath
%
newpath
 75.0 291.0 moveto
 75.0 289.102 67.4688 283.23 66.3984 284.301 curveto
 65.6211 285.082 68.0 290.418 69.6992 291.703 curveto
 72.3008 293.664 75.0 293.305 75.0 291.0 curveto
 closepath
 100.301 282.27 moveto
 104.199 279.992 105.285 277.367 101.898 278.398 curveto
 95.8008 280.258 95.0 280.246 94.9844 278.301 curveto
 94.9648 276.0 83.9727 271.473 82.8398 273.301 curveto
 82.0547 274.566 79.0 272.5 79.0 270.699 curveto
 79.0 270.152 76.5625 267.148 73.6016 264.051 curveto
 70.6367 260.949 66.9805 255.984 65.5 253.051 curveto
 62.8008 247.699 lineto
 60.6992 249.801 lineto
 55.9922 254.508 59.6992 266.625 68.3008 274.621 curveto
 78.6016 284.199 91.6563 287.32 100.301 282.27 curveto
 closepath
 fill
 newpath
0.8 setgray
 121.898 275.285 moveto
 129.168 269.227 119.801 254.367 108.0 253.242 curveto
 103.102 252.773 101.551 251.492 104.5 250.352 curveto
 106.473 249.586 115.199 252.543 118.398 255.059 curveto
 121.0 257.102 lineto
 121.0 253.5 lineto
 121.0 248.891 119.199 245.488 114.301 240.828 curveto
 102.199 229.316 82.0 228.109 82.0 238.898 curveto
 82.0 240.914 81.8984 240.938 79.5 239.398 curveto
 77.3008 237.992 76.9336 237.98 76.4492 239.301 curveto
 76.1523 240.109 76.6133 242.5 77.457 244.5 curveto
 79.2227 248.699 79.0 249.418 76.1992 248.559 curveto
 73.8008 247.824 72.5781 245.199 73.8945 243.602 curveto
 74.4063 242.977 74.9531 241.199 75.1484 239.5 curveto
 75.4063 237.301 76.0469 236.5 77.5508 236.5 curveto
 78.6953 236.5 80.9219 235.0 82.6016 233.102 curveto
 85.0898 230.277 86.5 229.613 90.8984 229.199 curveto
 96.1992 228.699 lineto
 93.0508 227.352 lineto
 90.4492 226.234 89.9531 225.52 90.1992 223.25 curveto
 90.4414 221.051 90.1016 220.5 88.5 220.5 curveto
 86.8984 220.5 86.4414 221.25 86.1992 224.25 curveto
 85.9023 227.953 85.8516 228.0 81.8516 228.0 curveto
 78.75 228.0 77.1211 228.68 74.8984 230.898 curveto
 73.3008 232.5 72.0 234.719 72.0 235.852 curveto
 72.0 236.949 71.5352 238.18 71.0 238.5 curveto
 70.457 238.824 70.0 238.0 70.0 236.699 curveto
 70.0 230.801 61.6367 225.672 55.8984 228.051 curveto
 50.1016 230.457 49.3906 236.148 54.2148 241.602 curveto
 57.1992 244.977 57.6992 245.172 62.1992 244.754 curveto
 66.5 244.352 68.7305 245.262 65.8008 246.223 curveto
 63.8789 246.852 66.5234 252.898 71.4766 259.199 curveto
 75.8789 264.801 78.4063 266.297 79.25 263.801 curveto
 79.8828 261.922 81.6992 263.699 82.3203 266.801 curveto
 82.7891 269.152 83.8984 270.141 88.1992 272.035 curveto
 93.6992 274.457 99.1836 275.066 102.301 273.602 curveto
 103.5 273.035 104.0 273.27 104.0 274.398 curveto
 104.0 276.75 105.488 276.301 106.977 273.5 curveto
 108.727 270.199 107.227 268.227 104.199 269.859 curveto
 101.602 271.258 98.0 271.344 98.0 270.0 curveto
 98.0 269.465 99.0508 269.0 100.25 269.0 curveto
 101.449 269.0 103.199 268.535 104.0 268.0 curveto
 105.227 267.184 105.102 267.0 103.301 267.0 curveto
 100.5 267.0 98.0 266.008 98.0 264.898 curveto
 98.0 264.395 99.1016 264.0 100.5 264.0 curveto
 103.398 264.0 103.598 263.34 101.516 260.602 curveto
 99.8438 258.398 99.4336 254.0 100.898 254.0 curveto
 101.375 254.0 101.563 254.898 101.301 255.898 curveto
 100.988 257.082 102.359 260.102 104.938 263.898 curveto
 113.762 276.898 117.195 279.203 121.898 275.285 curveto
 closepath
0.9 setgray
 fill
 newpath
 0.5 setgray
 147.801 257.801 moveto
 149.152 256.445 149.383 252.0 148.355 247.0 curveto
 147.926 244.898 146.805 243.422 145.102 242.699 curveto
 142.617 241.648 142.699 241.586 147.0 241.242 curveto
 154.199 240.676 156.926 236.926 153.0 233.0 curveto
 151.91 231.91 151.047 229.75 151.102 228.25 curveto
 151.199 225.5 lineto
 151.852 228.5 lineto
 152.414 231.094 153.0 231.539 156.199 231.801 curveto
 158.5 231.988 160.883 231.457 162.5 230.398 curveto
 164.199 229.289 165.43 229.027 166.051 229.648 curveto
 166.672 230.27 165.301 231.449 162.102 233.051 curveto
 159.398 234.398 156.977 236.172 156.699 237.0 curveto
 156.414 237.855 155.898 239.25 155.5 240.25 curveto
 154.961 241.602 155.301 242.0 157.0 242.0 curveto
 160.102 242.0 162.898 243.637 167.699 248.254 curveto
 170.5 250.949 172.031 251.82 172.527 251.0 curveto
 173.652 249.145 167.0 243.047 162.398 241.711 curveto
 158.102 240.461 156.652 238.766 159.398 238.191 curveto
 161.902 237.668 171.363 244.801 176.262 250.898 curveto
 178.188 253.301 181.0 253.773 181.0 251.699 curveto
 181.0 250.934 178.563 247.75 175.602 244.648 curveto
 171.395 240.25 169.535 239.0 167.199 239.0 curveto
 163.699 239.0 160.836 236.367 163.301 235.418 curveto
 165.473 234.582 172.656 239.301 178.188 245.199 curveto
 183.063 250.398 185.5 251.0 185.5 247.0 curveto
 185.5 245.398 184.785 244.418 183.352 244.051 curveto
 182.172 243.75 179.301 241.352 177.0 238.75 curveto
 173.816 235.148 172.098 234.0 169.898 234.0 curveto
 166.898 234.0 165.93 232.59 168.301 231.672 curveto
 170.199 230.938 175.824 234.5 179.547 238.801 curveto
 182.852 242.617 185.0 242.5 185.0 238.5 curveto
 185.0 235.695 178.801 230.055 172.102 226.762 curveto
 168.48 224.98 165.852 224.512 159.75 224.551 curveto
 153.148 224.594 151.914 224.332 151.414 222.801 curveto
 150.762 220.801 150.102 220.617 148.102 221.879 curveto
 147.168 222.469 147.082 223.25 147.801 224.648 curveto
 148.629 226.27 148.055 227.5 144.406 231.898 curveto
 139.844 237.398 139.141 240.102 141.125 244.5 curveto
 142.066 246.578 141.969 247.801 140.645 250.602 curveto
 138.473 255.199 138.59 256.484 141.301 257.785 curveto
 144.301 259.227 146.367 259.23 147.801 257.801 curveto
 closepath
0.9 setgray
 fill
 newpath
 0.5 setgray
 148.199 218.918 moveto
 154.301 217.223 157.398 210.367 153.102 208.086 curveto
 149.801 206.332 149.004 206.801 149.672 210.102 curveto
 150.098 212.199 149.848 213.488 148.898 214.09 curveto
 146.715 215.48 142.699 215.203 140.301 213.496 curveto
 138.5 212.215 138.035 212.199 137.035 213.398 curveto
 135.465 215.281 136.699 217.703 139.801 218.824 curveto
 143.352 220.109 143.898 220.117 148.199 218.918 curveto
 closepath
 146.578 211.602 moveto
 146.867 210.828 146.449 208.898 145.648 207.301 curveto
 144.867 205.73 143.875 202.699 143.492 200.699 curveto
 142.719 196.672 140.699 195.0 136.602 195.0 curveto
 134.898 195.0 134.0 195.535 134.0 196.551 curveto
 134.0 197.438 131.898 199.086 129.102 200.398 curveto
 124.199 202.699 lineto
 126.398 205.5 lineto
 128.527 208.207 128.699 208.246 131.602 206.699 curveto
 133.301 205.793 135.184 204.406 135.949 203.5 curveto
 137.301 201.898 140.0 201.434 140.0 202.801 curveto
 140.0 203.266 139.5 204.102 138.801 204.801 curveto
 137.883 205.719 138.0 206.0 139.301 206.0 curveto
 140.199 206.0 141.0 205.457 141.0 204.852 curveto
 141.0 204.25 141.313 204.012 141.648 204.352 curveto
 142.0 204.699 141.676 206.199 140.949 207.602 curveto
 139.754 209.898 139.82 210.359 141.5 211.586 curveto
 143.898 213.332 145.93 213.34 146.578 211.602 curveto
 closepath
 118.352 176.75 moveto
 120.688 164.75 122.645 157.086 123.551 156.398 curveto
 124.352 155.793 125.0 154.809 125.0 154.199 curveto
 125.0 152.664 117.602 147.238 112.102 144.738 curveto
 107.145 142.484 94.6992 140.063 87.8984 140.031 curveto
 82.6641 140.004 82.0 140.801 82.0 147.102 curveto
 82.0 150.617 81.5 151.391 76.8984 155.0 curveto
 74.1016 157.195 71.2344 159.34 70.5508 159.75 curveto
 69.707 160.258 69.0703 164.602 68.6016 173.102 curveto
 67.8984 185.699 lineto
 79.1992 186.324 lineto
 92.0 187.035 99.8281 188.859 107.898 193.016 curveto
 111.0 194.613 113.746 195.922 114.051 195.949 curveto
 114.352 195.977 116.285 187.352 118.352 176.75 curveto
 closepath
 58.0 187.25 moveto
 58.0 186.945 56.1094 183.898 53.75 180.398 curveto
 49.9063 174.699 49.1016 174.035 45.3008 173.422 curveto
 40.5 172.648 40.3633 172.387 42.9609 169.0 curveto
 44.7656 166.648 44.8516 166.633 47.3516 168.301 curveto
 49.6094 169.805 50.3008 169.832 53.3984 168.539 curveto
 57.8984 166.66 58.5938 165.453 56.9414 162.398 curveto
 55.3086 159.387 54.6016 159.387 50.6992 162.414 curveto
 48.543 164.09 45.8984 164.996 42.6016 165.199 curveto
 36.6992 165.559 35.0781 167.355 36.8125 171.602 curveto
 37.4688 173.199 39.2344 175.328 40.75 176.352 curveto
 42.2813 177.379 45.4961 180.75 48.0 183.949 curveto
 52.2266 189.352 52.668 189.641 55.25 188.75 curveto
 56.75 188.23 58.0 187.551 58.0 187.25 curveto
 closepath
%0.5 0.5 1 setrgbcolor
\pst@usecolor\pscolor@shirt
 fill
 newpath
 66.3516 181.75 moveto
 66.7109 178.852 67.0 175.047 67.0 173.25 curveto
 67.0 170.0 lineto
 65.0 172.0 lineto
 62.4805 174.52 60.1992 174.477 57.3984 171.859 curveto
 55.6016 170.176 54.8008 170.016 53.0 170.988 curveto
 50.3984 172.395 50.6094 173.102 56.0039 181.0 curveto
 59.418 186.0 60.5664 187.0 62.8984 187.0 curveto
 65.5117 187.0 65.7422 186.648 66.3516 181.75 curveto
 closepath
 62.3984 170.418 moveto
 65.5742 167.281 63.1992 158.141 58.1992 154.246 curveto
 53.6992 150.742 46.3086 154.309 49.3828 158.5 curveto
 50.5547 160.102 50.7656 160.121 51.3047 158.699 curveto
 52.2539 156.199 55.5547 156.699 57.9063 159.699 curveto
 60.1836 162.602 60.5625 167.035 58.6992 168.898 curveto
 57.7383 169.859 57.8008 170.289 59.0 171.039 curveto
 60.6992 172.102 60.6992 172.102 62.3984 170.418 curveto
 closepath
 newpath
 73.6016 154.754 moveto
 79.6992 150.801 lineto
 80.3516 143.648 lineto
 80.7031 139.75 81.2734 134.0 81.6016 131.0 curveto
 82.1133 126.301 81.8789 125.094 80.0 122.699 curveto
 78.1289 120.32 77.1992 119.941 73.8008 120.184 curveto
 68.8984 120.531 67.1719 122.672 68.5469 126.699 curveto
 69.2266 128.699 70.2695 129.59 72.1992 129.816 curveto
 76.0 130.258 76.9141 127.602 74.0273 124.5 curveto
 72.1641 122.5 72.0195 122.0 73.3008 122.0 curveto
 74.1719 122.0 75.6016 123.0 76.4414 124.199 curveto
 78.1914 126.699 78.6055 131.0 77.1016 131.0 curveto
 76.5625 131.0 74.8008 132.207 73.3008 133.605 curveto
 69.7852 136.875 68.9297 144.699 71.6289 148.898 curveto
 73.3008 151.5 73.3008 151.5 71.25 149.699 curveto
 70.0977 148.688 68.9375 146.5 68.6016 144.699 curveto
 68.0703 141.867 67.6016 141.5 64.5 141.5 curveto
 61.1992 141.5 61.0 141.688 61.0 144.801 curveto
 61.0 146.699 60.5742 147.844 60.0 147.5 curveto
 59.457 147.176 59.0 145.801 59.0 144.5 curveto
 59.0 142.801 58.5625 142.27 57.5 142.676 curveto
 55.7656 143.344 55.6289 142.602 57.0 140.0 curveto
 57.8672 138.352 58.3984 138.238 61.0 139.133 curveto
 64.3984 140.305 67.0 138.945 67.0 136.0 curveto
 67.0 132.301 60.8711 130.309 59.6133 133.602 curveto
 59.1953 134.688 58.1992 135.047 56.5 134.723 curveto
 50.6602 133.602 50.9609 139.398 57.1133 146.398 curveto
 61.5078 151.398 63.9883 152.57 66.8984 151.02 curveto
 68.6016 150.113 69.0 150.176 69.0 151.352 curveto
 69.0 152.172 67.6992 153.328 66.0 154.02 curveto
 62.6016 155.398 62.6016 155.398 64.1758 157.898 curveto
 65.5313 160.051 65.3008 160.129 73.6016 154.754 curveto
 closepath
 0.9 setgray
 fill
 newpath
 116.301 143.5 moveto
 111.973 140.461 103.5 137.887 95.8984 137.305 curveto
 91.6016 136.977 88.0 136.949 88.0 137.25 curveto
 88.0 137.551 91.75 138.344 96.25 139.0 curveto
 100.75 139.656 107.227 141.238 110.5 142.484 curveto
 117.699 145.223 119.105 145.469 116.301 143.5 curveto
 closepath
 fill
 newpath
 122.801 142.801 moveto
 123.465 142.137 124.0 139.102 124.0 136.0 curveto
 124.0 132.918 125.125 123.949 126.5 116.051 curveto
 128.555 104.25 129.469 101.148 131.641 98.6016 curveto
 134.43 95.3203 134.504 92.3984 131.941 86.3008 curveto
 130.844 83.6836 130.828 81.5 131.855 74.3008 curveto
 134.188 58.0 135.324 53.0 136.699 53.0 curveto
 137.43 53.0 138.0 54.1016 138.0 55.5 curveto
 138.0 59.6992 142.93 58.0 144.957 53.1016 curveto
 146.043 50.4844 145.898 49.5 143.852 45.3984 curveto
 137.816 33.3281 118.102 25.4414 94.5 25.6563 curveto
 76.3984 25.8203 63.9336 29.957 56.3867 38.3008 curveto
 52.4102 42.6992 52.3828 46.1016 56.3008 49.1875 curveto
 59.1992 51.4688 60.0 51.4297 60.0 49.0 curveto
 60.0 47.6992 60.6484 47.0 61.8516 47.0 curveto
 63.4961 47.0 63.8398 48.6016 64.9492 61.3984 curveto
 66.1914 75.6992 66.1836 75.8203 64.0 78.8008 curveto
 61.2734 82.5195 61.8672 87.5 65.5625 91.8984 curveto
 67.832 94.5977 68.0 95.5508 68.0 105.648 curveto
 68.0 116.5 lineto
 73.0 116.5 lineto
 77.1016 116.5 78.4844 116.984 80.6992 119.199 curveto
 82.9375 121.438 83.4688 123.0 83.8008 128.301 curveto
 84.1992 134.699 lineto
 94.5508 135.199 lineto
 104.25 135.668 105.391 135.953 112.699 139.719 curveto
 121.898 144.457 121.32 144.281 122.801 142.801 curveto
 closepath
\pst@usecolor\pscolor@shirt
%0.5 0.5 1 setrgbcolor
 fill
 0.9 setgray
 newpath
 69.1992 130.117 moveto
 67.5703 128.59 65.9805 126.0 65.5664 124.199 curveto
 64.7422 120.602 63.4141 120.031 62.5313 122.898 curveto
 61.4805 126.313 63.0 129.418 66.8008 131.617 curveto
 71.6016 134.398 72.9023 133.582 69.1992 130.117 curveto
 closepath
 56.0 131.102 moveto
 56.0 129.898 54.0352 128.664 53.3008 129.398 curveto
 52.5898 130.109 53.8984 132.0 55.1016 132.0 curveto
 55.6406 132.0 56.0 131.641 56.0 131.102 curveto
 closepath
 60.5039 127.102 moveto
 59.625 123.602 59.2383 123.363 57.3984 125.199 curveto
 56.1055 126.496 56.0156 127.199 56.9297 128.898 curveto
 58.5469 131.914 61.3594 130.5 60.5039 127.102 curveto
 closepath
fill
% 3                   pathnumber
% filledpath
 0 setlinecap
 10.0 setmiterlimit
 0 setlinejoin
 [ ] 0.0 setdash
 0.1 setlinewidth
% 0.0 0.0 0.0 1.0 setcmykcolor
0.5 setgray
%
newpath
 33.0 289.0 moveto
 33.0 287.914 41.6992 282.0 43.3008 282.0 curveto
 44.375 282.0 42.6016 283.738 37.8984 287.293 curveto
 34.0 290.242 33.0 290.594 33.0 289.0 curveto
 closepath
fill
% 4                   pathnumber
% filledpath
 0 setlinecap
 10.0 setmiterlimit
 0 setlinejoin
 [ ] 0.0 setdash
 0.1 setlinewidth
 0.0 0.0 0.0 1.0 setcmykcolor
%
newpath
 139.301 282.449 moveto
 137.5 280.813 137.215 280.254 138.5 280.891 curveto
 141.699 282.473 144.605 284.945 143.301 284.973 curveto
 142.656 284.988 140.801 283.816 139.301 282.449 curveto
 closepath
fill
% 5                   pathnumber
% filledpath
 0 setlinecap
 10.0 setmiterlimit
 0 setlinejoin
 [ ] 0.0 setdash
 0.1 setlinewidth
 0.0 0.0 0.0 1.0 setcmykcolor
%
newpath
 86.0 265.0 moveto
 86.8398 264.441 88.6016 263.957 90.0 263.898 curveto
 92.5 263.801 lineto
 89.75 262.699 lineto
 88.25 262.102 87.0 261.008 87.0 260.301 curveto
 87.0 258.668 90.8008 258.707 93.8008 260.371 curveto
 96.1992 261.699 lineto
 93.4492 263.852 lineto
 91.9414 265.027 89.3008 266.0 87.6016 266.0 curveto
 85.1992 266.0 84.8398 265.773 86.0 265.0 curveto
 closepath
fill
% 6                   pathnumber
% filledpath
 0 setlinecap
 10.0 setmiterlimit
 0 setlinejoin
 [ ] 0.0 setdash
 0.1 setlinewidth
 0.0 0.0 0.0 1.0 setcmykcolor
%
newpath
 94.1992 257.949 moveto
 93.5039 256.852 92.1602 256.039 91.3008 256.199 curveto
 90.3984 256.367 89.5039 255.953 89.25 255.25 curveto
 89.0117 254.582 89.5 254.0 90.3008 254.0 curveto
 92.3984 254.0 96.3672 257.398 95.8984 258.801 curveto
 95.6641 259.504 94.9609 259.148 94.1992 257.949 curveto
 closepath
fill
% 7                   pathnumber
% filledpath
 0 setlinecap
 10.0 setmiterlimit
 0 setlinejoin
 [ ] 0.0 setdash
 0.1 setlinewidth
 0.0 0.0 0.0 1.0 setcmykcolor
%
newpath
 103.0 256.5 moveto
 103.0 255.102 103.375 254.0 103.852 254.0 curveto
 104.324 254.0 104.504 255.102 104.25 256.5 curveto
 103.996 257.898 103.625 259.0 103.398 259.0 curveto
 103.176 259.0 103.0 257.898 103.0 256.5 curveto
 closepath
fill
% 8                   pathnumber
% filledpath
 0 setlinecap
 10.0 setmiterlimit
 0 setlinejoin
 [ ] 0.0 setdash
 0.1 setlinewidth
 0.0 0.0 0.0 1.0 setcmykcolor
%
newpath
 95.6602 252.602 moveto
 95.3398 251.801 95.3555 250.945 95.6992 250.605 curveto
 96.5234 249.789 99.1211 252.102 98.5039 253.102 curveto
 97.6758 254.441 96.3008 254.199 95.6602 252.602 curveto
 closepath
fill
% 9                   pathnumber
% filledpath
 0 setlinecap
 10.0 setmiterlimit
 0 setlinejoin
 [ ] 0.0 setdash
 0.1 setlinewidth
 0.0 0.0 0.0 1.0 setcmykcolor
%
newpath
 89.0 249.0 moveto
 89.0 248.398 89.3984 248.0 90.0 248.0 curveto
 90.6016 248.0 91.0 248.398 91.0 249.0 curveto
 91.0 249.602 90.6016 250.0 90.0 250.0 curveto
 89.3984 250.0 89.0 249.602 89.0 249.0 curveto
 closepath
fill
% 10                  pathnumber
% filledpath
 0 setlinecap
 10.0 setmiterlimit
 0 setlinejoin
 [ ] 0.0 setdash
 0.1 setlinewidth
 0.0 0.0 0.0 1.0 setcmykcolor
%
newpath
 94.5 247.0 moveto
 94.8594 246.398 95.4609 246.219 96.0 246.547 curveto
 97.4414 247.418 97.1992 248.0 95.3984 248.0 curveto
 94.6016 248.0 94.1797 247.535 94.5 247.0 curveto
 closepath
fill 
% 11                  pathnumber
% filledpath
 0 setlinecap
 10.0 setmiterlimit
 0 setlinejoin
 [ ] 0.0 setdash
 0.1 setlinewidth
 0.0 0.0 0.0 1.0 setcmykcolor
%
newpath
 60.6016 241.391 moveto
 58.5 240.641 56.0547 239.465 55.3008 238.836 curveto
 53.8008 237.59 53.4648 233.449 54.8008 232.621 curveto
 56.168 231.773 60.0 235.0 60.0 237.0 curveto
 60.0 238.0 60.8984 239.387 61.8984 239.93 curveto
 64.5 241.336 65.6719 241.273 64.1992 239.801 curveto
 62.5078 238.105 62.6992 235.0 64.5 235.0 curveto
 65.8984 235.0 69.5352 240.832 68.6797 241.699 curveto
 67.5859 242.805 64.1992 242.672 60.6016 241.391 curveto
 closepath
fill
% 12                  pathnumber
% filledpath
 0 setlinecap
 10.0 setmiterlimit
 0 setlinejoin
 [ ] 0.0 setdash
 0.1 setlinewidth
 0.0 0.0 0.0 1.0 setcmykcolor
%
newpath
 115.398 127.531 moveto
 111.855 124.242 102.898 120.945 95.6992 120.281 curveto
 89.8008 119.734 88.293 118.496 92.3008 117.484 curveto
 97.8984 116.074 120.0 124.063 120.0 127.5 curveto
 120.0 130.117 118.199 130.129 115.398 127.531 curveto
 closepath
fill
% 13                  pathnumber
% filledpath
 0 setlinecap
 10.0 setmiterlimit
 0 setlinejoin
 [ ] 0.0 setdash
 0.1 setlinewidth
 0.0 0.0 0.0 1.0 setcmykcolor
%
newpath
 107.5 117.359 moveto
 105.301 116.613 102.238 115.754 100.699 115.457 curveto
 96.1641 114.574 98.1016 112.496 103.301 112.668 curveto
 108.602 112.84 113.5 114.875 113.5 116.898 curveto
 113.5 118.859 112.199 118.957 107.5 117.359 curveto
 closepath
fill
%restore %}
%restore %}
}}}}
%
\define@key[psset]{pst-fun}{humancolor}[{[gray]{1}}]{\pst@getcolor{#1}\pscolor@human}
\define@key[psset]{pst-fun}{rotate}[0]{\pst@getangle{#1}\psangle@human}
\define@choicekey*+[psset]{pst-fun}{type}[\val\nr]{A,B}[A]{% 
  \ifcase\nr\relax
    \gdef\hv@funType{A}%
  \else
    \gdef\hv@funType{B}%
  \fi
}{\PackageWarning{hvfloat}{erroneous input (#1) for type ignored. Using type A.}%
  \def\hv@funType{A}%
}
\def\hv@@funTypeA{A}\def\hv@@funTypeB{B}
\psset[pst-fun]{humancolor=gray,rotate=0,type=A}

\def\psHuman{\@ifnextchar[{\psHuman@i}{\psHuman@i[]}}%
\def\psHuman@i[#1]{\@ifnextchar({\psHuman@ii[#1]}{\psHuman@ii[#1](0,0)}}
\def\psHuman@ii[#1](#2){%
  \begin@ClosedObj
  \psset{humancolor=gray,fillstyle=solid,linewidth=\pslinewidth,linestyle=solid,#1}%
  \use@par
  \pst@getcoor{#2}\pst@origin
  \addto@pscode{
%    0 1.75 28.82 mul  5 0 360 arc stroke
    gsave
    \pst@origin  translate
    \tx@setTransparency
    \tx@setStrokeTransparency
    tx@FunDict begin 
      gsave
      0.1 -0.1 scale
       -7 -35 \tx@ScreenCoor translate
      \psangle@human neg rotate 
      \ifx\hv@funType\hv@@funTypeA  
        tx@humanA 
        \pst@usecolor\pscolor@human fill stroke
      \else
        \pst@usecolor\pscolor@human
        tx@humanB
        stroke
      \fi 
      grestore
    end
    grestore
    }%
  \end@ClosedObj
  \ignorespaces
}


\catcode`\@=\PstAtCode\relax
%
%% END: pst-fun.tex
\endinput
%
