summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/mysquaresectionbar.mp
blob: 0eeec52ecf32433f828251dd92d4b2f30ee76ed1 (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
% 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;