csound-catalog 0.6.0 → 0.6.1

raw patch · 3 files changed

+11/−5 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• csound-catalog.cabal +1/−1
• src/Csound/Catalog/Wave/Sharc.hs +2/−2
• src/Csound/Patch.hs +8/−2

@@ -1,5 +1,5 @@ Name:          csound-catalog-Version:       0.6.0+Version:       0.6.1 Cabal-Version: >= 1.6 License:       BSD3 License-file:  LICENSE

@@ -93,7 +93,7 @@  -- | Plays a orchestrated instrument (with pitch chorus) orcSharcOsc :: SharcInstr -> D -> SE Sig-orcSharcOsc instr cps = mul (fades 0.01 0.42) $ uni (rndSharcOsc instr . ir) (sig cps)+orcSharcOsc instr cps = mul (fades 0.01 0.42) $ uni (rndSigSharcOsc instr cps) (sig cps)  -- | Plays a solo instrument with pad-like envelope purePadSharcOsc :: SharcInstr -> D -> SE Sig@@ -101,7 +101,7 @@  -- | Plays orchestrated instrument with pad-like envelope padSharcOsc :: SharcInstr -> D -> SE Sig-padSharcOsc instr cps = mul (fades 0.65 0.75) $ uni (rndSharcOsc instr . ir) (sig cps)+padSharcOsc instr cps = mul (fades 0.65 0.75) $ uni (rndSigSharcOsc instr cps) (sig cps)  --------------------------------------------------------------------------- -- padsynth

@@ -490,6 +490,12 @@ dreamPadBy' :: Sig -> (Sig -> SE Sig) -> Patch2 dreamPadBy' bright wave = dreamPadFx $ polySynt $ fmap fromMono . onCps (C.dreamPadBy wave bright)     +dreamPadWithKey :: (D -> Sig -> SE Sig) -> Patch2+dreamPadWithKey = dreamPadWithKey' 0.35++dreamPadWithKey' :: Sig -> (D -> Sig -> SE Sig) -> Patch2+dreamPadWithKey' bright wave = dreamPadFx $ polySynt $ fmap fromMono . onCps (\cps ->  (C.dreamPadBy (wave cps) bright) (sig cps))+ -- | The first argument is brightness (0 to 1) dreamPadm' :: Sig -> Patch2 dreamPadm' bright = dreamPadFx $ MonoSynt def $ fmap fromMono . onSig1 (C.dreamPad bright)    @@ -1273,11 +1279,11 @@  -- | Dream Pad patch made with SHARC oscillators. dreamSharc :: SharcInstr -> Patch2-dreamSharc instr = dreamPadBy (\cps -> C.rndSigSharcOsc instr (ir cps) cps)+dreamSharc instr = dreamPadWithKey (C.rndSigSharcOsc instr)  -- | Dream Pad patch made with SHARC oscillators. dreamSharc' :: SharcInstr -> Sig -> Patch2-dreamSharc' instr brightness = dreamPadBy' brightness (\cps -> C.rndSigSharcOsc instr (ir cps) cps) +dreamSharc' instr brightness = dreamPadWithKey' brightness (C.rndSigSharcOsc instr)  type PadsynthBandwidth = Double