; FEVF - FERROVIA ELETTRICA VALLE DI FIEMME
; by Roberto Benini - robertobenini@libero.it
; (C) 06/12/2005
; in caso di utilizzo citare fonte

; debiti: la struttura della carrozza e i carrelli  sono derivati dalla C53.CSV 
; di Luigi Cartello e Sergio Usai per la FGC
; la texture del tetto, con alcune modifiche, proviene da BKLB di Peter Shotz

; Locomotore B51 o B52
; anno costruzione 1929
; lunghezza 10.90 m
; interperno carrelli 5,5 m
; passo carrelli 2,2 m
; colore: verde vagone

CreateMeshBuilder; Parete divisoria
AddVertex, -1.15  , 3.2, -4
AddVertex, 1.15 , 3.2,-4
AddVertex, 1.15 , 1.0,-4
AddVertex, -1.15  , 1.0,-4
AddFace2,0,1,2,3
GenerateNormals
LoadTexture, parete_divisoria.bmp
SetTextureCoordinates,0,0,0.10
SetTextureCoordinates,1,1,0.10
SetTextureCoordinates,2,1,1
SetTextureCoordinates,3,0,1
SetDecalTransparentColor,0,0,0
CreateMeshBuilder; Parete divisoria
AddVertex, -1.15  , 3.2,4.10
AddVertex, 1.15 , 3.2,4.10
AddVertex, 1.15 , 1.0,4.10
AddVertex, -1.15  , 1.0,4.10
AddFace2,0,1,2,3
GenerateNormals
LoadTexture, parete_divisoria.bmp
SetTextureCoordinates,0,0,0.10
SetTextureCoordinates,1,1,0.10
SetTextureCoordinates,2,1,1
SetTextureCoordinates,3,0,1
SetDecalTransparentColor,0,0,0
CreateMeshBuilder ; Tetto 
AddVertex, -1.22  , 3.27 , 4.35
AddVertex, -1.22  , 3.27 ,-4.35
AddVertex, -1.15  , 3.40 , 4.35
AddVertex, -1.15  , 3.40 ,-4.35
AddVertex, -1.05  , 3.50 , 4.35
AddVertex, -1.05  , 3.50 ,-4.35
AddVertex, -0.60  , 3.57 , 4.35
AddVertex, -0.60  , 3.57 ,-4.35
AddVertex,  0.00  , 3.60 , 4.35
AddVertex,  0.00  , 3.60 ,-4.35
AddVertex,  0.60  , 3.57 , 4.35
AddVertex,  0.60  , 3.57 ,-4.35
AddVertex,  1.05  , 3.50 , 4.35
AddVertex,  1.05  , 3.50 ,-4.35
AddVertex,  1.15  , 3.40 , 4.35
AddVertex,  1.15  , 3.40 ,-4.35
AddVertex,  1.22  , 3.27 , 4.35
AddVertex,  1.22  , 3.27 ,-4.35
AddFace2, 2, 3, 1, 0
AddFace2, 4, 5, 3, 2
AddFace2, 6, 7, 5, 4
AddFace2, 8, 9, 7, 6
AddFace2,10,11, 9, 8
AddFace2,12,13,11,10
AddFace2,14,15,13,12
AddFace2,16,17,15,14
GenerateNormals
LoadTexture, tetto_medio.bmp
SetTextureCoordinates,0,0,0.1
SetTextureCoordinates,1,0 ,0.9
SetTextureCoordinates,2,0.0286,0.1
SetTextureCoordinates,3,0.0286,0.9
SetTextureCoordinates,4,0.0696,0.1
SetTextureCoordinates,5,0.0696,0.9
SetTextureCoordinates,6,0.2540,0.1
SetTextureCoordinates,7,0.2540,0.9
SetTextureCoordinates,8,0.50,0.1
SetTextureCoordinates,9,0.50,0.9
SetTextureCoordinates,10,0.746,0.1
SetTextureCoordinates,11,0.746,0.9
SetTextureCoordinates,12,0.9304,0.1
SetTextureCoordinates,13,0.9304,0.9
SetTextureCoordinates,14,0.9714,0.1
SetTextureCoordinates,15,0.9714,0.9
SetTextureCoordinates,16,1,0.1
SetTextureCoordinates,17,1,0.9

CreateMeshBuilder ;  parte anteriore
AddVertex, -1.22  , 3.27 ,-4.35
AddVertex, -1.12  , 3.27 ,-5.35; 3.27
AddVertex, -1.15  , 3.40 ,-4.35
AddVertex, -1.12  , 3.28 ,-5.35; 3.33
AddVertex, -1.05  , 3.50 ,-4.35
AddVertex, -1.05  , 3.38 ,-5.35; 3.43
AddVertex, -0.60  , 3.57 ,-4.35
AddVertex, -0.60  , 3.50 ,-5.35
AddVertex,  0.00  , 3.60 ,-4.35
AddVertex,  0.00  , 3.53 ,-5.35
AddVertex,  0.60  , 3.57 ,-4.35
AddVertex,  0.60  , 3.50 ,-5.35
AddVertex,  1.05  , 3.50 ,-4.35
AddVertex,  1.05  , 3.38 ,-5.35; 3.43
AddVertex,  1.15  , 3.40 ,-4.35
AddVertex,  1.12  , 3.28 ,-5.35; 3.33 
AddVertex,  1.22  , 3.27 ,-4.35
AddVertex,  1.12  , 3.27 ,-5.35; 3.27 
AddFace2, 2, 3, 1, 0
AddFace2, 4, 5, 3, 2
AddFace2, 6, 7, 5, 4
AddFace2, 8, 9, 7, 6
AddFace2,10,11, 9, 8
AddFace2,12,13,11,10
AddFace2,14,15,13,12
AddFace2,16,17,15,14
GenerateNormals
LoadTexture, tetto_medio.bmp
SetTextureCoordinates,0,0,0.94
SetTextureCoordinates,1,0 ,1
SetTextureCoordinates,2,0.0286,0.94
SetTextureCoordinates,3,0.0286,1
SetTextureCoordinates,4,0.0696,0.94
SetTextureCoordinates,5,0.0696,1
SetTextureCoordinates,6,0.2540,0.94
SetTextureCoordinates,7,0.2540,1
SetTextureCoordinates,8,0.50,0.94
SetTextureCoordinates,9,0.50,1
SetTextureCoordinates,10,0.746,0.94
SetTextureCoordinates,11,0.746,1
SetTextureCoordinates,12,0.9304,0.94
SetTextureCoordinates,13,0.9304,1
SetTextureCoordinates,14,0.9714,0.94
SetTextureCoordinates,15,0.9714,1
SetTextureCoordinates,16,1,0.94
SetTextureCoordinates,17,1,1
CreateMeshBuilder ;  parte posteriore
AddVertex, -1.12  , 3.27 , 5.35
AddVertex, -1.22  , 3.27 , 4.35
AddVertex, -1.12  , 3.28 , 5.35
AddVertex, -1.15  , 3.40 , 4.35
AddVertex, -1.05  , 3.38 , 5.35
AddVertex, -1.05  , 3.50 , 4.35
AddVertex, -0.60  , 3.50 , 5.35
AddVertex, -0.60  , 3.57 , 4.35
AddVertex,  0.00  , 3.53 , 5.35
AddVertex,  0.00  , 3.60 , 4.35
AddVertex,  0.60  , 3.50 , 5.35
AddVertex,  0.60  , 3.57 , 4.35
AddVertex,  1.05  , 3.38 , 5.35
AddVertex,  1.05  , 3.50 , 4.35
AddVertex,  1.12  , 3.28 , 5.35
AddVertex,  1.15  , 3.40 , 4.35
AddVertex,  1.12  , 3.27 , 5.35
AddVertex,  1.22  , 3.27 , 4.35
AddFace2, 2, 3, 1, 0
AddFace2, 4, 5, 3, 2
AddFace2, 6, 7, 5, 4
AddFace2, 8, 9, 7, 6
AddFace2,10,11, 9, 8
AddFace2,12,13,11,10
AddFace2,14,15,13,12
AddFace2,16,17,15,14
GenerateNormals
LoadTexture, tetto_medio.bmp
SetTextureCoordinates,0,0,0
SetTextureCoordinates,1,0 ,1
SetTextureCoordinates,2,0.0286,0
SetTextureCoordinates,3,0.0286,0.06
SetTextureCoordinates,4,0.0696,0
SetTextureCoordinates,5,0.0696,0.06
SetTextureCoordinates,6,0.2540,0
SetTextureCoordinates,7,0.2540,0.06
SetTextureCoordinates,8,0.50,0
SetTextureCoordinates,9,0.50,0.06
SetTextureCoordinates,10,0.746,0
SetTextureCoordinates,11,0.746,0.06
SetTextureCoordinates,12,0.9304,0
SetTextureCoordinates,13,0.9304,0.06
SetTextureCoordinates,14,0.9714,0
SetTextureCoordinates,15,0.9714,0.06
SetTextureCoordinates,16,1,0
SetTextureCoordinates,17,1,0.06



