dimanche 14 juillet 2013

Éve à la plage, dessinée avec PSTricks par Thomas Söll


 Le même modèle dont les fichiers (Woman2.pdf Woman2.tex) sont dans l'archive :


Pour le garçon, voir le message précédent. Voici le code PSTricks de l'Éve ci-dessus :

\documentclass{article}
\usepackage[paperwidth=21cm,paperheight=30cm,left=1.5cm,textwidth=18cm,textheight=27cm]{geometry}
\usepackage{pstricks}
\begin{document}

\definecolor{Weiss}{rgb}{1,0.98,0.98}%     255 250 250
\definecolor{Haut}{rgb}{1,0.894,0.769}% 255 228 196
\definecolor{Auge}{rgb}{0.54,0.27,0.074}% 139 69 19
\psset{unit=1.25}
\begin{pspicture}(-3,0)(3,16)

\rput(0,0.89){%
\psscalebox{0.94}{%
% Haare hinterm Kopf
\pscustom[fillstyle=solid,fillcolor=yellow!50!brown!50,linecolor=brown!50,linewidth=0.5pt]{%
\psbezier(0,16)(-0.5,16)(-0.8,15.5)(-0.9,15)
\psbezier(-1.1,14)(-1,14)(-1.3,13.4)
\psline(-1.3,13.4)(0.7,13.4)
\psbezier(0.6,13.8)(0.75,13.9)(0.8,14.4)
\psbezier(0.9,15)(0.9,16)(0,16)
\closepath
}
}}

% Hals, Arme, Bauch
\pscustom[fillstyle=solid,fillcolor=Haut,linecolor=black!90,linewidth=0.8pt]{%
%
%\psset{showpoints}
% Hals links
\psbezier(-0.295,14.2)(-0.295,13.5)(-0.6,13.6)(-1.2,13.5)
\psbezier(-1.8,13.4)(-1.83,12.6)(-1.9,12)
\psline(-1.9,12)(-2.0,10.1)
% linker Unterarm mit Hand
\psbezier(-2.1,9.5)(-2.1,8.8)(-2.1,8)
\psbezier(-2.19,7.7)(-2.2,7.7)(-2.2,7.4)
\psbezier(-2.2,7.25)(-2.2,7.25)(-2.19,7.1)
\psbezier(-2.2,6.94)(-2.2,6.94)(-2.18,6.8)
\psbezier(-2.1,6.8)(-2.09,6.9)(-2.1,7.4)
\psline(-2.1,7.2)(-2.09,6.85)
\psbezier(-2.04,6.85)(-2.01,7.03)(-2.04,7.1)
\psline(-2.04,7.1)(-2,7.4)(-2.03,7.6)
\psbezier(-1.98,7.4)(-1.99,7.05)(-1.97,6.98)
\psbezier(-1.93,6.98)(-1.83,6.89)(-1.84,7.4)
%\psbezier(-1.79,7.3)(-1.79,7.3)(-1.8,7.4)
\psbezier(-1.76,7.7)(-1.76,7.7)(-1.77,8)

\psbezier(-1.67,9)(-1.67,9)(-1.6,10.05)
\psbezier(-1.4,11)(-1.45,11)(-1.3,12)

% linker Oberarm zum K\"{o}rper Brustkorb und Bauch links bis zur H\"{u}fte links
%\psline(-1.65,10.05)(-1.3,12)
\psbezier(-1.2,12.5)(-1.2,12.4)(-1.15,12.6)
\psbezier(-1.15,11.9)(-0.94,11.5)(-0.94,10.8)
\psline(-0.94,10.8)(-0.94,10.2)
\psbezier(-0.94,9.2)(-1.3,9)(-1.3,7.8)

% Beine von H\"{u}fte links
\psbezier(-1.3,6.8)(-0.8,5.5)(-0.8,4)
\psbezier(-0.8,3.6)(-0.85,3.4)(-0.85,3)
\psbezier(-0.85,2.4)(-0.65,1.5)(-0.65,1)
\psbezier(-0.65,0.9)(-1,0.5)(-1,0.4)
\psbezier(-0.9,0)(-0.9,0)(-0.7,0)
\psbezier(-0.6,0)(-0.5,0.1)(-0.45,0.2)
\psbezier(-0.3,0.3)(-0.2,0.9)(-0.2,1)
\psbezier(-0.2,1.06)(-0.24,1.14)(-0.24,1.2)
\psbezier(-0.24,1.8)(-0.1,2.2)(-0.1,2.8)
\psbezier(-0.1,3.2)(-0.15,3.65)(-0.15,4)
\psline(-0.15,4)(-0.03,7.4)
\psbezier(-0.03,7.9)(0.03,7.9)(0.03,7.4)
\psline(0.03,7.4)(0.15,4)
\psbezier(0.15,3.65)(0.1,3.2)(0.1,2.8)
\psbezier(0.1,2.2)(0.24,1.8)(0.24,1.2)
\psbezier(0.24,1.14)(0.2,1.06)(0.2,1)
\psbezier(0.2,0.9)(0.3,0.3)(0.45,0.2)
\psbezier(0.5,0.1)(0.6,0)(0.7,0)
\psbezier(0.9,0)(0.9,0)(1,0.4)
\psbezier(1,0.5)(0.65,0.9)(0.65,1)
\psbezier(0.65,1.5)(0.85,2.4)(0.85,3)
\psbezier(0.85,3.4)(0.8,3.6)(0.8,4)
\psbezier(0.8,5.5)(1.3,6.8)(1.3,7.8)

% rechte H\"{u}fte bis Achsel
\psbezier(1.3,9)(0.94,9.2)(0.94,10.2)
\psline(0.94,10.2)(0.94,10.8)
\psbezier(0.94,11.5)(1.15,12.4)(1.15,12.6)


% rechter Arm + Hand ab Achsel

\psbezier(1.2,12.4)(1.2,12.5)(1.3,12)

\psbezier(1.45,11)(1.4,11)(1.6,10.05)
\psbezier(1.67,9)(1.67,9)(1.77,8)
\psbezier(1.76,7.7)(1.76,7.7)(1.84,7.4)
\psbezier(1.83,6.89)(1.93,6.98)(1.97,6.98)
\psbezier(1.99,7.05)(1.98,7.4)(2.03,7.6)
\psline(2.03,7.6)(2,7.4)(2.04,7.1)
\psbezier(2.01,7.03)(2.04,6.85)(2.09,6.85)
\psline(2.09,6.85)(2.1,7.2)(2.1,7.4)
\psbezier(2.09,6.9)(2.1,6.8)(2.18,6.8)
\psbezier(2.2,6.94)(2.2,6.94)(2.19,7.1)
\psbezier(2.2,7.25)(2.2,7.25)(2.2,7.4)
\psbezier(2.2,7.7)(2.19,7.7)(2.1,8)
\psbezier(2.15,8.3)(2.1,9.5)(2.0,10.1)

% rechter Arm au{\ss}en ab Armgelenk bis Hals
\psline(2.0,10.1)(1.9,12)
\psbezier(1.83,12.6)(1.8,13.4)(1.2,13.5)
\psbezier(0.6,13.6)(0.295,13.5)(0.295,14.2)

\closepath
}

