summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/planpln1.mp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-12-03 16:47:39 +0000
committerKarl Berry <karl@freefriends.org>2011-12-03 16:47:39 +0000
commit97e4684a37e4899e8cdd42ab670b6e25dd319d1a (patch)
treebc263a56d75c177b79ae13c6e6ec7a3c30278dbf /Master/texmf-dist/doc/metapost/featpost/example/planpln1.mp
parenta2c8654f8955a0d35c8b0c2d1752a506a426681b (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.mp344
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;