-2 2 setxrange
-2 3 setyrange
25 setxunit
3 10 6 SetCamPos
0 0 0 SetCamView
qplanxy
2 setlinejoin
[
   -1 -1 0 %% sommet 0
    1 -1 0 %% sommet 1
    0  1 0 %% sommet 2
    1 -1 2 %% sommet 3
] 
[
   [2 1 0]
   [0 1 3]
   [1 2 3] 
   [2 0 3]
]
generesolid
dup drawsolid
solidnumsommets