diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/planpln0.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/planpln0.mp | 165 |
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; |