// tarcza manewrowa ksztaltowa: (p6) symbol tarczy (np. tm1)
// modyfikacja modelu, plik inc, pierwsza tekstura - mateuzs
// Ra 2014-05: zdarzenia _ms1 i _ms2 zamiast _m1 i _m2

origin (p2) (p3) (p4)
rotate 0 (p5) 0
// model tarczy manewrowej:
node 1500 0 (p1)_mk1 model 0 0 0 0 pkp/mk1.t3d tabl/(p6) lights 0 0 0 endmodel                 
node 800 150 none lines 80 80 80 100.0
0.0 0.0 0.0	0.0 2.5 0.0 
endline
rotate 0 0 0
endorigin

// zdarzena tarczy świetlnej do połączenia z semaforem kształtowym współpracującym z Tm
// w torze umieścić tylko odczyt komórki semafora, bo dwie komórki nie będą działać
event (p1)_ms1 multiple 0.0 none 
	(p1)_tarczadol 
	(p1)_przeslona1dol 
	(p1)_sem_info_stop 
	(p1)_status_sem_1
	(p1)_sem_m1n
endevent

event (p1)_ms2 multiple 0.0 none 
	(p1)_tarczagora 
	(p1)_przeslona1gora 
	(p1)_sem_info_man 
	(p1)_status_sem_2
	(p1)_sem_m2n
endevent

event (p1)_m40 multiple 0.0 none
	(p1)_tarczagora
	(p1)_przeslona1gora
	(p1)_sem_info_m40
	(p1)_status_sem_2
	(p1)_sem_m2n
endevent

// zdarzena zasadnicze - usunąć po zmianie w scenerii Całkowo Orlen!
event (p1)_m1 multiple 0.0 none (p1)_ms1 endevent
event (p1)_m2 multiple 0.0 none (p1)_ms2 endevent

//wpis do komórki
node -1 0 (p1)_sem_mem memcell (p2) (p3) (p4) ShuntVelocity 0.0 0.0 none endmemcell
node -1 0 (p1)_sem_swiatlo memcell (p2) (p3) (p4) 0 1 0 none endmemcell

//zdarzenia okreslajace predkosc przy tym semaforze:
event (p1)_sem_info_stop updatevalues 0.0 (p1)_sem_mem ShuntVelocity 0 0 condition memcompare ShuntVelocity * * endevent
event (p1)_sem_info_man updatevalues 1.0 (p1)_sem_mem ShuntVelocity 25 0 endevent
event (p1)_sem_info_m40 updatevalues 1.0 (p1)_sem_mem ShuntVelocity 40 0 endevent
event (p1)_s1 updatevalues 1.0 (p1)_sem_mem SetVelocity 0 0 endevent //gdy Tm jest zamiast semafora

// zmiana obrazu tarczy
event (p1)_tarczadol animation 1 (p1)_mk1 rotate tarcza 0 0 0 100 endevent
event (p1)_przeslona1dol animation 1 (p1)_mk1 rotate przeslona_01 0 0 0 60 endevent

event (p1)_tarczagora animation 1 (p1)_mk1 rotate tarcza 83 0 0 100 endevent
event (p1)_przeslona1gora animation 1 (p1)_mk1 rotate przeslona_01 0 -44 0 60 endevent

event (p1)_sem_m1n multiple 1.0 (p1)_sem_swiatlo (p1)_sem_ligh1n condition memcompare * 1 1 endevent
event (p1)_sem_m2n multiple 1.0 (p1)_sem_swiatlo (p1)_sem_ligh2n condition memcompare * 2 1 endevent

event (p1)_sem_ligh1n lights 0.0 (p1)_mk1 1 1 0 endevent
event (p1)_sem_ligh2n lights 0.0 (p1)_mk1 1 0 1 endevent

event (p1)_sem_lighd lights 0.0 (p1)_mk1 0 0 0 endevent

event (p1)_zmien_na_dzien updatevalues 0.0 (p1)_sem_swiatlo * * 0 endevent
event (p1)_zmien_na_noc updatevalues 0.0 (p1)_sem_swiatlo * * 1 endevent

event (p1)_status_sem_1 updatevalues 0.0 (p1)_sem_swiatlo * 1 * endevent
event (p1)_status_sem_2 updatevalues 0.0 (p1)_sem_swiatlo * 2 * endevent

event (p1)_dzienny multiple 0.0 none (p1)_zmien_na_dzien (p1)_sem_lighd endevent
event (p1)_nocny multiple 0.0 none (p1)_zmien_na_noc (p1)_sem_m1n (p1)_sem_m2n endevent

//odczyt z pamieci:
event (p1)_sem_info getvalues 1.0 (p1)_sem_mem endevent

