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.mp55
1 files changed, 48 insertions, 7 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/quartertorus.mp b/Master/texmf-dist/doc/metapost/featpost/example/quartertorus.mp
index b979b7f26f1..0d2ca4da098 100644
--- a/Master/texmf-dist/doc/metapost/featpost/example/quartertorus.mp
+++ b/Master/texmf-dist/doc/metapost/featpost/example/quartertorus.mp
@@ -1,9 +1,11 @@
% quartertorus.mp
% L. Nobre G.
-% 2006
+% 2012
input featpost3Dplus2D;
+prologues := 3;
+
verbatimtex
\documentclass{article}
\usepackage{mathpazo}
@@ -13,20 +15,59 @@ etex
f := (3,5,2.5);
beginfig(1);
- color a, b, c, g;
- numeric fac, siz;
+ color a, b, c, g, h, i, j, l, m, n;
+ numeric fac, siz, s;
fac = 0.05;
siz = 0.3;
- g = -green;
+ s = 2;
a = blue-red;
b = g-fac*a;
c = -a-fac*g;
+ g = -green;
+ h = 2*g;
+ i = red+g;
+ j= -red;
+ l = blue;
+ m = 0.6red-g;
+ n = -0.7*blue;
drawoptions( withpen pencircle scaled 2.5pt );
+ quartertorus( black, h, i, siz );
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 ) );
+ quartertorus( black, -g, j, siz );
+ quartertorus( n, l, m, siz );
+ label( btex $a$ etex scaled s, rp( a ) );
+ label.llft( btex $b$ etex scaled s, rp( b ) );
+ label( btex $c$ etex scaled s, rp( c ) );
+ label.urt( btex $g$ etex scaled s, rp( g ) );
+ label( btex $-g$ etex scaled s, rp( -g ) );
+ label( btex $h$ etex scaled s, rp( h ) );
+ %label( btex $i$ etex scaled s, rp( i ) );
+ label( btex $j$ etex scaled s, rp( j ) );
+ label( btex $l$ etex scaled s, rp( l+n ) );
+ label( btex $m$ etex scaled s, rp( m+n ) );
+endfig;
+
+beginfig(2);
+ color col[];
+ numeric ray, ang, len, bigray;
+ ray = 0.15;
+ bigray = 0.4;
+ ang = 60;
+ len = 0.7;
+ col1 = (-(ray+bigray)/cosd(ang),0,0);
+ col2 = (bigray*cosd(ang),0,bigray*sind(ang));
+ col3 = (bigray*cosd(ang),0,-bigray*sind(ang));
+ col4 = ((ray+bigray)*cosd(ang),0,(ray+bigray)*sind(ang));
+ col5 = ((ray+bigray)*cosd(ang),0,-(ray+bigray)*sind(ang));
+ col6 = (-len*sind(ang),0,len*cosd(ang));
+ col7 = (-len*sind(ang),0,-len*cosd(ang));
+ col8 = col1+col4+col6;
+ col9 = col1+col5+col7;
+ rigorousdisc( 0, true, col1+col3, ray, col7 );
+ rigorousdisc( 0, true, col1+col2, ray, col6 );
+ quartertorus( col1, col3, col2, ray );
+ draw rp(col9)--rp(black)--rp(col8);
endfig;
verbatimtex