summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/repeated/conegetready.mp
blob: 17e7fea51b37b3a0b6148f9f372cca39b78b593f (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
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;