summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/ultraimprovertex.mp
blob: 0c33f09cb5700d6a5dfea62f3d02f6917f99b75c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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.