diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/mp3d/examples/cube8.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/mp3d/examples/cube8.mp | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/mp3d/examples/cube8.mp b/Master/texmf-dist/doc/metapost/mp3d/examples/cube8.mp new file mode 100644 index 00000000000..f555a2637cb --- /dev/null +++ b/Master/texmf-dist/doc/metapost/mp3d/examples/cube8.mp @@ -0,0 +1,48 @@ +% D. Roegel January 2001 +% roegel@loria.fr + +% oblique projections + +input 3danim +output_res:=72; +drawing_scale:=3cm; + +projection_type:=2; + +%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_lines(5,6,8,7,5); + draw_line(1,5);draw_line(2,6);draw_line(3,7);draw_line(4,8); +enddef; + +assign_obj("cube","C"); + +for i:=0 upto 20: + beginfig(100+i); + % 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; +endfor; + +end. + + + + |