%FSTYLE{/syracuse/fabrique/styles/fabrique.css}
%TITRE{Rapporteurs avec PSTricks}
%AUTEUR{Manuel Luque}
%MAIL{}

%P{En cliquant sur les images vous aurez accès aux sources. De plus, sous
chacune d'entre elles, un lien vers une version PDF est présent.}

== Macro de présentation
FICHIER:presentation.txt:EOF::
EXEC:log:Images.pl -fpng -t1.5 -acBBox %%pre%%.tex 
EXEC:log:Images.pl -fpdf -t1.5 -acBBox %%pre%%.tex 
<[ 
 <div align="center"> 
  <a href="%%pre%%.tex"><img src="%%pre%%.png" alt="Rapporteur -- %%alt%%" border="0"></a> 
 </div>
 <a href="%%pre%%.pdf"><img src="/syracuse/fabrique/images/fichpdf.png" alt="fichier PDF" border="0"></a> 
 <br>  
]> 
EOF

%S{Jean-Côme Charpentier}

%P{C'est parti ! J'ai un rapporteur à vendre. Bon mis à part le fait
que cela pourrait servir de règle à calcul circulaire, je n'en vois pas 
trop l'intérêt: c'est juste pour le fun :-)}

FICHIER:rjcc.tex:EOF::
%&latex
\documentclass{article}
\usepackage{pst-node}
\usepackage{multido}
\usepackage[latin1]{inputenc}%
\usepackage[a4paper]{geometry}
\pagestyle{empty}
\begin{document}
\begin{pspicture}(-5,-5)(5,5)
   \SpecialCoor
   \def\fct{ log 360 10 log div mul }
   \psset{linewidth=0.4pt}
   \pscircle(0,0){5}
   \pnode(0,0){Or}
   \psset{linewidth=0.2pt}
   \pscircle(0,0){4.3}
   \multido{\n=1+0.1}{90}{
     \pnode(!\n\space \fct cos 4.2 mul \n\space \fct sin 4.2 mul){B0}
     \pnode(!\n\space \fct cos 4.4 mul \n\space \fct sin 4.4 mul){E0}
     \ncline{B0}{E0}
   }
   \psset{linewidth=0.3pt}
   \multido{\n=1+0.5}{19}{
     \pnode(!\n\space \fct cos 4.1 mul \n\space \fct sin 4.1 mul){B0}
     \pnode(!\n\space \fct cos 4.5 mul \n\space \fct sin 4.5 mul){E0}
     \ncline{B0}{E0}
   }
   \psset{linewidth=0.4pt,npos=-0.3}
   \multido{\n=1+1}{9}{
     \pnode(!\n\space \fct cos 4.0 mul \n\space \fct sin 4.0 mul){B0}
     \pnode(!\n\space \fct cos 4.6 mul \n\space \fct sin 4.6 mul){E0}
     \ncline{B0}{E0}\ncput{\n}
     \ncline{E0}{B0}\ncput{\n}
   }
\end{pspicture}
\end{document}
EOF

M:presentation: pre="rjcc" alt="JC Charpentier"

%S{Manuel Luque}
FICHIER:rml.tex:EOF::
%&latex
\documentclass{article}
\usepackage{pstricks,multido}
\pagestyle{empty}
\SpecialCoor
\begin{document}
\begin{pspicture}(-5,-5)(5,5)
\pscircle[fillstyle=solid,fillcolor=lightgray]{5}
\pscircle[fillstyle=solid]{3.5}
\begin{psclip}{\pscircle[linestyle=none,dimen=middle]{3.5}}
\psframe[fillstyle=solid,fillcolor=lightgray](-3.55,-0.75)(3.55,0.75)
\end{psclip}
\psline(-3.5,0)(3.5,0)
\psline(0,0.75)(0,-0.75)
\pscircle[fillstyle=solid]{0.1}
\multido{\i=-10+-10,\I=80+-10}{9}{%
\rput{\I}(4.2;\i){\I}}
\multido{\i=90+-10,\I=0+10}{10}{%
\rput{-\I}(4.2;\i){\I}}
\multido{\i=-100+-10,\I=10+10}{9}{%
\rput{-\I}(4.2;\i){\I}}
\multido{\i=100+10,\I=10+10}{8}{%
\rput{\I}(4.2;\i){\I}}
\multido{\i=1+1}{360}{%
\psline[linewidth=0.3\pslinewidth](4.6;\i)(5;\i)}
\multido{\i=10+10}{36}{\psline(4.3;\i)(5;\i)}
\end{pspicture}
\end{document}
EOF

M:presentation: pre="rml" alt="Manuel Luque"

%S{Dominique Rodriguez}

%SS{Un demi-cercle}

FICHIER:rdr1.tex:EOF::
%&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
%%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}
\end{document}
EOF

M:presentation: pre="rdr1" alt="Dominique Rodriguez (demi-cercle)"

%SS{Un cercle}
FICHIER:rdr2.tex:EOF::
%&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
%%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}
\end{document}
EOF

M:presentation: pre="rdr2" alt="Dominique Rodriguez (cercle)"

%SS{Un rapporteur équerre}

FICHIER:rdr3.tex:EOF::
%&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}
EOF

M:presentation: pre="rdr3" alt="Dominique Rodriguez (rapporteur équerre)"