Un compas dessiné avec PSTricks par Thomas Söll

Encore une réalisation de Thomas Söll : un vrai travail d'artiste ! Les fichiers (Thomas.Soell/Zirkel.pdf Thomas.Soell/Zirkel.tex) sont dans :

Thomas.Soell

Le listing :

\documentclass{article}
\usepackage{pstricks}
\usepackage{pst-grad}

\begin{document}
\psscalebox{1.5}{%
\begin{pspicture}(1.5,0)(6,7.5)
\def\alf{20}
\rput[br]{\alf}(3.1,8.1){%
\pspolygon[linewidth=0.5pt,fillstyle=gradient,gradangle=90,gradend=cyan!30,gradbegin=black!70,linearc=0.02]%
(-0.12,0)(0.12,0)(0.12,-5.0)(0.08,-5.5)(-0.11,-5.5)(-0.12,-5.1)
\pscircle[linecolor=black!60,linewidth=0.4pt,fillstyle=solid, fillcolor=black!20](0,-5.3){0.14}%
\pspolygon[linewidth=0.3pt](-0.03,-5.5)(0.03,-5.5)(0,-6)
}
\rput[br]{-\alf}(2.9,8.1){%
\pspolygon[linewidth=0.5pt,fillstyle=gradient,gradangle=90,gradend=cyan!30,gradbegin=black!70,linearc=0.02]%
(-0.12,0)(0.12,0)(0.12,-5.0)(0.08,-5.5)(-0.11,-5.5)(-0.12,-5.1)
\pscircle[linecolor=black!60,linewidth=0.4pt,fillstyle=solid, fillcolor=black!20](0,-5.3){0.14}%
\pspolygon[fillstyle=solid,fillcolor=black!90](-0.035,-5.5)(0.035,-5.5)(0.035,-6)(-0.03,-5.8)
}
\psframe[fillstyle=gradient,gradangle=90,gradend=cyan!30,gradbegin=black!70](2.9,8.15)(3.1,8.35)
\pspolygon[fillstyle=gradient,gradangle=90,gradend=gray!30,gradbegin=black!70,linearc=0.04](2.75,8.2)(3.25,8.2)(3.25,7.5)(3.1,7.45)(3.1,7.1)(2.9,7.1)(2.9,7.45)(2.75,7.5)
\pscircle[linecolor=black!80,linewidth=0.4pt,fillstyle=solid, fillcolor=black!80](3,8){0.07}
\psframe[fillstyle=gradient,gradangle=90,gradend=cyan!30,gradbegin=black!70](2.83,8.3)(3.17,9.1)
\psline[linewidth=0.4pt](2.915,8.3)(2.915,9.1)%
\psline[linewidth=0.4pt](3,8.3)(3,9.1)%
\psline[linewidth=0.4pt](3.085,8.3)(3.085,9.1)%
\end{pspicture}
}
\end{document}