diff options
author | Karl Berry <karl@freefriends.org> | 2011-12-03 16:47:39 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-12-03 16:47:39 +0000 |
commit | 97e4684a37e4899e8cdd42ab670b6e25dd319d1a (patch) | |
tree | bc263a56d75c177b79ae13c6e6ec7a3c30278dbf /Master/texmf-dist/doc/metapost/featpost/example/planpln1.mp | |
parent | a2c8654f8955a0d35c8b0c2d1752a506a426681b (diff) |
featpost (17nov11)
git-svn-id: svn://tug.org/texlive/trunk@24738 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/planpln1.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/planpln1.mp | 344 |
1 files changed, 344 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/planpln1.mp b/Master/texmf-dist/doc/metapost/featpost/example/planpln1.mp new file mode 100644 index 00000000000..7d3e756709d --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/planpln1.mp @@ -0,0 +1,344 @@ +% planplnone.mp +% L. Nobre G. +% 2006 + +input featpost3Dplus2D; + +% Only planifications + +% truefyepsmode; + +% filenametemplate "%j%3c.ps"; + +beginfig(0); % plncubo + numeric aresta[]; + aresta0 := arestaref; + z6 = (right+down)*aresta0/2; + z0 = z6 + 3*left*aresta0; + z1 = z0 + 5*right*aresta0; + z2 = z1 + up*aresta0; + z3 = z2 + 5*left*aresta0; + z4 = 1/5 [z0,z1]; + z5 = 2/5 [z0,z1]; + z7 = 4/5 [z0,z1]; + z20= z0 + 3*(up+right)*aresta0; + z21= z1 + 3*(up+left)*aresta0; + z8 = 4/3 [z21,z5]; + z11= 5/3 [z20,z6]; + z9 = 4/3 [z20,z6]; + z12= z11+ right*aresta0; + z10= 1/2 [z12,z7]; + z23= z10+ right*aresta0; + z13= 1/5 [z2,z3]; + z14= 2/5 [z2,z3]; + z15= 3/5 [z2,z3]; + z16= 4/5 [z2,z3]; + z17= 4/3 [z12,z13]; + z18= 4/3 [z11,z14]; + z19= 3/4 [z8,z21]; + z22= 3/2 [z10,z15]; + pickup grossa; + draw z6--z0--z3--z16--z22--z19; + draw z15--z21--z20--z18--z17--z13; + draw z14--z2--z23--z10; + draw z7--z12--z11--z9--z8--z5; + pickup usual; + draw z19--z18--z9--z10; + draw z14--z16--z4; + draw z5--z15; + draw z7--z13; + draw z1--z6; + terminar( 1.52, -45 ); +endfig; + +beginfig(1); % plnclos + numeric aresta[]; + aresta0 := arestaref; + z13= dir(-30)*aresta0/2; + z0 = z13+ 3*dir(-150)*aresta0; + z1 = z0 + 5*dir(30)*aresta0; + z2 = z1 + up*aresta0; + z3 = z2 + 5*dir(-150)*aresta0; + z11= 1/5 [z0,z1]; + z12= 2/5 [z0,z1]; + z14= 4/5 [z0,z1]; + z15= 1/5 [z2,z3]; + z16= 2/5 [z2,z3]; + z17= 3/5 [z2,z3]; + z18= 4/5 [z2,z3]; + z23= z18+ 2*up*aresta0; + z21= z18+ 1*up*aresta0; + z4 = z18- 2*up*aresta0; + z22= z17+ 2*up*aresta0; + z20= z17+ 1*up*aresta0; + z5 = z17- 2*up*aresta0; + z8 = z17- 3*up*aresta0; + z19= z13+ 2*up*aresta0; + z6 = z13- 1*up*aresta0; + z9 = z13- 2*up*aresta0; + z7 = z14- 1*up*aresta0; + z10= z14- 2*up*aresta0; + pickup grossa; + draw z17--z16--z19--z20--z22--z23--z18--z3--z0--z11--z4--z8--z12--z13; + draw z5--z6--z9--z10--z14--z1--z2--z15--z19; + pickup usual; + draw z5--z11--z18; + draw z12--z18--z17--z20--z21; + draw z17--z13--z14; + draw z13--z6--z7; + draw z16--z14--z15; + terminar( 1.52, 90-angle(z23-z3) ); +endfig; + +beginfig(3); % plnclsq + numeric aresta[]; + aresta0 := arestaref; + z6 = dir(-30)*aresta0/2; + z7 = z6 + dir(-120)*aresta0; + z8 = z7 + dir(-60)*aresta0; + z9 = z8 + dir(60)*aresta0; + z10= z9 + dir(-90)*aresta0; + z11= z10+ dir(30)*aresta0; + z12= z11+ dir(90)*aresta0; + z13= z12+ dir(120)*aresta0; + z14= z13+ dir(0)*aresta0; + z15= z14+ dir(90)*aresta0; + z16= z15+ dir(180)*aresta0; + z17= z16+ dir(150)*aresta0; + z18= z17+ dir(-90)*aresta0; + z19= z18+ dir(-150)*aresta0; + z20= z19+ dir(60)*aresta0; + z21= z20+ dir(120)*aresta0; + z22= z21+ dir(-120)*aresta0; + z23= z22+ dir(90)*aresta0; + z24= z23+ dir(-150)*aresta0; + z25= z24+ dir(-90)*aresta0; + z26= z25+ dir(-60)*aresta0; + z27= z26+ dir(180)*aresta0; + z0 = z27+ dir(-90)*aresta0; + z1 = z0 + dir(0)*aresta0; + z2 = z1 + dir(-90)*aresta0; + z3 = z2 + dir(-30)*aresta0; + z4 = z3 + dir(90)*aresta0; + z5 = z4 + dir(90)*aresta0; + pickup grossa; + draw z0--z1--z2--z3--z4--z5--z6--z7--z8--z9--z10--z11--z12 + --z13--z14--z15--z16--z17--z18--z19--z20--z21--z22--z23 + --z24--z25--z26--z27--cycle; + pickup usual; + draw z4--z1--z26; + draw z5--z26--z19--z22--z25; + draw z19--z6--z13; + draw z6--z9--z12; + draw z16--z13--z18; +% dotlabels.ulft( 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17 ); +% dotlabels.ulft( 18,19,20,21,22,23,24,25,26,27 ); + terminar( 1.52, 90-angle(z24-z27) ); +endfig; + +beginfig(4); % plnclqd + numeric aresta[]; + aresta0 := arestaref; + z0 = origin; + z1 = z0 + dir(150)*aresta0; + z2 = z1 + dir(-90)*aresta0; + z3 = z2 + dir(-60)*aresta0; + z4 = z3 + dir(180)*aresta0; + z5 = z4 + dir(-90)*aresta0; + z6 = z5 + dir(0)*aresta0; + z7 = z6 + dir(-90)*aresta0; + z8 = z7 + dir(30)*aresta0; + z9 = z8 + dir(-30)*aresta0; + z10= z9 + dir(90)*aresta0; + z11= z10+ dir(0)*aresta0; + z12= z11+ dir(90)*aresta0; + z13= z12+ dir(180)*aresta0; + z14= z13+ dir(150)*aresta0; + z15= z13+ dir(90)*aresta0; + z16= z15+ dir(120)*aresta0; + z17= z16+ dir(150)*aresta0; + z18= z13+ dir(-150)*aresta0; + pickup grossa; + draw z0--z1--z2--z3--z4--z5--z6--z7--z8--z9--z10--z11--z12--z13--z14; + draw z13--z15--z16--z17--z1; + pickup fina; + draw z14--z18; + pickup usual; + draw z8--z18--z13--z10--z8--z6--z3--z18; + draw z3--z15; + draw z2--z16; + draw z17--z0--z14; + draw fullcircle scaled (aresta0/10) shifted z18 withcolor blue; +% dotlabels.ulft( 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18 ); + desvia( 1,2,3,4,5,6,7,8,9,10,11,12,13,15,16,17 ); + terminar( 1.52, 90-angle(z16-z12) ); + +endfig; + +beginfig(5); % plncubod + pair px[]y[], startpos; + numeric aresta, i, j; + aresta = arestaref; + startpos = aresta*(2*left+3*down); + for i=0 upto 4: + for j=0 upto 6: + px[i]y[j] := startpos+aresta*(i*right+j*up); + endfor; + endfor; + pickup grossa; + draw px2y2--px2y0--px1y0--px1y1--px0y1--px0y4--px1y4; + draw px1y3--px1y5--px2y5; + draw px2y4--px2y6--px3y6--px3y5--px4y5--px4y2--px3y2; + draw px3y3--px3y1--px2y1; + pickup fina; + draw px0y1--px4y5; + pickup usual; + draw px1y1--px2y1; + draw px0y2--px3y2; + draw px0y3--px4y3; + draw px1y4--px4y4; + draw px2y5--px3y5; + draw px1y1--px1y3; + draw px2y2--px2y4; + draw px3y3--px3y5; + terminar( 1.52, 0 ); +endfig; + +beginfig(6); % plntevc + pair px[]y[], startpos; + numeric aresta, i, j; + aresta = arestaref; + startpos = aresta*(4*left+4*dir(-120)); + for i=0 upto 12: + for j=0 upto 12-i: + px[i]y[j] := startpos+aresta*(i*right+j*dir(60)); + endfor; + endfor; + pickup grossa; + draw px4y3--px5y2--px5y3; + draw px3y5--px2y5--px3y4; + draw px4y5--px5y5--px5y4; + draw px7y0--px8y0--px8y1--px7y2--px8y2--px4y6--px5y6--px5y7--px4y8 + --px3y8--px3y7--px2y8--px2y4--px1y5--px0y5--px0y4--px1y3 + --px2y3--px2y2--px6y2--px6y1--cycle; + pickup usual; + draw px4y2--px4y3--px3y4; + draw px6y4--px5y4--px5y3; + draw px2y6--px3y5--px4y5; + draw px7y3--px7y2--px6y2--px5y3--px4y3; + draw px2y7--px3y7--px4y6--px4y5--px5y4; + draw px3y2--px2y3--px2y4--px3y4--px3y5; + desvec( (2*px4y8+px2y2+px7y0)/4 ); + terminar( 1, 90-angle(px7y0-px2y2) ); +endfig; + +beginfig(7); % plncubocta + numeric ares; + ares := arestaref; + z0 = origin; + z1 = z0 + dir(30)*ares; + z2 = z1 + dir(0)*ares; + z3 = z2 + dir(120)*ares; + z4 = z3 + dir(0)*ares; + z5 = z4 + dir(30)*ares; + z6 = z5 + dir(150)*ares; + z7 = z6 + dir(120)*ares; + z8 = z7 + dir(-120)*ares; + z9 = z7 + dir(30)*ares; + z10= z9 + dir(150)*ares; + z11= z10+ dir(30)*ares; + z12= z11+ dir(60)*ares; + z13= z12+ dir(180)*ares; + z14= z13+ dir(150)*ares; + z15= z14+ dir(-90)*ares; + z16= z15+ dir(150)*ares; + z17= z16+ dir(180)*ares; + z18= z17+ dir(-60)*ares; + z19= z18+ dir(-90)*ares; + z20= z19+ dir(-90)*ares; + z21= z20+ dir(-120)*ares; + z22= z21+ dir(0)*ares; + z23= z22+ dir(-120)*ares; + z24= z19+ dir(30)*ares; + z25= z19+ dir(-30)*ares; + pickup grossa; + draw z0--z1--z2--z3; + draw z2--z4--z5--z6--z7; + draw z8--z7--z9--z10; + draw z9--z11--z12--z13--z14--z15; + draw z14--z16--z17--z18--z20--z21; + draw z22--z21--z23--z0; + draw z24--z19--z25; + pickup usual; + draw z3--z1--z23--z22--z3--z8--z22--z20--z25--z8--z6--z4--z3; + draw z10--z11--z13--z15--z10--z24--z15--z16--z18--z24--z25--z7--z10; + desvia( 0,5,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14, + 15,16,17,18,19,20,21,22,23,24,25 ); + terminar( 1.52, 0 ); +% desvec( z0 ); +% terminar( 1.52, 180-angle(z2-z0) ); +endfig; + +beginfig(8); % plnocta + numeric ares; + ares := arestaref; + z0 = origin + dir(-120)*ares/2; + z1 = z0 + dir(-60)*ares; + z2 = z1 + dir(60)*ares; + z3 = z2 + dir(-60)*ares; + z4 = z3 + dir(60)*ares; + z5 = z4 + dir(120)*ares; + z6 = z5 + dir(120)*ares; + z7 = z6 + dir(-120)*ares; + z8 = z7 + dir(120)*ares; + z9 = z8 + dir(-120)*ares; + z10= z9 + dir(120)*ares; + z11= z10+ dir(-120)*ares; + z12= z11+ dir(-120)*ares; + z13= z12+ dir(0)*ares; + z14= z13+ dir(-60)*ares; + pickup grossa; + draw z0--z1--z2--z3--z4--z6--z7--z8--z9--z10--z12--z13--z14--cycle; + pickup usual; + draw z4--z2--z5--z7--z2--z0--z7--z9--z0--z13--z9--z11--z13; + terminar( 1.52, 90 ); +endfig; + +beginfig(9); % plnptq + numeric ares; + ares := arestaref; + z0 = ares*(right+dir(30)+up); + z1 = z0 + dir(-90)*ares; + z2 = z1 + dir(150)*ares; + z3 = z1 + dir(30)*ares; + z4 = z3 + dir(90)*ares; + pickup usual; + draw z0--z1--z2--z0--z3; + pickup grossa; + draw z1--z3--z4; + picture tile; + tile = currentpicture; + draw tile shifted (ares*up); + draw tile shifted (ares*up*2); + draw tile shifted (ares*up*3); + z5 = ares*(right+2*dir(30)+4*up); + z6 = z5 + dir(-150)*ares; + z7 = z6 + dir(150)*ares; + z8 = z7 + 5*dir(-90)*ares; + z9 = z8 + dir(180)*ares; + z10 = z9 + dir(90)*ares; + z11 = z2 + dir(90)*ares; + z12 = z11 + dir(-120)*ares; + z13 = z11 + dir(180)*ares; + z14 = z13 + dir(90)*ares; + z15 = z14 + dir(60)*ares; + z16 = z15 + dir(-60)*ares; + draw z5--z6--z7--z16--z15--z14--z13--z12--z11--z2--z10--z9--z8--z1; + pickup usual; + draw z14--z16--z11--z13; + draw z2--z8; + desvia( 5,6,8,9 ); + terminar( 1.52, 180 ); +endfig; + +end; |