summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/quartertorus.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/quartertorus.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/quartertorus.mp36
1 files changed, 36 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/quartertorus.mp b/Master/texmf-dist/doc/metapost/featpost/example/quartertorus.mp
new file mode 100644
index 00000000000..b979b7f26f1
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/quartertorus.mp
@@ -0,0 +1,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. \ No newline at end of file