%% %% This is file `pst-fun.tex', %% %% IMPORTANT NOTICE: %% %% Package `pst-fun.tex' %% %% Manuel Luque %% Herbert Voss %% %% 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 %