input geometriesyr16; input outilssyr; picture depart; depart=image( figuremainlevee(0,0,11u,8u); trace feuillet withcolor blanc; pair E,F,G; E=u*(2,5); G-E=u*(1.5,1); F=4/3[E,rotation(G,E,90)]; trace triangle(E,F,G); trace codeperp(F,E,G,5); trace appelation(E,G,-2mm,btex 3~cm etex); trace appelation(E,F,2mm,btex 4~cm etex); finmainlevee; ); _nfig:=0; figure(0,0,11u,8u); trace depart; pair A,B,C; A=u*(5,2); B-A=u*(3,0); C-A=u*(0,4); marque_p:="croix"; nomme.llft(A); fin; vues:=5; for k=0 upto vues: figure(0,0,11u,8u); trace depart; nomme.llft(A); trace regle(A,3[A,B],1); trace crayon(A,B,k/vues,1.5); trace segment(A,(k/vues)[A,B]) withpen pencircle scaled 1.5bp; fin; endfor; figure(0,0,11u,8u); trace depart; nomme.llft(A); trace segment(A,B) withpen pencircle scaled 1.5bp; fin; figure(0,0,11u,8u); trace depart; nomme.llft(A); nomme.lrt(B); trace segment(A,B) withpen pencircle scaled 1.5bp; trace crayon(A,B,1,1.5); fin; figure(0,0,11u,8u); trace depart; nomme.llft(A); nomme.lrt(B); trace segment(A,B) withpen pencircle scaled 1.5bp; trace equerre(A,B,A,1,2.5); fin; for k=1 upto vues: figure(0,0,11u,8u); trace depart; nomme.llft(A); nomme.lrt(B); trace segment(A,B) withpen pencircle scaled 1.5bp; trace equerre(A,B,A,1,2.5); trace crayon(A,(1.5*k/vues)[A,C],1,1.5); trace segment(A,(1.5*k/vues)[A,C]) withpen pencircle scaled 1.5bp withcolor gris; fin; endfor; figure(0,0,11u,8u); trace depart; nomme.llft(A); nomme.lrt(B); trace segment(A,B) withpen pencircle scaled 1.5bp; trace demidroite(A,C) withpen pencircle scaled 1.5bp withcolor gris; fin; figure(0,0,11u,8u); trace depart; nomme.llft(A); nomme.lrt(B); trace segment(A,B) withpen pencircle scaled 1.5bp; trace demidroite(A,C) withpen pencircle scaled 1.5bp withcolor gris; path angledroit; angledroit=codeperp(C,A,B,10); trace crayon(A,point(0) of angledroit,1,1.5); fin; figure(0,0,11u,8u); trace depart; nomme.llft(A); nomme.lrt(B); trace segment(A,B) withpen pencircle scaled 1.5bp; trace demidroite(A,C) withpen pencircle scaled 1.5bp withcolor gris; trace subpath(0,1) of angledroit; trace crayon(point(0) of angledroit,point(1) of angledroit,1,1.5); fin; figure(0,0,11u,8u); trace depart; nomme.llft(A); nomme.lrt(B); trace segment(A,B) withpen pencircle scaled 1.5bp; trace demidroite(A,C) withpen pencircle scaled 1.5bp withcolor gris; trace angledroit; trace crayon(point(1) of angledroit,point(2) of angledroit,1,1.5); fin; for k=1 upto vues: figure(0,0,11u,8u); trace depart; nomme.llft(A); nomme.lrt(B); trace regle(A,C,1); trace segment(A,B) withpen pencircle scaled 1.5bp; trace demidroite(A,C) withpen pencircle scaled 1.5bp withcolor gris; trace segment(A,(k/vues)[A,C]) withpen pencircle scaled 1.5bp; trace angledroit; trace crayon(A,(k/vues)[A,C],1,1.5); fin; endfor; figure(0,0,11u,8u); trace depart; nomme.llft(A); nomme.lrt(B); nomme.ulft(C); trace segment(A,B) withpen pencircle scaled 1.5bp; trace demidroite(A,C) withpen pencircle scaled 1.5bp withcolor gris; trace segment(A,C) withpen pencircle scaled 1.5bp; trace angledroit; fin; for k=1 upto vues: figure(0,0,11u,8u); trace depart; nomme.llft(A); nomme.lrt(B); nomme.ulft(C); trace regle(C,B,1); trace segment(A,B) withpen pencircle scaled 1.5bp; trace demidroite(A,C) withpen pencircle scaled 1.5bp withcolor gris; trace segment(A,C) withpen pencircle scaled 1.5bp; trace angledroit; trace crayon(C,(k/vues)[C,B],1,1.5); trace segment(C,(k/vues)[C,B]) withpen pencircle scaled 1.5bp; fin; endfor; for k=1 upto 3: figure(0,0,11u,8u); trace depart; nomme.llft(A); nomme.lrt(B); nomme.ulft(C); trace demidroite(A,C) withpen pencircle scaled 1.5bp withcolor gris; trace angledroit; trace triangle(A,B,C) withpen pencircle scaled 1.5bp; fin; endfor; end