summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/repeated/rigorcubo.mp
blob: 831861fc9b6e7e2eec396619f3dff5362833151f (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
% rigorcubo.mp
% L. Nobre G. 
% 2003

%input featpost3Dplus2D;

beginfig(0); 	
	defaultscale := 3;
	defaultfont := "ccr10";
    Spread := 50;
    V1 := (1,1,1);
    V2 := (-1,1,1);
    V3 := (-1,-1,1);
    V4 := (1,-1,1);
    V5 := (1,1,-1);
    V6 := (-1,1,-1);
    V7 := (-1,-1,-1);
    V8 := (1,-1,-1);
    makeface1(1,2,3,4);
    makeface2(5,6,7,8);
    makeface3(1,2,6,5);
    makeface4(2,3,7,6);
    makeface5(3,4,8,7);
    makeface6(4,1,5,8);
    f := (3,5,3);
    pickup pencircle scaled 1pt;
    sharpraytrace;
    label.lft("A", rp(V8) );
    label.top("B", rp(V1) );
    label.top("C", rp(V3) );
    label.lft("D", rp(V4) );
    label.rt("E", rp(V2) );
    label.rt("F", rp(V6) );
endfig;

end;