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
|
% quartertorus.mp
% L. Nobre G.
% 2006
input featpost3Dplus2D;
verbatimtex
\documentclass{article}
\usepackage{mathpazo}
\begin{document}
etex
f := (3,5,2.5);
beginfig(1);
color a, b, c, g;
numeric fac, siz;
fac = 0.05;
siz = 0.3;
g = -green;
a = blue-red;
b = g-fac*a;
c = -a-fac*g;
drawoptions( withpen pencircle scaled 2.5pt );
quartertorus( black, g, a, siz );
quartertorus( black, b, c, siz );
quartertorus( black, green, -red, siz );
quartertorus( -0.7*blue, blue, 0.6red+green, siz );
label( btex $\vec{\Upsilon}$ etex, rp( c ) );
endfig;
verbatimtex
\end{document}
etex
end.
|