%@AUTEUR: Thomas Söll %@DATE: 10 octobre 2012 \documentclass{article} \usepackage[T1]{fontenc} \usepackage[frenchstyle]{kpfonts} \usepackage[distiller]{pstricks} \usepackage{pst-grad} \usepackage{pst-eucl} \usepackage{pstricks-add} \pagestyle{empty} \begin{document} \newcommand{\Stift}[4]{% \definecolor{Holzfarbe}{rgb}{1,0.937,0.835} {\psset{unit=#1} \begin{pspicture}(-1,0)(1,20) \def\farbA{#2}% \def\farbB{#3}% \def\farbC{#4}% \def\r{0.5} \def\lang{20} % \pspolygon[fillstyle=solid,fillcolor=Holzfarbe](0,0)(0.6,2.4)(-0.6,2.4)% \pspolygon[fillstyle=solid,fillcolor=\farbA](0,0)(0.2,0.8)(-0.2,0.8)% \pscustom[fillstyle=solid,fillcolor=\farbB,linecolor=\farbC,opacity=1]{% \psarc(!0 0.2 \r\space dup mul 0.2 dup mul sub sqrt atan cos \r\space mul 2.4 add){\r}% {!0.2 \r\space dup mul 0.2 dup mul sub sqrt atan neg 90 sub}% {!0.2 \r\space dup mul 0.2 dup mul sub sqrt atan 90 sub}% \psline(0.2,\lang)(-0.2,\lang)(!-0.2 2.4) }% \pscustom[fillstyle=solid,fillcolor=\farbB,linecolor=\farbC,opacity=1]{% \psarc(!-0.4 0.2 \r\space dup mul 0.2 dup mul sub sqrt atan cos \r\space mul 2.4 add){\r}% {!0.2 \r\space dup mul 0.2 dup mul sub sqrt atan neg 90 sub}% {!0.2 \r\space dup mul 0.2 dup mul sub sqrt atan 90 sub}% \psline(-0.2,\lang)(-0.6,\lang)(!-0.6 2.4) }% \pscustom[fillstyle=solid,fillcolor=\farbB,linecolor=\farbC,opacity=1]{% \psarc(!0.4 0.2 \r\space dup mul 0.2 dup mul sub sqrt atan cos \r\space mul 2.4 add){\r}% {!0.2 \r\space dup mul 0.2 dup mul sub sqrt atan neg 90 sub}% {!0.2 \r\space dup mul 0.2 dup mul sub sqrt atan 90 sub}% \psline(0.6,\lang)(0.2,\lang)(!0.2 2.4) }% \end{pspicture} }} \rput(0,-2){\Stift{0.5}{black!80}{blue!50}{black}} \rput{30}(3,0){\Stift{0.3}{red}{red}{black}} \end{document}