;platform clock object
;(c) Derryck 2007

;faces
CreateMeshBuilder,				
AddVertex,0,0,-0.05
AddVertex,0,0.4,-0.05
AddVertex,1.3,0.4,-0.05
AddVertex,1.3,0,-0.05
AddFace,0,1,2,3,
GenerateNormals,			
LoadTexture,clock830_vranov.png,			
SetTextureCoordinates,0,0,1,
SetTextureCoordinates,1,0,0,
SetTextureCoordinates,2,1,0,
SetTextureCoordinates,3,1,1,

CreateMeshBuilder,				
AddVertex,1.3,0,0.05
AddVertex,1.3,0.4,0.05
AddVertex,0,0.4,0.05
AddVertex,0,0,0.05
AddFace,0,1,2,3,
GenerateNormals,			
LoadTexture,clock830_vranov.png,			
SetTextureCoordinates,0,0,1,
SetTextureCoordinates,1,0,0,
SetTextureCoordinates,2,1,0,
SetTextureCoordinates,3,1,1,

;3D left
CreateMeshBuilder,				
AddVertex,0,0,0.05
AddVertex,0,0.4,0.05
AddVertex,0,0.4,-0.05
AddVertex,0,0,-0.05
AddFace,0,1,2,3,
GenerateNormals,
Setcolor, 180,180,150

;3D right
CreateMeshBuilder,				
AddVertex,1.3,0,0.05
AddVertex,1.3,0.4,0.05
AddVertex,1.3,0.4,-0.05
AddVertex,1.3,0,-0.05
AddFace,3,2,1,0,
GenerateNormals,
Setcolor, 180,180,150

;3D bottom
CreateMeshBuilder,				
AddVertex,0,0,0.05
AddVertex,0,0,-0.05
AddVertex,1.3,0,-0.05
AddVertex,1.3,0,0.05
AddFace,0,1,2,3,
GenerateNormals,
Setcolor, 180,180,150

;3D top
createMeshBuilder,				
AddVertex,0,0.4,-0.05
AddVertex,0,0.4,0.05
AddVertex,1.3,0.4,0.05
AddVertex,1.3,0.4,-0.05
AddFace,0,1,2,3,
GenerateNormals,
Setcolor, 180,180,150

;faces2
CreateMeshBuilder,				
AddVertex,-2,0,-0.05
AddVertex,-2,0.4,-0.05
AddVertex,-0.7,0.4,-0.05
AddVertex,-0.7,0,-0.05
AddFace,0,1,2,3,
GenerateNormals,			
LoadTexture,clock830_vranovr2.png,			
SetTextureCoordinates,0,0,1,
SetTextureCoordinates,1,0,0,
SetTextureCoordinates,2,1,0,
SetTextureCoordinates,3,1,1,

CreateMeshBuilder,				
AddVertex,-0.7,0,0.05
AddVertex,-0.7,0.4,0.05
AddVertex,-2,0.4,0.05
AddVertex,-2,0,0.05
AddFace,0,1,2,3,
GenerateNormals,			
LoadTexture,clock830_vranovr2.png,			
SetTextureCoordinates,0,0,1,
SetTextureCoordinates,1,0,0,
SetTextureCoordinates,2,1,0,
SetTextureCoordinates,3,1,1,

;3D left
CreateMeshBuilder,				
AddVertex,-0.7,0,0.05
AddVertex,-0.7,0.4,0.05
AddVertex,-0.7,0.4,-0.05
AddVertex,-0.7,0,-0.05
AddFace,3,2,1,0,
GenerateNormals,
Setcolor, 180,180,150

;3D right
CreateMeshBuilder,				
AddVertex,-2,0,0.05
AddVertex,-2,0.4,0.05
AddVertex,-2,0.4,-0.05
AddVertex,-2,0,-0.05
AddFace,0,1,2,3,
GenerateNormals,
Setcolor, 180,180,150

;3D bottom
CreateMeshBuilder,				
AddVertex,-2,0,0.05
AddVertex,-2,0,-0.05
AddVertex,-0.7,0,-0.05
AddVertex,-0.7,0,0.05
AddFace,0,1,2,3,
GenerateNormals,
Setcolor, 180,180,150

;3D top
createMeshBuilder,				
AddVertex,-2,0.4,-0.05
AddVertex,-2,0.4,0.05
AddVertex,-0.7,0.4,0.05
AddVertex,-0.7,0.4,-0.05
AddFace,0,1,2,3,
GenerateNormals,
Setcolor, 180,180,150

