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
|
% --- start of displayed preamble in the book ---
input featpost3Dplus2D
% --- end of displayed preamble in the book ---
defaultfont:="ptmr8r";
warningcheck:=0;
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= 0.5;
numc= 9;
thickp= pencircle scaled .5;
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;
|