;nyquist plug-in ;version 4 ;type generate ;name "Ukelele Tuner" ;author "Steve Daulton" ;release 2.4.2 ;copyright "GPL v2+." ;control note "Note" choice "G,C,E,A" 0 ;control dur "Length (seconds)" int "" 5 1 30 (let ((env (pwlv 0 0.1 0.8 (- dur 0.2) 0.8 dur))) (case note (0 (mult env (osc G5 dur))) (1 (mult env (osc C5 dur))) (2 (mult env (osc E5 dur))) (t (mult env (osc A5 dur)))))