Projekt: Lichtszenen

Die Werkstatt hat vier Lampenreihen. Tagsüber soll alles hell sein, abends gedämpft, nachts nur eine Reihe. Läuft der Notstrom, bleibt nur ein flackerndes Notlicht. Bedient wird das Ganze mit einer einzigen Taste.

Die Anlage#

Die Szenen#

Jeder Druck auf die Taste schaltet eine Szene weiter, nach 3 kommt wieder 0. Die Tabelle steht vor der Hauptschleife per poke im Stack, get ziel db szene holt die Zahl der Gruppen.

Die Taste meldet Activate = 1, solange sie gedrückt ist. Damit ein langer Druck nicht jeden Takt weiterschaltet, zählt nur die Flanke – der Wechsel von 0 auf 1:

sgt tmp taste alt     # 1 nur im ersten Takt des Drueckens
move alt taste
add szene szene tmp
mod szene szene SZENEN

Sanftes Dimmen – mit ehrlichen Lampen#

Lampen kennen im Spiel nur On, eine dimmbare Lampe gibt es nicht. „Sanft“ heißt hier deshalb: Die Gruppen gehen nacheinander an oder aus, eine pro Sekunde. Eine Stufe von 0 bis 4 läuft auf das Ziel der Szene zu, Gruppe k leuchtet, solange die Stufe mindestens k ist:

sub tmp ziel stufe
sgn tmp tmp           # -1, 0 oder 1
add stufe stufe tmp   # einen Schritt Richtung Ziel
sge licht stufe 3     # Gruppe 3 an ab Stufe 3

Ein Zähler sorgt dafür, dass die Stufe nur alle TAKTE Takte einen Schritt macht. Er darf ruhig weiterlaufen, wenn die Stufe schon am Ziel ist: Die Differenz ist dann 0, und sgn liefert 0.

Notlicht#

Steht der Hebel „Notstrom“ auf 1, gehen die Gruppen 2 bis 4 aus. Gruppe 1 flackert: Jeden Takt würfelt rand, ob sie leuchtet, mit 70 % Wahrscheinlichkeit. Legst du den Hebel zurück, kommt die Szene wieder.

Teilziele#

1. Szenen per Taste, nur auf die Flanke, die Anzeige zeigt die Nummer
2. Sanft dimmen: eine Gruppe nach der anderen, hoch und runter
3. Notlicht: Gruppe 1 flackert, Gruppen 2 bis 4 sind aus
4. Ausfall: Fehlt der Hebel, gilt Normalbetrieb; fehlt die Taste, bleibt die Szene