summaryrefslogtreecommitdiff
path: root/info/examples/PSTricks_7_de/35-00-33.ltx
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/PSTricks_7_de/35-00-33.ltx')
-rw-r--r--info/examples/PSTricks_7_de/35-00-33.ltx63
1 files changed, 63 insertions, 0 deletions
diff --git a/info/examples/PSTricks_7_de/35-00-33.ltx b/info/examples/PSTricks_7_de/35-00-33.ltx
new file mode 100644
index 0000000000..1bc3f1873e
--- /dev/null
+++ b/info/examples/PSTricks_7_de/35-00-33.ltx
@@ -0,0 +1,63 @@
+%%
+%% Ein Beispiel der DANTE-Edition
+%%
+%% 7. Auflage
+%%
+%% Beispiel 35-00-33 auf Seite 832.
+%%
+%% 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{pstricks-add}
+%StopShownPreambleCommands
+\begin{document}
+\psset{unit=4cm}
+\def\psArc(#1)#2(#3)(#4)#5[#6]#7{%
+ \psarc[origin={#1}](#1){#2}{(#3)}{(#4)}%
+ \uput{#5}[#6](#1){$#7$}}
+\def\Uput[#1](#2){\uput[#1](#2){$#2$}}
+\begin{pspicture}[showgrid=false](-0.1,-0.1)(2,2.1)
+\pstVerb{/side 1 def}
+\pnode(!0 side){A}\Uput[180](A) \pnode{B}\Uput[225](B)
+\pnode(!80 sin 2 exp side mul 40 sin div 70 sin div 0){C}\Uput[-45](C)
+\pnode(3;20){D'} \rput(C){\pnode(1.5;70){D''}}
+\psIntersectionPoint(B)(D')(C)(D''){D}\Uput[0](D)
+\rput(C){\pnode(2;140){C'}}
+\psIntersectionPoint(B)(D)(C)(C'){Q} \Uput[80](Q)
+\rput(D){\pnode(2;120){E'}} \rput(Q){\pnode(2;90){E''}}
+\psIntersectionPoint(D)(E')(Q)(E''){E}\Uput[90](E)
+\psIntersectionPoint(A)(D)(B)(E){P}\Uput[110](P)
+\pspolygon(A)(B)(C)(D)(E)
+\psset{linecolor=red}
+\psline(A)(D)\psline(B)(E)
+\psset{linecolor=blue}
+\psline(P)(C)\psline(B)(D)
+\psset{linecolor=magenta,linewidth=0.8pt,arcsep=1.6pt,arrows=<->}
+\psArc(A){30pt}(D)(E){15pt}[15]{\theta}
+\psArc(B){45pt}(E)(A){25pt}[75]{30^\circ}
+\psArc(B){45pt}(C)(D){25pt}[10]{20^\circ}
+\psArc(B){45pt}(D)(E){25pt}[40]{\alpha}
+\psArc(D){40pt}(A)(B){15pt}[187.5]{30^\circ}
+\psArc(D){40pt}(B)(C){15pt}[235]{50^\circ}
+\psArc(D){40pt}(E)(A){15pt}[140]{50^\circ}
+\psArc(C){35pt}(D)(P){15pt}[100]{70^\circ}
+\psArc(C){35pt}(P)(B){13pt}[160]{40^\circ}
+\psArc(P){45pt}(C)(D){20pt}[-25]{30^\circ}
+\psline[linestyle=dashed](E)(Q)
+\end{pspicture}
+\end{document}