summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/standard/rigorousfearpath.mp
blob: c56ab28f61a0c55e7eecab384e97510886048651 (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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
% rigorousfearpath.mp
% L. Nobre G. 
% 2003

%input featpost3Dplus2D;

beginfig(1);
    numeric sfr, radfac, ind;
    color xv, yv, zv, Ve[];
    path p[];
    f := 2*(5,2,3);
    Spread := 50;
    csr := 0.47;
    clr := 0.57;
    xv := (csr,0,0);
    yv := (0,csr,0);
    zv := (0,0,csr);
    Ve1 := (-1,-1,-1);
    Ve2 := (-1,1,-1);
    Ve3 := (1,-1,-1);
    Ve4 := (1,1,-1);
    Ve5 := (-1,-1,1);
    Ve6 := (-1,1,1);
    Ve7 := (1,-1,1);
    Ve8 := (1,1,1);
    Ve9 := (0,0,0);
    for ind=1 upto 8:
	p[ind] := rigorousfearpath( Ve[ind], csr );
    endfor;
    p9 := rigorousfearpath( Ve9, clr );
    unfill p1;
    draw p1;
    draw rp(Ve1+yv)--rp(Ve2-yv);
    draw rp(Ve1+xv)--rp(Ve3-xv);
    unfill p2;
    draw p2;
    unfill p3;
    draw p3;
    draw rp(Ve4-yv)--rp(Ve3+yv);
    draw rp(Ve4-xv)--rp(Ve2+xv);
    unfill p4;
    draw p4;
    draw rp(Ve1+zv)--rp(Ve5-zv);
    draw rp(Ve2+zv)--rp(Ve6-zv);
    unfill p9;
    draw p9;
    draw rp(Ve3+zv)--rp(Ve7-zv);
    draw rp(Ve4+zv)--rp(Ve8-zv);
    unfill p5;
    draw p5;
    draw rp(Ve5+yv)--rp(Ve6-yv);
    draw rp(Ve5+xv)--rp(Ve7-xv);
    unfill p6;
    draw p6;
    unfill p7;
    draw p7;
    draw rp(Ve8-yv)--rp(Ve7+yv);
    draw rp(Ve8-xv)--rp(Ve6+xv);
    unfill p8;
    draw p8;
endfig;

verbatimtex \end{document} etex

end;