summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/mp3d/cube9.mp
blob: 1e52203a811a17b017ababc3c024d4f1405b1865 (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
% Cube projections
% D. Roegel 23 January 2001
% roegel@loria.fr


input 3danim
output_res:=72;
drawing_scale:=2cm;

projection_type:=1;

%set_plane_(projection_plane)(point_null,vec_I,vec_J);
%set_plane_(projection_plane)(point_null,vec_I,vec_K);

vardef def_C(expr inst)=
  new_obj_points(inst,8); % 8 points
  set_C_points(inst);
enddef;

vardef set_C_points(expr inst)=
  set_point(1)(0,0,0);set_point(2)(0,0,1);
  set_point(3)(0,1,0);set_point(4)(0,1,1);
  set_point(5)(1,0,0);set_point(6)(1,0,1);
  set_point(7)(1,1,0);set_point(8)(1,1,1);
enddef;

vardef draw_C(expr inst)=
  draw_lines(1,2,4,3,1);
  draw_line(2,6);draw_line(4,8);draw_line(1,5);
  draw_lines(5,6,8);
  drawoptions(dashed evenly);
  draw_line(3,7);draw_lines(8,7,5);
  drawoptions();
enddef;

assign_obj("cube","C");

% Trimetric projection
i:=67;
beginfig(167);
  % Observator
  set_point_(Obs)(20*cosd(3.6*i),20*sind(3.6*i),6);
  Obs_phi:=90;Obs_dist:=2;point_of_view_obj("cube",8,Obs_phi);
  draw_obj("cube"); 
endfig;

% Isometric projection
isometric_projection(vec_I,vec_J,vec_K,pnt_obj("cube",8),Obs_dist,90);
  
beginfig(168);
  draw_obj("cube"); 
endfig;

% Dimetric projection  
dimetric_projection(vec_I,vec_J,vec_K,0.5,pnt_obj("cube",8),3*Obs_dist,90);
  
beginfig(169);
  draw_obj("cube"); 
endfig;
 
end.