input geometriesyr16; u:=5mm; figure(0,0,13u,8u); pair A,B,C; A=u*(1,1); B-A=u*(0,5); C=demidroite(A,rotation(B,A,-90)) intersectionpoint cercles(B,12u); trace triangle(A,B,C); trace codeperp(B,A,C,5); trace segment(A,iso(B,C)) dashed evenly; trace appelation(A,B,2mm,btex 5~cm etex); trace appelation(A,iso(B,C),4mm,btex 6~cm etex); trace Codelongueur(A,iso(B,C),B,iso(B,C),iso(B,C),C,2); trace coupdecompas(B,C,10); fin; figure(0,0,13u,8u); pair A,B,C,I; A=u*(1,1); B-A=u*(0,5); I=demidroite(A,rotation(B,A,-90)) intersectionpoint cercles(B,6u); C=symetrie(A,I); trace triangle(A,B,C); trace segment(B,I) dashed evenly; trace codeperp(B,A,C,5); trace Codelongueur(A,I,I,C,2); trace coupdecompas(B,I,10); trace appelation(A,B,2mm,btex 5~cm etex); trace appelation(B,I,2mm,btex 6~cm etex); fin; figure(0,0,13u,8u); pair A,B,C,I; A=u*(1,1); B-A=u*(0,5); I=iso(A,B); C=demidroite(A,rotation(B,A,-90)) intersectionpoint cercles(I,6u); trace triangle(A,B,C); trace segment(C,I) dashed evenly; trace codeperp(B,A,C,5); trace Codelongueur(A,I,I,B,2); trace coupdecompas(I,C,10); trace appelation(A,B,2mm,btex 5~cm etex); trace appelation(I,C,2mm,btex 6~cm etex); fin; end