センサー１個で距離式信号機

昨晩ななついろチャンネルさんにお邪魔して信号機について色々と話をしていました。

信号機を再現するには、
①閉塞を再現する一番忠実な方法（閉塞式信号機）
②センサーを数多く置いて距離で変える方法（距離式信号機）
③通過後の時間によって変化させる方法（時限式信号機）
の３つがあると思いますが、①は構築するのが大変すぎますし、②は色々分岐するようなレイアウトではセンサーをばら撒くようになってゴチャゴチャします。よって大体は③が多く使用されるのですが、この方式は速度が遅かったり停車してしまうと実態に合わなくなります。

そこでななついろさんは２つのセンサーを使い、最初のセンサーで赤を表示をさせ信号機上で止まっているよう時には赤表示のままとし、通過したら次のセンサーで時間によって変化させる方式としていました。ＶＲＭ４ではこれが精一杯かもしれません。

しかしＶＲＭＮＸにはPythonがあります。そこで②の距離式信号機をセンサー１個で計算して再現させてみようと思い立ちました。そして出来たのがこちら。

#OBJID=38
import vrmapi
def vrmevent_38(obj,ev,param):
di = obj.GetDict()
if ev == 'init':
di['signal36'] = vrmapi.LAYOUT().GetSignal(36)
di['signal36'].SetStat(0,6)
di['train'] = 0
di['timerEID'] = 0
di['distance'] = 0
elif ev == 'broadcast':
dummy = 1
elif ev == 'timer':
if param['eventUID'] == 100:
speed = di['train'].GetSpeed()
di['distance'] = di['distance'] + 1.85185 * speed
if di['distance'] > 2500:
di['signal36'].SetStat(0,6)
obj.ResetEvent(di['timerEID'])
di['distance'] = 0
elif di['distance'] > 2000:
di['signal36'].SetStat(0,4)
elif di['distance'] > 1500:
di['signal36'].SetStat(0,3)
elif di['distance'] > 1000:
di['signal36'].SetStat(0,2)
elif di['distance'] > 0:
di['signal36'].SetStat(0,1)
elif ev == 'time':
dummy = 1
elif ev == 'after':
dummy = 1
elif ev == 'frame':
dummy = 1
elif ev == 'catch':
obj.ResetEvent(di['timerEID'])
di['distance'] = 0
di['train'] = obj.GetTrain()
di['timerEID'] = obj.SetEventTimer(1,100)