;Maboloop Object barrowcrossing 4
; Alan Hudnott May 2007
;you may use this object in bve routes 
;Please credit Alan Hudnott.

;lefthand outer
CreateMeshBuilder,
AddVertex,-7.8,0.0,6.4
AddVertex,-1.71,0.0,6.4
AddVertex,-1.71,0.0,0
AddVertex,-7.8,0.0,0
AddVertex,-1.71,-0.144,0
AddVertex,-7.8,-0.144,0
AddFace,0,1,2,3
AddFace,3,2,4,5
GenerateNormals
LoadTexture,wooda.png
SetTextureCoordinates,0,0,0
SetTextureCoordinates,1,4,0
SetTextureCoordinates,2,4,1
SetTextureCoordinates,3,0,1
SetTextureCoordinates,4,1,2
SetTextureCoordinates,5,0,2



;lefthand middle
CreateMeshBuilder,
AddVertex,-1.54,0,6.4
AddVertex,-0.30,0,6.4
AddVertex,-0.30,0,0
AddVertex,-1.54,0,0
AddVertex,-0.30,-0.144,0
AddVertex,-1.54,-0.144,0
AddFace,0,1,2,3
AddFace,3,2,4,5
GenerateNormals
LoadTexture,wooda.png
SetTextureCoordinates,0,0,0
SetTextureCoordinates,1,1,0
SetTextureCoordinates,2,1,1
SetTextureCoordinates,3,0,1
SetTextureCoordinates,4,1,2
SetTextureCoordinates,5,0,2


;middlemiddle
CreateMeshBuilder,
AddVertex,2.27,0,6.4
AddVertex,-0.10,0,6.4
AddVertex,-0.10,0,0
AddVertex,2.27,0,0
AddVertex,-0.10,-0.144,0
AddVertex,2.27,-0.144,0
AddFace2,0,1,2,3
AddFace2,3,2,4,5
GenerateNormals
LoadTexture,wooda.png
SetTextureCoordinates,0,0,0
SetTextureCoordinates,1,4,0
SetTextureCoordinates,2,4,1
SetTextureCoordinates,3,0,1
SetTextureCoordinates,4,1,2
SetTextureCoordinates,5,0,2


;rightmiddle
CreateMeshBuilder,
AddVertex,3.65,0,6.4
AddVertex,2.43,0,6.4
AddVertex,2.43,0,0
AddVertex,3.65,0,0
AddVertex,2.43,-0.144,0
AddVertex,3.65,-0.144,0
AddFace2,0,1,2,3
AddFace2,3,2,4,5
GenerateNormals
LoadTexture,wooda.png
SetTextureCoordinates,0,0,0
SetTextureCoordinates,1,4,0
SetTextureCoordinates,2,4,1
SetTextureCoordinates,3,0,1
SetTextureCoordinates,4,1,2
SetTextureCoordinates,5,0,2






;righthandouter1
CreateMeshBuilder,
AddVertex,3.87,0,6.4
AddVertex,10.3,0,6.4
AddVertex,10.3,0,0
AddVertex,3.87,0,0
AddVertex,10.3,-0.144,0
AddVertex,3.87,-0.144,0
AddFace,0,1,2,3
AddFace,3,2,4,5
GenerateNormals
LoadTexture,wooda.png
SetTextureCoordinates,0,0,0
SetTextureCoordinates,1,4,0
SetTextureCoordinates,2,4,1
SetTextureCoordinates,3,0,1
SetTextureCoordinates,4,1,2
SetTextureCoordinates,5,0,2

