% Linie in der linken Hand von Zeigefinger
\psbezier(-2.1,7.4)(-2.07,7.5)(-2,7.55)(-2.02,7.58)
% Linie in der rechten Hand von Zeigefinger
\psbezier(2.1,7.4)(2.07,7.5)(2,7.55)(2.02,7.58)

{\psset{linecolor=black!40,linewidth=0.5pt}
% Linie in der linken Armbeuge
\psbezier(-1.7,10.0)(-1.8,9.97)(-1.8,9.99)(-1.9,10.03)
% Linie in der rechten Armbeuge
\psbezier(1.7,10.0)(1.8,9.97)(1.8,9.99)(1.9,10.03)
}

% Kniescheibe
{\psset{linecolor=black!40,linewidth=0.7pt}
\psbezier(-0.6,4.5)(-0.64,4.45)(-0.7,4.4)(-0.58,4)
\psbezier(-0.3,4.5)(-0.22,4.3)(-0.22,4.2)(-0.3,4)
\psbezier(0.6,4.5)(0.64,4.45)(0.7,4.4)(0.58,4)
\psbezier(0.3,4.5)(0.22,4.3)(0.22,4.2)(0.3,4)
}

% Linien am Hals
{\psset{linecolor=black!40,linewidth=0.6pt}
\psbezier(-0.2,13.9)(-0.14,13.75)(-0.15,13.8)(-0.15,13.7)
\psbezier(0.2,13.9)(0.14,13.75)(0.15,13.8)(0.15,13.7)
\psbezier(-0.15,13.55)(-0.1,13.48)(0.1,13.48)(0.15,13.55)
\psbezier(-0.5,13.45)(-0.3,13.45)(-0.2,13.35)(0,13.35)
\psbezier(0.5,13.45)(0.3,13.45)(0.2,13.35)(0,13.35)
}

% Bauchnabel
\psellipse[fillstyle=solid,fillcolor=black!40,linestyle=none](0,9.6)(0.05,0.07)

