Retour

Source : organi.mp

organi.mp
%@AUTEUR: Claudy Diguet
u = 1cm;
 
 
 
organi.mp (figure 1)
beginfig(1);
 
draw (1.5,0)*u--(2,0)*u withpen pencircle scaled 1.5pt;
 
draw (2,7)*u--(2,-7)*u withpen pencircle scaled 1.5pt;
 
drawarrow (2,7)*u--(16.3,7)*u withpen pencircle scaled 1.5pt;
 
drawarrow (2,5)*u--(6.5,5)*u withpen pencircle scaled 1.5pt;
drawarrow (2,3)*u--(6.5,3)*u withpen pencircle scaled 1.5pt;
drawarrow (2,1)*u--(6.5,1)*u withpen pencircle scaled 1.5pt;
drawarrow (2,-5)*u--(6.5,-5)*u withpen pencircle scaled 1.5pt;
drawarrow (2,-3)*u--(6.5,-3)*u withpen pencircle scaled 1.5pt;
drawarrow (2,-1)*u--(6.5,-1)*u withpen pencircle scaled 1.5pt;
 
drawarrow (2,-7)*u--(16.3,-7)*u withpen pencircle scaled 1.5pt;
 
draw (6.5,5)*u--(6.5,-5)*u withpen pencircle scaled 1.5pt;
 
draw (6.5,0)*u--(7,0)*u withpen pencircle scaled 1.5pt;
 
draw (11,0)*u--(11.5,0)*u withpen pencircle scaled 1.5pt;
 
draw (11.5,5)*u--(11.5,-5)*u withpen pencircle scaled 1.5pt;
 
drawarrow (11.5,5)*u--(16.3,5)*u withpen pencircle scaled 1.5pt;
drawarrow (11.5,3)*u--(16.3,3)*u withpen pencircle scaled 1.5pt;
 
draw (16.3,7)*u--(16.3,3)*u withpen pencircle scaled 1.5pt;
 
draw (16.3,5)*u--(16.8,5)*u withpen pencircle scaled 1.5pt;
 
draw (19.2,5)*u--(20,5)*u withpen pencircle scaled 1.5pt;
 
draw (20,5)*u--(20,1)*u withpen pencircle scaled 1.5pt;
 
drawarrow (20,3)*u--(24.5,3)*u withpen pencircle scaled 1.5pt;
drawarrow (20,1)*u--(24.5,1)*u withpen pencircle scaled 1.5pt;
 
 
 
drawarrow (11.5,-5)*u--(16.3,-5)*u withpen pencircle scaled 1.5pt;
drawarrow (11.5,-3)*u--(16.3,-3)*u withpen pencircle scaled 1.5pt;
 
draw (16.3,-7)*u--(16.3,-3)*u withpen pencircle scaled 1.5pt;
 
draw (16.3,-5)*u--(16.8,-5)*u withpen pencircle scaled 1.5pt;
 
draw (19.2,-5)*u--(20,-5)*u withpen pencircle scaled 1.5pt;
 
draw (20,-5)*u--(20,-1)*u withpen pencircle scaled 1.5pt;
 
drawarrow (20,-3)*u--(24.5,-3)*u withpen pencircle scaled 1.5pt;
drawarrow (20,-1)*u--(24.5,-1)*u withpen pencircle scaled 1.5pt;
 
 
draw (24.5,3)*u--(24.5,-3)*u withpen pencircle scaled 1.5pt;
 
draw (24.5,0)*u--(25,0)*u withpen pencircle scaled 1.5pt;
 
 
 
 
 
 
 
 
 
 
label.top(btex $ qui~a~ses~diagonales~qui $ etex,(4.25,5)*u);
label.bot(btex $ se~coupent~en~leur~milieu $ etex,(4.25,5)*u);
 
label.top(btex $ qui~a~tous~ses~c\hat{o}t\acute{e}s~oppos\acute{e}s $ etex,(4.25,3)*u);
label.bot(btex $ parall\grave{e}les $ etex,(4.25,3)*u);
 
label.top(btex $ qui~a~tous~ses~c\hat{o}t\acute{e}s~oppos\acute{e}s $ etex,(4.25,1)*u);
label.bot(btex $ de~m\hat{e}me~longueur $ etex,(4.25,1)*u);
 
