(progn
( geometry framework
appearance {+keepcolor shading smooth linewidth 4}
nSKEL 4
5 4

-1 -1 -1 -1
-0.5 -1 -1 -1
-1 -0.5 -1 -1
-1 -1 -0.5 -1
-1 -1 -1 -0.5


2 0 1  1 0 0
2 0 2  0 1 0
2 0 3  0 0 1
2 0 4  1 1 1
)

( geometry hypercube
appearance {shading csmooth linewidth 2}
nSKEL 4
16 24
-1. -1. -1. -1.  
-1. -1. -1. 1.  
-1. -1. 1. -1.  
-1. -1. 1. 1.  
-1. 1. -1. -1.  
-1. 1. -1. 1.  
-1. 1. 1. -1.  
-1. 1. 1. 1.  
1. -1. -1. -1.  
1. -1. -1. 1.  
1. -1. 1. -1.  
1. -1. 1. 1.  
1. 1. -1. -1.  
1. 1. -1. 1.  
1. 1. 1. -1.  
1. 1. 1. 1.  
5 0 1 3 2 0
5 0 1 5 4 0
5 0 1 9 8 0
5 0 2 6 4 0
5 0 2 10 8 0
5 0 4 12 8 0
5 1 3 7 5 1
5 1 3 11 9 1
5 1 5 13 9 1
5 2 3 7 6 2
5 2 3 11 10 2
5 2 6 14 10 2
5 3 7 15 11 3
5 4 5 7 6 4
5 4 5 13 12 4
5 4 6 14 12 4
5 5 7 15 13 5
5 6 7 15 14 6
5 8 9 11 10 8
5 8 9 13 12 8
5 8 10 14 12 8
5 9 11 15 13 9
5 10 11 15 14 10
5 12 13 15 14 12
)
)