Signals!

This is a toy project written in ClojureScript. It renders some German railway signals as SVG. You can try it yourself!

Setup

To be written 😱

Usage in your own project

The project is still being developed, so it can't yet be used from JavaScript directly. But you can use the signals from cljs.

(def!distant (atom {:type:distant:system:ks:distant {:aspect:stop}}))
(def!combination (atom {:type:combination:system:hv-light:distant {:aspect:proceed}
:main {:aspect:stop}}))
(def!main (atom {:type:main:system:hv-semaphore:main {:aspect:proceed}}))

To display the signals, you need to include the signals.css (or signals.styl if you use Stylus) and create a React component returning a svg element. Inside, you have to once include signals.signal/defs, then you can call signals.signal/signal passing the signal you want with the :signal key.

Here an example using UIx:

(require '[signals.signal :as signal])
($:svg {:version"1.1":viewBox"0 0 140 600":width"200":height"600"}
($ signal/defs)
($ signal/signal {:signal @!main}))

You can configure signals by adding features to the top level, to the :distant or :main part of the signal.

Attribute	where	Description
:system	top level	Type of the signal system, can be :ks, :hv-light, :hv-semaphore, or :hl
:type	top level	Type of the signal, can be :distant, :main, or :combination
:aspect	:distant/:main	The aspect of the signal, valid values are :proceed, :stop, :stop+sh1, :stop+zs1, or :stop+zs7
:speed-limit	:distant/:main	The current speed limit. Only displayed with a :zs3 or :slow-speed-lights and :proceed aspect
:slow-speed-lights	:distant/:main	A vector of possible speeds. For :hv-light & :hv-semaphore, only 40 is supported, for :hl, it can be 40, 60 and 100. :ks ignores this
:zs3	:distant/:main	Does the signal have a zs3? Possible values are nil (no zs3), :display or :sign. Ignored for :hl
:sh1?	:main	Boolean, set to true when the signal when it's capable to display a Sh1/Ra12 aspect
:zs1?	:main	Boolean, set to true if the signal has a Zs1
:zs7?	:main	Boolean, set to true when the signal has a Zs7
:distant-addition	:distant	Can be nil (nothing), :repeater (if this is a repeater), or :shortened-break-path when the break path is shortened

Example:

(swap! !combination #(-> %1
(assoc:system:hv-semaphore)
(assoc-in [:main:aspect] :stop+sh1)
(assoc-in [:main:sh1?] true)
(assoc-in [:main:zs1?] true)
(assoc-in [:main:slow-speed-lights] [40])
(assoc-in [:main:speed-limit] 40)
(assoc-in [:distant:aspect] :proceed)
(assoc-in [:distant:distant-addition] :shortened-break-path)))