CreateMeshBuilder ; facciata alta anteriore
AddVertex, -1.10  , 3.20 ,-5.33
AddVertex, -1.10  , 3.27 ,-5.33; 3.32
AddVertex, -1.10 , 3.20 ,-5.33
AddVertex, -1.05  , 3.37 ,-5.33; 3.42
AddVertex, -1.05  , 3.20 ,-5.33
AddVertex, -0.60  , 3.49 ,-5.33; 3.49
AddVertex, -0.60  , 3.20 ,-5.33
AddVertex,  0.00  , 3.52 ,-5.33
AddVertex,  0.00  , 3.20 ,-5.33
AddVertex,  0.60  , 3.49 ,-5.33; 3.49
AddVertex,  0.60  , 3.20 ,-5.33
AddVertex,  1.05  , 3.37 ,-5.33; 3.42
AddVertex,  1.05  , 3.20 ,-5.33
AddVertex,  1.10  , 3.27 ,-5.33;3.32
AddVertex,  1.10  , 3.20 ,-5.33
AddVertex,  1.10  , 3.20 ,-5.33
AddFace2, 0, 1, 2
AddFace2, 1,3,4,2
AddFace2, 3,5,6,4
AddFace2, 5,7,8,6
AddFace2, 7,9,10,8
AddFace2, 9,11,12,10
AddFace2,11,13,14,12
AddFace2,13,15,14
GenerateNormals
SetColor,238,228,185

CreateMeshBuilder ; facciata alta posteriore
AddVertex, -1.10  , 3.20 ,-5.33
AddVertex, -1.10  , 3.27 ,-5.33
AddVertex, -1.10  , 3.20 ,-5.33
AddVertex, -1.05  , 3.37 ,-5.33
AddVertex, -1.05  , 3.20 ,-5.33
AddVertex, -0.60  , 3.49 ,-5.33
AddVertex, -0.60  , 3.20 ,-5.33
AddVertex,  0.00  , 3.52 ,-5.33
AddVertex,  0.00  , 3.20 ,-5.33
AddVertex,  0.60  , 3.49 ,-5.33
AddVertex,  0.60  , 3.20 ,-5.33
AddVertex,  1.05  , 3.37 ,-5.33
AddVertex,  1.05  , 3.20 ,-5.33
AddVertex,  1.10  , 3.27 ,-5.33
AddVertex,  1.10  , 3.20 ,-5.33
AddVertex,  1.10  , 3.20 ,-5.33
AddFace2, 0, 1, 2
AddFace2, 1,3,4,2
AddFace2, 3,5,6,4
AddFace2, 5,7,8,6
AddFace2, 7,9,10,8
AddFace2, 9,11,12,10
AddFace2,11,13,14,12
AddFace2,13,15,14
GenerateNormals
SetColor,238,228,185
Rotate,0,1,0,180

; grondaia
CreateMeshBuilder ;  grondaia laterale sx e dx
AddVertex, -1.22  , 3.27 , 4.35
AddVertex, -1.22  , 3.27 ,-4.35
AddVertex, -1.22  , 3.20 , -4.35
AddVertex, -1.22  , 3.20 ,4.35
AddVertex, 1.22  , 3.27 , 4.35
AddVertex, 1.22  , 3.27 ,-4.35
AddVertex, 1.22  , 3.20 , -4.35
AddVertex, 1.22  , 3.20 ,4.35
AddFace2, 0, 1, 2, 3
AddFace2, 4, 5, 6, 7
SetColor,70,91,84

CreateMeshBuilder ;  grondaia laterale anteriore sx e dx
AddVertex, -1.22  , 3.27 , -4.35
AddVertex, -1.12  , 3.27 ,-5.35
AddVertex, -1.12  , 3.20 , -5.35
AddVertex, -1.22  , 3.20 ,-4.35
AddVertex, 1.22  , 3.27 , -4.35
AddVertex, 1.12  , 3.27 ,-5.35
AddVertex, 1.12  , 3.20 , -5.35
AddVertex, 1.22  , 3.20 ,-4.35
AddFace2, 0, 1, 2, 3
AddFace2, 4, 5, 6, 7
SetColor,70,91,84

CreateMeshBuilder ;  grondaia laterale posteriore sx e dx
AddVertex, -1.12  , 3.27 , 5.35
AddVertex, -1.22  , 3.27 ,4.35
AddVertex, -1.22  , 3.20 , 4.35
AddVertex, -1.12  , 3.20 ,5.35
AddVertex, 1.12  , 3.27 , 5.35
AddVertex, 1.22  , 3.27 ,4.35
AddVertex, 1.22  , 3.20 , 4.35
AddVertex, 1.12 , 3.20 ,5.35
AddFace2, 0, 1, 2, 3
AddFace2, 4, 5, 6, 7
SetColor,70,91,84



CreateMeshBuilder ; grondaia anteriore
Addvertex, -1.12  , 3.13 ,-5.35;0  3.13
AddVertex, -1.12  , 3.20 ,-5.35;1  3.20
AddVertex, -1.12  , 3.28,-5.35;2   3.33
AddVertex, -1.12  , 3.20 ,-5.35;3   3.20
AddVertex, -1.05  , 3.38 ,-5.35;4   3.43 *
AddVertex, -1.04  , 3.31 ,-5.35;5   3.36  *
AddVertex, -0.60  , 3.50 ,-5.35;6
AddVertex, -0.60  , 3.43 ,-5.35;7   3.43
AddVertex,  0.00  , 3.53 ,-5.35;8    3.53
AddVertex,  0.00  , 3.46 ,-5.35;9    3.46
AddVertex,  0.60  , 3.50 ,-5.35;10    3.50
AddVertex,  0.60  , 3.43 ,-5.35;11   3.43
AddVertex,  1.05  , 3.38 ,-5.35;12   3.43
AddVertex,  1.04  , 3.31 ,-5.35;13   3.36
AddVertex,  1.12  , 3.28 ,-5.35;14   3.33
AddVertex,  1.12  , 3.20 ,-5.35;15   3.20
AddVertex,  1.12  , 3.20 ,-5.35;16   3.20
AddVertex,  1.12  , 3.13 ,-5.35;17  3.13
AddFace2, 0, 1, 2, 3
AddFace2, 2,4,5,3
AddFace2, 4,6,7,5
AddFace2, 8,9,7,6
AddFace2, 8,10,11,9
AddFace2, 10,12,13,11
AddFace2,12,14,15,13
AddFace2,14,16,17,15
GenerateNormals
SetColor,70,91,84

CreateMeshBuilder ; grondaia posteriore
Addvertex, -1.12  , 3.13 ,5.35;0 * 3.13
AddVertex, -1.12  , 3.20 ,5.35;1
AddVertex, -1.12  , 3.28 ,5.35;2
AddVertex, -1.12  , 3.20 ,5.35;3 * 3.26
AddVertex, -1.05  , 3.38 ,5.35;4 *
AddVertex, -1.04  , 3.31 ,5.35;5 3.36 *
AddVertex, -0.60  , 3.50 ,5.35;6
AddVertex, -0.60  , 3.43 ,5.35;7
AddVertex,  0.00  , 3.53 ,5.35;8
AddVertex,  0.00  , 3.46 ,5.35;9
AddVertex,  0.60  , 3.50 ,5.35;10
AddVertex,  0.60  , 3.43 ,5.35;11
AddVertex,  1.05  , 3.38 ,5.35;12 * 
AddVertex,  1.04  , 3.31 ,5.35;13 *
AddVertex,  1.12  , 3.28 ,5.35;14
AddVertex,  1.12  , 3.20 ,5.35;15 * 3.26
AddVertex,  1.12  , 3.20 ,5.35;16
AddVertex,  1.12  , 3.13 ,5.35;17 * 3.13
AddFace2, 0, 1, 2, 3
AddFace2, 2,4,5,3
AddFace2, 4,6,7,5
AddFace2, 8,9,7,6
AddFace2, 8,10,11,9
AddFace2, 10,12,13,11
AddFace2,12,14,15,13
AddFace2,14,16,17,15
GenerateNormals
SetColor,70,91,84

CreateMeshBuilder ; frontale anteriore
AddVertex, -1.10  , 0.7  ,-5.3  ; 1
AddVertex, -1.10  , 3.27 ,-5.3  ; 0 
AddVertex,  1.10  , 3.27 ,-5.3  ; 2 
AddVertex,  1.10  , 0.7  ,-5.3  ; 3
AddFace2, 0, 1,2,3
GenerateNormals
LoadTexture,b52_testata.bmp
SetTextureCoordinates,0,0,1
SetTextureCoordinates,1,0,0
SetTextureCoordinates,2,1,0
SetTextureCoordinates,3,1,1
SetDecalTransparentColor,0,0,0


CreateMeshBuilder; VETRI
AddVertex, -1.10  , 3.2, -4.90
AddVertex, 1.10 , 3.2,-4.90
AddVertex, 1.10 , 1.3,-4.90
AddVertex, -1.10  , 1.3,-4.90
AddFace,0,1,2,3
GenerateNormals
SetColor,50,50,50,130

