% tropicalglobe.mp % L. Nobre G. % 2003 %input featpost3Dplus2D; beginfig(1); numeric radius, numc; pen thickp; f := (3,0,2); viewcentr := 0.5*(1,1,1); Spread := 20; radius = 1; numc = 18; thickp = pencircle scaled 1mm; drawoptions( withpen thickp ); tropicalglobe( numc, black, radius, blue ); produce_auto_scale; endfig; end;