summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/planpln0.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/planpln0.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/planpln0.mp165
1 files changed, 165 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/planpln0.mp b/Master/texmf-dist/doc/metapost/featpost/example/planpln0.mp
new file mode 100644
index 00000000000..ec500d6fad0
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/planpln0.mp
@@ -0,0 +1,165 @@
+% planplnzero.mp
+% L. Nobre G.
+% 2006
+
+input featpost3Dplus2D;
+
+% Only planifications
+
+% truefyepsmode;
+
+% filenametemplate "%j%3c.ps";
+
+beginfig(2); % plntpbq
+ numeric aresta[];
+ aresta0 := arestaref;
+ aresta1 := 5mm;
+ z0 = (down+left)*aresta0/2;
+ z1 = z0 + up*aresta0;
+ z2 = z1 + right*aresta0;
+ z3 = z2 + down*aresta0;
+ z4 = radialcross( z1, aresta0, z2, aresta0, true);
+ z9 = radialcross( z2, aresta0, z4, aresta0, true);
+ z5 = radialcross( z1, aresta0, z4, aresta0, true);
+ z6 = z5 + dir(60)*aresta1;
+ z7 = z4 + dir(120)*aresta1;
+ z10= radialcross( z4, aresta0, z9, aresta0, true);
+ z8 = z1 + dir(-150)*aresta1;
+ z11= z0 + dir(150)*aresta1;
+ z12= z0 + dir(-60)*aresta1;
+ z13= z3 + dir(-120)*aresta1;
+ z14= z3 + dir(30)*aresta1;
+ z15= z2 + dir(-30)*aresta1;
+ pickup grossa;
+ draw z0--z11--z8--z1--z5--z6--z7--z4--z10--z9--z2--z15
+ --z14--z3--z13--z12--cycle;
+ pickup usual;
+ draw z5--z9;
+ draw z1--z2--z4--z1--z0--z3--z2;
+ desvia( 5,4,9,10,1,2,0,3 );
+% dotlabels.urt(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
+ terminar( 2.4, 0 );
+endfig;
+
+beginfig(3); % plnmpbq
+ numeric aresta[];
+ aresta0 := arestaref;
+ z0 = (down+left)*aresta0/2;
+ z1 = z0 + up*aresta0;
+ z2 = z1 + right*aresta0;
+ z3 = z2 + down*aresta0;
+ z4 = radialcross( z1, aresta0, z2, aresta0, true);
+ z9 = radialcross( z2, aresta0, z4, aresta0, true);
+ z5 = radialcross( z1, aresta0, z4, aresta0, true);
+ z6 = z5 + dir(60)*aresta0;
+ z10= radialcross( z4, aresta0, z9, aresta0, true);
+ z8 = z1 + dir(-150)*aresta0;
+ z7= z0 + dir(-60)*aresta0;
+ z11= z3 + dir(30)*aresta0;
+ pickup grossa;
+ draw z0--z8--z1--z5--z6--z4--z10--z9--z2--z11--z3--z7--cycle;
+ pickup usual;
+ draw z5--z9;
+ draw z1--z2--z4--z1--z0--z3--z2;
+ desvia( 5,6,7,8,9,10,1,2,0,3,11 );
+% dotlabels.urt(0,1,2,3,4,5,6,7,8,9,10,11);
+ terminar( 2.4, 0 );
+endfig;
+
+beginfig(4); % plnppbq
+ numeric aresta[];
+ aresta0 := arestaref;
+ z0 = (down+left)*aresta0/2;
+ z1 = z0 + up*aresta0;
+ z2 = z1 + right*aresta0;
+ z3 = z2 + down*aresta0;
+ z4 = radialcross( z1, aresta0, z2, aresta0, true);
+ z5 = radialcross( z2, aresta0, z3, aresta0, true);
+ z6 = radialcross( z3, aresta0, z0, aresta0, false);
+ z7 = radialcross( z0, aresta0, z1, aresta0, false);
+ z8 = radialcross( z1, aresta0, z7, aresta0, true);
+ z9 = radialcross( z2, aresta0, z4, aresta0, true);
+ z10 = radialcross( z3, aresta0, z5, aresta0, false);
+ z11 = radialcross( z0, aresta0, z6, aresta0, false);
+ pickup grossa;
+ draw z0--z7--z8--z1--z4--z9--z2--z5--z10--z3--z6--z11--cycle;
+ pickup usual
+ draw z0--z1--z2--z3--cycle;
+ draw z7--z1;
+ draw z4--z2;
+ draw z5--z3;
+ draw z6--z0;
+% path tmpath;
+% tmpath = (PageCenter--centerof(0,1,7)) cutafter (z0--z1);
+% draw tmpath dashed pequeno;
+% pickup fina;
+% draw z1--z3;
+% dotlabels.ulft(0,1,2,3,4,5,6,7,8,9,10,11);
+% label.lft(btex $a+b$ etex rotated angle(z4-z1), centerof(1,4));
+ terminar( 2.4, -15 );
+endfig;
+
+beginfig(6); % plnddpbp
+ numeric aresta[];
+ aresta0 := arestaref;
+ z9 = origin;
+ z0 = z9 + sqrt(3)*aresta0*dir(-150);
+ z1 = z0 + 3*right*aresta0;
+ z2 = z1 + 3*dir(120)*aresta0;
+ z3 = 1/3 [z0,z1];
+ z4 = 2/3 [z0,z1];
+ z5 = 1/3 [z1,z2];
+ z6 = 2/3 [z1,z2];
+ z7 = 1/3 [z2,z0];
+ z8 = 2/3 [z2,z0];
+ z10 = z4 + dir(-60)*aresta0;
+ z11 = z5 + right*aresta0;
+ z12 = z6 + right*aresta0;
+ z13 = z2 + right*aresta0;
+ z14 = z2 - right*aresta0;
+ z15 = z7 - right*aresta0;
+ z16 = z8 - right*aresta0;
+% dotlabels.ulft(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16);
+ pickup grossa;
+ draw z9--z3--z4--z10--z1--z5--z11--z12--z6--z13
+ --z2--z7--z14--z15--z8--z16--z0--z3;
+ pickup usual
+ draw z0--z8--z7--z15;
+ draw z3--z8--z9--z7--z6--z2;
+ draw z1--z4--z5--z9--z4;
+ draw z9--z6--z5--z12;
+ desvia( 16,11,2,13,0,10,6 );
+ terminar( 1.9, 90-angle(z0-z10) );
+endfig;
+
+beginfig(7); % plnpdpbp
+ numeric aresta[];
+ aresta0 := arestaref;
+ z9 = 0.5*aresta0*right;
+ z8 = 0.5*aresta0*left;
+ z11= 0.5*sqrt(3)*aresta0*up;
+ z14= 0.5*sqrt(3)*aresta0*down;
+ z13= z14+ right*aresta0;
+ z12= z11+ right*aresta0;
+ z15= z14- right*aresta0;
+ z10= z11- right*aresta0;
+ z0 = 3/2 [z14,z10];
+ z4 = 3/2 [z13,z11];
+ z5 = 3/2 [z15,z11];
+ z1 = 3/2 [z14,z12];
+ z2 = 3/2 [z11,z13];
+ z6 = 3/2 [z10,z14];
+ z7 = 3/2 [z12,z14];
+ z3 = 3/2 [z11,z15];
+% dotlabels.ulft(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
+ pickup grossa;
+ draw z11--z10--z0--z1--z9--z13;
+ draw z14--z13--z2--z3--z8--z10;
+ pickup usual
+ draw z10--z4--z9--z8--z5--z12--z11;
+ draw z13--z6--z8;
+ draw z9--z7--z15--z14;
+ terminar( 2.1, 0 );
+endfig;
+
+end;