diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/planpau.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/planpau.mp | 233 |
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; |