diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/mp3d/gutmp1.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/mp3d/gutmp1.mp | 76 |
1 files changed, 76 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/mp3d/gutmp1.mp b/Master/texmf-dist/doc/metapost/mp3d/gutmp1.mp new file mode 100644 index 00000000000..82a76d2c042 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/mp3d/gutmp1.mp @@ -0,0 +1,76 @@ +% D. Roegel, 7 January 2001 +% roegel@loria.fr + +verbatimtex +%&latex +\documentclass{article} +\usepackage{mathpple} +\begin{document} +etex + +input 3danim +input 3dgeom +output_res:=72; +drawing_scale:=7cm; + +numeric b,c,d,e;b=70;c=0;d=20;e=50; % parameterized angles + +vardef def_T(expr inst)= + new_obj_points(inst,6); % 6 points + set_T_points(inst); +enddef; + +vardef set_T_points(expr inst)= + set_point(1)(0,0,0); + set_point(2)(3*cosd(b),3*sind(b),0); + set_point(3)(6*cosd(c),6*sind(c),0); + new_vec(v_a);new_vec(v_b); + vec_def_vec_(v_a,vec_I); + vec_rotate_(v_a,vec_K,d); + vec_prod_(v_b,v_a,vec_K); + vec_rotate_(v_a,v_b,e); + vec_mult_(v_a,v_a,4.5); + vec_sum_(pnt(4),pnt(1),v_a); + free_vec(v_b);free_vec(v_a); + % Determination of I and J: + % I=A + unit(AB) + vec_diff(5,2,1); + vec_unit(5,5); + vec_sum(5,5,1); + % J=A + 4*unit(AC) + vec_diff(6,3,1); + vec_unit(6,6); + vec_mult(6,6,4); + vec_sum(6,6,1); + +enddef; + +vardef draw_T(expr inst)= + drawoptions(dashed evenly); + draw_line(1,2);draw_line(1,3);draw_line(1,4); + drawoptions(); + draw_line(2,3);draw_line(2,4);draw_line(3,4); + pickup pencircle scaled 2pt; + draw_line(5,5);draw_line(6,6); + label_obj.ulft(btex $A_1$ etex,1); + label_obj.rt(btex $B_2$ etex,2); + label_obj.lft(btex $C_3$ etex,3); + label_obj.top(btex $D_4$ etex,4); + label_obj.top(btex $I_5$ etex,5); + label_obj.top(btex $J_6$ etex,6); + +enddef; + +assign_obj("tetra","T"); + +%for i:=0 upto 20: +i=8; + 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("tetra",1,Obs_phi); + draw_obj("tetra"); + endfig; +%endfor; + +end |