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, 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; |