CreateMeshBuilder ; frontale posteriore
AddVertex, -1.10  , 0.7  ,-5.3  ; 1
AddVertex, -1.10  , 3.27 ,-5.3  ; 0 
AddVertex,  1.10  , 3.27 ,-5.3  ; 2 
AddVertex,  1.10  , 0.7  ,-5.3  ; 3
AddFace2, 0, 1,2,3
GenerateNormals
LoadTexture,B52_testata.bmp
SetTextureCoordinates,0,0,1
SetTextureCoordinates,1,0,0
SetTextureCoordinates,2,1,0
SetTextureCoordinates,3,1,1
Rotate,0,1,0,180
SetDecalTransparentColor,0,0,0

CreateMeshBuilder; VETRI
AddVertex, -1.10  , 3.2, 5.20
AddVertex, 1.10 , 3.2, 5.20
AddVertex, 1.10 , 1.3, 5.20
AddVertex, -1.10  , 1.3, 5.20
AddFace,3,2,1,0
GenerateNormals
SetColor,50,50,50,130

; ------------ Pavimento ----------------
CreateMeshBuilder ; pavimento 
AddVertex, -1.05  , 1.2 , 5.20
AddVertex,  1.05  , 1.2 , 5.20
AddVertex,  1.05  , 1.2 ,-5.20
AddVertex, -1.05  , 1.2 ,-5.20
AddFace2,0,1,2,3
GenerateNormals
SetColor,54,48,22

; ------------ Fiancata sinistra  ----------------
CreateMeshBuilder
AddVertex, -1.2  , 3.3 , 4.30
AddVertex, -1.2  , 3.3 ,-4.30
AddVertex, -1.2  , 0.10 ,-4.30
AddVertex, -1.2  , 0.10 , 4.30
AddFace2,0,1,2,3
GenerateNormals
LoadTexture, B52_fiancata.bmp
SetTextureCoordinates,0,0.095,0
SetTextureCoordinates,1,0.905,0
SetTextureCoordinates,2,0.905,1
SetTextureCoordinates,3,0.095,1
SetDecalTransparentColor,0,0,0


CreateMeshBuilder
AddVertex, -1.1  , 3.3 , 5.30
AddVertex, -1.2  , 3.3 ,4.30
AddVertex, -1.2  , 0.10 ,4.30
AddVertex, -1.1  , 0.10 , 5.30
AddFace2,0,1,2,3
GenerateNormals
LoadTexture,B52_fiancata.bmp
SetTextureCoordinates,0,0,0
SetTextureCoordinates,1,0.095,0
SetTextureCoordinates,2,0.095,1
SetTextureCoordinates,3,0,1
SetDecalTransparentColor,0,0,0

CreateMeshBuilder
AddVertex, -1.1  , 3.3 , -5.30
AddVertex, -1.2  , 3.3 ,-4.30
AddVertex, -1.2  , 0.10 ,-4.30
AddVertex, -1.1  , 0.10 , -5.30
AddFace2,0,1,2,3
GenerateNormals
LoadTexture,B52_fiancata.bmp
SetTextureCoordinates,0,1,0
SetTextureCoordinates,1,0.905,0
SetTextureCoordinates,2,0.905,1
SetTextureCoordinates,3,1,1
SetDecalTransparentColor,0,0,0

CreateMeshBuilder; vetri
AddVertex, -1.05  , 3.2 , 5.2
AddVertex, -1.05  , 3.2 ,-5.2
AddVertex, -1.05  , 1.3 ,-5.2
AddVertex, -1.05  , 1.3 , 5.2
AddFace2,0,1,2,3
GenerateNormals
SetColor,50,50,50,130



; ------------ Fiancata destra  ----------------
CreateMeshBuilder
AddVertex, 1.2  , 3.3 , 4.30
AddVertex, 1.2  , 3.3 ,-4.30
AddVertex, 1.2  , 0.10 ,-4.30
AddVertex, 1.2  , 0.10 , 4.30
AddFace2,0,1,2,3
GenerateNormals
LoadTexture,B52_fiancata.bmp
SetTextureCoordinates,0,0.95,0
SetTextureCoordinates,1,0.095,0
SetTextureCoordinates,2,0.095,1
SetTextureCoordinates,3,0.95,1
SetDecalTransparentColor,0,0,0

CreateMeshBuilder
AddVertex, 1.1  , 3.3 , 5.30
AddVertex, 1.2  , 3.3 ,4.30
AddVertex, 1.2  , 0.10 ,4.30
AddVertex, 1.1  , 0.10 , 5.30
AddFace2,0,1,2,3
GenerateNormals
LoadTexture,B52_fiancata.bmp
SetTextureCoordinates,0,1,0
SetTextureCoordinates,1,0.95,0
SetTextureCoordinates,2,0.95,1
SetTextureCoordinates,3,1,1
SetDecalTransparentColor,0,0,0

CreateMeshBuilder
AddVertex, 1.1  , 3.3 , -5.30
AddVertex, 1.2  , 3.3 ,-4.30
AddVertex, 1.2  , 0.10 ,-4.30
AddVertex, 1.1  , 0.10 , -5.30
AddFace2,0,1,2,3
GenerateNormals
LoadTexture,B52_fiancata.bmp
SetTextureCoordinates,0,0,0
SetTextureCoordinates,1,0.095,0
SetTextureCoordinates,2,0.095,1
SetTextureCoordinates,3,0,1
SetDecalTransparentColor,0,0,0


CreateMeshBuilder
AddVertex, 1.10  , 3.2 , 5.2
AddVertex, 1.10  , 3.2 ,-5.2
AddVertex, 1.10  , 1.3 ,-5.2
AddVertex, 1.10  , 1.3 , 5.2
AddFace2,0,1,2,3
GenerateNormals
SetColor,50,50,50,130

; ------------ Carrelli ----------------------
CreateMeshBuilder
AddVertex, 0, 0.8 , 1.6
AddVertex, 0, 0.8 ,-1.6
AddVertex, 0,-0.1 ,-1.6
AddVertex, 0,-0.1 , 1.6
AddFace2,0,1,2,3
GenerateNormals
LoadTexture, carrello.bmp
SetTextureCoordinates,0,1,0
SetTextureCoordinates,1,0,0
SetTextureCoordinates,2,0,1
SetTextureCoordinates,3,1,1
SetDecalTransparentColor,0,0,0
Translate,0.7,0.12,-2.75

CreateMeshBuilder
AddVertex, 0, 0.8 , 1.6
AddVertex, 0, 0.8 ,-1.6
AddVertex, 0,-0.1 ,-1.6
AddVertex, 0,-0.1 , 1.6
AddFace2,0,1,2,3
GenerateNormals
LoadTexture, carrello.bmp
SetTextureCoordinates,0,1,0
SetTextureCoordinates,1,0,0
SetTextureCoordinates,2,0,1
SetTextureCoordinates,3,1,1
SetDecalTransparentColor,0,0,0
Translate,-0.7,0.12,-2.75

CreateMeshBuilder
AddVertex, 0, 0.8 , 1.6
AddVertex, 0, 0.8 ,-1.6
AddVertex, 0,-0.1 ,-1.6
AddVertex, 0,-0.1 , 1.6
AddFace2,0,1,2,3
GenerateNormals
LoadTexture, carrello.bmp
SetTextureCoordinates,0,1,0
SetTextureCoordinates,1,0,0
SetTextureCoordinates,2,0,1
SetTextureCoordinates,3,1,1
SetDecalTransparentColor,0,0,0
Translate,0.7,0.12,2.75

CreateMeshBuilder
AddVertex, 0, 0.8 , 1.6
AddVertex, 0, 0.8 ,-1.6
AddVertex, 0,-0.1 ,-1.6
AddVertex, 0,-0.1 , 1.6
AddFace2,0,1,2,3
GenerateNormals
LoadTexture, carrello.bmp
SetTextureCoordinates,0,1,0
SetTextureCoordinates,1,0,0
SetTextureCoordinates,2,0,1
SetTextureCoordinates,3,1,1
SetDecalTransparentColor,0,0,0
Translate,-0.7,0.12,2.75

; Ruote carrello anteriore
; ------------------
CreateMeshBuilder ; Ruota ant sin (3.25 + 0.75 = +4)
cylinder,10, 0.35, 0.38,0.1 
SetColor,24,24,24
rotate,0,0,1,90
translate,-0.55, 0.36, 3.65
CreateMeshBuilder ; Assale ant
cylinder,3, 0.08, 0.08 ,1.1 
SetColor,24,24,24
rotate,0,0,1,-90
translate, 0, 0.36, 3.65
CreateMeshBuilder ; Ruota ant des (3.25 + 0.75 = +4)
cylinder,10, 0.35, 0.38,0.1 
SetColor,24,24,24
rotate,0,0,1,-90
translate, 0.55, 0.36, 3.65
CreateMeshBuilder ; Ruota post sin (3.25 - 0.75 = +2.5)
cylinder,10, 0.35, 0.38,0.1 
SetColor,24,24,24
rotate,0,0,1,90
translate,-0.55, 0.36, 1.65
CreateMeshBuilder ; Assale post
cylinder,3, 0.08, 0.08 ,1.1 
SetColor,24,24,24
rotate,0,0,1,-90
translate, 0, 0.36, 1.65
CreateMeshBuilder ; Ruota post des (3.25 - 0.75 = +2.5)
cylinder,10, 0.35, 0.38,0.1 
SetColor,24,24,24
rotate,0,0,1,-90
translate, 0.55, 0.36, 1.65

