git.s-ol.nu alive / 7e21674
fix (! sig) bugs s-ol 6 months ago
1 changed file(s) with 6 addition(s) and 5 deletion(s). Raw diff Collapse all Expand all
481481 value: class extends Op
482482 pattern = (sig! + evt.bang) / (sig! / evt!)\rep(1,1)
483483 setup: (inputs) =>
484 { sig, trig } = pattern\match inputs
484 { sig_, trig } = pattern\match inputs
485485 if trig
486486 super
487487 trig: Input.hot trig
488 sig: Input.cold sig
488 sig: Input.cold sig_
489489 elseif sig\metatype! == '!'
490490 super
491 trig: Input.hot sig
491 trig: Input.hot sig_
492492 sig: Input.cold Constant.bang true
493493 else
494 super sig: Input.hot sig
494 super sig: Input.hot sig_
495495 @out = @inputs.sig\type!\mk_evt!
496496
497 tick: =>
497 tick: (setup) =>
498 return if setup
498499 @out\set @inputs.sig!
499500
500501 array = Constant.meta