summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/planphtnonrec.mp
blob: 745917b72402962881b932d355a4d6f59e0adafb (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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
% planphtnonrec.mp
% L. Nobre G.
% 2006
% Test one figure at a time.  

input featpost3Dplus2D;

% verbatimtex \documentclass{article} \usepackage{beton} \usepackage{concmath} \usepackage{ccfonts} \begin{document} etex

%	truefyepsmode;

beginfig(1); % phtnonrec
    numeric tro;
    pen fina, media, grossa;
    color mygray;
    tro = 2;
    V1 := (tro,0,0);
    V2 := (0,tro,0);
    V3 := (-tro,0,0);
    V4 := (0,-tro,0);
    V5 := (1,1,1);
    V6 := (-1,1,1);
    V7 := (-1,-1,1);
    V8 := (1,-1,1);
    V9 := (1,1,-1);
    V10 := (-1,1,-1);
    V11 := (-1,-1,-1);
    V12 := (1,-1,-1);
    V13 := (0,0,tro);
    V14 := (0,0,-tro);
    V15 := (tro,0,tro);
    V16 := (0,tro,tro);
    V17 := (tro,tro,0);
    V18 := (tro,0,-tro);
    V19 := (tro,-tro,0);
    V20 := (0,-tro,tro);
    V21 := (-tro,0,tro);
    V22 := (-tro,tro,0);
    V23 := (0,tro,-tro);
    V24 := (-tro,0,-tro);
    V25 := (0,-tro,-tro);
    V26 := (-tro,-tro,0);
    V27 := (-2*tro,-tro,-tro);
    V28 := (-2*tro,-tro,tro);
    V29 := (-2*tro,tro,tro);
    V30 := (-2*tro,tro,-tro);
    makeface1(1,5,13,8);
    makeface2(2,6,13,5);
    makeface3(3,7,13,6);
    makeface4(4,8,13,7);
    makeface5(1,5,2,9);
    makeface6(2,6,3,10);
    makeface7(3,7,4,11);
    makeface8(4,8,1,12);
    makeface9(1,9,14,12);
    makeface10(2,10,14,9);
    makeface11(3,11,14,10);
    makeface12(4,12,14,11);

    makeface13(27,28,29,30);
    makeface14(20,21,16,29,28);
    makeface15(23,24,25,27,30);
    makeface16(16,22,23,30,29);
    makeface17(25,27,28,20,26);
    makeface18(21,22,24,26);
    makeface19(20,21,26);
    makeface20(16,21,22);
    makeface21(22,23,24);
    makeface22(24,25,26);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
%    f := 2*(5,3,1.5);
%    f := 2*(5,3,4);
    f := 2.34*(15,2.4,5.05);
    Spread := 50;
    fina  = pencircle scaled 1pt;
    media = pencircle scaled 1.2pt;
    grossa= pencircle scaled 3pt;
    mygray = 0.3white;
%    pickup fina;
%    draw rp(V25)--rp(V27)--rp(V28)--rp(V20)--
%         rp(V25)--rp(V23)--rp(V30)--rp(V27);
    pickup media;
    draw rp(V24)--rp(V25)--rp(V19)--rp(V20)--
         rp(V26)--rp(V25)--rp(V18)--rp(V23)--
         rp(V24)--rp(V26)--rp(V21)--rp(V22)--cycle withcolor mygray;
    drawoptions( withpen grossa );
    draw_invisible( false, false, white, black );
%    face_invisible( 14, withpen grossa );
%    face_invisible( 16, withpen grossa );
    pickup media;
    draw rp(V15)--rp(V16)--rp(V22)--rp(V23)--
         rp(V17)--rp(V16)--rp(V21)--rp(V20)--
         rp(V15)--rp(V17)--rp(V18)--rp(V19)--cycle withcolor mygray;
%    pickup fina;
%    draw rp(V28)--rp(V29)--rp(V30);
%    draw rp(V20)--rp(V16)--rp(V23);
%    draw rp(V16)--rp(V29);

endfig;

% verbatimtex \end{document} etex

end;