instance sds Eval where
sds f = defEval f
con f = defEval f
- pub _ = undef
defEval :: ((Eval t p)->In t (Main (Eval u q))) -> (Main (Eval u q)) | dyn t
defEval f =
// ----- Interactive Simulation ----- //
-derive class iTask DigitalPin, AnalogPin, Dyn, StateInterface, DisplayVar, Pin
+derive class iTask StateInterface, DisplayVar
simulate :: (Main (Eval a p)) -> Task ()
simulate {main=(E f)} = setup zero where