Source
25 setxunit
7.5 setborder
90 setangle_repere
-1 7 setxrange
-1 5 setyrange

/A{0 0} def /B{6 0} def /C{6 3} def /D{4 3} def /E{4 2} def /F{2 2} def /G{2 3} def /H{0 3} def
[A B C D E F G H] polygone