summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/einfuehrung/15-02-29.mp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-02-06 00:47:46 +0000
committerKarl Berry <karl@freefriends.org>2012-02-06 00:47:46 +0000
commitf2fb432b14a3c467c6ddfee4a19874fea886307d (patch)
tree4fbba0fc79f546e17e07adbb3db78860e4d39ed8 /Master/texmf-dist/doc/latex/einfuehrung/15-02-29.mp
parent27d1d1646fa5dc2daba1e09c2d2175c211d93def (diff)
new examples from (voss) german book einfuehrung (2feb12)
git-svn-id: svn://tug.org/texlive/trunk@25301 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/einfuehrung/15-02-29.mp')
-rw-r--r--Master/texmf-dist/doc/latex/einfuehrung/15-02-29.mp40
1 files changed, 40 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/einfuehrung/15-02-29.mp b/Master/texmf-dist/doc/latex/einfuehrung/15-02-29.mp
new file mode 100644
index 00000000000..b1002317663
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/einfuehrung/15-02-29.mp
@@ -0,0 +1,40 @@
+%%
+%% Ein Beispiel der DANTE-Edition
+%%
+%% Beispiel 15-02-29 auf Seite 749.
+%%
+%% Copyright (C) 2012 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=8mm;
+vardef project(expr x,y,z)=x*(-1,-1)+y*(1,0)+z*(0,1) enddef;
+vardef f(expr x,y)=sind((x/u)**2 *180 +(y/u)**2 *180)*u/2 enddef;
+numeric m,M,inc,farbe;
+m:=-2u; M:=2u; inc:=.1u;
+for i=m step inc until M:
+ for j=m step inc until M:
+ path p;
+ p=project(i,j,f(i,j))--project(i,j+inc,f(i,j+inc))--
+ project(i+inc,j+inc,f(i+inc,j+inc))--project(i+inc,j,f(i+inc,j))--cycle;
+ dfdx := (f(i,j) - f(i+inc,j))/inc; dfdy := (f(i,j) - f(i,j+inc))/inc;
+ farbe := 1/sqrt( dfdx**2 + dfdy**2 + 1); fill p withcolor farbe*(red+green);
+ endfor;
+endfor;
+endfig;
+end;