Source
%% auteur : Gilles Mora

-1 3 setxrange
-1 4 setyrange
60 setxunit
60 setyunit
/A{2 0} def
/B{0 0 } def
/C{0 2} def
/D{2 2} def
/J{D C 60 rotatepoint} def
/I{A B 30 rotatepoint} def
[A B C D] polygone
[C I B ] polygone
[C D J] polygone
[A B A D D C B C J C J D I B I C ]{1 marked} dapply
pointilles
[A J] ligne
setTimes
(A) A [2 2] drtext
(B) B [2 2] dltext
(C) C [2 2] ultext
(D) D [2 2] urtext
(I) I [2 2] dtext
(J) J [2 2] utext