summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/mp3d/examples/gutmp9.mp
blob: a419516aff4dce7e61e6ac11b094280041a72700 (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
% D. Roegel, 9 January 2001
% roegel@loria.fr

input 3danim
input 3dgeom
output_res:=72;
drawing_scale:=15cm;

vardef def_T(expr inst)=
  new_obj_points(inst,12); % 12 points
  set_T_points(inst);
enddef;

vardef set_T_points(expr inst)=
  set_point(1)(0,0,0);
  set_point(2)(1,0,0);
  set_point(3)(1,1,0);
  set_point(4)(0,1,0);
  set_point(5)(0,0,1);
  set_point(6)(1,0,1);
  set_point(7)(1,1,1);
  set_point(8)(0,1,1);
  new_vec(v);
  vec_diff_(v,pnt(1),pnt(4));
  vec_sum_(pnt(9),pnt(1),v);
  mid_point(10,1,2);
  vec_sum_(pnt(11),pnt(2),v);
  mid_point(12,7,8);
enddef;

vardef draw_T(expr inst)=
  draw_line(1,2);draw_line(2,3);
  draw_line(5,6);draw_line(6,7);draw_line(7,8);draw_line(8,5);
  draw_line(1,5);draw_line(2,6);draw_line(3,7);
  draw_line(9,10);draw_line(10,11);draw_line(11,9);
  draw_line(5,12);draw_line(12,6);draw_line(6,5);
  drawoptions(dashed evenly);
  draw_line(3,4);draw_line(4,1);draw_line(4,8);
  draw_line(5,9);draw_line(10,12);draw_line(6,11);
  drawoptions();
  fill z[ipnt_(9)]--z[ipnt_(10)]--z[ipnt_(11)]--cycle withcolor 0.8white;
  fill z[ipnt_(5)]--z[ipnt_(12)]--z[ipnt_(6)]--cycle withcolor 0.8white;
  draw_equal_marks(1,4,2);
  draw_equal_marks(1,5,2);
enddef;

assign_obj("tetra","T");

%for i:=0 upto 30:
i=23;
  beginfig(100+i);
    % Observator
    set_point_(Obs)(10*cosd(3.6*i-150),10*sind(3.6*i-150),3);
    Obs_phi:=90;Obs_dist:=2;point_of_view_obj("tetra",1,Obs_phi);
    draw_obj("tetra"); 
  endfig;
%endfor;

end.