\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
\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}
\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
\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}

—
Syracuse — Dernière modification : 1 avril 2004 (0.08s - 3953004 - 10 janvier 2009)