summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/planpau.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/planpau.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/planpau.mp233
1 files changed, 0 insertions, 233 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/planpau.mp b/Master/texmf-dist/doc/metapost/featpost/example/planpau.mp
deleted file mode 100644
index 7b73f2b9932..00000000000
--- a/Master/texmf-dist/doc/metapost/featpost/example/planpau.mp
+++ /dev/null
@@ -1,233 +0,0 @@
-% planpau.mp
-% L. Nobre G.
-% 1999
-
-% Planification wise auxiliary figures
-
-input featpost3Dplus2D;
-
-verbatimtex \documentclass{article} \usepackage{beton} \usepackage{concmath} \usepackage{ccfonts} \begin{document} etex
-
- EPSmode := true;
-
-beginfig(1);
- numeric xposit, xendit, xbegit, salto, i;
- picture tracos[];
- picture legendas[];
- pen caneta[];
- xposit = 3in;
- xendit = 4.5in;
- xbegit = 1.5in;
- salto = 0.3in;
- legendas0 = btex Normal etex;
- legendas1 = btex Recorte etex;
- legendas2 = btex C\^{o}ncava etex;
- legendas3 = btex Opcional etex;
- legendas4 = btex Dist\^{a}ncia etex;
- caneta0 = usual;
- caneta1 = grossa;
- caneta2 = fina;
- caneta3 = usual;
- caneta4 = fina;
- tracos0 = nada;
- tracos1 = nada;
- tracos2 = nada;
- tracos3 = pequeno;
- tracos4 = grande;
- for i = 0 upto 4:
- z[i] = ( xposit, 6in - i*salto );
- label.top( legendas[i], z[i] );
- draw ( xbegit, ypart z[i] )--( xendit, ypart z[i] )
- withpen caneta[i] dashed tracos[i];
- endfor;
-endfig;
-
-beginfig(2);
- numeric salto, ix, iy, counter, aresta[];
- path faces[];
- picture descrit[];
- aresta0 = 0.57*arestaref;
- salto = 1.4*aresta0;
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- z0 = 0.5*aresta0*right;
- z1 = aresta0*(0,sqrt(3)/2);
- z2 = 0.5*aresta0*left;
- z3 = centerof( 0,1,2 );
- faces0 = z0--z1--z2--cycle;
- draw faces0 withpen usual;
- label(btex (a) etex, z3);
- descrit0 = currentpicture;
- currentpicture := nullpicture;
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- z4 = aresta0*right;
- z5 = aresta0*up;
- z7 = origin;
- z6 = centerof( 7,4,5 );
- faces1 = z7--z4--z5--cycle;
- draw faces1 withpen usual;
- label(btex (b) etex, z6);
- label.urt(btex $\sqrt{2}$ etex, (z4+z5)/2 );
- descrit1 = currentpicture shifted (0.5*aresta0*left);
- currentpicture := nullpicture;
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- z8 = sqrt(3)*aresta0*right;
- z9 = aresta0*up;
- z10= centerof( 7,8,9 );
- faces2 = z7--z8--z9--cycle;
- draw faces2 withpen usual;
- label.lft(btex (c) etex, z10);
- label.top(btex $\sqrt{3}$ etex, (z7+z8)/2 );
- label.urt(btex $2$ etex, (z9+z8)/2 );
- descrit2 = currentpicture shifted (0.5*aresta0*left);
- currentpicture := nullpicture;
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- z11= aresta0*(0.8*sqrt(3)*right+0.8*up);
- z12= aresta0*(0.3*sqrt(3),0.3);
- z13= aresta0*(0.2*sqrt(3)*left+0.8*up);
- z14= centerof( 11,12,13 );
- faces3 = z11--z12--z13--cycle;
- draw faces3 withpen usual;
- label(btex (d) etex, z14);
- label.top(btex $\sqrt{3}$ etex, (z11+z13)/2 );
- descrit3 = currentpicture;
- currentpicture := nullpicture;
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- z15= 0.5*aresta0*right;
- z16= z15+aresta0*up;
- z17= z16+aresta0*left;
- z18= z17+aresta0*down;
- z19= centerof( 15,16,17,18 );
- faces4 = z15--z16--z17--z18--cycle;
- draw faces4 withpen usual;
- label(btex (e) etex, z19);
- descrit4 = currentpicture;
- currentpicture := nullpicture;
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- z20= 0.5*aresta0*right;
- z21= z20+aresta0*dir(60);
- z22= z21+aresta0*left;
- z23= z22+aresta0*dir(-120);
- z24= centerof( 20,22,23 );
- faces5 = z20--z21--z22--z23--cycle;
- draw faces5 withpen usual;
- draw z20--z22 withpen fina dashed grande;
- label(btex (f) etex, z24);
- descrit5 = currentpicture;
- currentpicture := nullpicture;
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- z25= 0.5*aresta0*right;
- z26= z25+aresta0*left;
- z27= radialcross( z26, aresta0, z25, 2*aresta0*sqrt(3)/3, true );
- z28= z27+aresta0*right;
- z29= centerof( 25,26,27 );
- faces6 = z25--z26--z27--z28--cycle;
- draw faces6 withpen usual;
- draw z25--z27 withpen fina dashed grande;
- label(btex (g) etex, z29);
- label.urt(btex $\frac{2\sqrt{3}}{3}$ etex, (z25+z27)/2 );
- descrit6 = currentpicture;
- currentpicture := nullpicture;
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- z30= 0.5*aresta0*right;
- z31= z30+aresta0*left;
- z32= radialcross( z30, aresta0*sqrt(2),
- z31, aresta0*sqrt(3), true );
- z33= z32+aresta0*right;
- z34= centerof( 30,31,32 );
- faces7 = z30--z31--z32--z33--cycle;
- draw faces7 withpen usual;
- draw z30--z32 withpen fina dashed grande;
- label(btex (h) etex, z34);
- label.urt(btex $\sqrt{2}$ etex, (z30+z32)/2 );
- label.ulft(btex $\sqrt{3}$ etex, (z31+z32)/2 );
- label.lrt(btex $\sqrt{3}$ etex, (z30+z33)/2 );
- descrit7 = currentpicture;
- currentpicture := nullpicture;
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- z35= 1.5*aresta0*right;
- z40= 0.5*aresta0*right;
- z36= z35+aresta0*dir(120);
- z37= z36+aresta0*left;
- z38= z37+aresta0*dir(-120);
- z39= centerof( 40,37,38 );
- faces8 = z35--z36--z37--z38--cycle;
- draw faces8 withpen usual;
- draw z37--z40--z36 withpen fina dashed grande;
- label(btex (l) etex, z39);
-
- z61= z38+1.2*aresta0*up;
- z62= z61+2*aresta0*right;
- z63= z61+aresta0*right+sqrt(2)*aresta0*up;
- z64= centerof( 61,62,63 );
- faces13 = z61--z62--z63--cycle;
- draw faces13 withpen usual;
- label(btex (i) etex, z64);
- label.top(btex 2 etex, (z61+z62)/2 );
- label.urt(btex $\sqrt{3}$ etex, (z63+z62)/2 );
- label.ulft(btex $\sqrt{3}$ etex, (z63+z61)/2 );
- descrit8 = currentpicture shifted (aresta0*(0,-1.666));
- currentpicture := nullpicture;
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- z47= aresta0*right;
- z48= origin;
- z49= radialcross( z48, aresta0, z47, aresta0*(sqrt(3)-1), true );
- z50= centerof( 47,48,49 );
- faces9 = z47--z48--z49--cycle;
- draw faces9 withpen usual;
- label(btex (k) etex, z50);
-% label.top(btex $\sqrt{3}-1$ etex rotated angle(z47-z49), z47 );
- label.rt(btex $\sqrt{3}-1$ etex, (z47+z49)/2 );
-
- z57 = (x48,y49);
- z58 = z57 + aresta0*left;
- z59= radialcross( z57, aresta0, z58, aresta0*sqrt(2-sqrt(3)), false );
- z60= centerof( 57,58,59 );
- faces12 = z57--z58--z59--cycle;
- draw faces12 withpen usual;
- label(btex (j) etex, z60);
-% label.lft(
-% btex $\sqrt{2-\sqrt{3}}$ etex rotated angle(z59-z58),
-% (z59+z58)/2 );
- label.llft(btex $\sqrt{2-\sqrt{3}}$ etex, (z59+z58)/2 );
- descrit9 = currentpicture shifted (aresta0*(2.5,0.4));
- currentpicture := nullpicture;
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- z51= -aresta0*(sqrt(2)/2,0.866);
- z52= z51+aresta0*sqrt(2)*right;
- z53= z52+aresta0*up;
- z54= z53+aresta0*(-sqrt(2)/2,0.5);
- z55= z54+aresta0*(-sqrt(2)/2,-0.5);
- z56= centerof( 51,52,53,54,55 );
- faces10 = z51--z52--z53--z54--z55--cycle;
- draw faces10 withpen usual;
- label(btex (m) etex, z56);
- label.top(btex $\sqrt{2}$ etex, (z51+z52)/2 );
- label.urt(btex $\sqrt{3}/2$ etex, (z53+z54)/2 );
- label.ulft(btex $\sqrt{3}/2$ etex, (z55+z54)/2 );
- descrit10 = currentpicture shifted (aresta0*(0.25*left+0.8*down));
- currentpicture := nullpicture;
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- z41= 1.5*aresta0*right;
- z42= z41+aresta0*dir(120);
- z43= z42+aresta0*left;
- z44= z43+aresta0*dir(-120);
- z45= z44+aresta0*dir(-60);
- z46= z45+aresta0*right;
- faces11 = z41--z42--z43--z44--z45--z46--cycle;
- draw faces11 withpen usual;
- label(btex (n) etex, z40);
- descrit11 = currentpicture shifted (aresta0*0.8*down);
- currentpicture := nullpicture;
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- counter := 0;
- for iy = 0 upto 2:
- for ix = 0 upto 3:
- draw descrit[counter] shifted ( ix*salto, - iy*salto );
- counter := incr(counter);
- endfor;
- endfor;
-endfig;
-
-verbatimtex \end{document} etex
-
-end;