summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/generic/pst-eucl/Examples/cyclo_in.tex
blob: 101c88a1b0b9d5691b320b7ba6b03dfa6991c9ef (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
\providecommand\NbPt{11}
\psset{linewidth=1.2\pslinewidth}
\pstGeonode[PointSymbol={*,none}, PointName={default,none}, PosAngle=180]{M}(0,1){O}
%% 4*pi=12.5663706144
\pstGeonode(12.5663706144,0){A}
\pstTranslation[PointSymbol=none, PointName=none]{M}{A}{O}[B]
\multido{\nA=1+1}{\NbPt}{%
  \pstHomO[HomCoef=\nA\space \NbPt\space 1 add div,
           PointSymbol=none, PointName=none]{O}{B}[O\nA]
  \pstProjection[PointSymbol=none, PointName=none]{M}{A}{O\nA}[P\nA]
  %\pstCircleOA[linestyle=dashed, linecolor=red]{O\n}{P\n}
  \pstCurvAbsNode[PointSymbol=square, PointName=none,CurvAbsNeg=true]%
    {O\nA}{P\nA}{M\nA}{\pstDistAB{O}{O\nA}}
  \ifnum\nA=2 %affichage du second cercle
    \bgroup
    \pstCircleOA{O\nA}{M\nA}
    \psset{linecolor=magenta, linewidth=1.5\pslinewidth}
    \pstArcnOAB{O\nA}{P\nA}{M\nA}
    \ncline{O\nA}{M\nA}\ncline{P\nA}{M}
    \egroup
  \fi
  }% fin du multido
\psset{linecolor=blue, linewidth=1.5\pslinewidth}
\pstGenericCurve[GenCurvFirst=M]{M}{1}{6}
\pstGenericCurve[GenCurvLast=A]{M}{6}{\NbPt}
%% juste pour la vérification
%\parametricplot[linecolor=green, linewidth=.5\pslinewidth]{0}{12.5663706144}
%  {t t 3.1415926 div 180 mul sin sub 1 t 3.1415926 div 180 mul cos sub}