number alias for n, fixes #839

tidalcycles · Nov 12, 2021 · ac0be63 · ac0be63
1 parent 5d2ce7d
commit ac0be63
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 2 deletions.
diff --git a/bin/generate-params.hs b/bin/generate-params.hs
@@ -320,6 +320,7 @@ aliasParams =
   ("f", "lpf", "cutoff"),
   ("f", "lpq", "resonance"),
   ("f", "lsn", "lsnare"),
+  ("note", "number", "n"),
   ("f", "ohdecay", "ophatdecay"),
   ("f", "phasdp", "phaserdepth"),
   ("f", "phasr", "phaserrate"),

diff --git a/bin/params-header.hs b/bin/params-header.hs
@@ -91,13 +91,16 @@ pStateList name sName xs = pure $ Map.singleton name $ VState statef
 pStateListF :: String -> String -> [Double] -> ControlPattern
 pStateListF name sName = pStateList name sName . map VF
 
+pStateListS :: String -> String -> [String] -> ControlPattern
+pStateListS name sName = pStateList name sName . map VS
+
 -- | Grouped params
 
 sound :: Pattern String -> ControlPattern
 sound = grp [mS "s", mF "n"]
 
-sTake :: String -> [Double] -> ControlPattern
-sTake name xs = pStateListF "s" name xs
+sTake :: String -> [String] -> ControlPattern
+sTake name xs = pStateListS "s" name xs
 
 cc :: Pattern String -> ControlPattern
 cc = grp [mF "ccn", mF "ccv"]

diff --git a/src/Sound/Tidal/Params.hs b/src/Sound/Tidal/Params.hs
@@ -3128,6 +3128,9 @@ ohdecaybus = ophatdecaybus
 ohdecayrecv :: Pattern Int -> ControlPattern
 ohdecayrecv = ophatdecayrecv
 
+number :: Pattern Note -> ControlPattern
+number = n
+
 lsn :: Pattern Double -> ControlPattern
 lsn = lsnare
 lsnbus :: Pattern Int -> Pattern Double -> ControlPattern