diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/einfuehrung2/15-02-20.mp')
-rw-r--r-- | Master/texmf-dist/doc/latex/einfuehrung2/15-02-20.mp | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/einfuehrung2/15-02-20.mp b/Master/texmf-dist/doc/latex/einfuehrung2/15-02-20.mp new file mode 100644 index 00000000000..8c311a67dff --- /dev/null +++ b/Master/texmf-dist/doc/latex/einfuehrung2/15-02-20.mp @@ -0,0 +1,44 @@ +%% +%% Ein Beispiel der DANTE-Edition +%% +%% 2. Auflage +%% +%% Beispiel 15-02-20 auf Seite 723. +%% +%% 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 +%% +defaultfont:="ptmr8r"; +warningcheck:=0; +% --- start of displayed preamble in the book --- + +% --- end of displayed preamble in the book --- +% % +beginfig(1) +vardef zeichneWinkelhalbierende(expr A,B,C,S) = + save AA; pair AA; (AA-A)=whatever*((A-C) + rotated 1/2(angle(B-A)-angle(C-A))); + AA=whatever[B,C]; + draw A--AA dashed evenly; S=AA; +enddef; +u:=2cm; pair A,AA,B,BB,C,CC,M,SS; +A=(0,1u); B=(3u,0.5u); C=(u,2.5u); +draw A--B--C--cycle; +zeichneWinkelhalbierende(A,B,C,AA); +zeichneWinkelhalbierende(B,C,A,BB); +zeichneWinkelhalbierende(C,A,B,CC); +M=whatever[A,AA]; M=whatever[B,BB]; +SS=whatever[A,B]=whatever[M,M+((B-A) rotated 90)]; +draw fullcircle scaled 2 length(SS-M) + shifted M withpen pencircle scaled 2bp; +endfig; +end; |