% B\"{u}ste
\pscustom[fillstyle=solid,fillcolor=Haut,linestyle=none]{%
\psbezier(-1.06,12.13)(-1.22,11.7)(-1.1,11.25)(-0.7,11.25)
\psbezier(-0.1,11.25)(0,11.6)(-0.1,12.2)
\closepath
}
\pscustom[fillstyle=solid,fillcolor=Haut,linestyle=none]{%
\psbezier(1.05,12.13)(1.22,11.7)(1.1,11.25)(0.7,11.25)
\psbezier(0.1,11.25)(0,11.6)(0.1,12.2)
\closepath
}
{\psset{linecolor=black!70,linewidth=0.7pt}
\psbezier(-1.06,12.13)(-1.22,11.7)(-1.1,11.25)(-0.7,11.25)
\psbezier(-0.7,11.25)(-0.1,11.25)(0,11.6)(-0.1,12.2)
\pscircle[fillstyle=solid,fillcolor=brown,linestyle=none](-0.73,11.61){2.7pt}

\psbezier(1.05,12.13)(1.22,11.7)(1.1,11.25)(0.7,11.25)
\psbezier(0.7,11.25)(0.1,11.25)(0,11.6)(0.1,12.2)
\pscircle[fillstyle=solid,fillcolor=brown,linestyle=none](0.73,11.61){2.7pt}
}

\rput(0.08,1.45){%
\psscalebox{0.9}{%
% Kopf
\pscustom[fillstyle=solid,fillcolor=Haut,linecolor=black!90,linewidth=0.8pt]{%
%
%\psset{showpoints}
\psbezier(0,13.95)(-0.3,13.95)(-0.65,14.5)(-0.65,14.9)
\psbezier(-0.65,15.3)(-0.5,15.8)(0,15.8)
\psbezier(0.5,15.8)(0.65,15.3)(0.65,14.9)
\psbezier(0.65,14.5)(0.3,13.95)(0,13.95)
\closepath
}

\def\AugeR{%
\begin{psclip}{%
\pscustom[fillstyle=solid,fillcolor=Weiss,linecolor=black,linewidth=0.2pt]{%
\psbezier(0.05,0)(0.04,0.004)(0.02,0.02)(0,0.02)
\psbezier(-0.02,0.02)(-0.04,0.01)(-0.05,-0.005)
\psbezier(-0.047,0)(-0.02,-0.018)(0,-0.018)
\psbezier(0.02,-0.018)(0.04,-0.006)(0.05,0)
\closepath
}
}
\pscircle[linestyle=none,fillstyle=solid,fillcolor=Auge](0,0.002){0.024}
\pscircle[linewidth=0.2pt,linecolor=black!60,fillstyle=solid,fillcolor=black](0.001,0.001){0.012}
\end{psclip}
\pspolygon[linewidth=0.06pt,linecolor=black!90,fillstyle=solid,fillcolor=white](0.009,0.003)(0.01,0.014)(-0.002,0.014)(-0.002,0.003)
\pspolygon[linewidth=0.06pt,linecolor=black!90,fillstyle=solid,fillcolor=white](-0.004,0.003)(-0.004,0.014)(-0.012,0.014)(-0.012,0.003)
\psbezier[linewidth=0.1pt](0.05,0.01)(0.044,0.03)(-0.02,0.05)(-0.05,0.005)
\psbezier[linewidth=0.3pt](0.05,0.035)(0.044,0.05)(-0.02,0.055)(-0.05,0.04)
}

\def\AugeL{%
\begin{psclip}{%
\pscustom[fillstyle=solid,fillcolor=Weiss,linecolor=black,linewidth=0.2pt]{%
\psbezier(-0.05,0)(-0.04,0.004)(-0.02,0.02)(0,0.02)
\psbezier(0.02,0.02)(0.04,0.01)(0.05,-0.005)
\psbezier(0.047,0)(0.02,-0.018)(0,-0.018)
\psbezier(-0.02,-0.018)(-0.04,-0.006)(-0.05,0)
\closepath
}
}
\pscircle[linestyle=none,fillstyle=solid,fillcolor=Auge](0,0.002){0.024}
\pscircle[linewidth=0.2pt,linecolor=black!60,fillstyle=solid,fillcolor=black](0.001,0.001){0.012}
\end{psclip}
\pspolygon[linewidth=0.06pt,linecolor=black!90,fillstyle=solid,fillcolor=white](-0.009,0.003)(-0.01,0.014)(0.002,0.014)(0.002,0.003)
\pspolygon[linewidth=0.06pt,linecolor=black!90,fillstyle=solid,fillcolor=white](0.004,0.003)(0.004,0.014)(0.012,0.014)(0.012,0.003)
\psbezier[linewidth=0.1pt](-0.05,0.01)(-0.044,0.03)(0.02,0.05)(0.05,0.005)
\psbezier[linewidth=0.3pt](-0.05,0.035)(-0.044,0.05)(0.02,0.055)(0.05,0.04)
}

\rput{-5}(-0.25,15){\psscalebox{2.6}{\AugeL}}
\rput{5}(0.25,15){\psscalebox{2.6}{\AugeR}}

% Mund
\rput(0,14.37){%
\psscalebox{2.1}{%
\pscustom[fillstyle=solid,fillcolor=red!40,linestyle=none]{%
\psline(-0.085,0.01)(-0.04,0.03)(0,0.023)(0.04,0.03)(0.08,0.004)(0.08,0.005)(0.08,-0.005)
\psbezier(0.04,-0.04)(-0.04,-0.04)(-0.085,-0.005)
\closepath
}
\psline[linecolor=black,linewidth=0.2pt](-0.085,0.01)(-0.04,0.03)(0,0.023)(0.04,0.03)(0.08,0.004)(0.08,0.005)
\psbezier[linecolor=black,linewidth=0.2pt](0.08,-0.005)(0.04,-0.04)(-0.04,-0.04)(-0.085,-0.005)
\psbezier[linecolor=black,linewidth=0.2pt](0.1,0.002)(0.05,-0.003)(-0.05,-0.003)(-0.1,0.002)
\psline[linecolor=black,linewidth=0.1pt](0.11,0.012)(0.11,-0.012)
\psline[linecolor=black,linewidth=0.1pt](-0.11,0.012)(-0.11,-0.012)
}}

% Haare vor Kopf
\pscustom[fillstyle=solid,fillcolor=yellow!50!brown!50,linestyle=none]{%
\psbezier(0,15.7)(0.5,15.7)(0.45,15.0)(0.6,14.6)
\psline(0.6,14.6)(0.7,14.6)(0.7,15.4)
\psbezier(0.7,15.6)(0.4,15.9)(0,15.9)
\psline(0,15.9)(0,15.7)
}
{\psset{linecolor=brown!60,linewidth=0.5pt}
\psbezier(0,15.7)(0.5,15.7)(0.45,15.0)(0.6,14.6)
}
\pscustom[fillstyle=solid,fillcolor=yellow!50!brown!50,linestyle=none]{%
\psbezier(0,15.9)(-0.5,15.9)(-0.7,15.4)(-0.8,15.1)
\psline(-0.8,15.1)(-0.8,14.4)(-0.55,14.4)
\psbezier(-0.5,15)(0,15)(0.2,15.9)
\closepath
}
{\psset{linecolor=brown!60,linewidth=0.5pt}
\psbezier(-0.55,14.4)(-0.5,15)(0,15)(0.2,15.9)
}

{\psset{linecolor=brown!50,linewidth=0.4pt}
\psbezier(0.05,15)(0.02,14.85)(0.03,14.85)(0.08,14.6)

}
}
}

