doc/LouisXIII.pst

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