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, 0 insertions, 165 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/planpln0.mp b/Master/texmf-dist/doc/metapost/featpost/example/planpln0.mp
deleted file mode 100644
index ec500d6fad0..00000000000
--- a/Master/texmf-dist/doc/metapost/featpost/example/planpln0.mp
+++ /dev/null
@@ -1,165 +0,0 @@
-% 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;