tidal 1.5.0 → 1.5.1

raw patch · 5 files changed

+16/−5 lines, 5 files

Files

• CHANGELOG.md +4/−1
• src/Sound/Tidal/Control.hs +5/−2
• src/Sound/Tidal/Version.hs +1/−1
• test/Sound/Tidal/ControlTest.hs +5/−0
• tidal.cabal +1/−1

@@ -1,6 +1,9 @@ # TidalCycles log of changes -## 1.5.0 - +## 1.5.1 - Blacka Moor+	* Bugfix splice++## 1.5.0 - Active travel 	* Export drawLineSz @mxmxyz 	* tidal-parse additions (bite, splice, pickF, select, squeeze; fixed slice) @dktr0 	* New, more efficient pseudorandom number generator @dktr0

@@ -263,11 +263,14 @@ randslice :: Pattern Int -> ControlPattern -> ControlPattern randslice = tParam $ \n p -> innerJoin $ (\i -> _slice n i p) <$> irand n -splice :: Pattern Int -> Pattern Int -> ControlPattern -> Pattern (Map.Map String Value)-splice bits ipat pat = withEvent f (slice bits ipat pat) # P.unit (pure "c")+_splice :: Int -> Pattern Int -> ControlPattern -> Pattern (Map.Map String Value)+_splice bits ipat pat = withEvent f (slice (pure bits) ipat pat) # P.unit (pure "c")   where f ev = ev {value = Map.insert "speed" (VF d) (value ev)}           where d = sz / (fromRational $ (wholeStop ev) - (wholeStart ev))                 sz = 1/(fromIntegral bits)++splice :: Pattern Int -> Pattern Int -> ControlPattern -> Pattern (Map.Map String Value)+splice bitpat ipat pat = innerJoin $ (\bits -> _splice bits ipat pat) <$> bitpat  {- | `loopAt` makes a sample fit the given number of cycles. Internally, it

@@ -1,4 +1,4 @@ module Sound.Tidal.Version where  tidal_version :: String-tidal_version = "1.5.0"+tidal_version = "1.5.1"

@@ -21,3 +21,8 @@           (filterOnsets $ stutWith 4 0.25 (# gain 1) $ sound "bd")           (filterOnsets $ stut 4 1 0.25 $ sound "bd")         +    describe "splice" $ do+      it "can beatslice" $ do+        comparePD (Arc 0 1)+          (splice "4 8" "0 1" $ sound "bev")+          (begin "0 0.125" # end "0.25 0.25" # speed "0.5 0.25" # sound "bev" # unit "c")

@@ -1,5 +1,5 @@ name:                tidal-version:             1.5.0+version:             1.5.1 synopsis:            Pattern language for improvised music -- description: homepage:            http://tidalcycles.org/