%% auteur : Florent Braisaz -4.5 4.5 setxrange -3.5 4.5 setyrange 15 setxunit /A {-3 -3} def /B {-3 3} def /C {3 3} def /D {3 -3} def /O {0 0} def gsave bleu D A B angledroit B C D angledroit A B C angledroit C D A angledroit grestore gsave 1.25 setcurvelinewidth [A B C D] polygone grestore gsave pointilles [B D] ligne [A C] ligne grestore gsave rouge [A D B C]{1 marked} dapply [A B C D]{1 marked} dapply [A O O C]{2 marked} dapply [B O O D]{2 marked} dapply grestore