summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/standard/globe.mp
blob: 22d0cf2bee166007b32498a3a2c6b88b29a739e1 (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
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;