%\def\ACLouisXIII{%
%Sourcils
{\psset{linewidth=3\pslinewidth,linecolor=gray}
\pscurveA(-0.9,0.5)(-0.4,0.7)(0,.57)
\pscurveA(0.4,0.57)(0.7,0.7)(0.9,0.7)
}%
%Yeux
\psclip{%
    \pscustom{%
\psccurveA(-0.8,0.35)(-0.8,0.35)(-0.45,0.5)(-0.2,0.4)(-0.2,0.4)(-0.5,0.2)(-0.5,0.2)
}}
\pscircleA(-0.6,0.35){0.15}
\pscircleA*[linecolor=blue](-0.6,0.35){0.05}
\endpsclip
\psclip{%
    \pscustom{%
\psccurveA(0.4,0.42)(0.4,0.42)(0.6,0.5)(0.8,0.5)(0.8,0.5)(0.6,0.25)(0.6,0.25)
}}
\pscircleA(0.55,0.4){0.15}
\pscircleA*[linecolor=blue](0.55,0.4){0.05}
\endpsclip
\pscurveA(-0.7,0.1)(-0.5,0.05)(-0.25,0.2)
\pscurveA(0.5,0.2)(0.7,0.1)(0.8,0.3)
%Nez
\pscurveA(0.2,0.5)(0.4,0)(0.5,-0.3)(0.2,-0.6)
\pscurveA(-0.1,-0.3)(-0.3,-0.5)(-0.1,-0.6)(0,-0.5)(0.2,-0.6)
%Ovale
\pscurveA(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)
%lèvre inf
\pscurveA(-0.1,-1.1)(0.15,-1.1)(0.5,-1)
\pscurveA(-0.3,-1)(0.1,-1)(0.45,-0.9)
%moustache
\pscustom[fillstyle=solid,fillcolor=lightgray]{%
    \pscurveA(-0.6,-0.9)(-0.4,-0.75)(0,-0.6)
    \pslineA(0,-0.6)(0.05,-0.9)
    \pscurveA(0.05,-0.9)(-0.2,-0.95)(-0.4,-1.1)
    \pslineA(-0.4,-1.1)(-0.6,-0.9)
    }
\pscustom[fillstyle=solid,fillcolor=lightgray]{%
    \pscurveA(0.15,-0.6)(0.6,-0.65)(0.8,-0.8)
    \pslineA(0.8,-0.8)(0.7,-1)
    \pscurveA(0.7,-1)(0.5,-0.9)(0.2,-0.9)
    \pslineA(0.2,-0.9)(0.15,-0.6)
    }
\pscurveA(0.05,-0.9)(0.05,-0.9)(0.2,-0.9)
%
\pscurveA(0.7,-1)(0.7,-1)(2,-2)
\pscustom[fillstyle=solid,fillcolor=cyan]{%
   \pslineA(0,-2)(0.2,-1.75)
   \pslineA(0.2,-1.75)(0.4,-1.7)
   \pslineA(0.4,-1.7)(1,-2)
   \pslineA(1,-2)(0,-2)
   }%
\pscurveA(0.2,-1.75)(0.2,-1.75)(0.1,-1.42)
\pscurveA(0.25,-1.43)(0.25,-1.43)(0.4,-1.7)
\pscurveA(0.1,0.2)(0.1,0.2)(0.2,-0.1)
%Cheveux
\begingroup
\psset{linewidth=2\pslinewidth,linecolor=gray}
\pscurveA(0,1.9)(0.4,1.75)(0.9,1.7)(1.15,1.4)(1.05,0.85)(1.2,0.7)
\pscurveA(1.05,0.7)(1.15,0.2)(1.2,-0.2)(1.35,-0.3)(1.5,-0.2)
\pscurveA(1.05,-0.3)(1.15,-0.65)(1.1,-1)(1.3,-1.1)(1.45,-0.9)
\pscurveA(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)
\pscurveA(-0.1,1.9)(-0.2,1.8)(-0.6,1.8)(-0.9,1.65)(-1,1.4)
\pscurveA(-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)
\pscurveA(-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)
\pscurveA(-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)
\pscurveA(-1.05,-0.2)(-1.1,-0.7)(-1.1,-1.1)(-1.3,-1.2)(-1.4,-1)(-1.35,-0.8)
\pscurveA(-1.35,-0.8)(-1.45,-1.3)(-1.5,-1.6)(-1.7,-1.7)(-1.9,-1.55)(-1.7,-1.4)
\pscurveA(-1.6,0.7)(-1.75,0.3)(-1.6,-0.2)(-1.6,-0.65)(-1.8,-0.9)(-2,-0.5)
\pscurveA(-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)
\pscurveA(-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)
\endgroup
%}