rdr3.tex

%&latex
\documentclass{article}
\usepackage{pstricks,multido}
\usepackage[latin1]{inputenc}%
\usepackage[a4paper]{geometry}
% \author{Dominique Rodriguez}
% \title{Rapporteurs}
\pagestyle{empty}
\begin{document}
% \maketitle
% \begin{itemize}
% \item un demi-cercle ;
% \item un cercle ;
% \item un rapporteur équerre (plus facile à découper pour les élèves).
% \end{itemize}
\sffamily
\psset{unit=1.3, dimen=middle}
\SpecialCoor
%%équerre
\begin{pspicture}(-5.5,-.5)(5.5,5.5)
  \pspolygon(5,0)(0,5)(-5,0)
  \multido{\n=1+1}{89}{%
    \rput[l]{\n}
      (!\n\space dup sin exch cos div dup 1 add 5 exch div exch 1
        index mul)
      {\psline[linewidth=.25\pslinewidth](0,0)(-.2,0)}
    \rput[l]{-\n}
      (!\n\space dup sin exch cos div dup 1 add 5 exch div neg exch 1
        index mul neg)
      {\psline[linewidth=.25\pslinewidth](0,0)(.2,0)}}
  \multido{\n=5+10}{9}{%
    \rput[l]{\n}(!\n\space dup sin exch cos div dup 1 add 5 exch div
        exch 1 index mul)
      {\psline[linewidth=.5\pslinewidth](0,0)(-.4,0)}
    \rput[l]{-\n}(!\n\space dup sin exch cos div dup 1 add 5 exch div
        neg exch 1 index mul neg)
      {\psline[linewidth=.5\pslinewidth](0,0)(.4,0)}}
  \multido{\n=10+10}{8}{%
    \psline(0.5;\n)(!\n\space dup sin exch cos div dup 1 add 5 exch
        div exch 1 index mul)
    \psline(-0.5;-\n)(!\n\space dup sin exch cos div dup 1 add 5 exch
        div neg exch 1 index mul neg)}
  \psline(0,0)(0,5)
  \multido{\n=10+10}{17}{\rput*(3;\n){\n}}
\end{pspicture}
 
\end{document}