rapporteur_rodriguez.tex

\documentclass{article}
\usepackage{pstricks,multido}
\usepackage[latin1]{inputenc}%
\usepackage[a4paper]{geometry}
\author{Dominique Rodriguez}
\title{Rapporteurs}
\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
%%demi-cercle
\begin{pspicture}(-6,-1)(6,6)
  \pswedge{5}{0}{180}
  \multido{\n=1+1}{179}{\psline[linewidth=.25\pslinewidth](4.8;\n)(5;\n)}
  \multido{\n=5+10}{17}{\psline[linewidth=.5\pslinewidth](4.6;\n)(5;\n)}
  \multido{\n=10+10}{17}{%
    \psline[linewidth=.4pt, linecolor=gray](0;\n)(5;\n)
    \rput*{U}(4;\n){\n}}
\end{pspicture}
 
%%cercle
\begin{pspicture}(-6,-1)(6,6)
  \pswedge{5}{0}{360}
  \multido{\n=1+1}{359}{\psline[linewidth=.25\pslinewidth](4.8;\n)(5;\n)}
  \multido{\n=5+10}{35}{\psline[linewidth=.5\pslinewidth](4.6;\n)(5;\n)}
  \multido{\n=10+10}{35}{%
    \psline[linewidth=.4pt, linecolor=gray](0;\n)(5;\n)
    \rput*{U}(4;\n){\n}
    }
\end{pspicture}
\newpage
%%é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}