% Hose
\pscustom[fillstyle=solid,fillcolor=cyan!10,linecolor=blue!50,linewidth=1pt]{%
\psbezier(-1.2,8.8)(-1.22,8.7)(-1.23,8.7)(-1.24,8.6)
\psbezier(-0.8,8.4)(-0.2,8)(-0.03,7.57)
\psline(-0.03,7.57)(0.03,7.57)
\psbezier(0.2,8)(0.8,8.4)(1.24,8.6)
\psbezier(1.23,8.7)(1.22,8.7)(1.2,8.8)
\psbezier(0,8.7)(0,8.7)(-1.2,8.8)
\closepath
}

% BH
\pscustom[fillstyle=solid,fillcolor=cyan!10,linecolor=blue!50,linewidth=1pt,opacity=0.9]{%
\psline(-1.05,13.53)(-1,12.2)
\psbezier(-0.8,11.8)(-0.5,11.6)(-0.09,11.6)
\psbezier(-0.09,11.4)(-0.4,11.24)(-0.7,11.24)
\psbezier(-1.0,11.24)(-1.28,11.44)(-1.05,12.2)
\psline(-1.05,12.2)(-1.1,13.52)
\closepath
}
\pscustom[fillstyle=solid,fillcolor=cyan!10,linecolor=blue!50,linewidth=1pt,opacity=0.9]{%
\psline(1.05,13.53)(1,12.2)
\psbezier(0.8,11.8)(0.5,11.6)(0.09,11.6)
\psbezier(0.09,11.4)(0.4,11.24)(0.7,11.24)
\psbezier(1.0,11.24)(1.28,11.44)(1.05,12.2)
\psline(1.05,12.2)(1.1,13.52)
\closepath
}
\psline[linecolor=blue!50,linewidth=1.2pt](-0.09,11.58)(0.09,11.58)
\psline[linecolor=blue!50,linewidth=1.2pt](-0.096,11.52)(0.096,11.52)

%\psgrid[subgriddiv=5,gridlabels=10pt,gridwidth=0.5pt,gridcolor=green!50,subgridwidth=0.2pt,subgridcolor=green!30]
\end{pspicture}

\end{document}



Aucun commentaire:

Enregistrer un commentaire