; Ruote carrello posteriore
; ------------------
CreateMeshBuilder ; Ruota ant sin (-3.25 + 0.75 = -2.5)
cylinder,10, 0.35, 0.38,0.1 
SetColor,24,24,24
rotate,0,0,1,90
translate,-0.55, 0.36, -1.65
CreateMeshBuilder ; Assale ant
cylinder,3, 0.08, 0.08 ,1.1 
SetColor,24,24,24
rotate,0,0,1,-90
translate, 0, 0.36, -1.65
CreateMeshBuilder ; Ruota ant des (-3.25 + 0.75 = -2.5)
cylinder,10, 0.35, 0.38,0.1 
SetColor,24,24,24
rotate,0,0,1,-90
translate, 0.55, 0.36, -1.65
CreateMeshBuilder ; Ruota post sin (-3.25 - 0.75 = -4)
cylinder,10, 0.35, 0.38,0.1 
SetColor,24,24,24
rotate,0,0,1,90
translate,-0.55, 0.36, -3.65
CreateMeshBuilder ; Assale post
cylinder,3, 0.08, 0.08 ,1.1 
SetColor,24,24,24
rotate,0,0,1,-90
translate, 0, 0.36, -3.65
CreateMeshBuilder ; Ruota post des (-3.25 - 0.75 = -4)
cylinder,10, 0.35, 0.38,0.1 
SetColor,24,24,24
rotate,0,0,1,-90
translate, 0.55, 0.36, -3.65




CreateMeshBuilder ; Respingenti
cylinder,4, 0.12, 0.08 ,0.4 
SetColor,24,24,24
rotate,1,0,0,-90
translate, 0, 0.8, 5.5

CreateMeshBuilder
Cube,0.3,0.15,0.02
SetColor,24,24,24
translate, 0, 0.8, 5.7

CreateMeshBuilder ; Respingenti
cylinder,4, 0.08, 0.12 ,0.4 
SetColor,24,24,24
rotate,1,0,0,-90
translate, 0, 0.8, -5.5

CreateMeshBuilder
Cube,0.3,0.15,0.02
SetColor,24,24,24
translate, 0, 0.8, -5.7



; FeVF - Ferrovia Elettrica della Val di Fiemme
; Pantografo per locomotori da 10.90 metri (Locomotori B51 e B52)
; by Roberto Benini robertobenini@libero.it
; dicembre 2005



; 1 - BASAMENTO pantografo
CreateMeshBuilder; sinistro
Cube, 0.10, 0.125, 1
Translate,-.50,3.5,4.70
Translate,0,0,-1.5
SetColor,150,30,35
CreateMeshBuilder; destro
Cube, 0.10, 0.125, 1
Translate,.50,3.5,4.70
Translate,0,0,-1.5
SetColor,150,30,35
CreateMeshBuilder; coprimotore
Cube, 0.10, 0.125, .50
Translate,0,3.67,4.75
Translate,0,0,-1.5
SetColor,150,30,35


; 2 - PARTE DESTRA PANTOGRAFO
CreateMeshBuilder; molla
Cylinder,6,0.06, 0.06, 0.60
Rotate, 1,0,0,90
Translate, 0.50, 3.80, 4.75;
Translate,0,0,-1.5
SetColor,0,0,0
CreateMeshBuilder; tirante molla
Cylinder,6,0.015,0.015,0.90
Rotate, 1,0,0,90
Translate, 0.50, 3.80,4.75;
Translate,0,0,-1.5
SetColor,150,30,35
CreateMeshBuilder; sostegno
Cylinder,6,0.02, 0.02, 1.60
Rotate, 1,0,0,90
Translate, 0.50, 3.70, 4.75;  
Translate,0,0,-1.5
SetColor,150,30,35
CreateMeshBuilder; basetta isolante anteriore
Cylinder,6,0.035, 0.035, 0.15
Translate, 0.50, 3.65, 5.38; 
Translate,0,0,-1.5
SetColor, 255,255,255,
CreateMeshBuilder; basetta isolante posteriore
Cylinder,6,0.035, 0.035, 0.15
Translate, 0.50, 3.65, 4.12;  
Translate,0,0,-1.5
SetColor, 255,255,255,
; isolatore anteriore
; parte prima
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, 90
Translate,0.50,3.70,5.50
Translate,0,0,-1.5
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 0, 0, 1, 90
Translate,0.50,3.70,5.50
Translate,0,0,-1.5
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, 90
Translate,0.50,3.70,5.50
Translate,0,0,-1.5
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, 90
Translate,0.50,3.70,5.50
Translate,0,0,-1.5
; parte seconda
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, 90
Translate,0.50,3.70,5.45
Translate,0,0,-1.5
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 0, 0, 1, 90
Translate,0.50,3.70,5.45
Translate,0,0,-1.5
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, 90
Translate,0.50,3.70,5.45
Translate,0,0,-1.5
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, 90
Translate,0.50,3.70,5.45
Translate,0,0,-1.5
; isolatore posteriore
; parte prima
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,0.50,3.70,4.00
Translate,0,0,-1.5
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,0.50,3.70,4.00
Translate,0,0,-1.5
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,0.50,3.70,4.00
Translate,0,0,-1.5
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,0.50,3.70,4.00
Translate,0,0,-1.5
; parte seconda
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,0.50,3.70,4.05
Translate,0,0,-1.5
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,0.50,3.70,4.05
Translate,0,0,-1.5
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,0.50,3.70,4.05
Translate,0,0,-1.5
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,0.50,3.70,4.05
Translate,0,0,-1.5
; pantografo anteriore
CreateMeshBuilder; parte inferiore
Cylinder, 6, 0.03, 0.03, 1.30
SetColor,150,30,35
Rotate, 1, 0, 0, 45
Translate,0.50,4.15,5.55
Translate,0,0,-1.5
CreateMeshBuilder; perno inferiore
Cylinder, 6, 0.015, 0.015, 1.00
SetColor,150,30,35
Rotate, 0, 0, 1, 90
Translate,0,3.70,5.10
Translate,0,0,-1.5
CreateMeshBuilder; perno inferiore dx
Cylinder, 6, 0.05, 0.05, 0.05
SetColor,150,30,35
Rotate, 0, 0, 1, 90
Translate,0.55,3.70,5.10
Translate,0,0,-1.5
CreateMeshBuilder; perno inferiore sx
Cylinder, 6, 0.05, 0.05, 0.05
SetColor,150,30,35
Rotate, 0, 0, 1, 90
Translate,-.550,3.70,5.10
Translate,0,0,-1.5
CreateMeshBuilder; parte superiore
Cylinder, 6, 0.02, 0.02, 1.5
SetColor,150,30,35
Rotate, 1, 0, 0, -55
Translate,0.50,5.05,5.35
Translate,0,0,-1.5
CreateMeshBuilder; snodo
Cylinder, 8, 0.05, 0.05, 0.06
SetColor,150,30,35
Rotate, 0, 0, 1, 90
Translate,0,0,-1.5
Translate,0.50,4.60,5.99
; pantografo posteriore
CreateMeshBuilder; parte inferiore
Cylinder, 6, 0.03, 0.03, 1.3
SetColor,150,30,35
Rotate, 1, 0, 0, -45
Translate,0.50,4.15,3.95
Translate,0,0,-1.5
CreateMeshBuilder; perno inferiore
Cylinder, 6, 0.015, 0.015, 1.00
SetColor,150,30,35
Rotate, 0, 0, 1, 90
Translate,0,3.70,4.40
Translate,0,0,-1.5
CreateMeshBuilder; perno inferiore dx
Cylinder, 6, 0.05, 0.05, 0.05
SetColor,150,30,35
Rotate, 0, 0, 1, 90
Translate,0.55,3.70,4.40
Translate,0,0,-1.5
CreateMeshBuilder; perno inferiore sx
Cylinder, 6, 0.05, 0.05, 0.05
SetColor,150,30,35
Rotate, 0, 0, 1, 90
Translate,-.550,3.70,4.40
Translate,0,0,-1.5
CreateMeshBuilder; parte superiore
Cylinder, 6, 0.02, 0.02, 1.5
SetColor,150,30,35
Rotate, 1, 0, 0, 55
Translate,0.50,5.05,4.15
Translate,0,0,-1.5
CreateMeshBuilder; snodo
Cylinder, 8, 0.05, 0.05, 0.06
SetColor,150,30,35
Rotate, 0, 0, 1, 90
Translate,0.50,4.60,3.52
Translate,0,0,-1.5

