Péniche transportant du charbon, dessinée par Thomas Söll

C'est une péniche transportant du charbon et se dirigeant vers une centrale thermique, comme celle que dessina, il y a quelques mois, Thomas ? :
http://pstricks.blogspot.fr/2012/01/centrale-thermique-flammes-schematisee_07.html

Les fichiers (Kohle-Schiff.pdf Kohle-Schiff.tex) sont dans le répertoire :

Thomas.Soell

\documentclass{article}
\usepackage{pstricks-add}
\begin{document}
\definecolor{TSA}{rgb}{0.4,0.4,0.5}% gdunkel-raublau
\definecolor{TSB}{rgb}{0.6,0.7,0.6}% gr\"{u}n
\definecolor{TSC}{rgb}{0.1,0.1,0.1}% dunkelgrau
\definecolor{TSD}{rgb}{0.8,0.85,0.85}% grau-blau
\definecolor{TSE}{rgb}{0.3,0.4,0.7}% blau
\definecolor{TSF}{rgb}{0.94,0.9,0.9}% helles beige
%
\begin{pspicture}[showgrid=false](-8,-2)(5,11)
\pspolygon[fillcolor=TSC,fillstyle=solid,linestyle=none](-0.6,8.8)(-0.5,10.6)(0.5,10.6)(0.6,8.8)
\pspolygon[fillcolor=TSB,fillstyle=solid,linestyle=none](-0.38,9.7)(-0.34,10.45)(0.34,10.45)(0.38,9.7)
\psline[linecolor=TSF,linewidth=3pt](-0.38,9.67)(0.38,9.67)
\pscustom[dimen=middle,linewidth=3pt,fillstyle=solid,fillcolor=TSD,linecolor=TSC]{%
\psline(-2.1,7.3)(-2.1,8.1)(-2.3,8.1)
\psarcn(-2.3,8.45){0.35}{-90}{90}
\psarcn(2.3,8.45){0.35}{90}{-90}
\psline(2.3,8.1)(2.1,8.1)(2.1,7.3)
\closepath%
}
\pscustom[dimen=middle,linewidth=2pt,fillstyle=solid,fillcolor=TSA,linecolor=TSC]{%
\psarc(-2.3,8.1){0.45}{90}{132}
\psarcn(-2.3,8.45){0.33}{190}{90}
\psarcn(2.3,8.45){0.33}{90}{-10}
\psarc(2.3,8.1){0.45}{48}{90}
\closepath%
}
\psframe[fillstyle=solid,fillcolor=TSC,linestyle=none](-1.6,7.3)(-.95,8.1)
\psframe[fillstyle=solid,fillcolor=white,linestyle=none](-1.5,7.3)(-1.15,7.9)
\psframe[fillstyle=solid,fillcolor=TSC,linestyle=none](.95,7.3)(1.6,8.1)
\psframe[fillstyle=solid,fillcolor=white,linestyle=none](1.05,7.3)(1.4,7.9)
\psframe[dimen=inner,fillstyle=solid,fillcolor=TSB,linewidth=3pt,linecolor=TSC](-2.7,6.6)(2.7,7.3)
\pspolygon[fillstyle=solid,fillcolor=TSB,linewidth=3pt,linecolor=TSC](-4,5.4)(-3.5,6.6)(3.5,6.6)(4,5.4)
%------- Kohle -----------------------
\rput(-0.5,5.5){%
\psscalebox{0.8}{%
\psRandom[dotsize=8pt,dotstyle=o,fillcolor=black!90,randomPoints=1500,linecolor=gray,linewidth=0.1pt](-4,0)(5.4,2){%
%\psframe[linestyle=none](-4.2,-0.2)(4.2,3.2)}
\pscustom[fillstyle=solid,fillcolor=black!90,linestyle=none]{%
\psellipticarcn(-2.5,0)(1.5,1){180}{90}%
\psellipticarcn(-0.62,0.67)(2,1){170}{90}%
\psellipticarcn(1.23,1)(2.5,1){160}{10}%
\psellipticarcn(3.15,0.44)(1.5,1){70}{10}%
\psellipticarcn(3.87,-0.17)(1.5,1){50}{6.6}%
\closepath%
}}
}
}
\pscustom[dimen=middle,fillstyle=solid,fillcolor=TSA,linewidth=3pt,linecolor=TSC]{%
\psline(-4,3.9)(-4.3,5.3)
\pscurve(-2,6)(-1,6.2)(0,6.3)(1,6.2)(2,6)
\psline(4.3,5.3)(4,3.9)
\psarcn(0,5){4.15}{344}{196}
\closepath%
}
\pscustom[dimen=middle,fillstyle=solid,fillcolor=TSD,linewidth=2pt,linecolor=TSC]{%
\pscurve(-4.3,5.3)(-2,6)(-1,6.2)(0,6.3)(1,6.2)(2,6)(4.3,5.3)
\psline(4.3,5.3)(4.2,4.83)
\pscurve(4.2,4.83)(4,4.9)(2,5.53)(1,5.73)(0,5.83)(-1,5.73)(-2,5.53)(-4,4.9)(-4.2,4.83)
\closepath%
}
\pscurve[linewidth=1.8pt,linecolor=TSC](-0.1,5.8)(0,4.5)(-0.1,3.2)(-0.2,2.5)(-0.2,2)
\pscustom[dimen=middle,fillstyle=solid,fillcolor=TSE,linestyle=none,opacity=0.9]{%
\psarc(-1.5,5){6.7}{200}{340}
\closepath%
}
\psline[linewidth=2pt,linecolor=TSC]{c-c}(-5.5,2.3)(4,2.3)
\psline[linewidth=2pt,linecolor=TSC]{c-c}(-3.0,2.0)(3,2.0)
\psline[linewidth=1.2pt,linecolor=TSC]{c-c}(-4.5,1.7)(1.3,1.7)
\psline[linewidth=1.2pt,linecolor=TSC]{c-c}(-1.5,1.4)(2.8,1.4)
\psline[linewidth=1.0pt,linecolor=TSC]{c-c}(-2.5,1.1)(2.0,1.1)
\end{pspicture}
\end{document}