summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/ultraimprovertex.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/ultraimprovertex.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/ultraimprovertex.mp39
1 files changed, 38 insertions, 1 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/ultraimprovertex.mp b/Master/texmf-dist/doc/metapost/featpost/example/ultraimprovertex.mp
index 0c33f09cb57..658682b4582 100644
--- a/Master/texmf-dist/doc/metapost/featpost/example/ultraimprovertex.mp
+++ b/Master/texmf-dist/doc/metapost/featpost/example/ultraimprovertex.mp
@@ -23,4 +23,41 @@ beginfig(1);
endfor;
endfig;
-end. \ No newline at end of file
+beginfig(2);
+ numeric r, i, ste;
+ r = 0.65;
+ ste = 4;
+ color cc, cl, sc, sl, pdir, inip;
+ cl = (3.5*r,0,0);
+ cc = (-2*r,0,-0.5*r);
+ sl = (0,1.9*r,0);
+ sc = (0,0,0.95*r);
+ spheroid( cc, cl, r );
+ spheroid( sc, sl, r );
+ drawoptions( withpen pencircle scaled 3pt );
+ draw for i=ste step ste until 360:
+ hide( pdir := (-sind(i),cosd(i),0); inip := r*(cosd(i),sind(i),0); )
+ rp(necplusimprovertex( black, pdir, cc, cl, r, sc, sl, r, inip ))..
+ endfor cycle;
+endfig;
+
+beginfig(3);
+ numeric r, i, ste;
+ r = 0.65;
+ ste = 4;
+ color cc, cl, sc, sl, pdir, inip;
+ cl = (3*r,0,0);
+ cc = (-1.5*r,0,-0.5*r);
+ sl = (0.7*r,0,0);
+ sc = (0,0,0.5*r);
+ rigorousdisc( 0, true, cc, r, cl);
+ spheroid( sc, sl, r );
+ drawoptions( withpen pencircle scaled 3pt );
+ for i=ste step ste until 360:
+ pdir := (-sind(i),cosd(i),0);
+ inip := r*(cosd(i),sind(i),0);
+ draw rp(ultraimprovertex( black, pdir, cc, r, cl, sc, sl, r, inip ));
+ endfor;
+endfig;
+
+end.