diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/mp3d/gutmp8-eng.mp')
| -rw-r--r-- | Master/texmf-dist/doc/metapost/mp3d/gutmp8-eng.mp | 120 |
1 files changed, 120 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/mp3d/gutmp8-eng.mp b/Master/texmf-dist/doc/metapost/mp3d/gutmp8-eng.mp new file mode 100644 index 00000000000..b46031931b9 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/mp3d/gutmp8-eng.mp @@ -0,0 +1,120 @@ +% D. Roegel, 7 January 2001 +% roegel@loria.fr + +verbatimtex +%&latex +\documentclass{article} +\begin{document} +etex + +input 3danim +input 3dgeom +output_res:=72; +drawing_scale:=8cm; + +numeric lsa,lsb,lsc,aasc,aasb,absc; +lsa=9;lsb=8;lsc=4;aasc=60;aasb=40;absc=30; + +vardef def_T(expr inst)= + new_obj_points(inst,19); % 19 points + set_T_points(inst); +enddef; + +vardef set_T_points(expr inst)= + save hp,kp,sa,sc,op,oab,inter; + set_point(1)(0,0,0); % S + set_point(2)(lsa,0,0); % A + set_point(4)(lsc*cosd(aasc),lsc*sind(aasc),0); % C + vec_diff(5,2,1); + vec_unit(5,5); + vec_mult(5,5,lsb*cosd(aasb)); + vec_sum(5,5,1); + vec_diff(6,4,1); + vec_unit(6,6);vec_mult(6,6,lsb*cosd(absc)); + vec_sum(6,6,1); + new_plane(hp)(1,1,1); + new_plane(kp)(1,1,1); + new_line(sa)(1,2); + new_line(sc)(1,4); + new_line(inter)(1,1); + + def_orth_pl_l_p(hp)(sa)(5); + def_orth_pl_l_p(kp)(sc)(6); + if def_inter_l_pl_pl(inter)(hp)(kp): % there is an intersection + if def_point_at(3,-lsb,1)(inter): + else: + message "PROBLEM 1"; + fi; + new_plane(sac)(1,2,4); + if def_inter_p_l_pl(13)(inter)(sac): else: message "PROBLEM";fi; + free_plane(sac); + else: + message "PROBLEM"; + set_point(3)(1,1,1); + fi; + def_right_angle(7,8,9,5,1,3); + def_right_angle(10,11,12,6,1,3); + free_line(inter);free_line(sc);free_line(sa); + free_plane(kp);free_plane(hp); + set_point(14)(-2,-2,0); + set_point(15)(11,-2,0); + set_point(16)(11,10,0); + set_point(17)(-2,10,0); + if def_visual_inter(18)(15,16,2,3): + else: + message "PROBLEM"; + fi; + if def_visual_inter(19)(15,16,3,4): + else: + message "PROBLEM"; + fi; +enddef; + +vardef draw_T(expr inst)= + draw_line(1,2);draw_line_extra(1,4)(-.1,2);draw_line(1,3); + draw_line(2,3);draw_line(3,4); + draw_line_extra(3,13)(-0.5,1); + drawoptions(dashed evenly);draw_line(2,4); + draw_line(3,5);draw_line(3,6); + draw_line_extra(3,13)(1,2); + drawoptions(); + draw_double_right_angle(7,8,9,5); + draw_double_right_angle(10,11,12,6); + draw_line(14,15); + %draw_line(15,16); + draw_line(15,18);draw_line(19,16); + draw_line(16,17);draw_line(17,14); + drawoptions(dashed evenly); + draw_line(18,19); + pickup pencircle scaled .4pt;drawoptions(); + label_obj.bot(btex $S$ etex,1); + label_obj.rt(btex $A$ etex,2); + label_obj.ulft(btex $B$ etex,3); + label_obj.llft(btex $C$ etex,4); + label_obj.bot(btex $p_1$ etex,14); + label_obj.rt(btex $p_2$ etex,15); + label_obj.ulft(btex $p_3$ etex,16); + label_obj.llft(btex $p_4$ etex,17); + +enddef; + +square_angle_size:=0.35; +assign_obj("tetra","T"); + + +%for i:=0 upto 20: +i=0; + beginfig(100+i); + % Observator + set_point_(Obs)(20*cosd(3.6*i-150),20*sind(3.6*i-150),6); + reset_obj("tetra"); % so that |Obs| is taken into account + Obs_phi:=90;Obs_dist:=2;point_of_view_obj("tetra",1,Obs_phi); + draw_obj("tetra"); + endfig; +%endfor; + +end. + + + + |