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

diff --git a/doc/ALouisXIII.pst b/doc/ALouisXIII.pst
deleted file mode 100644
index 16a834e..0000000
--- a/doc/ALouisXIII.pst
+++ /dev/null
@@ -1,77 +0,0 @@
-%\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
-%}