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
|
% mysquaresectionbar.mp
% L. Nobre G.
% 2006
input featpost3Dplus2D;
% bash: export TEX=latex
% tcsh: setenv TEX latex
prologues := 1;
f := (3.5,3,2.5);
Spread := 175;
beginfig(1);
numeric alfa, beta;
alfa = 22.62;
kindofcube(false,false,(-0.65,0,-0.6), 90,0,0,1.35,0.05,0.05);
kindofcube(false,false,(-0.65,0,0.6), 90,0,0,0.35,0.05,0.05);
kindofcube(false,false,(-0.6,-0.4,0), 90,90-alfa,0,1.35,0.05,0.05);
kindofcube(false,false,(-0.6,0.4,0), 90,90+alfa,0,1.35,0.05,0.05);
kindofcube(false,false,(-0.6,-0.05,0.05),0,90,0,1.35,0.05,0.05);
kindofcube(false,false,(0.6,-0.05,0.05), 0,90,0,1.35,0.05,0.05);
kindofcube(false,false,(0,0,-0.3), 0,alfa,0,1.35,0.05,0.05);
kindofcube(false,false,(0,0,0.3), 0,-alfa,0,1.35,0.05,0.05);
kindofcube(false,false,(0.6,-0.4,0), 90,90-alfa,0,1.35,0.05,0.05);
kindofcube(false,false,(0.6,0.4,0), 90,90+alfa,0,1.35,0.05,0.05);
kindofcube(false,false,(0.65,0,-0.6), 90,0,0,1.35,0.05,0.05);
kindofcube(false,false,(0.65,0,0.6), 90,0,0,0.35,0.05,0.05);
kindofcube(false,false,(0,0,0.65), 0,0,0,1.35,0.05,0.05);
endfig;
end;
|