input geometriesyr; figure(0,0,5u,5u); pair A,C,P,K,R,F; A=u*(0.75,0.75); C=u*(4.25,0.75); P=(xpart(iso(A,C)),4.25u); F=(xpart(iso(A,C)),1.5u); K=1.4/2[P,C]; R=1.4/2[P,F]; trace A--F--C--P--cycle; trace K--R--symetrie(K,P,R); trace codeperp(A,P,C,5); trace A--C dashed evenly; trace F--iso(A,C) dashed evenly; nomme.llft(A); nomme.lrt(C); nomme.urt(K); nomme.urt(F); nomme.urt(R); nomme.top(P); fin; figure(0,0,5u,10u); pair E,K,D,S,B,H,A; S=u*(2.5,0.75); K-S=u*(0,3); H-S=u*(0,7); path cc,cd,ce,cf; cc=cercles((0,0),1.75u); cd=cc yscaled 0.15 shifted H; ce=cercles((0,0),1.75*u*abs(S-K)/abs(S-H)); cf=ce yscaled 0.15 shifted K; B=point(0) of cd; A=symetrie(B,H); D=point(0) of cf; E=symetrie(D,K); path pommeau; pommeau=arccercle(B,A,H)--E--(subpath(length cf/2,length cf) of cf)--B--cycle; fill pommeau withcolor gris; trace pommeau; trace subpath(length cd/2,length cd) of cd; fin; figure(0,0,5u,10u); pair E,K,D,S,B,H,A; S=u*(2.5,0.75); K-S=u*(0,3); H-S=u*(0,7); path cc,cd,ce,cf; cc=cercles((0,0),1.75u); cd=cc yscaled 0.15 shifted H; ce=cercles((0,0),1.75*u*abs(S-K)/abs(S-H)); cf=ce yscaled 0.15 shifted K; B=point(0) of cd; A=symetrie(B,H); D=point(0) of cf; E=symetrie(D,K); path pommeau; pommeau=arccercle(B,A,H)--E--(subpath(length cf/2,length cf) of cf)--B--cycle; fill pommeau withcolor gris; trace pommeau; trace subpath(length cd/2,length cd) of cd; trace A--B dashed evenly; trace H--S--D dashed evenly; trace K--E--S dashed evenly; trace subpath(0,length cd/2) of cd dashed evenly; trace subpath(0,length cf/2) of cf dashed evenly; nomme.bot(S); nomme.lft(E); nomme.lft(A); nomme.top(H); nomme.rt(B); nomme.rt(K); nomme.rt(D); fin; end