summaryrefslogtreecommitdiff
path: root/info/examples/Einfuehrung/15-02-23.mp
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/Einfuehrung/15-02-23.mp')
-rw-r--r--info/examples/Einfuehrung/15-02-23.mp41
1 files changed, 41 insertions, 0 deletions
diff --git a/info/examples/Einfuehrung/15-02-23.mp b/info/examples/Einfuehrung/15-02-23.mp
new file mode 100644
index 0000000000..f2431e8a69
--- /dev/null
+++ b/info/examples/Einfuehrung/15-02-23.mp
@@ -0,0 +1,41 @@
+%%
+%% Ein Beispiel der DANTE-Edition
+%%
+%% 1. Auflage
+%%
+%% Beispiel 15-02-23 auf Seite 747.
+%%
+%% Copyright (C) 2011 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)
+u:=1.3cm; transform T;
+z1=(0,2u); n:=5;
+for i=1 upto n-1: z[i+1]=z1 rotated (360*i/n);
+endfor;
+z1 transformed T=0.1[z1,z2];
+z2 transformed T=0.1[z2,z3];
+z3 transformed T=0.1[z3,z4];
+path p;
+p = for i=1 upto n: z[i]--endfor cycle;
+for i=0 upto 100:
+ fill p withcolor 0.2*white; p:=p transformed T;
+ fill p withcolor white; p:=p transformed T;
+endfor;
+endfig;
+end;