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
|
% conegetready.mp
% L. Nobre G.
% 2004
input featpost3Dplus2D;
beginfig(1);
numeric radiusin, fac, i, xcoor, ycoor, radc, numc, baz;
color refvec;
string rv, mrv, vgc, stra, strb, lrv;
f := (5,0.3,1.5);
Spread := 70;
radiusin = 0.3;
baz = 0.08;
fac = 3;
numc = 9;
radc = (fac-1)*radiusin*sind(180/numc);
i = 155;
xcoor := -radiusin*cosd(i);
ycoor := radiusin*sind(i);
refvec := (xcoor,-ycoor,baz);
rv := cstr( refvec );
mrv := cstr( -refvec );
lrv := cstr( (2*fac-1)*refvec );
vgc :="verygoodcone(true,fac*";
stra := vgc & rv & "," & mrv & "," & decimal(radc) & "," & rv & ")";
getready( stra, 0.5*(fac+1)*refvec );
strb := vgc & rv & "," & rv & "," & decimal(radc) & "," & lrv & ")";
getready( strb, 0.5*(3*fac-1)*refvec );
doitnow;
produce_vga_border;
endfig;
end;
|