28 setxunit 0 12 setxrange 0 8.5 setyrange /A {1 3} def /B {8 3} def /C {11 5} def /D {4 5} def /a {5.5 0} def /b {8.5 2} def /c {5.5 8} def /d {2.5 6} def A B a d interdroite /I defpoint C D b c interdroite /J defpoint A D a d interdroite /M defpoint I J 6 0 6 1 interdroite /O defpoint /u {0 2.5} def /v {2.5 1} def O u addv /Ou defpoint O v addv /Ov defpoint [M A B C J I a b B] ligne [J c d I] ligne [O Ou] (->) ligne [O Ov] (->) ligne Ov O Ou 1 (-) tripointarcarrow d I A 1 (-) tripointarcarrow pointilles [M D J] ligne [B J] ligne