This repository was archived by the owner on Jun 13, 2025. It is now read-only.
File tree Expand file tree Collapse file tree 3 files changed +9
-2
lines changed Expand file tree Collapse file tree 3 files changed +9
-2
lines changed Original file line number Diff line number Diff line change @@ -320,6 +320,7 @@ aliasParams =
320
320
(" f" , " lpf" , " cutoff" ),
321
321
(" f" , " lpq" , " resonance" ),
322
322
(" f" , " lsn" , " lsnare" ),
323
+ (" note" , " number" , " n" ),
323
324
(" f" , " ohdecay" , " ophatdecay" ),
324
325
(" f" , " phasdp" , " phaserdepth" ),
325
326
(" f" , " phasr" , " phaserrate" ),
Original file line number Diff line number Diff line change @@ -91,13 +91,16 @@ pStateList name sName xs = pure $ Map.singleton name $ VState statef
91
91
pStateListF :: String -> String -> [Double ] -> ControlPattern
92
92
pStateListF name sName = pStateList name sName . map VF
93
93
94
+ pStateListS :: String -> String -> [String ] -> ControlPattern
95
+ pStateListS name sName = pStateList name sName . map VS
96
+
94
97
-- | Grouped params
95
98
96
99
sound :: Pattern String -> ControlPattern
97
100
sound = grp [mS " s" , mF " n" ]
98
101
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
101
104
102
105
cc :: Pattern String -> ControlPattern
103
106
cc = grp [mF " ccn" , mF " ccv" ]
Original file line number Diff line number Diff line change @@ -3128,6 +3128,9 @@ ohdecaybus = ophatdecaybus
3128
3128
ohdecayrecv :: Pattern Int -> ControlPattern
3129
3129
ohdecayrecv = ophatdecayrecv
3130
3130
3131
+ number :: Pattern Note -> ControlPattern
3132
+ number = n
3133
+
3131
3134
lsn :: Pattern Double -> ControlPattern
3132
3135
lsn = lsnare
3133
3136
lsnbus :: Pattern Int -> Pattern Double -> ControlPattern
You can’t perform that action at this time.
0 commit comments