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

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

beginfig(1);
  f := (5,3,4);
  numeric labscal;
  picture labr, labc, laba, labv;
  labscal = 2;
  ahlength := 8pt;
  ahangle := 30;
  labc = btex $\vec{c}$ etex scaled labscal;
  laba = btex $\vec{A}$ etex scaled labscal;
  labr = btex $R$ etex scaled labscal;
  labv = btex $\vec{v}$ etex scaled labscal;
  drawoptions( withpen pencircle scaled 1.7pt withcolor 0.65blue );
  verygoodcone(true,black,blue,0.8,blue+green);
  drawoptions( withpen pencircle scaled 1.3pt );
  draw rp(black)--rp(green)--rp(blue+green) dashed evenly;
  drawdblarrow rp(black)--rp(0.8green);
  label.urt( labr, rp(0.4green) );
  drawarrow rp(black)--rp(0.45*blue);
  label.rt( laba, rp((0,0,0.25)) );
  dotlabel.llft( labc, rp(black) );
  dotlabel.rt( labv, rp(blue+green) );

endfig;
  
verbatimtex 
\end{document} 
etex

end.