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.mp26
1 files changed, 26 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/ultraimprovertex.mp b/Master/texmf-dist/doc/metapost/featpost/example/ultraimprovertex.mp
new file mode 100644
index 00000000000..0c33f09cb57
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/ultraimprovertex.mp
@@ -0,0 +1,26 @@
+% ultraimprovertex.mp
+% L. Nobre G.
+% 2012
+
+input featpost3Dplus2D;
+
+beginfig(1);
+ 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,1.7*r,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. \ No newline at end of file