# Indicatore dell'orientamento di una sezione di blocco (senza occupazione), da col-
# legare all'ultimo elemento della sezione di blocco cui si riferisce, assegnando
# a tale elemento lo script "rfi_sig_up_on_exit.tds". Se tale elemento non è nella
# direzione di questo segnale, bisogna adattare lo script facendone una copia e
# mettendo la direzione effettiva al posto di '.direction'. L'indicatore si accende
# quando l'elemento di binario a cui è collegato è colorato nella direzione dell'in-
# dicatore, e si spegne quando tale elemento torna libero.
#
# Aspetti: black (spento, blocco libero),
#          white (acceso, blocco orientato come il segnale)

# Simple block direction indicator (no occupancy shown), to be linked to the last
# element of the section it refers to; that element need also to be assigned the
# "rfi_sig_up_on_exit.tds" script. If that element is not in the direction of the
# signal, a copy of the script must be used, replacing '.direction' with the actual
# direction of that element. The indicator infact goes lit when its linked track
# element is reserved in the direction of the indicator, and goes off when that
# element turns free again.
#
# Aspects: black (off, block free), white (lit, block oriented as the signal)

# P.Rosati  21/01/2021 (Versione 5.1)

Aspect: black
	IconE: DB_off_E.xpm
	IconW: DB_off_W.xpm
	IconN: DB_off_N.xpm
	IconS: DB_off_S.xpm
	Action: none

Aspect: white
	IconE: DB_on_E.xpm
	IconW: DB_on_W.xpm
	IconN: DB_on_N.xpm
	IconS: DB_on_S.xpm
	Action: none

# initial aspect

OnInit:
	.aspect = black
end

# this or another signal changed its aspect

OnUpdate:
	# Se una copia dello script va adattata, mettere la direzione giusta al posto di '.direction'
	# If a copy of the script must be adapted, replace '.direction' with the correct direction
	if .color ! black and .trackdir = .direction		# 0 = W, 1 = E, 16 = S, 17 = N
		.aspect = white
	else
		.aspect = black
	end
end

# a train passed the signal

OnCross:
	return
end
