Code: Select all
Do(
Var([valSolid], vbValue, 1),
Var([valBlinking], vbValue, 0),
Var([valDisco], vbValue, 0),
Var([valPeriod], vbValue, 300),
Var([valBase], vbValue, ColorLime),
Case(
WhichIsTrue(
valSolid,
valBlinking,
valDisco
),
{ * Solid * }
Color(c) := ColorBlack,
{ * Blinking * }
If(
Sin(valPeriod * Now) > 0,
Color(c) := ColorBlack,
Color(c) := ColorWhite
),
{ * Disco * }
Color(c) := valBase * Sin(valPeriod * Now)
)
)