-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
|