Stift.tex

%@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}