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, 233 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/planpau.mp b/Master/texmf-dist/doc/metapost/featpost/example/planpau.mp
new file mode 100644
index 00000000000..7b73f2b9932
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/planpau.mp
@@ -0,0 +1,233 @@
+% 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;