; 3 - PARTE SINISTRA PANTOGRAFO
CreateMeshBuilder; molla
Cylinder,6,0.06, 0.06, 0.60
Rotate, 1,0,0,90
Translate, -0.50, 3.80, 4.75;  
Translate,0,0,-1.5
SetColor,0,0,0
CreateMeshBuilder; tirante molla
Cylinder,6,0.015,0.015,0.90
Rotate, 1,0,0,90
Translate, -0.50, 3.80,4.75;  
SetColor,150,30,35
Translate,0,0,-1.5
CreateMeshBuilder; sostegno
Cylinder,6,0.02, 0.02, 1.60
Rotate, 1,0,0,90
Translate, -0.50, 3.70, 4.75;  
Translate,0,0,-1.5
SetColor,150,30,35
CreateMeshBuilder; basetta isolante anteriore
Cylinder,6,0.035, 0.035, 0.15
Translate, -0.50, 3.65, 5.38;  
Translate,0,0,-1.5
SetColor, 255,255,255,
CreateMeshBuilder; basetta isolante posteriore
Cylinder,6,0.035, 0.035, 0.15
Translate, -0.50, 3.65, 4.12;  
Translate,0,0,-1.5
SetColor, 255,255,255,
; isolatore anteriore
; parte prima
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, 90
Translate,-0.50,3.70,5.50
Translate,0,0,-1.5
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 0, 0, 1, 90
Translate,-0.50,3.70,5.50
Translate,0,0,-1.5
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, 90
Translate,-0.50,3.70,5.50
Translate,0,0,-1.5
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, 90
Translate,-0.50,3.70,5.50
Translate,0,0,-1.5
; parte seconda
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, 90
Translate,-0.50,3.70,5.45
Translate,0,0,-1.5
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 0, 0, 1, 90
Translate,-0.50,3.70,5.45
Translate,0,0,-1.5
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, 90
Translate,-0.50,3.70,5.45
Translate,0,0,-1.5
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, 90
Translate,-0.50,3.70,5.45
Translate,0,0,-1.5
; isolatore posteriore
; parte prima
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,-0.50,3.70,4.00
Translate,0,0,-1.5
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,-0.50,3.70,4.00
Translate,0,0,-1.5
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,-0.50,3.70,4.00
Translate,0,0,-1.5
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,-0.50,3.70,4.00
Translate,0,0,-1.5
; parte seconda
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,-0.50,3.70,4.05
Translate,0,0,-1.5
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,-0.50,3.70,4.05
Translate,0,0,-1.5
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,-0.50,3.70,4.05
Translate,0,0,-1.5
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,-0.50,3.70,4.05
Translate,0,0,-1.5
; pantografo anteriore
CreateMeshBuilder; parte inferiore
Cylinder, 6, 0.03, 0.03, 1.30
SetColor,150,30,35
Rotate, 1, 0, 0, 45
Translate,-0.50,4.15,5.55
Translate,0,0,-1.5
CreateMeshBuilder; parte superiore
Cylinder, 6, 0.02, 0.02, 1.5
SetColor,150,30,35
Rotate, 1, 0, 0, -55
Translate,-0.50,5.05,5.35
Translate,0,0,-1.5
CreateMeshBuilder; snodo
Cylinder, 8, 0.05, 0.05, 0.06
SetColor,150,30,35
Rotate, 0, 0, 1, 90
Translate,-0.50,4.60,5.99
Translate,0,0,-1.5
; pantografo posteriore
CreateMeshBuilder; parte inferiore
Cylinder, 6, 0.03, 0.03, 1.3
SetColor,150,30,35
Rotate, 1, 0, 0, -45
Translate,-0.50,4.15,3.95
Translate,0,0,-1.5
CreateMeshBuilder; parte superiore
Cylinder, 6, 0.02, 0.02, 1.5
SetColor,150,30,35
Rotate, 1, 0, 0, 55
Translate,-0.50,5.05,4.15
Translate,0,0,-1.5
CreateMeshBuilder; snodo
Cylinder, 8, 0.05, 0.05, 0.06
SetColor,150,30,35
Rotate, 0, 0, 1, 90
Translate,-0.50,4.60,3.52
Translate,0,0,-1.5

; 4 - contatto superiore pantografo
CreateMeshBuilder
Cube, 0.525, 0.005, 0.04
Translate,0,5.49,4.80
Translate,0,0,-1.5
SetColor, 132,98,71
CreateMeshBuilder
Cube, 0.525, 0.005, 0.04
Translate,0,5.49,4.70
Translate,0,0,-1.5
SetColor, 132,98,71
CreateMeshBuilder ; spiovente dx
AddVertex, 0,0,.09
AddVertex, .15,-.10,.025
AddVertex, .15,-.10 ,-.025
AddVertex, 0,0 ,-.09
Addface2, 0,1,2,3
SetColor, 132,98,71
Translate,0.53,5.49,4.75
Translate,0,0,-1.5
CreateMeshBuilder ; spiovente sx
AddVertex, 0,0,.09
AddVertex, 0.15,-.10,.025
AddVertex, 0.15,-.10 ,-.025
AddVertex, 0,0 ,-.09
Addface2, 0,1,2,3
SetColor, 132,98,71
Rotate,0,1,0,180
Translate,-0.53,5.49,4.75
Translate,0,0,-1.5

; 5 - diagonali pantografo
CreateMeshBuilder; anteriore 
Cylinder, 6, 0.02, 0.02, 1.4
SetColor,150,30,35
Rotate,0,0,1,45
Rotate, 1, 0, 0,-55
Translate,0,5.05,5.35
Translate,0,0,-1.5
CreateMeshBuilder; postriore
Cylinder, 6, 0.02, 0.02, 1.4
SetColor,150,30,35
Rotate,0,0,1,-45
Rotate, 1, 0, 0, 55
Translate,0,5.05,4.15
Translate,0,0,-1.5

; 5 - TETTUCCIO
CreateMeshBuilder
cube,0.70,0.20,2.20
SetColor,117,119,95
translate, 0, 3.65, -2

