-- | Respond to the state of a keymoduleSound.SC3.UGen.Record.KeyStatewhereimportqualifiedSound.SC3.UGenasSimportSound.SC3.UGen.RecorddataKeyState=KeyState{keycode::S.UGen,minval::S.UGen,maxval::S.UGen,lag::S.UGen}deriving(Show)keyState::KeyStatekeyState=KeyState{keycode=0.0,minval=0.0,maxval=1.0,lag=0.2}mkKeyState::KeyState->S.UGenmkKeyState(KeyStatea'b'c'd')=S.mkOscS.KR"KeyState"[a',b',c',d']1instanceMakeKeyStatewhereugen=mkKeyState