summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/4-6-1.mp
blob: 9ff276a724320219d0a894cb2d3afbb57ff06868 (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
% --- 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;