CreateMeshBuilder ; Tetto 
AddVertex, -0.92  , 3.27 , 2.2
AddVertex, -0.92  , 3.27 ,-2.2
AddVertex, -0.85  , 3.40 , 2.2
AddVertex, -0.85  , 3.40 ,-2.2
AddVertex, -0.75  , 3.50 , 2.2
AddVertex, -0.75  , 3.50 ,-2.2
AddVertex, -0.30  , 3.57 , 2.2
AddVertex, -0.30  , 3.57 ,-2.2
AddVertex,  0.00  , 3.60 , 2.2
AddVertex,  0.00  , 3.60 ,-2.2
AddVertex,  0.30  , 3.57 , 2.2
AddVertex,  0.30  , 3.57 ,-2.2
AddVertex,  0.75  , 3.50 , 2.2
AddVertex,  0.75  , 3.50 ,-2.2
AddVertex,  0.85  , 3.40 , 2.2
AddVertex,  0.85  , 3.40 ,-2.2
AddVertex,  0.92  , 3.27 , 2.2
AddVertex,  0.92  , 3.27 ,-2.2
AddFace2, 2, 3, 1, 0
AddFace2, 4, 5, 3, 2
AddFace2, 6, 7, 5, 4
AddFace2, 8, 9, 7, 6
AddFace2,10,11, 9, 8
AddFace2,12,13,11,10
AddFace2,14,15,13,12
AddFace2,16,17,15,14
GenerateNormals
LoadTexture, tetto_medio.bmp
SetTextureCoordinates,0,0,0.1
SetTextureCoordinates,1,0 ,0.9
SetTextureCoordinates,2,0.0286,0.1
SetTextureCoordinates,3,0.0286,0.9
SetTextureCoordinates,4,0.0696,0.1
SetTextureCoordinates,5,0.0696,0.9
SetTextureCoordinates,6,0.2540,0.1
SetTextureCoordinates,7,0.2540,0.9
SetTextureCoordinates,8,0.50,0.1
SetTextureCoordinates,9,0.50,0.9
SetTextureCoordinates,10,0.746,0.1
SetTextureCoordinates,11,0.746,0.9
SetTextureCoordinates,12,0.9304,0.1
SetTextureCoordinates,13,0.9304,0.9
SetTextureCoordinates,14,0.9714,0.1
SetTextureCoordinates,15,0.9714,0.9
SetTextureCoordinates,16,1,0.1
SetTextureCoordinates,17,1,0.9
Translate,0,0.37,-2
CreateMeshBuilder ; parte anteriore
AddVertex, -0.92  , 3.27 ,0
AddVertex, -0.92  , 3.27 ,0
AddVertex, -0.85  , 3.40 ,0
AddVertex, -0.85  , 3.27 ,-0.1
AddVertex, -0.75  , 3.50 ,0
AddVertex, -0.75  , 3.27 ,-0.2
AddVertex, -0.30  , 3.57 ,0
AddVertex, -0.30  , 3.27 ,-0.3
AddVertex,  0.00  , 3.60 ,0
AddVertex,  0.00  , 3.27 ,-0.3
AddVertex,  0.30  , 3.57 ,0
AddVertex,  0.30  , 3.27 ,-0.3
AddVertex,  0.75  , 3.50 ,0
AddVertex,  0.75  , 3.27 ,-0.2
AddVertex,  0.85  , 3.40 ,0
AddVertex,  0.85  , 3.27 ,-0.1
AddVertex,  0.92  , 3.27 ,0
AddVertex,  0.92  , 3.27 ,0
AddFace2, 2, 3, 1, 0
AddFace2, 4, 5, 3, 2
AddFace2, 6, 7, 5, 4
AddFace2, 8, 9, 7, 6
AddFace2,10,11, 9, 8
AddFace2,12,13,11,10
AddFace2,14,15,13,12
AddFace2,16,17,15,14
GenerateNormals
LoadTexture, tetto_medio.bmp
SetTextureCoordinates,0,0,0.9
SetTextureCoordinates,1,0 ,1
SetTextureCoordinates,2,0.0286,0.9
SetTextureCoordinates,3,0.0286,1
SetTextureCoordinates,4,0.0696,0.9
SetTextureCoordinates,5,0.0696,1
SetTextureCoordinates,6,0.2540,0.9
SetTextureCoordinates,7,0.2540,1
SetTextureCoordinates,8,0.50,0.9
SetTextureCoordinates,9,0.50,1
SetTextureCoordinates,10,0.746,0.9
SetTextureCoordinates,11,0.746,1
SetTextureCoordinates,12,0.9304,0.9
SetTextureCoordinates,13,0.9304,1
SetTextureCoordinates,14,0.9714,0.9
SetTextureCoordinates,15,0.9714,1
SetTextureCoordinates,16,1,0.9
SetTextureCoordinates,17,1,1
Translate,0,0.37,-4.20
CreateMeshBuilder ; parte posteriore
AddVertex, -0.92  , 3.27 ,0
AddVertex, -0.92  , 3.27 ,0
AddVertex, -0.85  , 3.40 ,0
AddVertex, -0.85  , 3.27 ,-0.1
AddVertex, -0.75  , 3.50 ,0
AddVertex, -0.75  , 3.27 ,-0.2
AddVertex, -0.30  , 3.57 ,0
AddVertex, -0.30  , 3.27 ,-0.3
AddVertex,  0.00  , 3.60 ,0
AddVertex,  0.00  , 3.27 ,-0.3
AddVertex,  0.30  , 3.57 ,0
AddVertex,  0.30  , 3.27 ,-0.3
AddVertex,  0.75  , 3.50 ,0
AddVertex,  0.75  , 3.27 ,-0.2
AddVertex,  0.85  , 3.40 ,0
AddVertex,  0.85  , 3.27 ,-0.1
AddVertex,  0.92  , 3.27 ,0
AddVertex,  0.92  , 3.27 ,0
AddFace2, 2, 3, 1, 0
AddFace2, 4, 5, 3, 2
AddFace2, 6, 7, 5, 4
AddFace2, 8, 9, 7, 6
AddFace2,10,11, 9, 8
AddFace2,12,13,11,10
AddFace2,14,15,13,12
AddFace2,16,17,15,14
GenerateNormals
LoadTexture, tetto_medio.bmp
SetTextureCoordinates,0,0,0.9
SetTextureCoordinates,1,0 ,1
SetTextureCoordinates,2,0.0286,0.9
SetTextureCoordinates,3,0.0286,1
SetTextureCoordinates,4,0.0696,0.9
SetTextureCoordinates,5,0.0696,1
SetTextureCoordinates,6,0.2540,0.9
SetTextureCoordinates,7,0.2540,1
SetTextureCoordinates,8,0.50,0.9
SetTextureCoordinates,9,0.50,1
SetTextureCoordinates,10,0.746,0.9
SetTextureCoordinates,11,0.746,1
SetTextureCoordinates,12,0.9304,0.9
SetTextureCoordinates,13,0.9304,1
SetTextureCoordinates,14,0.9714,0.9
SetTextureCoordinates,15,0.9714,1
SetTextureCoordinates,16,1,0.9
SetTextureCoordinates,17,1,1
Rotate,0,1,0,180
Translate,0,0.37,0.200


; 6 - ISOLATORI CONDUTTORI CORRENTE
; primo isolatore
; parte prima
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
Translate,0.50,3.70,4.00
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
Translate,0.50,3.70,4.00
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
Translate,0.50,3.70,4.00
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
Translate,0.50,3.70,4.00

; parte seconda
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,0.50,3.70,4.05
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,0.50,3.70,4.05
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,0.50,3.70,4.05
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
Rotate, 1, 0, 0, -90
Translate,0.50,3.70,4.05

; filo conduttore


CreateMeshBuilder; curva anteriore
Cylinder, 8, 0.015, 0.015,1.00
SetColor,0,0,0
Rotate,1,0,0,90
Translate,1.55,3.70,3.20
Rotate,0,1,0,-15

CreateMeshBuilder; parte rettilinea
Cylinder, 8, 0.015, 0.015,3
SetColor,0,0,0
Rotate,1,0,0,90
Translate,.80,3.70,1.5

CreateMeshBuilder; curva posteriore
Cylinder, 8, 0.015, 0.015,.70
SetColor,0,0,0
Rotate,1,0,0,90
Rotate,0,1,0,15

Translate,0.70,3.70,-.30

; isolatore n. 1
;perno isolatore
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.015, 0.015,.20
Translate, 0,0,0
SetColor,0,0,0
Translate,0.80,3.60,0
; parte prima
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.60,0
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.60,0
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.60,0
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.60,0
; parte seconda
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.65,0
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.65,0
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.65,0
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.65,0




; isolatore n. 2
;perno isolatore
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.015, 0.015,.20
Translate, 0,0,0
SetColor,0,0,0
Translate,0.80,3.60,1
; parte prima
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.60,1
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.60,1
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.60,1
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.60,1
; parte seconda
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.65,1
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.65,1
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.65,1
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.65,1

; isolatore n. 3
;perno isolatore
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.015, 0.015,.20
Translate, 0,0,0
SetColor,0,0,0
Translate,0.80,3.60,2
; parte prima
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.60,2
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.60,2
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.60,2
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.60,2
; parte seconda
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.65,2
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.65,2
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.65,2
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.65,2

; isolatore n. 4
;perno isolatore
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.015, 0.015,.20
Translate, 0,0,0
SetColor,0,0,0
Translate,0.80,3.60,3
; parte prima
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.60,3
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.60,3
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.60,3
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.60,3
; parte seconda
CreateMeshBuilder; cilindro conico inferiore
Cylinder, 8, 0.033, 0.04, 0.04
Translate, 0.0, 0.00525, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.65,3
CreateMeshBuilder; cilindro conico superiore
Cylinder, 8, 0.02, 0.033, 0.015
Translate, 0.0, 0.03225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.65,3
CreateMeshBuilder; isolante ceramico
Cylinder, 8, 0.02, 0.08, 0.025
Translate, 0.0, -0.02225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.65,3
CreateMeshBuilder
Cylinder, 8, 0.06, 0.08, 0.015
Translate, 0.0, -0.03225, 0
SetColor, 255,255,255; bianco
;Rotate, 1, 0, 0, -90
Translate,0.80,3.65,3





; FEVF - FERROVIA ELETTRICA VALLE DI FIEMME
; by Roberto Benini - robertobenini@libero.it

; - - - - - - spartineve anteriore
CreateMeshBuilder ; superficie frontale 
AddVertex, -1.0  , 0.50 ,-0.05,	;0
AddVertex, 0  , 0.50 ,0.15	;1
AddVertex, 1  , .50 , -.05,;2	

AddVertex, -1.0  , 0.40 ,-0.10,;3
AddVertex, 0  , 0.40 ,0.10,;4
AddVertex, 1  , .40 , -.10,;5

AddVertex, -1.0  , 0.30 ,-.05,;6
AddVertex, 0  , 0.30 ,0.15,;7
AddVertex, 1  , .30 , -0.05,;8

AddVertex, -1.15 , 0.05 ,0.30,;9
AddVertex, 0  , 0.05 ,0.45,;10
AddVertex, 1.15,.05 , 0.30,;11

AddFace2, 0,1,4,3
Addface2, 1,2,5,4
Addface2, 3,4,7,6
Addface2, 4,5,8,7
Addface2,6,7,10,9
Addface2,7,8,11,10

Translate,0,0,4.75

SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238


; supporto dx
CreateMeshBuilder
Cube,0.015,0.065,0.70
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
translate, 0.65, 0.22, 4.13

CreateMeshBuilder
Cube,0.02,0.30,0.02
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
rotate,1,0,0,-15
translate, 0.65, 0.52, 4.60



; supporto sx
CreateMeshBuilder
Cube,0.015,0.065,0.70
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
translate, -0.65, 0.22, 4.13

CreateMeshBuilder
Cube,0.02,0.30,0.02
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
rotate,1,0,0,-15
translate, -0.65, 0.52, 4.60

; - - - - - -spartineve posteriore
CreateMeshBuilder ; superficie frontale 
AddVertex, -1.0  , 0.50 ,-0.05,	;0
AddVertex, 0  , 0.50 ,0.15	;1
AddVertex, 1  , .50 , -.05,;2	

