summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/einfuehrung2/15-02-69.mp2
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-12-20 23:05:54 +0000
committerKarl Berry <karl@freefriends.org>2015-12-20 23:05:54 +0000
commit6db964e915c4d62a982a0aed51da9a831a15704f (patch)
treeed220e642ad19021d8f86fe2c6bbe71b187b3db8 /Master/texmf-dist/doc/latex/einfuehrung2/15-02-69.mp2
parentf4e67bebe6f832d21491cfa7ae1dfa9388899117 (diff)
einfuehrung2 (20dec15)
git-svn-id: svn://tug.org/texlive/trunk@39153 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/einfuehrung2/15-02-69.mp2')
-rw-r--r--Master/texmf-dist/doc/latex/einfuehrung2/15-02-69.mp249
1 files changed, 49 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/einfuehrung2/15-02-69.mp2 b/Master/texmf-dist/doc/latex/einfuehrung2/15-02-69.mp2
new file mode 100644
index 00000000000..4f202d2d505
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/einfuehrung2/15-02-69.mp2
@@ -0,0 +1,49 @@
+%%
+%% Ein Beispiel der DANTE-Edition
+%%
+%% 2. Auflage
+%%
+%% Beispiel 15-02-69 auf Seite 749.
+%%
+%% 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.
+%%
+%%
+%% ====
+verbatimtex
+%%
+\documentclass[]{article}
+\usepackage[T1]{fontenc}
+\usepackage[utf8]{inputenc}
+\usepackage{graphicx}
+\def\XeTeX{X\raisebox{-0.5ex}{E}\kern-0.125em\TeX}
+%\DeclareRobustCommand\XeTeX{X\kern-0.5em\raisebox{-0.5ex}{\reflectbox{E}}\kern0.27em\TeX}
+\begin{document}
+etex
+% --- start of displayed preamble in the book ---
+input piechartmp;
+% --- end of displayed preamble in the book ---
+beginfig(1)
+vardef PrivatePattern (expr ulc, lrc, spc, lwd) = save pic, cntr, c, k ;
+ picture pic; pic := nullpicture; pair cntr ; numeric c ; path k ;
+ cntr := 0.5*(lrc + ulc);
+ c := ((xpart (ulc - cntr))++(ypart (ulc - cntr)))/spc; c := floor c;
+ for i=1 upto c:
+ k := fullcircle scaled (i*2*spc) shifted cntr ;
+ addto pic doublepath k withpen pencircle scaled lwd ;
+ endfor;
+ pic
+enddef;
+DefinePattern(1, 0, blue, red, (5mm, 3mm));
+DefinePattern(2, 0, auto, white, (3mm, 1pt));
+Segment(32.5, "", 1); Segment(12.8, "", auto);
+Segment(22.4, "", 2); Segment(18.2, "", red);
+PieChart(4cm, 0.1, 65, 0, 0);
+endfig;
+end;
+\end{document}