doc/ALouisXIII.pst

   1 %\def\ACLouisXIII{%
   2 %Sourcils
   3 {\psset{linewidth=3\pslinewidth,linecolor=gray}
   4 \pscurveA(-0.9,0.5)(-0.4,0.7)(0,.57)
   5 \pscurveA(0.4,0.57)(0.7,0.7)(0.9,0.7)
   6 }%
   7 %Yeux
   8 \psclip{%
   9     \pscustom{%
  10 \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)
  11 }}
  12 \pscircleA(-0.6,0.35){0.15}
  13 \pscircleA*[linecolor=blue](-0.6,0.35){0.05}
  14 \endpsclip
  15 \psclip{%
  16     \pscustom{%
  17 \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)
  18 }}
  19 \pscircleA(0.55,0.4){0.15}
  20 \pscircleA*[linecolor=blue](0.55,0.4){0.05}
  21 \endpsclip
  22 \pscurveA(-0.7,0.1)(-0.5,0.05)(-0.25,0.2)
  23 \pscurveA(0.5,0.2)(0.7,0.1)(0.8,0.3)
  24 %Nez
  25 \pscurveA(0.2,0.5)(0.4,0)(0.5,-0.3)(0.2,-0.6)
  26 \pscurveA(-0.1,-0.3)(-0.3,-0.5)(-0.1,-0.6)(0,-0.5)(0.2,-0.6)
  27 %Ovale
  28 \pscurveA(0,1.9)(0,1.6)(0.5,1.5)(0.9,1.28)
  29 (0.85,0.8)(1,0.4)(1,0)(0.9,-0.5)
  30 (0.6,-1)(0.3,-1.4)(-0.15,-1.4)
  31 (-0.75,-1.25)(-1,-0.9)
  32 %lèvre inf
  33 \pscurveA(-0.1,-1.1)(0.15,-1.1)(0.5,-1)
  34 \pscurveA(-0.3,-1)(0.1,-1)(0.45,-0.9)
  35 %moustache
  36 \pscustom[fillstyle=solid,fillcolor=lightgray]{%
  37     \pscurveA(-0.6,-0.9)(-0.4,-0.75)(0,-0.6)
  38     \pslineA(0,-0.6)(0.05,-0.9)
  39     \pscurveA(0.05,-0.9)(-0.2,-0.95)(-0.4,-1.1)
  40     \pslineA(-0.4,-1.1)(-0.6,-0.9)
  41     }
  42 \pscustom[fillstyle=solid,fillcolor=lightgray]{%
  43     \pscurveA(0.15,-0.6)(0.6,-0.65)(0.8,-0.8)
  44     \pslineA(0.8,-0.8)(0.7,-1)
  45     \pscurveA(0.7,-1)(0.5,-0.9)(0.2,-0.9)
  46     \pslineA(0.2,-0.9)(0.15,-0.6)
  47     }
  48 \pscurveA(0.05,-0.9)(0.05,-0.9)(0.2,-0.9)
  49 %
  50 \pscurveA(0.7,-1)(0.7,-1)(2,-2)
  51 \pscustom[fillstyle=solid,fillcolor=cyan]{%
  52    \pslineA(0,-2)(0.2,-1.75)
  53    \pslineA(0.2,-1.75)(0.4,-1.7)
  54    \pslineA(0.4,-1.7)(1,-2)
  55    \pslineA(1,-2)(0,-2)
  56    }%
  57 \pscurveA(0.2,-1.75)(0.2,-1.75)(0.1,-1.42)
  58 \pscurveA(0.25,-1.43)(0.25,-1.43)(0.4,-1.7)
  59 \pscurveA(0.1,0.2)(0.1,0.2)(0.2,-0.1)
  60 %Cheveux
  61 \begingroup
  62 \psset{linewidth=2\pslinewidth,linecolor=gray}
  63 \pscurveA(0,1.9)(0.4,1.75)(0.9,1.7)(1.15,1.4)(1.05,0.85)(1.2,0.7)
  64 \pscurveA(1.05,0.7)(1.15,0.2)(1.2,-0.2)(1.35,-0.3)(1.5,-0.2)
  65 \pscurveA(1.05,-0.3)(1.15,-0.65)(1.1,-1)(1.3,-1.1)(1.45,-0.9)
  66 \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)
  67 \pscurveA(-0.1,1.9)(-0.2,1.8)(-0.6,1.8)(-0.9,1.65)(-1,1.4)
  68 \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)
  69 \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)
  70 \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)
  71 \pscurveA(-1.05,-0.2)(-1.1,-0.7)(-1.1,-1.1)(-1.3,-1.2)(-1.4,-1)(-1.35,-0.8)
  72 \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)
  73 \pscurveA(-1.6,0.7)(-1.75,0.3)(-1.6,-0.2)(-1.6,-0.65)(-1.8,-0.9)(-2,-0.5)
  74 \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)
  75 \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)
  76 \endgroup
  77 %}