autocrop
-4.5 5 setxrange
-2 5 setyrange
20 setxunit
10 10 6 SetCamPos
0 0 0 SetCamView
2 setlinejoin 

/S [
    2  4  3    -2  4  3
   -2 -4  3     2 -4  3
    2  4  0    -2  4  0
   -2 -4  0     2 -4  0
    0  4  5     0 -4  5
] def

/F [
   [0 1 2 3]    [7 6 5 4]
   [0 3 7 4]    [3 9 2]
   [1 8 0]      [8 9 3 0]
   [9 8 1 2]    [6 7 3 2]
   [2 1 5 6]    [0 4 5 1]
] def

S F generesolid
dup solidshowsommets
dup solidnumsommets
drawsolid