1 files changed, 291 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/repeated/planpht.mp b/Master/texmf-dist/doc/metapost/featpost/example/repeated/planpht.mp
new file mode 100644
index 00000000000..dac34577eff
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/repeated/planpht.mp
@@ -0,0 +1,291 @@
+% planpht.mp
+% L. Nobre G.
+% 2003
+
+%input featpost3Dplus2D;
+
+% Planification wise 3D figures
+
+verbatimtex
+\documentclass{article}
+\usepackage{beton}
+\usepackage{concmath}
+\usepackage{ccfonts}
+\begin{document}
+etex
+
+beginfig(1); % phtpbq
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Definition of the 3D-figure
+    V1 := (1,0,0);
+    V2 := (0,1,0);
+    V5 := (0,0,1);
+    V3 := (-1,0,0);
+    V4 := (0,-1,0);
+    makeface1(1,2,3,4);
+    makeface2(1,2,5);
+    makeface3(2,3,5);
+    makeface4(3,4,5);
+    makeface5(4,1,5);
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
+    f := (3,5,4);
+    Spread := 50;
+    pickup pencircle scaled 1pt;
+    sharpraytrace;
+endfig;    
+
+beginfig(2); % phtdpbp
+    numeric altura, raio, xp, xs, yp, ys;
+    altura = 0.5257311;
+    raio = 0.8506508;
+    yp = 0.80901699;
+    ys = 0.5;
+    xp = 0.2628655;
+    xs = -0.6881909;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Definition of the 3D-figure
+    V1 := (raio,0,0);
+    V2 := (xp,yp,0);
+    V3 := (xs,ys,0);
+    V4 := (xs,-ys,0);
+    V5 := (xp,-yp,0);
+    V6 := (0,0,altura);
+    V7 := (0,0,-altura);
+    makeface1(1,2,6);
+    makeface2(5,1,6);
+    makeface3(2,3,6);
+    makeface4(3,4,6);
+    makeface5(4,5,6);
+    makeface6(1,2,7);
+    makeface7(5,1,7);
+    makeface8(2,3,7);
+    makeface9(3,4,7);
+    makeface10(4,5,7);
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
+    f := (3,5,1.8);
+    Spread := 50;
+    pickup pencircle scaled 1pt;
+    sharpraytrace;
+endfig;    
+
+beginfig(3); % phtcubo eps
+	defaultscale := 1;
+	defaultfont := "ccr10";
+    V1 := (1,1,1);
+    V2 := (-1,1,1);
+    V3 := (-1,-1,1);
+    V4 := (1,-1,1);
+    V5 := (1,1,-1);
+    V6 := (-1,1,-1);
+    V7 := (-1,-1,-1);
+    V8 := (1,-1,-1);
+    makeface1(1,2,3,4);
+    makeface2(5,6,7,8);
+    makeface3(1,2,6,5);
+    makeface4(2,3,7,6);
+    makeface5(3,4,8,7);
+    makeface6(4,1,5,8);
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
+    f := (3,5,3);
+    Spread := 50;
+    pickup pencircle scaled 1pt;
+    sharpraytrace;
+    label.lft("A", rp(V8) );
+    label.top("B", rp(V1) );
+    label.top("C", rp(V3) );
+    label.lft("D", rp(V4) );
+    label.rt("E", rp(V2) );
+    label.rt("F", rp(V6) );
+endfig;
+
+beginfig(4); % phtptq
+    numeric high, low;
+    high = sqrt(2);
+    low = sqrt(2)-1.6818;
+    V1 := (1,1,high);
+    V2 := (-1,1,high);
+    V3 := (-1,-1,high);
+    V4 := (1,-1,high);
+    V5 := (high,0,low);
+    V6 := (0,high,low);
+    V7 := (-high,0,low);
+    V8 := (0,-high,low);
+    V9 := (0,0,0);
+    makeface1(5,6,7,8);
+    makeface2(6,1,2);
+    makeface3(7,2,3);
+    makeface4(8,3,4);
+    makeface5(5,4,1);
+    makeface6(5,6,1);
+    makeface7(6,7,2);
+    makeface8(7,8,3);
+    makeface9(8,5,4);
+    makeface10(9,1,2);
+    makeface11(9,2,3);
+    makeface12(9,3,4);
+    makeface13(9,4,1);
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
+    f := (2,6,5);
+    Spread := 50;
+    pickup pencircle scaled 1pt;
+    sharpraytrace;
+endfig;
+
+beginfig(5); % phtnonrec
+    numeric tro;
+    tro = 2;
+    V1 := (tro,0,0);
+    V2 := (0,tro,0);
+    V3 := (-tro,0,0);
+    V4 := (0,-tro,0);
+    V5 := (1,1,1);
+    V6 := (-1,1,1);
+    V7 := (-1,-1,1);
+    V8 := (1,-1,1);
+    V9 := (1,1,-1);
+    V10 := (-1,1,-1);
+    V11 := (-1,-1,-1);
+    V12 := (1,-1,-1);
+    V13 := (0,0,tro);
+    V14 := (0,0,-tro);
+    makeface1(1,5,13,8);
+    makeface2(2,6,13,5);
+    makeface3(3,7,13,6);
+    makeface4(4,8,13,7);
+    makeface5(1,5,2,9);
+    makeface6(2,6,3,10);
+    makeface7(3,7,4,11);
+    makeface8(4,8,1,12);
+    makeface9(1,9,14,12);
+    makeface10(2,10,14,9);
+    makeface11(3,11,14,10);
+    makeface12(4,12,14,11);
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
+    f := 2*(5,3,1.5);
+    Spread := 50;
+    pickup pencircle scaled 1pt;
+    sharpraytrace;
+endfig;
+
+beginfig(6); % pauphtflex eps
+	defaultscale := 1;
+	defaultfont := "ccr10";
+    color A, B, C, D, E, F, G;
+    numeric tro, Adist;
+    tro = sqrt(3)/2;
+    Adist = 0.88854;
+    V1 := (-1.8,0,0);
+    V2 := (-1.8,0.6,1.2*tro);
+    V3 := (1,0.6,1.2*tro);
+    V4 := (1,0,0);
+    V5 := (1,2.5,0);
+    V6 := (-1.8,2.5,0);
+    V7 := (0,0,0);
+    V8 := (0,0.707,0);
+    V9 := (0,0.707/4,0.707*tro/2);
+    V10:= (0.21928,Adist/2,tro*Adist);
+    V11:= (-0.37392,0.39638,0);
+    V12:= (-1.2125,Adist,0);
+    makeface1(1,2,3,4);
+    makeface2(4,5,6,1);
+    makeface3(7,8,9);
+    makeface4(8,9,10);
+    makeface5(8,10,11);
+    makeface6(10,11,12);
+    A = (0,1.3,0);
+    B = (0,1.3+sqrt(0.75),0);
+    C = (-0.5,1.3+sqrt(0.75),0);
+    D = (E+B)/2;
+    E = (sqrt(0.75),1.3,0);
+    F = ((1+sqrt(3))/4,1.3+(1+sqrt(3))/4,0);
+    G = (-1.5,1.3+sqrt(0.75),0);
+    f := 3*(2,5,2);
+    Spread := 100;
+    draw rp(A)--rp(B)--rp(E)--cycle;
+    draw rp(F)--rp(B)--rp(E)--cycle;
+    draw rp(A)--rp(B)--rp(C)--cycle;
+    draw rp(A)--rp(C)--rp(G)--cycle;
+    draw rp(A)--rp(F) dashed evenly;
+    pickup pencircle scaled 1pt;
+    sharpraytrace;
+    draw rp(V7)--rp(V9);
+    draw rp(V10)--rp(V9);
+    draw rp(V12)--rp((-1.2125,0,0)) dashed evenly;
+    label.urt("Adist", rp((V12+(-1.2125,0,0))/2) );
+    label.lft("A", rp(V10) );
+    label.bot("B", rp(V8) );
+    label.bot("B", rp(B) );
+    label.lrt("C", rp(V11) );
+    label.lft("D", rp(V9) );
+    label.bot("D", rp(D) );
+    label.llft("F", rp(V7) );
+    label.bot("F", rp(F) );
+    label.rt("G", rp(V12) );
+    angline(V6, V2, V1, 0.6, btex $\alpha$ etex, rt);
+    angline(V10, 2*V9, V9, 0.7, btex $\theta$ etex, bot);
+    draw rp(V9+N(V10-V9)*0.65)--rp(V9+N(V10-V9)*0.8);
+    draw rp(V9+N(V9)*0.5)--rp(V9+N(V9)*0.8);
+    label.bot(btex $p$ etex, rp((F+B)/2) );
+    label.ulft(btex $q$ etex, rp((D+B)/2) );
+    label.lft(btex $r$ etex, rp((D+A)/2) );
+    label.llft(btex $s$ etex, rp((A+B)/2) );
+    label.llft(btex $t$ etex, rp((A+C)/2) );
+    label.bot(btex $t$ etex, rp((G+C)/2) );
+    label.bot(btex $u$ etex, rp((C+B)/2) );
+    label.top(btex $v$ etex, rp((A+G)/2) );
+endfig;
+
+beginfig(7); % pauphttoro eps
+	defaultscale := 1;
+	defaultfont := "ccr10";
+    numeric sinthe, costhe, ux, uz, lx, lz, co;
+    costhe = (4*sqrt(5)-sqrt(3))/11;
+    sinthe = sqrt(1-costhe**2);
+    ux = costhe*sqrt(2)/2;
+    uz = sinthe/2;
+    lx = sqrt(4/3)*sinthe;
+    lz = -sqrt(2/3)*costhe;
+    co = sqrt(2)*(2*sqrt(5)+5*sqrt(3))/22;
+    V1 := (ux,0,-uz);
+    V2 := (lx,0,-lz);
+    V3 := (0,ux,uz);
+    V4 := (0,lx,lz);
+    V5 := (co,co,0);
+    V6 := (-ux,0,-uz);
+    V7 := (-lx,0,-lz);
+    V8 := (-co,co,0);
+    makeface1(1,2,3);
+    makeface2(1,2,5);
+    makeface3(2,3,5);
+    makeface4(3,4,5);
+    makeface5(3,4,1);
+    makeface6(1,4,5);
+    makeface7(3,6,7);
+    makeface8(3,7,8);
+    makeface9(6,7,8);
+    makeface10(3,8,4);
+    makeface11(4,6,8);
+    makeface12(3,4,6);
+    Spread := 100;
+%    f := (1,-0.4,3);
+    f := 2*(2,1,2.8);
+    draw_invisible( false, false, TableC6, black );
+%    cartaxes(0.2,0.2,0.2);
+    draw rp(V2)--rp(V1)--rp(V4) dashed evenly;
+    draw rp(V3)--rp(V1)--rp(V5) dashed evenly;
+    draw rp(V6)--rp(V4) dashed evenly;
+    draw rp(V6)--rp(V8) dashed evenly;
+%    pickup pencircle scaled 1pt;
+%    sharpraytrace;
+    label.rt("A", rp(V5) );
+    label.rt("C", rp(V3+(0,0.05,0)) );
+    label.rt("B", rp(V4) );
+    label.rt("D", rp(V8) );
+    label.lft("E", rp(V2) );
+    label.llft("F", rp(V1) );
+    label.lft("G", rp(V7) );
+    label.lft("H", rp(V6) );
+endfig;
+
+verbatimtex \end{document} etex
+
+end;
+