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
27
28
29
30
31
32
|
% globe.mp
% L. Nobre G.
% 2003
%input featpost3Dplus2D;
beginfig(1);
color gammacnt;
numeric newradius, radius, aux, i, numc, foc, lc;
path conepath, latpath;
pen thickp;
f := (2,3,4);
viewcentr := 1.5*(1,1,1);
Spread := 200;
Shifts := 300;
radius = 1;
numc = 9;
thickp = pencircle scaled 1mm;
pickup thickp;
tropicalglobe( numc, black, radius, blue );
for i=1 upto numc: % longitudes
aux := (i-1)*180/numc;
gammacnt := (cosd(aux),sind(aux),0);
draw spatialhalfcircle(black,gammacnt,radius,true);
endfor;
endfig;
end;
|