Source
%% auteur : 
%% auteur : 

-7 8 setxrange
-5 4 setyrange
%40 setxunit
%40 setyunit
/A{-1 3} def
/D{4 3 } def
/F{-6 3} def
/C{D F 310 rotatepoint} def
/B{-4 0} def
/I{A B milieu} def
/J {B C milieu} def
[A B C D] polygone
[ A C] ligne
[A B C D I J] points

pointilles
[I C] ligne
[A J] ligne

setTimes
(A) A ultext
(B) B  ltext
(C) C dtext
(D) D  urtext
(I) I ultext
(J) J dtext