diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/pst-eucl-translation-bg/Exemples/hypocyclo.tex')
| -rw-r--r-- | Master/texmf-dist/doc/latex/pst-eucl-translation-bg/Exemples/hypocyclo.tex | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/pst-eucl-translation-bg/Exemples/hypocyclo.tex b/Master/texmf-dist/doc/latex/pst-eucl-translation-bg/Exemples/hypocyclo.tex new file mode 100644 index 00000000000..0bb69030d81 --- /dev/null +++ b/Master/texmf-dist/doc/latex/pst-eucl-translation-bg/Exemples/hypocyclo.tex @@ -0,0 +1,21 @@ +\newcommand{\HypoCyclo}[4][100]{% + \def\R{#2}\def\petitR{#3}\def\NbPt{#4}% локални дефиниции + %% В зависимост от стойността на R за petitR: + %% 4 астроид -- 3 делтоид -- 2 диаметър + \def\Anglen{\n\space 360 \NbPt\space 1 add div mul} + \psset{PointSymbol=none,PointName=none} + \pstGeonode[PointSymbol={*,none},PointName={default,none}, PosAngle=0]{O}(\R,0){P} + \pstCircleOA{O}{P} + \pstHomO[HomCoef=\petitR\space\R\space div]{P}{O}[M] + \multido{\n=1+1}{\NbPt}{% + \pstRotation[RotAngle=\Anglen]{O}{M}[M\n] + \rput(M\n){\pstGeonode(\petitR,0){Q}} + \pstRotation[RotAngle=\Anglen]{M\n}{Q}[N] + \pstRotation[RotAngle=\n\space -360 \NbPt\space 1 add div + mul \R\space\petitR\space div mul, PointSymbol=*, PointName=none]% + {M\n}{N}[N\n] + \ifnum\n=#1 + \pstCircleOA{M\n}{N\n}\ncline{M\n}{N\n}% + {\psset{linecolor=red, linewidth=2\pslinewidth} + \pstArcOAB{M\n}{N\n}{N}\pstArcOAB{O}{P}{N}} + \fi}}%fin multido-newcommand |