summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/tug04/ellipticprism.mp
blob: 6106c980adfc9520ea809e8188c5130654f13721 (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
% ellipticprism.mp
% L. Nobre G.
% 2004

verbatimtex \documentclass{article}\begin{document}{\sffamily etex

beginfig(1);
  f := (5,3,4);
  numeric labscal;
  picture labsa, labba, labsb, labd, labc;
  labscal = 2;
  ahlength := 8pt;
  ahangle := 30;
  labc = btex $\vec{c}$ etex scaled labscal;
  labsa = btex $\vec{S}_1$ etex scaled labscal;
  labsb = btex $\vec{S}_2$ etex scaled labscal;
  labba = btex $\vec{B}_1$ etex scaled labscal;
  labd= btex $D$ etex scaled labscal;
  drawoptions( withpen pencircle scaled 1.7pt withcolor 0.65blue );
  whatisthis( black, 0.5red, green, 0.85, 0.8 );
  drawoptions( withpen pencircle scaled 1.3pt );
  drawdblarrow rp(black)--rp(0.85blue);
  label.rt( labd, rp(0.4blue) );
  drawarrow rp(black)--rp(0.5red);
  label.ulft( labsa, rp(0.25red) );
  drawarrow rp(black)--rp(green);
  label.top( labba, rp((0,0.5,0)) );
  drawarrow rp(0.85blue)--rp(0.8*0.5*red+0.85blue);
  label.ulft( labsb, rp(0.2red+0.85blue) );
  dotlabel.bot( labc, rp(black) );
endfig;
  
verbatimtex 
\end{document} 
etex

end.