diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /info/examples/PSTricks_7_de/35-00-99.ltx |
Initial commit
Diffstat (limited to 'info/examples/PSTricks_7_de/35-00-99.ltx')
-rw-r--r-- | info/examples/PSTricks_7_de/35-00-99.ltx | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/info/examples/PSTricks_7_de/35-00-99.ltx b/info/examples/PSTricks_7_de/35-00-99.ltx new file mode 100644 index 0000000000..1f7a3aed6a --- /dev/null +++ b/info/examples/PSTricks_7_de/35-00-99.ltx @@ -0,0 +1,58 @@ +%% +%% Ein Beispiel der DANTE-Edition +%% +%% 7. Auflage +%% +%% Beispiel 35-00-99 auf Seite 859. +%% +%% Copyright (C) 2016 Herbert Voss +%% +%% It may be distributed and/or modified under the conditions +%% of the LaTeX Project Public License, either version 1.3 +%% of this license or (at your option) any later version. +%% +%% See http://www.latex-project.org/lppl.txt for details. +%% +%% +%% ==== +% Show page(s) 1 +%% +%% +\documentclass[]{exaarticle} +\pagestyle{empty} +\setlength\textwidth{352.81416pt} +\setlength\parindent{0pt} +%StartShownPreambleCommands +\usepackage{pst-eucl,pst-plot} +%StopShownPreambleCommands +\begin{document} +\def\Angle{37} +\def\R{5} +\begin{pspicture}(-\R,-\R)(\R,\R) + \pstGeonode[PointSymbol=none,PosAngle={45,-90},PointNameSep=24pt](\R;\Angle){B}(0,0){O}(\R;0){A} + \pcline[linecolor=lightgray,linewidth=12pt,offset=-6pt,strokeopacity=0.6](O)(A) + \pcline[linecolor=lightgray,linewidth=12pt,offset=6pt,strokeopacity=0.6](O)(B) + \psline(B)(O)(A) + \pstMarkAngle[MarkAngleRadius=1.6,LabelSep=.8]{A}{O}{B}{$\theta$} + \pstGeonode(!3 \Angle\space 2 div PtoC){X} + \color{blue}\psset{linecolor=blue}% + \pstOrtSym{O}{A}{X}[I_1] \psline[linestyle=dotted](X)(I_1) + \newif\ifA \Afalse + \pstFPDiv\No{360}{\Angle} + \multido{\iA=1+1,\iB=2+1}{\numexpr\No-1}{% + \ifA\pstOrtSym{O}{A}{I_\iA}[I_\iB]\else\pstOrtSym{O}{B}{I_\iA}[I_\iB]\fi + \psline[linestyle=dotted](I_\iA)(I_\iB) + \ifA\Afalse\else\Atrue\fi + }% + \color{red}\psset{linecolor=red}% + \pstOrtSym{O}{B}{X}[I_1] \psline[linestyle=dotted](X)(I_1) + \newif\ifA \Atrue + \pstFPDiv\No{360}{\Angle} + \multido{\iA=1+1,\iB=2+1}{\numexpr\No-1}{% + \ifA\pstOrtSym{O}{A}{I_\iA}[I_\iB]\else\pstOrtSym{O}{B}{I_\iA}[I_\iB]\fi + \psline[linestyle=dotted](I_\iA)(I_\iB) + \ifA\Afalse\else\Atrue\fi + }% + \pscircle[linestyle=dotted](O){3} +\end{pspicture} +\end{document} |