;; Cabina 3D - TGV Paris Sud Est Renov 3
;; Autor : Manuel mejias
;; Funcionalidades: INFINTAS.
;; (c) 2013

;; Cabina

[include]
Cabina Renov 3\Cabina.csv

[include]
Cabina Renov 3\MT.b3d



;----------------------------Visualización "CAB-TVM"
;--------------------------------------------------------------
[Object]
States = Cabina Renov 3/TVM\300A.csv

stateFunction = If[section == 205,0,1]

[Object]
States = Cabina Renov 3/TVM\300A.csv

stateFunction = If[section == 204,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\300VL.csv

stateFunction = If[section == 203,0,1]

[Object]
States = Cabina Renov 3/TVM\300VL.csv

stateFunction = If[section == 202,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\300E.csv

stateFunction = If[section == 201,0,1]

[Object]
States = Cabina Renov 3/TVM\300E.csv

stateFunction = If[section == 200,floor[mod[time * 1.25, 2]],1]

;--------------------------------------------------------------
[Object]
States = Cabina Renov 3/TVM\270A.csv

stateFunction = If[section == 195,0,1]

[Object]
States = Cabina Renov 3/TVM\270A.csv

stateFunction = If[section == 194,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\270VL.csv

stateFunction = If[section == 193,0,1]

[Object]
States = Cabina Renov 3/TVM\270VL.csv

stateFunction = If[section == 192,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\270E.csv

stateFunction = If[section == 191,0,1]

[Object]
States = Cabina Renov 3/TVM\270E.csv

stateFunction = If[section == 190,floor[mod[time * 1.25, 2]],1]

;--------------------------------------------------------------
[Object]
States = Cabina Renov 3/TVM\230A.csv

stateFunction = If[section == 185,0,1]

[Object]
States = Cabina Renov 3/TVM\230A.csv

stateFunction = If[section == 184,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\230VL.csv

stateFunction = If[section == 183,0,1]

[Object]
States = Cabina Renov 3/TVM\230VL.csv

stateFunction = If[section == 182,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\230E.csv

stateFunction = If[section == 181,0,1]

[Object]
States = Cabina Renov 3/TVM\230E.csv

stateFunction = If[section == 180,floor[mod[time * 1.25, 2]],1]

;--------------------------------------------------------------
[Object]
States = Cabina Renov 3/TVM\220A.csv

stateFunction = If[section == 175,0,1]

[Object]
States = Cabina Renov 3/TVM\220A.csv

stateFunction = If[section == 174,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\220VL.csv

stateFunction = If[section == 173,0,1]

[Object]
States = Cabina Renov 3/TVM\220VL.csv

stateFunction = If[section == 172,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\220E.csv

stateFunction = If[section == 171,0,1]

[Object]
States = Cabina Renov 3/TVM\220E.csv

stateFunction = If[section == 170,floor[mod[time * 1.25, 2]],1]

;--------------------------------------------------------------
[Object]
States = Cabina Renov 3/TVM\200A.csv

stateFunction = If[section == 165,0,1]

[Object]
States = Cabina Renov 3/TVM\200A.csv

stateFunction = If[section == 164,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\200VL.csv

stateFunction = If[section == 163,0,1]

[Object]
States = Cabina Renov 3/TVM\200VL.csv

stateFunction = If[section == 162,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\200E.csv

stateFunction = If[section == 161,0,1]

[Object]
States = Cabina Renov 3/TVM\200E.csv

stateFunction = If[section == 160,floor[mod[time * 1.25, 2]],1]

;--------------------------------------------------------------
[Object]
States = Cabina Renov 3/TVM\170A.csv

stateFunction = If[section == 155,0,1]

[Object]
States = Cabina Renov 3/TVM\170A.csv

stateFunction = If[section == 154,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\170VL.csv

stateFunction = If[section == 153,0,1]

[Object]
States = Cabina Renov 3/TVM\170VL.csv

stateFunction = If[section == 152,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\170E.csv

stateFunction = If[section == 151,0,1]

[Object]
States = Cabina Renov 3/TVM\170E.csv

stateFunction = If[section == 150,floor[mod[time * 1.25, 2]],1]

;--------------------------------------------------------------
[Object]
States = Cabina Renov 3/TVM\160A.csv

stateFunction = If[section == 145,0,1]

[Object]
States = Cabina Renov 3/TVM\160A.csv

stateFunction = If[section == 144,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\160VL.csv

stateFunction = If[section == 143,0,1]

[Object]
States = Cabina Renov 3/TVM\160VL.csv

stateFunction = If[section == 142,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\160E.csv

stateFunction = If[section == 141,0,1]

[Object]
States = Cabina Renov 3/TVM\160E.csv

stateFunction = If[section == 140,floor[mod[time * 1.25, 2]],1]

;--------------------------------------------------------------
[Object]
States = Cabina Renov 3/TVM\130A.csv

stateFunction = If[section == 135,0,1]

[Object]
States = Cabina Renov 3/TVM\130A.csv

stateFunction = If[section == 134,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\130VL.csv

stateFunction = If[section == 133,0,1]

[Object]
States = Cabina Renov 3/TVM\130VL.csv

stateFunction = If[section == 132,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\130E.csv

stateFunction = If[section == 131,0,1]

[Object]
States = Cabina Renov 3/TVM\130E.csv

stateFunction = If[section == 130,floor[mod[time * 1.25, 2]],1]

;--------------------------------------------------------------
[Object]
States = Cabina Renov 3/TVM\080A.csv

stateFunction = If[section == 125,0,1]

[Object]
States = Cabina Renov 3/TVM\080A.csv

stateFunction = If[section == 124,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\080VL.csv

stateFunction = If[section == 123,0,1]

[Object]
States = Cabina Renov 3/TVM\080VL.csv

stateFunction = If[section == 122,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\080E.csv

stateFunction = If[section == 121,0,1]

[Object]
States = Cabina Renov 3/TVM\080E.csv

stateFunction = If[section == 120,floor[mod[time * 1.25, 2]],1]

;--------------------------------------------------------------
[Object]
States = Cabina Renov 3/TVM\060A.csv

stateFunction = If[section == 115,0,1]

[Object]
States = Cabina Renov 3/TVM\060A.csv

stateFunction = If[section == 114,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\060VL.csv

stateFunction = If[section == 113,0,1]

[Object]
States = Cabina Renov 3/TVM\060VL.csv

stateFunction = If[section == 112,floor[mod[time * 1.25, 2]],1]

[Object]
States = Cabina Renov 3/TVM\060E.csv

stateFunction = If[section == 111,0,1]

[Object]
States = Cabina Renov 3/TVM\060E.csv

stateFunction = If[section == 110,floor[mod[time * 1.25, 2]],1]

;--------------------------------------------------------------
[Object]
States = Cabina Renov 3/TVM\000R.csv

stateFunction = If[section == 105,0,1]

;---------------------------------------------

;----------------------------Palancas de Tracción 
;--------------------------------------------------------------

[object]
states = Cabina Renov 3/ArodeTraccion.b3d
position = -0.5,2.06,6.72
RotateYFunction = powerNotch*0.35
RotateXDirection = 0, 0, 1
RotateYDirection = 0, 1, 0
RotateZDirection = 1, 0, 0

;----------------------------Visor de Tracción 
;--------------------------------------------------------------
[object]
states = Cabina Renov 3/P0.b3d,Cabina Renov 3/P1.b3d,Cabina Renov 3/P2.b3d,Cabina Renov 3/P3.b3d,Cabina Renov 3/P4.b3d,Cabina Renov 3/P5.b3d,Cabina Renov 3/P6.b3d
position = 0,0,0
StateFunction = powerNotch

;---------------------------------------------

;----------------------------Inversor"
;--------------------------------------------------------------
[object]
states = Cabina Renov 3/inversor.csv
position = -0.32, 2.06, 6.82
RotateYFunction = -0.6 *reverserNotch

[object]
states = Cabina Renov 3/Adelante.b3d
position = 0.07, 0, 0.04
StateFunction = If[Cars<1|ReverserNotch>0,0,1]

[include]
Cabina Renov 3/Neutro.b3d
position = 0.07, -0.001, 0.04


[object]
states = Cabina Renov 3/Atras.b3d
position = 0.07, 0, 0.04
StateFunction = If[Cars<1|ReverserNotch<0,0,1]





;----------------------------Modulo de Frenado Emergencia
;--------------------------------------------------------------
[object]
states = Cabina Renov 3/PDE1.csv
position = -1.155, 2.1, 6.4
TranslateYFunction = -0.01 * emergencyBrake
[object]
states = Cabina Renov 3/PDE2.csv
position = -1.075, 2.1, 6.49
RotateXFunction = 0.3 * emergencyBrake

[object]
states = Cabina Renov 3/PDE1.csv
position = 1.155, 2.1, 6.4
TranslateYFunction = -0.01 * emergencyBrake

;----------------------------Freno convencional
;--------------------------------------------------------------
[object]
states = Cabina Renov 3/Freno0.csv
position = -0.82, 2.04, 6.695
RotateXFunction = 0.1 * BrakeNotch
rotateXdirection = -1, 0, 0

;----------------------------Freno Frontal 
;--------------------------------------------------------------
[object]
states = Cabina Renov 3/PDE3.csv
position = 0, 2.63, 7.225
TranslateZFunction = 0.02 * emergencyBrake

;----------------------------Selector de Tensión y Pantógrafo
;--------------------------------------------------------------
[object]
states = Cabina Renov 3/Selectorpanto.csv
position = -0.03, 2.071, 6.68
RotateYFunction = pluginState[261]*0.524
;----------------------------
;--------------------------------------------------------------
[object]
states = Cabina Renov 3/Selectorpanto2.csv
position = -0.9, 2.071, 6.84


;----------------------------Bocina
;--------------------------------------------------------------
[include]
Cabina Renov 3/PDE2.csv
position = 0.14, 2.1, 6.755


;----------------------------Disyuntores y Reiniciador de Disyuntor
;--------------------------------------------------------------

[object]
states = Cabina Renov 3/Disyuntor.csv
position = -0.65, 2.035, 6.49
TranslateYFunction = 0.01 * pluginState[263]
TranslateZFunction = 0.01 * pluginState[263]
[object]
states = Cabina Renov 3/Disyuntor.csv
position = -0.625, 2.046, 6.5
TranslateYFunction = -0.01 * pluginState[264]
TranslateZFunction = -0.01 * pluginState[264]

;----------------------------Visualizador de Desconexión de Disyuntor
;--------------------------------------------------------------
;---------------------LSDJ
[Object]
States = Cabina Renov 3/LSDJ0.csv,Cabina Renov 3/LSDJ1.csv
stateFunction = pluginState[258]
;---------------------LSDJAUX
[Object]
States = Cabina Renov 3/LSDJAUX0.csv,Cabina Renov 3/LSDJAUX1.csv
stateFunction = pluginState[259]
;---------------------LSMPC0
[Object]
States = Cabina Renov 3/LSMPC0.csv,Cabina Renov 3/LSMPC1.csv
stateFunction = pluginState[260]


;----------------------------Velocimetro
;----------Centena de Km/H
[Object]
States = Cabina Renov 3/Velocidad/bleu.csv,Cabina Renov 3/Velocidad/1.csv,Cabina Renov 3/Velocidad/2.csv,Cabina Renov 3/Velocidad/3.csv,Cabina Renov 3/Velocidad/4.csv,Cabina Renov 3/Velocidad/5.csv,Cabina Renov 3/Velocidad/6.csv,Cabina Renov 3/Velocidad/7.csv,Cabina Renov 3/Velocidad/8.csv,Cabina Renov 3/Velocidad/9.csv
Position = -0.55,0.095,-0.0135
stateFunction = Abs[floor[speedometer * 3.6/100]]

;----------Decena de Km/h
[Object]
States = Cabina Renov 3/Velocidad/0.csv,Cabina Renov 3/Velocidad/1.csv,Cabina Renov 3/Velocidad/2.csv,Cabina Renov 3/Velocidad/3.csv,Cabina Renov 3/Velocidad/4.csv,Cabina Renov 3/Velocidad/5.csv,Cabina Renov 3/Velocidad/6.csv,Cabina Renov 3/Velocidad/7.csv,Cabina Renov 3/Velocidad/8.csv,Cabina Renov 3/Velocidad/9.csv
Position = -0.52,0.095,-0.0135
stateFunction = Abs[floor[mod[speedometer * 3.6, 100] * 0.1]]

;----------km/h
[Object]
States = Cabina Renov 3/Velocidad/0.csv,Cabina Renov 3/Velocidad/1.csv,Cabina Renov 3/Velocidad/2.csv,Cabina Renov 3/Velocidad/3.csv,Cabina Renov 3/Velocidad/4.csv,Cabina Renov 3/Velocidad/5.csv,Cabina Renov 3/Velocidad/6.csv,Cabina Renov 3/Velocidad/7.csv,Cabina Renov 3/Velocidad/8.csv,Cabina Renov 3/Velocidad/9.csv
stateFunction = Abs[floor[mod[speedometer * 3.6, 10]]]
Position = -0.49,0.095,-0.0135


;---------------------------- le manomètre Conduite Principale (CP) - le manomètre Réservoir Egalisateur (RE)";;
;;1;;Blanca;;
[object]
states = Cabina Renov 3\AgujaManometro.csv
position =  -0.924, 2.274, 6.969
rotatezdirection = 0, 0, -1
rotatezfunction = -2.30 + brakeCylinder * 0.0000055
;;2;;Roja;;
[object]
states = Cabina Renov 3\AgujaRoja.csv
position =  -0.924, 2.274, 6.97
rotatezdirection = 0, 0, -1
rotatezfunction =  -2.30 + mainreservoir * 0.000005

;----------------------------* le manomètre CG
[object]
states = Cabina Renov 3\AgujaManometro.csv
position =  -0.818,  2.274, 6.97
rotatezdirection = 0, 0, -1
rotatezfunction = -2.30 + brakepipe * 0.000004

;---------------------------- Reloj Digital;;;
[Include]
Cabina Renov 3\Clock.animated
position =  -0.631, 2.21, 6.973

;---------------------------- Modulo KVB;;;
;---------------------ecran vert
[Object]
States = Cabina Renov 3\KVB\KVB_OFF_V.csv,Cabina Renov 3\KVB\KVB_on_V.csv,Cabina Renov 3\KVB\KVB_L_V.csv,Cabina Renov 3\KVB\KVB_B_V.csv,Cabina Renov 3\KVB\KVB_fu_V.csv
position =  -0.648, 2.275, 6.983
stateFunction = pluginState[266]

;---------------------ecran rouge
[Object]
States = Cabina Renov 3\KVB\KVB_OFF_R.csv,Cabina Renov 3\KVB\KVB_on_R.csv,Cabina Renov 3\KVB\KVB_P_R.csv,Cabina Renov 3\KVB\KVB_L_R.csv,Cabina Renov 3\KVB\KVB_00_R.csv
position =  -0.69, 2.275, 6.983
stateFunction = pluginState[267]
;---------------------KVB_vitesse
[Object]
States = Cabina Renov 3\KVB\diode_kvb.csv,Cabina Renov 3\KVB\diode_KVB_B.csv
position =  -0.652, 2.285, 6.983
stateFunction = pluginState[275]

;---------------------KVB_controle
[Object]
States = Cabina Renov 3\KVB\diode_kvb.csv,Cabina Renov 3\KVB\diode_KVB_B.csv
position =  -0.637, 2.285, 6.983
stateFunction = pluginState[276]
;---------------------KVB_panne_sol
[Object]
States = Cabina Renov 3\KVB\diode_kvb.csv,Cabina Renov 3\KVB\diode_KVB_B.csv
position =  -0.648, 2.254, 6.980
stateFunction = pluginState[277]
;---------------------KVB_panne-engin
[Object]
States =  Cabina Renov 3\KVB\diode_kvb.csv, Cabina Renov 3\KVB\diode_KVB_R.csv
position =  -0.633, 2.254, 6.980
stateFunction = pluginState[278]
;---------------------LSSF
[Object]
States = Cabina Renov 3\KVB\LSSF0.csv,Cabina Renov 3\KVB\LSSF1.csv
position =  -0.615, 2.285, 6.980
stateFunction = if[pluginState[257] == 2,floor[mod[time * 7, 2]],pluginState[257]]