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, 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; |