X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=pst-anamorphosis.git;a=blobdiff_plain;f=doc%2FLouisXIII.pst;fp=doc%2FLouisXIII.pst;h=0000000000000000000000000000000000000000;hp=0262e90faa0643112e08327ad9dd80259593f44b;hb=23dbc828681c183b179118a1f080e20810a73344;hpb=ea9a1c93cb0a20b5e2b1bf48ecf855ef08e57a63

diff --git a/doc/LouisXIII.pst b/doc/LouisXIII.pst
deleted file mode 100644
index 0262e90..0000000
--- a/doc/LouisXIII.pst
+++ /dev/null
@@ -1,72 +0,0 @@
-%\def\LouisXIII{%
-%Sourcils
-{\psset{linewidth=3\pslinewidth,linecolor=gray}
-\pscurve(-0.9,0.5)(-0.4,0.7)(0,.57)
-\pscurve(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)
-%lèvre 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
-\begingroup
-\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)
-\endgroup