The solution would probably involve state monadifying around the 'model with frame advancement via a withSignalsPass : (Signal list * 'model) -> 'model operator.
It's kind of tricky to think about. Maybe some pseudo-code -
this.Message (model, message, _, world) =
cont {
let model = Model.op model
let signal = Command "Abc"
let! model = withSignalPass signal model // return model on next frame
let model = Model.op2 model
return model }
The solution would probably involve state monadifying around the 'model with frame advancement via a
withSignalsPass : (Signal list * 'model) -> 'model
operator.It's kind of tricky to think about. Maybe some pseudo-code -