How do you use types for 3D objects

Graphics3D 800,600
Cam = CreateCamera()
MoveEntity Cam,0,2,-5
X.obj = New obj
x\Entity = CreateCube()

While Not KeyDown(1)
  UpdateObj()
  RenderWorld()
  Flip
Wend

Function UpdateObj()
  For x.Obj = Each Obj
    X\Yaw = X\Yaw + 1
    RotateEntity X\Entity,x\pitch,x\yaw,x\roll
  Next
End Function

Type Obj
  Field Entity%
  Field Pitch#
  Field Yaw#
  Field Roll#
End Type