AddVertex, -1.0  , 0.40 ,-0.10,;3
AddVertex, 0  , 0.40 ,0.10,;4
AddVertex, 1  , .40 , -.10,;5

AddVertex, -1.0  , 0.30 ,-.05,;6
AddVertex, 0  , 0.30 ,0.15,;7
AddVertex, 1  , .30 , -0.05,;8

AddVertex, -1.15 , 0.05 ,0.30,;9
AddVertex, 0  , 0.05 ,0.45,;10
AddVertex, 1.15,.05 , 0.30,;11

AddFace2, 0,1,4,3
Addface2, 1,2,5,4
Addface2, 3,4,7,6
Addface2, 4,5,8,7
Addface2,6,7,10,9
Addface2,7,8,11,10

Translate,0,0,4.75

SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
Rotate,0,1,0,180

; supporto dx
CreateMeshBuilder
Cube,0.015,0.065,0.70
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
translate, 0.65, 0.22, 4.13
Rotate,0,1,0,180

CreateMeshBuilder
Cube,0.02,0.30,0.02
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
rotate,1,0,0,-15
translate, 0.65, 0.52, 4.60
Rotate,0,1,0,180



; supporto sx
CreateMeshBuilder
Cube,0.015,0.065,0.70
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
translate, -0.65, 0.22, 4.13
Rotate,0,1,0,180

CreateMeshBuilder
Cube,0.02,0.30,0.02
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
rotate,1,0,0,-15
translate, -0.65, 0.52, 4.60
Rotate,0,1,0,180


; FEVF - FERROVIA ELETTRICA VALLE DI FIEMME
; by Roberto Benini - robertobenini@libero.it


; - - - - - struttura portante 
CreateMeshBuilder; longitudinale dx
Cube,0.05,0.15,5.10
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
translate, 0.50, 0.67, 0
CreateMeshBuilder;longitudinale sx
Cube,0.05,0.15,5.10
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
translate, -0.50, 0.67, 0
CreateMeshBuilder;trasversale anteriore
Cube,0.05,0.175,.65
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
Rotate,0,1,0,90
translate, 0, 0.67, 5.10
CreateMeshBuilder;trasversale posteriore
Cube,0.05,0.175,.65
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
Rotate,0,1,0,90
translate, 0, 0.67, -5.10

; ganci
CreateMeshBuilder ; anteriore 
AddVertex, 0  , 0.70 ,-0.15
AddVertex, 0  , 0.70, 0.15
AddVertex, 0  , 0.10 ,0.15
AddVertex, 0  , 0.10 ,-0.15
AddFace2,0,1,2,3
GenerateNormals
LoadTexture, gancio.bmp
SetTextureCoordinates,0,0,0
SetTextureCoordinates,1,1,0
SetTextureCoordinates,2,1,1
SetTextureCoordinates,3,0,1
SetDecalTransparentColor,0,0,0
Translate,0,0.00,5.30

CreateMeshBuilder ; posteriore 
AddVertex, 0  , 0.70 ,-0.15
AddVertex, 0  , 0.70, 0.15
AddVertex, 0  , 0.10 ,0.15
AddVertex, 0  , 0.10 ,-0.15
AddFace2,0,1,2,3
GenerateNormals
LoadTexture, gancio.bmp
SetTextureCoordinates,0,0,0
SetTextureCoordinates,1,1,0
SetTextureCoordinates,2,1,1
SetTextureCoordinates,3,0,1
SetDecalTransparentColor,0,0,0
Rotate,0,1,0,180
Translate,0,0.00,-5.30


; - - - - - -  meccanismi sottopianale
CreateMeshBuilder; cassa dx
Cube,0.50,0.15,0.55
SetColor,120,120,120
translate, 0.64, 0.45, -.30

CreateMeshBuilder; cassa sx
Cube,0.50,0.15,0.55
SetColor,120,120,120
translate, -0.64, 0.45, 0.30


CreateMeshBuilder ; serbatoio dx
cylinder,10, 0.20, 0.20 ,1 
SetColor,120,120,120
rotate,1,0,0,90
translate, 0.9, 0.55, .80

CreateMeshBuilder ; serbatoio sx
cylinder,10, 0.20, 0.20 ,1 
SetColor,120,120,120
rotate,1,0,0,90
translate, -0.9, 0.55, -0.80



; - - - - - - struttura laterale dx
CreateMeshBuilder; anteriore
Cube,0.02,0.02,1.27
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
translate, -1.15, 0.08, 2.5
Rotate,1,0,0,-10
CreateMeshBuilder; centrale
Cube,0.02,0.02,1.25
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
translate, -1.15, 0.30, 0
CreateMeshBuilder; posteriore
Cube,0.02,0.02,1.25
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
translate, -1.15, 0.08, -2.5
Rotate,1,0,0,10
CreateMeshBuilder; verticale
Cube,0.02,0.25,.02
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
translate, -1.15, 0.57, 1.27
CreateMeshBuilder; verticale
Cube,0.02,0.25,.02
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
translate, -1.15, 0.57, -1.25


; - - - - - - struttura laterale sx
CreateMeshBuilder; anteriore
Cube,0.02,0.02,1.27
SetColor,41,66,57,
translate, 1.15, 0.08, 2.5
Rotate,1,0,0,-10
CreateMeshBuilder; centrale
Cube,0.02,0.02,1.25
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
translate, 1.15, 0.30, 0
CreateMeshBuilder; posteriore
Cube,0.02,0.02,1.25
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
translate, 1.15, 0.08, -2.5
Rotate,1,0,0,10
CreateMeshBuilder; verticale
Cube,0.02,0.25,.02
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
translate, 1.15, 0.57, 1.27
CreateMeshBuilder; verticale
Cube,0.02,0.25,.02
SetColor,41,66,57,;236,228,191,;230,228,213,; 215,234,238
translate, 1.15, 0.57, -1.25


; - - - - - - fanali ANTERIORI 
CreateMeshBuilder ; alto 
cylinder,10, 0.15, 0.15 ,0.250 
SetColor,0,0,0
rotate,1,0,0,90
translate, 0, 3.30, 5.30
CreateMeshBuilder ; immagine fanale 
AddVertex, 0.23  , 0.23 ,0
AddVertex, -0.23  , 0.23, 0
AddVertex, -0.23  , -0.23 ,0
AddVertex, 0.23 , -0.23 ,0
AddFace,0,1,2,3
GenerateNormals
LoadTexture, fanale.bmp
SetTextureCoordinates,0,0,0
SetTextureCoordinates,1,1,0
SetTextureCoordinates,2,1,1
SetTextureCoordinates,3,0,1
SetDecalTransparentColor,0,0,0
Translate,-0.02,3.31,5.43
SetEmissiveColor,20,150,150

CreateMeshBuilder ; basso dx 
cylinder,10, 0.15, 0.15 ,0.250 
SetColor,0,0,0
rotate,1,0,0,90
translate, 0.70, 1.39, 5.25
CreateMeshBuilder ; immagine fanale 
AddVertex, 0.23  , 0.23 ,0
AddVertex, -0.23  , 0.23, 0
AddVertex, -0.23  , -0.23 ,0
AddVertex, 0.23 , -0.23 ,0
AddFace,0,1,2,3
GenerateNormals
LoadTexture, fanale.bmp
SetTextureCoordinates,0,0,0
SetTextureCoordinates,1,1,0
SetTextureCoordinates,2,1,1
SetTextureCoordinates,3,0,1
SetDecalTransparentColor,0,0,0
Translate,0.68,1.40,5.38; delta rispetto a cylinder -0.02,0.01,0.15
SetEmissiveColor,20,150,150

CreateMeshBuilder ; basso sx 
cylinder,10, 0.15, 0.15 ,0.250 
SetColor,0,0,0
rotate,1,0,0,90
translate, -0.70, 1.39, 5.25
CreateMeshBuilder ; immagine fanale 
AddVertex, 0.23  , 0.23 ,0
AddVertex, -0.23  , 0.23, 0
AddVertex, -0.23  , -0.23 ,0
AddVertex, 0.23 , -0.23 ,0
AddFace,0,1,2,3
GenerateNormals
LoadTexture, fanale.bmp
SetTextureCoordinates,0,0,0
SetTextureCoordinates,1,1,0
SetTextureCoordinates,2,1,1
SetTextureCoordinates,3,0,1
SetDecalTransparentColor,0,0,0
Translate,-0.72,1.40,5.38; delta rispetto a cylinder -0.02,0.01,0.15
SetEmissiveColor,20,150,150

; - - - - - - fanali posteriori
CreateMeshBuilder ; alto 
cylinder,10, 0.15, 0.15 ,0.250 
SetColor,0,0,0
rotate,1,0,0,90
translate, 0, 3.30, 5.30
Rotate,0,1,0,180
CreateMeshBuilder ; immagine fanale 
AddVertex, 0.23  , 0.23 ,0
AddVertex, -0.23  , 0.23, 0
AddVertex, -0.23  , -0.23 ,0
AddVertex, 0.23 , -0.23 ,0
AddFace,0,1,2,3
GenerateNormals
LoadTexture, fanale.bmp
SetTextureCoordinates,0,0,0
SetTextureCoordinates,1,1,0
SetTextureCoordinates,2,1,1
SetTextureCoordinates,3,0,1
SetDecalTransparentColor,0,0,0
Translate,-0.02,3.31,5.43
Rotate,0,1,0,180
SetEmissiveColor,20,150,150

