summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/standard/geomfiguei.mp
blob: 81abd780492aea7c78e3d1366313888a2e28a2a7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
% geomfiguei.mp
% L. Nobre G. 
% 2002

%input featpost3Dplus2D;

verbatimtex 
\documentclass{article} 
\usepackage{beton} 
\usepackage{concmath} 
\usepackage{ccfonts} 
\begin{document} 
etex

beginfig(1);

    f := 3*(1.2,1.7,0.8);

    Spread := 125;

    color origr, nzero, nothr, ndxyl, vmagf, mfxzp, mfxyp, mfxxp;
    numeric alphan, gamman, thetan, phiang, mfsize, axxc, ayyc, azzc;
    numeric phiarmlen, alphafac;
    axxc = 0.99;
    ayyc = 0.87;      % make this 1.28 when in twist-bend geometry
    azzc = 0.82;
    alphan = 170;     % make this 90 to get the twist-bend geometry
    gamman = 25;
    thetan = 10;
    phiang = 30;
    mfsize = 1.25;
    phiarmlen = 0.75;
    alphafac = 1.4;
    origr = (0,0,0);
    nzero = (cosd(gamman),0,sind(gamman));
    ndxyl = phiarmlen*(cosd(phiang),sind(phiang),0);
    nothr = (cosd(phiang)*cosd(gamman+thetan),
             sind(phiang)*cosd(gamman+thetan),sind(gamman+thetan));
    vmagf = mfsize*(cosd(alphan)*sind(gamman),sind(alphan),
                    -cosd(alphan)*cosd(gamman));
    mfxzp = (X(vmagf),0,Z(vmagf));
    mfxyp = (X(vmagf),Y(vmagf),0);
    mfxxp = (X(vmagf),0,0);
    cartaxes( axxc, ayyc, azzc );
    draw rp(origr)--rp(ndxyl) dashed evenly;
    draw rp(origr)--rp(mfxzp)--rp(vmagf) dashed evenly;
    draw rp(origr)--rp(mfxyp)--rp(vmagf) dashed evenly;
    draw rp(origr)--rp(alphafac*mfxyp) dashed evenly;
    draw rp(mfxzp)--rp(mfxxp)--rp(origr) dashed evenly;
    draw rp(mfxyp)--rp(mfxxp) dashed evenly;
    draw rp((0,0,Z(nothr)))--rp(nothr) dashed evenly;
    angline(nzero,(1,0,0),origr,0.65,btex $\gamma$ etex,lft);
    angline(ndxyl,(1,0,0),origr,0.5,btex $\phi$ etex,llft);
    angline(ndxyl,nothr,origr,0.5,btex $\gamma+\theta$ etex,lft);
    angline(vmagf,(0,0,1),origr,0.5,btex $\beta$ etex,top);     % twist-bend
    angline(mfxyp,(1,0,0),origr,0.8,btex $\alpha$ etex,bot);
    pickup pencircle scaled 1.15pt;
    drawarrow rp(origr)..rp(nzero);
    drawarrow rp(origr)..rp(nothr);
    drawarrow rp(origr)..rp(vmagf);
    label.ulft(btex $\vec{n}_0$ etex,rp(nzero));
    label.ulft(btex $\vec{n}$ etex,rp(nothr));
    label.urt(btex $\vec{H}$ etex,rp(vmagf));
endfig;

verbatimtex 
\end{document} 
etex

end;