'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

Const ESC$ = Chr$(27)
Do
Inc z,0.2
y = 20+(Sin(z/20)*20)
For x = 1 To 80
  a = Sin(y/2.5)-Cos(x/20)+Log(x*y)
  SetF(a*4)
Next x
Print 'crlf
Loop

Sub SetF(id integer)
 Select Case Int(id/6)
  Case 0
    Print ESC$"[30m"; 'black
  Case 1
    Print ESC$"[31m"; 'rot
  Case 2
    Print ESC$"[32m"; 'gruen
  Case 3
    Print ESC$"[33m"; 'gelb
  Case 4
    Print ESC$"[34m"; 'blau
  Case 5
    Print ESC$"[35m"; 'magenta
  Case 6
    Print ESC$"[36m"; 'cyan
  Case Else
    Print ESC$"[37m"; 'weiss
 End Select
 Select Case Int(id Mod 6)
   Case 0
     Print "+";
   Case 1
     Print "x";
   Case 2
     Print "*";
   Case 3
     Print "&";
   Case 4
     Print "@";
   Case Else
     Print "?";
 End Select
End Sub