1 files changed, 104 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/standard/geommine.mp b/Master/texmf-dist/doc/metapost/featpost/example/standard/geommine.mp
new file mode 100644
index 00000000000..939fc35ed94
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/standard/geommine.mp
@@ -0,0 +1,104 @@
+% geommine.mp
+% L. Nobre G. 
+% 2002
+
+%input featpost3Dplus2D;
+
+verbatimtex 
+\documentclass{article} 
+\usepackage{beton} 
+\usepackage{concmath} 
+\usepackage{ccfonts} 
+\usepackage{bbold}
+\begin{document} 
+etex
+
+beginfig(1);
+
+    beta := 15;
+    alpha := 40;
+    psi := 26;
+    theta := 32;
+    phi := -33;
+    h := 1.35;
+    v := 0.4;
+    xlen := 1.2;
+    ylen := 0.65;
+    phirad := 0.67;
+
+    f := (3,5,3);
+    Spread := 100;
+
+    color c[], n[], H, h[], Vel, xloc, yloc, vx, vy;
+    c0 := (0,0,0);
+    cartaxes(xlen,ylen,1.0);
+    n0 := (cosd(beta),0,sind(beta));
+    n3 := (0,sind(phi),0);
+    n2 := n0 + n3;
+    n5 := n3 + cosd(phi)*n0;
+    n4 := cosd(theta)*n5;
+    Fx:=sind(alpha)*cosd(beta)-cosd(alpha)*cosd(psi)*sind(beta);
+    Fy:=cosd(alpha)*sind(psi);
+    Fz:=sind(alpha)*sind(beta)+cosd(alpha)*cosd(psi)*cosd(beta);
+    nx:=cosd(theta)*cosd(phi)*cosd(beta)-sind(theta)*sind(beta);
+    ny:=cosd(theta)*sind(phi);
+    nz:=cosd(theta)*cosd(phi)*sind(beta)+sind(theta)*cosd(beta);
+    n1 := (nx,ny,nz);
+    xloc := xlen*n1;
+    yloc := ylen*(-greenpart n1,redpart n1,0); 
+    H := h*(Fx,Fy,Fz);
+    Vel := v*(Fx,Fy,Fz);
+    vx := v*sind(phi)*n1;
+    vy := v*cosd(phi)*N(yloc);
+    h4 := h*sind(phi)*n1;
+    h5 := h*cosd(phi)*N(yloc);
+    h2 := (-h*sind(beta)*cosd(alpha)*cosd(psi),
+           0,
+           h*cosd(beta)*cosd(alpha)*cosd(psi));
+    h3 := (0,h*cosd(alpha)*sind(psi),0);
+    h1 := h2 + h3;
+    draw rp(n0)--rp(n2)--rp(n3)--rp(c0);
+    draw rp(c0)--rp(n4)--rp(n1);
+    draw rp(n5)--rp(n4);
+    draw rp(c0)--rp(h2)--rp(h1)--rp(h3)--cycle;
+    draw rp(c0)--rp(h1)--rp(H);
+%    draw rp(h4)--rp(H)--rp(h5);
+    label.llft(btex $\vec{n}_0$ etex,rp(n0));
+    label.urt(btex $\vec{n}$ etex,rp(n1));
+    label.llft(btex $\vec{H}$ etex,rp(H));
+%    label.urt(btex $\vec{v}$ etex,rp(Vel));
+%    label.bot(btex $\mathbb{x}$ etex,rp(xloc));
+%    label.bot(btex $\mathbb{y}$ etex,rp(yloc));
+%    label.lrt(btex $\vec{v}_\mathbb{x}$ etex,rp(vx));
+%    label.urt(btex $\vec{v}_\mathbb{y}$ etex,rp(vy));
+%    label.lft(btex $\vec{H}_\mathbb{x}$ etex,rp(h4));
+%    label.urt(btex $\vec{H}_\mathbb{y}$ etex,rp(h5));
+%    pickup pencircle scaled 1pt;
+    angline(n0,n5,c0,phirad,btex $\phi$ etex,lft);
+%    angline((0,1,0),yloc,c0,phirad,btex $\phi$ etex,rt);
+    angline(h2,h1,c0,0.5,btex $\psi$ etex,urt);
+    angline(H,h1,c0,0.9,btex $\alpha$ etex,top);
+    angline(n5,n1,c0,0.6,btex $\theta$ etex,ulft);
+    angline((0,0,1),h2,c0,0.5,btex $\beta$ etex,top);
+    angline((1,0,0),n0,c0,0.6,btex $\beta$ etex,rt);
+%    drawarrow rp(c0)..rp(xloc);
+%    drawarrow rp(c0)..rp(yloc);
+    pickup pencircle scaled 1.3pt;
+    drawarrow rp(c0)..rp(n0);
+    drawarrow rp(c0)..rp(n1);
+    drawarrow rp(c0)..rp(H);
+%    drawarrow rp(c0)..rp(Vel);
+%    drawarrow rp(c0)..rp(vx);
+%    drawarrow rp(c0)..rp(vy);
+%    drawarrow rp(c0)..rp(h4);
+%    drawarrow rp(c0)..rp(h5);
+endfig;
+
+verbatimtex \end{document} etex
+
+end;
+
+
+
+
+