label.top(btex $ qui~a~\underline{deux}~c\hat{o}t\acute{e}s~parall\grave{e}les $ etex,(4.25,-1)*u);
label.bot(btex $ et~de~m\hat{e}me~longueur $ etex,(4.25,-1)*u);
 
label.top(btex $ qui~a~tous~ses~angles $ etex,(4.25,-3)*u);
label.bot(btex $ oppos\acute{e}s~de~m\hat{e}me~mesure $ etex,(4.25,-3)*u);
 
label.top(btex $ qui~a~ses~angles $ etex,(4.25,-5)*u);
label.bot(btex $ cons\acute{e}cutifs~suppl\acute{e}mentaires $ etex,(4.3,-5)*u);
 
 
 
 
label.top(btex $ qui~a~3~angles~droits $ etex,(9,7)*u);
 
label.top(btex $ qui~a~un~angle $ etex,(13.9,5)*u);
label.bot(btex $ droit $ etex,(13.9,5)*u);
 
label.top(btex $ qui~a~ses~diagonales $ etex,(13.9,3)*u);
label.bot(btex $ de~m\hat{e}me~longueur $ etex,(13.9,3)*u);
 
 
 
 
label.top(btex $ qui~a~4~c\hat{o}t\acute{e}s~de~m\hat{e}me~longueur $ etex,(9,-7)*u);
 
 
label.top(btex $ qui~a~deux~c\hat{o}t\acute{e}s~cons\acute{e}cutifs $ etex,(13.9,-3)*u);
label.bot(btex $ de~m\hat{e}me~longueur $ etex,(13.9,-3)*u);
 
label.top(btex $ qui~a~ses~diagonales $ etex,(13.9,-5)*u);
label.bot(btex $ perpendiculaires $ etex,(13.9,-5)*u);
 
 
 
 
 
label.top(btex $ qui~a~deux~c\hat{o}t\acute{e}s~cons\acute{e}cutifs $ etex,(22.25,3)*u);
label.bot(btex $ de~m\hat{e}me~longueur $ etex,(22.25,3)*u);
 
label.top(btex $ qui~a~ses~diagonales $ etex,(22.25,1)*u);
label.bot(btex $ perpendiculaires $ etex,(22.25,1)*u);
 
 
label.top(btex $ qui~a~un~angle $ etex,(22.25,-3)*u);
label.bot(btex $ droit $ etex,(22.25,-3)*u);
 
label.top(btex $ qui~a~ses~diagonales $ etex,(22.25,-1)*u);
label.bot(btex $ de~m\hat{e}me~longueur $ etex,(22.25,-1)*u);
 
 
 
label(btex $ Quadrilat\grave{e}re $ etex,(0,0)*u);
draw (1.5,-1)*u--(1.5,1)*u withpen pencircle scaled 1.5pt;
draw (-1.5,1.5)*u--(1.5,1)*u withpen pencircle scaled 1.5pt;
draw (-1.5,1.5)*u--(-2,-2)*u withpen pencircle scaled 1.5pt;
draw (-2,-2)*u--(1.5,-1)*u withpen pencircle scaled 1.5pt;
 
 
 
 
label(btex $ Parall\acute{e}logramme $ etex,(9,0)*u);
draw (7.25,0.7)*u--(11.25,0.7)*u withpen pencircle scaled 1.5pt;
draw (6.75,-0.7)*u--(10.75,-0.7)*u withpen pencircle scaled 1.5pt;
draw (6.75,-0.7)*u--(7.25,0.7)*u withpen pencircle scaled 1.5pt;
draw (11.25,0.7)*u--(10.75,-0.7)*u withpen pencircle scaled 1.5pt;
 
 
 
 
label(btex $ Rectangle $ etex,(18,5)*u);
draw (16.8,5.7)*u--(19.2,5.7)*u--(19.2,4.3)*u--(16.8,4.3)*u--cycle withpen pencircle scaled 1.5pt;
 
 
 
label(btex $ Losange $ etex,(18,-5)*u);
draw (16.8,-5)*u--(18,-6)*u--(19.2,-5)*u--(18,-4)*u--cycle withpen pencircle scaled 1.5pt;
 
 
 
label(btex $ Carr\acute{e} $ etex,(26.5,0)*u);
draw (25,1.5)*u--(28,1.5)*u--(28,-1.5)*u--(25,-1.5)*u--cycle withpen pencircle scaled 1.5pt;
 
 
 
 
 
 
endfig;
end
end