'rotating cube
 'some changes where made to remove a face, and create a "hollow" cube.
 MODE 2
 FRAMEBUFFER create

 Dim FLOAT vertices(2,7) = (-1,1,-1, 1,1,-1, 1,-1,-1, -1,-1,-1, -1,1,1, 1,1,1, 1,-1,1, -1,-1,1)

'  Dim INTEGER facecount(4)=(4,4,4,4,4) '1 face less
 Dim INTEGER facecount(5)=(4,4,4,4,4,4)

'  Dim INTEGER faces(19)=(0,1,2,3, 1,5,6,2, 0,4,5,1, 5,4,7,6, 2,6,7,3) '1 face less
 Dim INTEGER faces(23)=(0,1,2,3, 1,5,6,2, 0,4,5,1, 5,4,7,6, 2,6,7,3, 0,3,7,4)

 Dim INTEGER colours(6)=(RGB(blue), RGB(green), RGB(yellow), RGB(cyan), RGB(red), RGB(magenta), RGB(yellow))

'  Dim INTEGER edge(4)=(6,6,6,6,6) '1 face less
 Dim INTEGER edge(5)=(6,6,6,6,6,6)

'  Dim INTEGER fill(4)=(0,1,2,3,4) '1 face less
 Dim INTEGER fill(5)=(0,1,2,3,4,5)

'  Dim n=1, nv=8, nf=5, camera=1   '1 face less
 Dim n=1, nv=8, nf=6, camera=1    

 'enlarge to visible proportions
 Math SCALE vertices(), 100, vertices()

 Draw3D CREATE n, nv, nf, camera, vertices(), facecount(), faces(), colours(), edge(), fill()

 Dim FLOAT yaw=Rad(1), pitch=Rad(2), roll=Rad(0.5)
 Dim FLOAT q(4)
 Dim INTEGER viewplane=300

 Draw3D camera n, viewplane

 Dim INTEGER x=0, y=0, z=500
 FRAMEBUFFER write f

 Draw3D SHOW n, x, y, z

 Do
   Math Q_EULER yaw, pitch, roll, q()
   Draw3D ROTATE q(),n
   Draw3D show n,x,y,z
   Inc yaw,Rad(1)
   Inc pitch,Rad(2)
   Inc roll,Rad(0.5)
   FRAMEBUFFER copy f,n
 Loop