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
50
51
52
53
54
55
56
57
|
% bughunt.mp
% L. Nobre G.
% 2003
input featpost3Dplus2D;
%SphericalDistortion := true;
%f := 0.3*(5,4,2);
%Spread := 40;
%ShiftV := (200,200);
SphericalDistortion := false;
f := 3.3*(5,4,2);
Spread := 70;
ShiftV := (250,250);
beginfig(1);
color nalfa, gammacnt, vertex;
numeric altura, grids, radius, aux, i, numc, slope;
altura = 1;
radius = 0.3;
grids = 1;
numc = 8;
slope = 15;
for i=1 upto numc:
aux := (i-1-0.5*(numc-1))*grids;
gammacnt := (0,aux,0);
vertex := gammacnt+0.1*(f-gammacnt)+(0,0,aux/slope);
nalfa := vertex - gammacnt;
rigorousdisc( 0, true, gammacnt, radius, nalfa );
endfor;
endfig;
beginfig(2);
path cpath;
color vert;
numeric i;
f := (4,0,0.5);
vert = 0.5*(0,1,1);
cpath = rigorouscone(true, black, blue, 1, vert);
% draw rp(vert);
draw cpath; show length cpath;
for i=0 upto length cpath:
dotlabel.top( decimal(i),point i of cpath);
endfor;
% cpath := rigorouscircle( black, blue, 1);
% draw cpath;
% for i=0 upto length cpath:
% dotlabel.bot( decimal(i),point i of cpath);
% endfor;
endfig;
end;
|