Fichier h.mp (figure 3) — Modifié le 3 Avril 2008 à 22 h 04

h.mp (figure 3)
Source

verbatimtex
%&latex
\documentclass{article}
\begin{document}
etex

input geometriesyr16;
marque_r:=25;
marque_a:=10;
marque_p:="plein";
figure(0,0,u,u);
trace feuillet withcolor gris;
drawdblarrow u*(0.5,0.15)--u*(0.5,0.85) withpen pencircle scaled1.5bp;
drawdblarrow u*(0.15,0.5)--u*(0.85,0.5) withpen pencircle scaled1.5bp;
fin;
figure(0,0,u,u);
trace feuillet withcolor gris;
pair O,A,B;
O=u*(0.4,0.6);
path cc;
cc=cercles(O,0.25u);
A=pointarc(cc,315);
B-A=u*(0.25,-0.25);
trace cc;
trace segment(A,B) withpen pencircle scaled1.5bp;
label(btex \Large$+$ etex,O);
fin;
figure(0,0,u,u);
trace feuillet withcolor gris;
pair O,A,B;
O=u*(0.4,0.6);
path cc;
cc=cercles(O,0.25u);
A=pointarc(cc,315);
B-A=u*(0.25,-0.25);
trace cc;
trace segment(A,B) withpen pencircle scaled1.5bp;
label(btex \Large$-$ etex,O);
fin;
figure(0,0,u,u);
trace feuillet withcolor gris;
pair A,B;
A=u*(0.35,0.65);
B=u*(0.65,0.35);
path ca,cb;
ca=cercles(A,0.15u);
cb=cercles(B,0.15u);
fillcolor:=ciel;
transparence ca;
trace cb withcolor gris;
trace ca withcolor gris;
fin;
figure(0,0,u,u);
trace feuillet withcolor gris;
label(btex \huge A etex,u*(0.25,0.5));
drawoptions(withcolor gris);
label(btex \huge A etex,u*(0.75,0.5));
drawoptions();
fin;
end
figure(0,0,u,u);
trace feuillet withcolor gris;
pair A,B;
A=u*(0.15,0.15);
B-A=u*(0.75,0.5);
drawdblarrow A--B;
trace appelation(A,B,2mm,btex cm etex);
fin;
end