diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/ultraimprovertex.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/ultraimprovertex.mp | 26 |
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 |