% 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;
