Skip to content
This repository was archived by the owner on Jun 13, 2025. It is now read-only.

Commit ac0be63

Browse files
committed
number alias for n, fixes #839
1 parent 5d2ce7d commit ac0be63

File tree

3 files changed

+9
-2
lines changed

3 files changed

+9
-2
lines changed

bin/generate-params.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -320,6 +320,7 @@ aliasParams =
320320
("f", "lpf", "cutoff"),
321321
("f", "lpq", "resonance"),
322322
("f", "lsn", "lsnare"),
323+
("note", "number", "n"),
323324
("f", "ohdecay", "ophatdecay"),
324325
("f", "phasdp", "phaserdepth"),
325326
("f", "phasr", "phaserrate"),

bin/params-header.hs

Lines changed: 5 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -91,13 +91,16 @@ pStateList name sName xs = pure $ Map.singleton name $ VState statef
9191
pStateListF :: String -> String -> [Double] -> ControlPattern
9292
pStateListF name sName = pStateList name sName . map VF
9393

94+
pStateListS :: String -> String -> [String] -> ControlPattern
95+
pStateListS name sName = pStateList name sName . map VS
96+
9497
-- | Grouped params
9598

9699
sound :: Pattern String -> ControlPattern
97100
sound = grp [mS "s", mF "n"]
98101

99-
sTake :: String -> [Double] -> ControlPattern
100-
sTake name xs = pStateListF "s" name xs
102+
sTake :: String -> [String] -> ControlPattern
103+
sTake name xs = pStateListS "s" name xs
101104

102105
cc :: Pattern String -> ControlPattern
103106
cc = grp [mF "ccn", mF "ccv"]

src/Sound/Tidal/Params.hs

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -3128,6 +3128,9 @@ ohdecaybus = ophatdecaybus
31283128
ohdecayrecv :: Pattern Int -> ControlPattern
31293129
ohdecayrecv = ophatdecayrecv
31303130

3131+
number :: Pattern Note -> ControlPattern
3132+
number = n
3133+
31313134
lsn :: Pattern Double -> ControlPattern
31323135
lsn = lsnare
31333136
lsnbus :: Pattern Int -> Pattern Double -> ControlPattern

0 commit comments

Comments
 (0)