-2.5 6.5 setxrange -1.5 6.5 setyrange /A {0 5} def /O {0 0} def /C {4 3} def /B {A O 20 rotatepoint} def /D {C O 20 rotatepoint} def [O A C B D] points [O A B] polygone [O C D] polygone %[D I C J B] ligne setTimesItalic (A) A urtext (B) B ultext (C) C urtext (D) D urtext (O) O drtext