hsc3-0.20: Help/Ugen/changed.help.hs
-- changed ; simple composition of hpz1 and greater_than (pseudo ugen)
let s = lfNoise0Id 'α' kr 2
c = changed s 0
c' = decay2 c 0.01 0.5
in sinOsc ar (440 + mce2 s c' * 440) 0 * 0.1
-- changed ; sinOsc is constantly changing
let s = sinOsc ar 440 0
c = changed s 0
in s * c * 0.2
-- changed ; fixed number of sample impulses ; https://fredrikolofsson.com/f0blog/impulse-train/
let dur = 1
num = 8
in changed (min (ceil (sweep ar 0 (num / dur))) num) 0