% D. Roegel, 7 January 2001
% [email protected]

verbatimtex
%&latex
\documentclass{article}
\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

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.