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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
% spherample.mp
% L. Nobre G.
% 2002
%input featpost3Dplus2D;
SphericalDistortion := true;
beginfig(1);
color orig, axxc, ayyc, azzc;
color nalfa, gammacnt, vertex;
numeric altura, grids, radius, xxsize, aux,
yysize, zzsize, i, numc, slope;
path sfear;
f := (5,4,2);
Spread := 120;
ShiftV := (200,200);
altura = 1;
radius = 0.3;
grids = 1;
numc = 9;
slope = 3;
for i=1 upto numc:
aux := (i-1-0.5*(numc-1))*grids;
gammacnt := (0,aux,0);
vertex := (aux/slope,aux,altura);
nalfa := vertex - gammacnt;
sfear := rigorousfearpath(gammacnt,radius);
unfill sfear;
draw sfear;
draw spatialhalfcircle(gammacnt,nalfa,radius,true);
endfor;
xxsize = radius;
yysize = 0.5*(numc-1)*grids;
zzsize = altura;
orig = (0,0,0);
axxc = (xxsize,0,0);
ayyc = (0,yysize,0);
azzc = (0,0,zzsize);
% drawarrow rp(orig)..rp(axxc);
% drawarrow rp(orig)..rp(ayyc);
% drawarrow rp(orig)..rp(azzc);
endfig;
end;
|