;Clockface
CreateMeshBuilder,				
AddVertex,-0.55,0,-0.03
AddVertex,-0.55,0.4,-0.03
AddVertex,-0.15,0.4,-0.03
AddVertex,-0.15,0,-0.03
AddFace,0,1,2,3,
GenerateNormals,			
LoadTexture,clock830_vranov_h.png,			
SetTextureCoordinates,0,0,1,
SetTextureCoordinates,1,0,0,
SetTextureCoordinates,2,1,0,
SetTextureCoordinates,3,1,1,

CreateMeshBuilder,				
AddVertex,-0.15,0,0.03
AddVertex,-0.15,0.4,0.03
AddVertex,-0.55,0.4,0.03
AddVertex,-0.55,0,0.03
AddFace,0,1,2,3,
GenerateNormals,			
LoadTexture,clock830_vranov_h.png,			
SetTextureCoordinates,0,0,1,
SetTextureCoordinates,1,0,0,
SetTextureCoordinates,2,1,0,
SetTextureCoordinates,3,1,1,

;3d left
CreateMeshBuilder,				
AddVertex,-0.55,0,0.05
AddVertex,-0.55,0.4,0.05
AddVertex,-0.55,0.4,-0.05
AddVertex,-0.55,0,-0.05
AddFace,0,1,2,3,
GenerateNormals,
LoadTexture,XD_ClockSide.bmp,			
SetTextureCoordinates,0,0,1,
SetTextureCoordinates,1,0,0,
SetTextureCoordinates,2,1,0,
SetTextureCoordinates,3,1,1,

;3d right
CreateMeshBuilder,				
AddVertex,-0.15,0,0.05
AddVertex,-0.15,0.4,0.05
AddVertex,-0.15,0.4,-0.05
AddVertex,-0.15,0,-0.05
AddFace,3,2,1,0,
GenerateNormals,
LoadTexture,XD_ClockSide.bmp,			
SetTextureCoordinates,0,0,1,
SetTextureCoordinates,1,0,0,
SetTextureCoordinates,2,1,0,
SetTextureCoordinates,3,1,1,

;3Dbottom
CreateMeshBuilder,				
AddVertex,-0.55,0,0.05
AddVertex,-0.55,0,-0.05
AddVertex,-0.15,0,-0.05
AddVertex,-0.15,0,0.05
AddFace,0,1,2,3,
GenerateNormals,
LoadTexture,XD_ClockSide.bmp,			
SetTextureCoordinates,0,0,1,
SetTextureCoordinates,1,1,0,
SetTextureCoordinates,2,1,0,
SetTextureCoordinates,3,0,1,

;3Dtop
CreateMeshBuilder,				
AddVertex,-0.55,0.4,0.05
AddVertex,-0.55,0.4,-0.05
AddVertex,-0.15,0.4,-0.05
AddVertex,-0.15,0.4,0.05
AddFace2,0,1,2,3,
GenerateNormals,
LoadTexture,XD_ClockSide.bmp,			
SetTextureCoordinates,0,0,1,
SetTextureCoordinates,1,1,0,
SetTextureCoordinates,2,1,0,
SetTextureCoordinates,3,0,1,

;traverse
CreateMeshbuilder
Cube, 1.6,0.02,0.05
Translate, -0.35,0.54,0
SetColor,200,200,200

CreateMeshbuilder
Cylinder, 5,0.02,0.02,0.15
Translate, -0.35,0.45,0
SetColor,200,200,200

CreateMeshbuilder
Cylinder, 5,0.02,0.02,0.15
Translate, 0.15,0.45,0
SetColor,200,200,200

CreateMeshbuilder
Cylinder, 5,0.02,0.02,0.15
Translate, 0.85,0.45,0
SetColor,200,200,200

CreateMeshbuilder
Cylinder, 5,0.03,0.03,0.4
Translate, -1.8,0.73,0
SetColor,20,20,20

CreateMeshbuilder
Cylinder, 5,0.02,0.02,0.15
Translate, -1.65,0.45,0
SetColor,200,200,200

CreateMeshbuilder
Cylinder, 5,0.02,0.02,0.15
Translate, -0.85,0.45,0
SetColor,200,200,200

CreateMeshbuilder
Cylinder, 5,0.03,0.03,0.4
Translate, 1,0.73,0
SetColor,20,20,20