CreateMeshBuilder ; basso dx 
cylinder,10, 0.15, 0.15 ,0.250 
SetColor,0,0,0
rotate,1,0,0,90
translate, 0.70, 1.39, 5.25
Rotate,0,1,0,180

CreateMeshBuilder ; immagine fanale 
AddVertex, 0.23  , 0.23 ,0
AddVertex, -0.23  , 0.23, 0
AddVertex, -0.23  , -0.23 ,0
AddVertex, 0.23 , -0.23 ,0
AddFace,0,1,2,3
GenerateNormals
LoadTexture, fanale.bmp
SetTextureCoordinates,0,0,0
SetTextureCoordinates,1,1,0
SetTextureCoordinates,2,1,1
SetTextureCoordinates,3,0,1
SetDecalTransparentColor,0,0,0
Translate,0.68,1.40,5.38; delta rispetto a cylinder -0.02,0.01,0.15
Rotate,0,1,0,180
SetEmissiveColor,20,150,150
CreateMeshBuilder ; basso sx 
cylinder,10, 0.15, 0.15 ,0.250 
SetColor,0,0,0
rotate,1,0,0,90
translate, -0.70, 1.39, 5.25
Rotate,0,1,0,180

CreateMeshBuilder ; immagine fanale 
AddVertex, 0.23  , 0.23 ,0
AddVertex, -0.23  , 0.23, 0
AddVertex, -0.23  , -0.23 ,0
AddVertex, 0.23 , -0.23 ,0
AddFace,0,1,2,3
GenerateNormals
LoadTexture, fanale.bmp
SetTextureCoordinates,0,0,0
SetTextureCoordinates,1,1,0
SetTextureCoordinates,2,1,1
SetTextureCoordinates,3,0,1
SetDecalTransparentColor,0,0,0
Translate,-0.72,1.40,5.38; delta rispetto a cylinder -0.02,0.01,0.15
Rotate,0,1,0,180
SetEmissiveColor,20,150,150

; FEVF - FERROVIA ELETTRICA VALLE DI FIEMME
; by Roberto Benini - robertobenini@libero.it
; (C) 06/12/2005
; in caso di utilizzo citare fonte

; - - - - - -  MANCORRENTI ANTERIORI

; DX 
CreateMeshBuilder ; orizzontale 
cylinder,5, 0.015, 0.015 ,0.500 
SetColor,111,109,84
rotate,1,0,0,90
translate, 0.4, 1.92, 5.32
CreateMeshBuilder ; diagonale 
cylinder,5, 0.015, 0.015 ,0.6200 
SetColor,111,109,84
rotate,1,0,0,45
translate, 0.4, 1.65, 5.375
CreateMeshBuilder ; curva 1
cylinder,5, 0.015, 0.015 ,0.045 
SetColor,111,109,84
rotate,1,0,0,-45
translate, 0.40, 1.91, 5.58
CreateMeshBuilder ; curva 2
cylinder,5, 0.015, 0.015 ,0.04 
SetColor,111,109,84
translate, 0.40, 1.88, 5.59
; SX 
CreateMeshBuilder ; orizzontale 
cylinder,5, 0.015, 0.015 ,0.500 
SetColor,111,109,84
rotate,1,0,0,90
translate, -0.4, 1.92, 5.32
CreateMeshBuilder ; diagonale 
cylinder,5, 0.015, 0.015 ,0.6200 
SetColor,111,109,84
rotate,1,0,0,45
translate, -0.4, 1.65, 5.375
CreateMeshBuilder ; curva 1
cylinder,5, 0.015, 0.015 ,0.045 
SetColor,111,109,84
rotate,1,0,0,-45
translate, -0.40, 1.91, 5.58
CreateMeshBuilder ; curva 2
cylinder,5, 0.015, 0.015 ,0.04 
SetColor,111,109,84
translate, -0.40, 1.88,5.59

; - - - - - -  MANCORRENTI POSTERIORI

; DX 
CreateMeshBuilder ; orizzontale 
cylinder,5, 0.015, 0.015 ,0.500 
SetColor,111,109,84
rotate,1,0,0,90
translate, 0.4, 1.92, 5.32
rotate,0,1,0,180
CreateMeshBuilder ; diagonale 
cylinder,5, 0.015, 0.015 ,0.6200 
SetColor,111,109,84
rotate,1,0,0,45
translate, 0.4, 1.65, 5.375
rotate,0,1,0,180

CreateMeshBuilder ; curva 1
cylinder,5, 0.015, 0.015 ,0.045 
SetColor,111,109,84
rotate,1,0,0,-45
translate, 0.40, 1.91, 5.58
rotate,0,1,0,180

CreateMeshBuilder ; curva 2
cylinder,5, 0.015, 0.015 ,0.04 
SetColor,111,109,84
translate, 0.40, 1.88, 5.59
rotate,0,1,0,180

; SX 
CreateMeshBuilder ; orizzontale 
cylinder,5, 0.015, 0.015 ,0.500 
SetColor,111,109,84
rotate,1,0,0,90
translate, -0.4, 1.92, 5.32
rotate,0,1,0,180

CreateMeshBuilder ; diagonale 
cylinder,5, 0.015, 0.015 ,0.6200 
SetColor,111,109,84
rotate,1,0,0,45
translate, -0.4, 1.65, 5.375
rotate,0,1,0,180

CreateMeshBuilder ; curva 1
cylinder,5, 0.015, 0.015 ,0.045 
SetColor,111,109,84
rotate,1,0,0,-45
translate, -0.40, 1.91, 5.58
rotate,0,1,0,180

CreateMeshBuilder ; curva 2
cylinder,5, 0.015, 0.015 ,0.04 
SetColor,111,109,84
translate, -0.40, 1.88,5.59
rotate,0,1,0,180



; FEVF - FERROVIA ELETTRICA VALLE DI FIEMME
; by Roberto Benini - robertobenini@libero.it
; (C) 06/12/2005
; in caso di utilizzo citare fonte

; - - - - - -  MANICOTTO ANTERIORE 


CreateMeshBuilder ; tubo verticale
cylinder,8, 0.03, 0.03 ,1 
SetColor,40,40,40
translate, 0.5, 1.37,5.32

; 5 PEZZI DA 20x6 cm
CreateMeshBuilder ; 1 
cylinder,8, 0.03, 0.03 ,0.20 
SetColor,40,40,40
rotate,1,0,0,30
translate, 0.485, 1.08,5.37

CreateMeshBuilder ; 2 
cylinder,8, 0.03, 0.03 ,0.20 
SetColor,40,40,40
rotate,1,0,0,22.5
translate, 0.485, 1.255,5.46

CreateMeshBuilder ; 3 
cylinder,8, 0.03, 0.03 ,0.20 
SetColor,40,40,40
rotate,1,0,0,0
translate, 0.485, 1.43,5.495

CreateMeshBuilder ; 4 
cylinder,8, 0.03, 0.03 ,0.20 
SetColor,40,40,40
rotate,1,0,0,-22.5
translate, 0.485, 1.605,5.46

CreateMeshBuilder ; 5 
cylinder,8, 0.03, 0.03 ,0.20 
SetColor,40,40,40
rotate,1,0,0,-30
translate, 0.485, 1.775,5.37

; - - - - - - manicotto posteriore

CreateMeshBuilder ; tubo verticale
cylinder,8, 0.03, 0.03 ,1 
SetColor,40,40,40
translate, 0.5, 1.37,5.32
rotate,0,1,0,180

; 5 PEZZI DA 20x6 cm
CreateMeshBuilder ; 1 
cylinder,8, 0.03, 0.03 ,0.20 
SetColor,40,40,40
rotate,1,0,0,30
translate, 0.485, 1.08,5.37
rotate,0,1,0,180

CreateMeshBuilder ; 2 
cylinder,8, 0.03, 0.03 ,0.20 
SetColor,40,40,40
rotate,1,0,0,22.5
translate, 0.485, 1.255,5.46
rotate,0,1,0,180

CreateMeshBuilder ; 3 
cylinder,8, 0.03, 0.03 ,0.20 
SetColor,40,40,40
rotate,1,0,0,0
translate, 0.485, 1.43,5.495
rotate,0,1,0,180

CreateMeshBuilder ; 4 
cylinder,8, 0.03, 0.03 ,0.20 
SetColor,40,40,40
rotate,1,0,0,-22.5
translate, 0.485, 1.605,5.46
rotate,0,1,0,180

CreateMeshBuilder ; 5 
cylinder,8, 0.03, 0.03 ,0.20 
SetColor,40,40,40
rotate,1,0,0,-30
translate, 0.485, 1.775,5.37
rotate,0,1,0,180


