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 | 39 |
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. |