update: Backup

.gitignore

@@ -6,3 +6,4 @@
 *.a
 *.hi
 *.dyn_hi
+*.mov

backlog.md

@@ -10,6 +10,8 @@
 
 # Work in progress
 
+- Back Baby: Lofi guitar epiano slicé
+
 - Louge/Michael: Techno PianoShards + SynthChoir
 - HelloFi: intro to Lofi :)
 - Disco/High: Techno -> HiNRJ Disco 8)
@@ -38,8 +40,6 @@
 - CBOW: Decouverte Vio
 - Michael: Break/techno louge
 
-- Breaks:
-
 - Metal break! Guitar break en Si
 - Cyprès Poudreux - Break dusty cypress + guitars, too much cypress
 - BruitHiver: grand froid cosmic noise
@@ -133,7 +133,6 @@ La voix de l'Ordre: Monotonal drone <> breakbeat
 
 # Somewhat complete
 ## Prod
--- Good morning Minneapolis: time to finish
 -- Chaude civ: Breakbeat bassline diphonique yalta
 
 ## Record :)
@@ -158,3 +157,11 @@ La voix de l'Ordre: Monotonal drone <> breakbeat
 
 ## LIVE XXX
 -- DNB/Meurice
+
+## LIVE MULTISPORT
+-- Afternoon
+-- Slower
+-- TOP HATS 🎩
+-- MEURICE (DNB :smirk:) (3mn)
+-- Breaks90 before final
+-- Invoque été :)

copycat/electric_fever.tidal

@@ -37,6 +37,7 @@ $ s (cat [
 ])
 # s "superfork" # n (scale "major" (-4))
 # release 0.5
+# gain 1.3
 
 d5
 $ someCycles (fast 2)

lib-parvagues/.gitignore

-dist/

lib-parvagues/dist-newstyle/build/x86_64-linux/ghc-8.10.4/lib-parvagues-0.3.1/build/autogen/Paths_lib_parvagues.hs

+{-# LANGUAGE CPP #-}
+{-# LANGUAGE NoRebindableSyntax #-}
+{-# OPTIONS_GHC -fno-warn-missing-import-lists #-}
+module Paths_lib_parvagues (
+    version,
+    getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir,
+    getDataFileName, getSysconfDir
+  ) where
+
+import qualified Control.Exception as Exception
+import Data.Version (Version(..))
+import System.Environment (getEnv)
+import Prelude
+
+#if defined(VERSION_base)
+
+#if MIN_VERSION_base(4,0,0)
+catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
+#else
+catchIO :: IO a -> (Exception.Exception -> IO a) -> IO a
+#endif
+
+#else
+catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
+#endif
+catchIO = Exception.catch
+
+version :: Version
+version = Version [0,3,1] []
+bindir, libdir, dynlibdir, datadir, libexecdir, sysconfdir :: FilePath
+
+bindir     = "/home/pln/.cabal/bin"
+libdir     = "/home/pln/.cabal/lib/x86_64-linux-ghc-8.10.4/lib-parvagues-0.3.1-inplace"
+dynlibdir  = "/home/pln/.cabal/lib/x86_64-linux-ghc-8.10.4"
+datadir    = "/home/pln/.cabal/share/x86_64-linux-ghc-8.10.4/lib-parvagues-0.3.1"
+libexecdir = "/home/pln/.cabal/libexec/x86_64-linux-ghc-8.10.4/lib-parvagues-0.3.1"
+sysconfdir = "/home/pln/.cabal/etc"
+
+getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir, getSysconfDir :: IO FilePath
+getBinDir = catchIO (getEnv "lib_parvagues_bindir") (\_ -> return bindir)
+getLibDir = catchIO (getEnv "lib_parvagues_libdir") (\_ -> return libdir)
+getDynLibDir = catchIO (getEnv "lib_parvagues_dynlibdir") (\_ -> return dynlibdir)
+getDataDir = catchIO (getEnv "lib_parvagues_datadir") (\_ -> return datadir)
+getLibexecDir = catchIO (getEnv "lib_parvagues_libexecdir") (\_ -> return libexecdir)
+getSysconfDir = catchIO (getEnv "lib_parvagues_sysconfdir") (\_ -> return sysconfdir)
+
+getDataFileName :: FilePath -> IO FilePath
+getDataFileName name = do
+  dir <- getDataDir
+  return (dir ++ "/" ++ name)

lib-parvagues/dist-newstyle/build/x86_64-linux/ghc-8.10.4/lib-parvagues-0.3.1/build/autogen/cabal_macros.h

+/* DO NOT EDIT: This file is automatically generated by Cabal */
+
+/* package lib-parvagues-0.3.1 */
+#ifndef VERSION_lib_parvagues
+#define VERSION_lib_parvagues "0.3.1"
+#endif /* VERSION_lib_parvagues */
+#ifndef MIN_VERSION_lib_parvagues
+#define MIN_VERSION_lib_parvagues(major1,major2,minor) (\
+  (major1) <  0 || \
+  (major1) == 0 && (major2) <  3 || \
+  (major1) == 0 && (major2) == 3 && (minor) <= 1)
+#endif /* MIN_VERSION_lib_parvagues */
+
+/* package base-4.14.1.0 */
+#ifndef VERSION_base
+#define VERSION_base "4.14.1.0"
+#endif /* VERSION_base */
+#ifndef MIN_VERSION_base
+#define MIN_VERSION_base(major1,major2,minor) (\
+  (major1) <  4 || \
+  (major1) == 4 && (major2) <  14 || \
+  (major1) == 4 && (major2) == 14 && (minor) <= 1)
+#endif /* MIN_VERSION_base */
+
+/* package tidal-1.7.2 */
+#ifndef VERSION_tidal
+#define VERSION_tidal "1.7.2"
+#endif /* VERSION_tidal */
+#ifndef MIN_VERSION_tidal
+#define MIN_VERSION_tidal(major1,major2,minor) (\
+  (major1) <  1 || \
+  (major1) == 1 && (major2) <  7 || \
+  (major1) == 1 && (major2) == 7 && (minor) <= 2)
+#endif /* MIN_VERSION_tidal */
+
+/* tool gcc-10.2.0 */
+#ifndef TOOL_VERSION_gcc
+#define TOOL_VERSION_gcc "10.2.0"
+#endif /* TOOL_VERSION_gcc */
+#ifndef MIN_TOOL_VERSION_gcc
+#define MIN_TOOL_VERSION_gcc(major1,major2,minor) (\
+  (major1) <  10 || \
+  (major1) == 10 && (major2) <  2 || \
+  (major1) == 10 && (major2) == 2 && (minor) <= 0)
+#endif /* MIN_TOOL_VERSION_gcc */
+
+/* tool ghc-8.10.4 */
+#ifndef TOOL_VERSION_ghc
+#define TOOL_VERSION_ghc "8.10.4"
+#endif /* TOOL_VERSION_ghc */
+#ifndef MIN_TOOL_VERSION_ghc
+#define MIN_TOOL_VERSION_ghc(major1,major2,minor) (\
+  (major1) <  8 || \
+  (major1) == 8 && (major2) <  10 || \
+  (major1) == 8 && (major2) == 10 && (minor) <= 4)
+#endif /* MIN_TOOL_VERSION_ghc */
+
+/* tool ghc-pkg-8.10.4 */
+#ifndef TOOL_VERSION_ghc_pkg
+#define TOOL_VERSION_ghc_pkg "8.10.4"
+#endif /* TOOL_VERSION_ghc_pkg */
+#ifndef MIN_TOOL_VERSION_ghc_pkg
+#define MIN_TOOL_VERSION_ghc_pkg(major1,major2,minor) (\
+  (major1) <  8 || \
+  (major1) == 8 && (major2) <  10 || \
+  (major1) == 8 && (major2) == 10 && (minor) <= 4)
+#endif /* MIN_TOOL_VERSION_ghc_pkg */
+
+/* tool haddock-2.24.0 */
+#ifndef TOOL_VERSION_haddock
+#define TOOL_VERSION_haddock "2.24.0"
+#endif /* TOOL_VERSION_haddock */
+#ifndef MIN_TOOL_VERSION_haddock
+#define MIN_TOOL_VERSION_haddock(major1,major2,minor) (\
+  (major1) <  2 || \
+  (major1) == 2 && (major2) <  24 || \
+  (major1) == 2 && (major2) == 24 && (minor) <= 0)
+#endif /* MIN_TOOL_VERSION_haddock */
+
+/* tool hpc-0.68 */
+#ifndef TOOL_VERSION_hpc
+#define TOOL_VERSION_hpc "0.68"
+#endif /* TOOL_VERSION_hpc */
+#ifndef MIN_TOOL_VERSION_hpc
+#define MIN_TOOL_VERSION_hpc(major1,major2,minor) (\
+  (major1) <  0 || \
+  (major1) == 0 && (major2) <  68 || \
+  (major1) == 0 && (major2) == 68 && (minor) <= 0)
+#endif /* MIN_TOOL_VERSION_hpc */
+
+/* tool hsc2hs-0.68.7 */
+#ifndef TOOL_VERSION_hsc2hs
+#define TOOL_VERSION_hsc2hs "0.68.7"
+#endif /* TOOL_VERSION_hsc2hs */
+#ifndef MIN_TOOL_VERSION_hsc2hs
+#define MIN_TOOL_VERSION_hsc2hs(major1,major2,minor) (\
+  (major1) <  0 || \
+  (major1) == 0 && (major2) <  68 || \
+  (major1) == 0 && (major2) == 68 && (minor) <= 7)
+#endif /* MIN_TOOL_VERSION_hsc2hs */
+
+/* tool pkg-config-1.7.3 */
+#ifndef TOOL_VERSION_pkg_config
+#define TOOL_VERSION_pkg_config "1.7.3"
+#endif /* TOOL_VERSION_pkg_config */
+#ifndef MIN_TOOL_VERSION_pkg_config
+#define MIN_TOOL_VERSION_pkg_config(major1,major2,minor) (\
+  (major1) <  1 || \
+  (major1) == 1 && (major2) <  7 || \
+  (major1) == 1 && (major2) == 7 && (minor) <= 3)
+#endif /* MIN_TOOL_VERSION_pkg_config */
+
+/* tool runghc-8.10.4 */
+#ifndef TOOL_VERSION_runghc
+#define TOOL_VERSION_runghc "8.10.4"
+#endif /* TOOL_VERSION_runghc */
+#ifndef MIN_TOOL_VERSION_runghc
+#define MIN_TOOL_VERSION_runghc(major1,major2,minor) (\
+  (major1) <  8 || \
+  (major1) == 8 && (major2) <  10 || \
+  (major1) == 8 && (major2) == 10 && (minor) <= 4)
+#endif /* MIN_TOOL_VERSION_runghc */
+
+/* tool strip-2.36 */
+#ifndef TOOL_VERSION_strip
+#define TOOL_VERSION_strip "2.36"
+#endif /* TOOL_VERSION_strip */
+#ifndef MIN_TOOL_VERSION_strip
+#define MIN_TOOL_VERSION_strip(major1,major2,minor) (\
+  (major1) <  2 || \
+  (major1) == 2 && (major2) <  36 || \
+  (major1) == 2 && (major2) == 36 && (minor) <= 0)
+#endif /* MIN_TOOL_VERSION_strip */
+
+#ifndef CURRENT_PACKAGE_KEY
+#define CURRENT_PACKAGE_KEY "lib-parvagues-0.3.1-inplace"
+#endif /* CURRENT_PACKAGE_KEY */
+#ifndef CURRENT_COMPONENT_ID
+#define CURRENT_COMPONENT_ID "lib-parvagues-0.3.1-inplace"
+#endif /* CURRENT_COMPONENT_ID */
+#ifndef CURRENT_PACKAGE_VERSION
+#define CURRENT_PACKAGE_VERSION "0.3.1"
+#endif /* CURRENT_PACKAGE_VERSION */

lib-parvagues/dist-newstyle/cache/plan.json

+{"cabal-version":"3.2.0.0","cabal-lib-version":"3.2.1.0","compiler-id":"ghc-8.10.4","os":"linux","arch":"x86_64","install-plan":[{"type":"pre-existing","id":"array-0.5.4.0","pkg-name":"array","pkg-version":"0.5.4.0","depends":["base-4.14.1.0"]},{"type":"pre-existing","id":"base-4.14.1.0","pkg-name":"base","pkg-version":"4.14.1.0","depends":["ghc-prim-0.6.1","integer-gmp-1.0.3.0","rts"]},{"type":"pre-existing","id":"base-orphans-0.8.4-LkRtS3Thr6z8LUNVwFXeqL","pkg-name":"base-orphans","pkg-version":"0.8.4","depends":["base-4.14.1.0","ghc-prim-0.6.1"]},{"type":"pre-existing","id":"bifunctors-5.5.10-BuSrNVcO6NrGrEEe3aMWe8","pkg-name":"bifunctors","pkg-version":"5.5.10","depends":["base-4.14.1.0","base-orphans-0.8.4-LkRtS3Thr6z8LUNVwFXeqL","comonad-5.0.8-AluSFTTHkH969DFuPPfo3K","containers-0.6.2.1","tagged-0.8.6.1-A3E8I7zg2qBFE9O5vQsg6C","template-haskell-2.16.0.0","th-abstraction-0.4.2.0-CPMLTlyMgmr6dbHxHL95CG","transformers-0.5.6.2"]},{"type":"pre-existing","id":"binary-0.8.8.0","pkg-name":"binary","pkg-version":"0.8.8.0","depends":["array-0.5.4.0","base-4.14.1.0","bytestring-0.10.12.0","containers-0.6.2.1"]},{"type":"pre-existing","id":"blaze-builder-0.4.2.1-KRXf5d4GbjLDdq3vlVdrGQ","pkg-name":"blaze-builder","pkg-version":"0.4.2.1","depends":["base-4.14.1.0","bytestring-0.10.12.0","deepseq-1.4.4.0","text-1.2.4.1"]},{"type":"pre-existing","id":"bytestring-0.10.12.0","pkg-name":"bytestring","pkg-version":"0.10.12.0","depends":["base-4.14.1.0","deepseq-1.4.4.0","ghc-prim-0.6.1","integer-gmp-1.0.3.0"]},{"type":"pre-existing","id":"clock-0.8.2-7889bN3Ycng5ws13EyMIn","pkg-name":"clock","pkg-version":"0.8.2","depends":["base-4.14.1.0"]},{"type":"pre-existing","id":"colour-2.3.5-BN9oNPbMV8VEBMREMvgNzy","pkg-name":"colour","pkg-version":"2.3.5","depends":["base-4.14.1.0"]},{"type":"pre-existing","id":"comonad-5.0.8-AluSFTTHkH969DFuPPfo3K","pkg-name":"comonad","pkg-version":"5.0.8","depends":["base-4.14.1.0","containers-0.6.2.1","distributive-0.6.2.1-I4yNilzlerz9Q2eOcVjd77","indexed-traversable-0.1.1-Dw8MIJyvCj8IZQDXOa8TBp","tagged-0.8.6.1-A3E8I7zg2qBFE9O5vQsg6C","transformers-0.5.6.2","transformers-compat-0.6.6-5ZJJ9POl5DGLIWTn4Z8HjM"]},{"type":"pre-existing","id":"containers-0.6.2.1","pkg-name":"containers","pkg-version":"0.6.2.1","depends":["array-0.5.4.0","base-4.14.1.0","deepseq-1.4.4.0"]},{"type":"pre-existing","id":"data-binary-ieee754-0.4.4-HlSlHq1qDaTKAKUZNW5rdz","pkg-name":"data-binary-ieee754","pkg-version":"0.4.4","depends":["base-4.14.1.0","binary-0.8.8.0"]},{"type":"pre-existing","id":"deepseq-1.4.4.0","pkg-name":"deepseq","pkg-version":"1.4.4.0","depends":["array-0.5.4.0","base-4.14.1.0"]},{"type":"pre-existing","id":"directory-1.3.6.0","pkg-name":"directory","pkg-version":"1.3.6.0","depends":["base-4.14.1.0","filepath-1.4.2.1","time-1.9.3","unix-2.7.2.2"]},{"type":"pre-existing","id":"distributive-0.6.2.1-I4yNilzlerz9Q2eOcVjd77","pkg-name":"distributive","pkg-version":"0.6.2.1","depends":["base-4.14.1.0","base-orphans-0.8.4-LkRtS3Thr6z8LUNVwFXeqL","tagged-0.8.6.1-A3E8I7zg2qBFE9O5vQsg6C","transformers-0.5.6.2"]},{"type":"pre-existing","id":"filepath-1.4.2.1","pkg-name":"filepath","pkg-version":"1.4.2.1","depends":["base-4.14.1.0"]},{"type":"pre-existing","id":"ghc-boot-th-8.10.4","pkg-name":"ghc-boot-th","pkg-version":"8.10.4","depends":["base-4.14.1.0"]},{"type":"pre-existing","id":"ghc-prim-0.6.1","pkg-name":"ghc-prim","pkg-version":"0.6.1","depends":["rts"]},{"type":"pre-existing","id":"hosc-0.18-JSORwjcVvkV1XFjkqo3gT2","pkg-name":"hosc","pkg-version":"0.18","depends":["base-4.14.1.0","binary-0.8.8.0","blaze-builder-0.4.2.1-KRXf5d4GbjLDdq3vlVdrGQ","bytestring-0.10.12.0","data-binary-ieee754-0.4.4-HlSlHq1qDaTKAKUZNW5rdz","network-3.1.2.1-3xGs6xqleCt2AU2p1KJfHx","time-1.9.3","transformers-0.5.6.2"]},{"type":"pre-existing","id":"indexed-traversable-0.1.1-Dw8MIJyvCj8IZQDXOa8TBp","pkg-name":"indexed-traversable","pkg-version":"0.1.1","depends":["array-0.5.4.0","base-4.14.1.0","containers-0.6.2.1","transformers-0.5.6.2"]},{"type":"pre-existing","id":"integer-gmp-1.0.3.0","pkg-name":"integer-gmp","pkg-version":"1.0.3.0","depends":["ghc-prim-0.6.1"]},{"type":"configured","id":"lib-parvagues-0.3.1-inplace","pkg-name":"lib-parvagues","pkg-version":"0.3.1","flags":{},"style":"local","pkg-src":{"type":"local","path":"/home/pln/Work/Sound/Tidal/lib-parvagues/."},"dist-dir":"/home/pln/Work/Sound/Tidal/lib-parvagues/dist-newstyle/build/x86_64-linux/ghc-8.10.4/lib-parvagues-0.3.1","depends":["base-4.14.1.0","tidal-1.7.2-AARiXT6GPRSAsy0c3mTFhF"],"exe-depends":[],"component-name":"lib"},{"type":"pre-existing","id":"mtl-2.2.2","pkg-name":"mtl","pkg-version":"2.2.2","depends":["base-4.14.1.0","transformers-0.5.6.2"]},{"type":"pre-existing","id":"network-3.1.2.1-3xGs6xqleCt2AU2p1KJfHx","pkg-name":"network","pkg-version":"3.1.2.1","depends":["base-4.14.1.0","bytestring-0.10.12.0","deepseq-1.4.4.0","directory-1.3.6.0"]},{"type":"pre-existing","id":"parsec-3.1.14.0","pkg-name":"parsec","pkg-version":"3.1.14.0","depends":["base-4.14.1.0","bytestring-0.10.12.0","mtl-2.2.2","text-1.2.4.1"]},{"type":"pre-existing","id":"pretty-1.1.3.6","pkg-name":"pretty","pkg-version":"1.1.3.6","depends":["base-4.14.1.0","deepseq-1.4.4.0","ghc-prim-0.6.1"]},{"type":"pre-existing","id":"primitive-0.7.1.0-LcdiXcMqlBcCrCUOpoPDlu","pkg-name":"primitive","pkg-version":"0.7.1.0","depends":["base-4.14.1.0","deepseq-1.4.4.0","transformers-0.5.6.2"]},{"type":"pre-existing","id":"random-1.2.0-2visSit9X2t61PgLh8ZrY0","pkg-name":"random","pkg-version":"1.2.0","depends":["base-4.14.1.0","bytestring-0.10.12.0","deepseq-1.4.4.0","mtl-2.2.2","splitmix-0.1.0.3-5V0jJrlI4OcJ9ufTeVBc9m"]},{"type":"pre-existing","id":"rts","pkg-name":"rts","pkg-version":"1.0","depends":[]},{"type":"pre-existing","id":"splitmix-0.1.0.3-5V0jJrlI4OcJ9ufTeVBc9m","pkg-name":"splitmix","pkg-version":"0.1.0.3","depends":["base-4.14.1.0","deepseq-1.4.4.0"]},{"type":"pre-existing","id":"tagged-0.8.6.1-A3E8I7zg2qBFE9O5vQsg6C","pkg-name":"tagged","pkg-version":"0.8.6.1","depends":["base-4.14.1.0","deepseq-1.4.4.0","template-haskell-2.16.0.0","transformers-0.5.6.2"]},{"type":"pre-existing","id":"template-haskell-2.16.0.0","pkg-name":"template-haskell","pkg-version":"2.16.0.0","depends":["base-4.14.1.0","ghc-boot-th-8.10.4","ghc-prim-0.6.1","pretty-1.1.3.6"]},{"type":"pre-existing","id":"text-1.2.4.1","pkg-name":"text","pkg-version":"1.2.4.1","depends":["array-0.5.4.0","base-4.14.1.0","binary-0.8.8.0","bytestring-0.10.12.0","deepseq-1.4.4.0","ghc-prim-0.6.1","integer-gmp-1.0.3.0","template-haskell-2.16.0.0"]},{"type":"pre-existing","id":"th-abstraction-0.4.2.0-CPMLTlyMgmr6dbHxHL95CG","pkg-name":"th-abstraction","pkg-version":"0.4.2.0","depends":["base-4.14.1.0","containers-0.6.2.1","ghc-prim-0.6.1","template-haskell-2.16.0.0"]},{"type":"pre-existing","id":"tidal-1.7.2-AARiXT6GPRSAsy0c3mTFhF","pkg-name":"tidal","pkg-version":"1.7.2","depends":["base-4.14.1.0","bifunctors-5.5.10-BuSrNVcO6NrGrEEe3aMWe8","bytestring-0.10.12.0","clock-0.8.2-7889bN3Ycng5ws13EyMIn","colour-2.3.5-BN9oNPbMV8VEBMREMvgNzy","containers-0.6.2.1","deepseq-1.4.4.0","hosc-0.18-JSORwjcVvkV1XFjkqo3gT2","network-3.1.2.1-3xGs6xqleCt2AU2p1KJfHx","parsec-3.1.14.0","primitive-0.7.1.0-LcdiXcMqlBcCrCUOpoPDlu","random-1.2.0-2visSit9X2t61PgLh8ZrY0","text-1.2.4.1","transformers-0.5.6.2","vector-0.12.3.0-1W3UrlCANY1FIQOCyXtZ1w"]},{"type":"pre-existing","id":"time-1.9.3","pkg-name":"time","pkg-version":"1.9.3","depends":["base-4.14.1.0","deepseq-1.4.4.0"]},{"type":"pre-existing","id":"transformers-0.5.6.2","pkg-name":"transformers","pkg-version":"0.5.6.2","depends":["base-4.14.1.0"]},{"type":"pre-existing","id":"transformers-compat-0.6.6-5ZJJ9POl5DGLIWTn4Z8HjM","pkg-name":"transformers-compat","pkg-version":"0.6.6","depends":["base-4.14.1.0","ghc-prim-0.6.1","transformers-0.5.6.2"]},{"type":"pre-existing","id":"unix-2.7.2.2","pkg-name":"unix","pkg-version":"2.7.2.2","depends":["base-4.14.1.0","bytestring-0.10.12.0","time-1.9.3"]},{"type":"pre-existing","id":"vector-0.12.3.0-1W3UrlCANY1FIQOCyXtZ1w","pkg-name":"vector","pkg-version":"0.12.3.0","depends":["base-4.14.1.0","deepseq-1.4.4.0","ghc-prim-0.6.1","primitive-0.7.1.0-LcdiXcMqlBcCrCUOpoPDlu"]}]}
\ No newline at end of file

lib-parvagues/lib-parvagues.cabal

@@ -17,7 +17,7 @@ library
   hs-source-dirs:      src
   exposed-modules:     Sound.Tidal.ParVagues.Control
   build-depends:       base >= 4.7 && < 5,
-                       tidal
+                       tidal >= 1.5.0
   default-language:    Haskell2010
   default-extensions:  OverloadedStrings
 

lib-parvagues/src/Lib.hs

+module Lib
+    ( someFunc
+    ) where
+
+someFunc :: IO ()
+someFunc = putStrLn "someFunc"

lib-parvagues/src/Sound/Tidal/ParVagues/Control.hs

@@ -8,9 +8,9 @@ module Sound.Tidal.ParVagues.Control (
   midiGGlobal
 ) where
 
-  import Sound.Tidal.Context
-  import Sound.Tidal.Scales
-  import Sound.Tidal.Chords
+  -- import Sound.Tidal.Context
+  -- import Sound.Tidal.Scales
+  -- import Sound.Tidal.Chords
 
   -- Midi boolean buttons
   -- midiOn

lib-parvagues/src/Sound/Tidal/ParVagues/Control.tidal

+  -- Midi boolean buttons
+  -- midiOn
+  midiOn    ch    pat = someCyclesBy ch             pat
+  midiOff   ch    pat = someCyclesBy (1 - ch)       pat
+  midiNo    c1 c2 pat = someCyclesBy (1 - c1 - c2)  pat
+  -- Parameterized DJF
+  _LPF lMin lMax ch = (# lpf (min lMax ((range lMin ((lMax*2) - lMin) ch))))
+  _HPF hMin hMax ch = (# hpf (max hMin (min hMax (range (hMin - hMax) (hMax - hMin) ch))))
+  midiDJF   ch lMin lMax hMin hMax = (_LPF lMin lMax ch) . (_HPF hMin hMax ch)
+  -- FIXME: Seems to cut some lows when lMin != 0
+  -- Midi gain control (faders)
+  midiGGlobal = "^77" * 1.5
+  _gainG ch     = (gain (midiGGlobal * ch)) -- gain Global
+  midiG' ch l h = _gainG (range l h ch)     -- midiGain   control
+  midiG  ch     = midiG' ch 0 1             -- midiGain   default

link_jack.sh

@@ -2,3 +2,4 @@
 pactl load-module module-jack-source
 pactl load-module module-jack-sink channels=2
 pacmd set-default-sink jack_out
+pacmd set-default-source jack_in

live/boeuf/may_cafe.tidal

@@ -112,7 +112,7 @@ $ every 4 (# silence)
 $ s "reverbkick*2"
 # gain 0.7
 
-once $ s "macron:7" # gain 0.9 # cut 5
+once $ s "macron:7" # gain 1.4 # cut 5
 -- endregion
 
 -- region Third round: Planant qui resonne

live/hip/lofi/back_baby.tidal

+
+once $ "dr" # gain 0.75
+
+do
+setcps (80/60/4)
+let gPont2 = (someCyclesBy "0!32 1!8 0!24>" (# djf (slow 8 $ range 0.5 1 saw)))
+let gPont = (whenmod 32 24 (# djf (slow 8 $ range 0.5 0 sine)))
+let g = gPont
+let gPonts = gPont . gPont2
+d1
+  $ g
+  $ "j . j(<1 2 4 5>,8,<0 2 1 <0 3>>)"
+  # "hh27:5"
+  # cut 1
+  # gain 1.1
+d2
+  $ g
+  $ mask "<f!16 t!16>"
+  $ whenmod 16 12 (fast "<2 [4 2] 2 [4 . 8 2]>")
+  $ "~ cp"
+  # "hh27:2"
+  # release 0.57
+  # note "-5"
+  # gain 1.2
+d3 $ g
+  $ sometimesBy "0 <1!3 0.5> 0 <0!3 0.5>" (ply "[8|8 16|16]")
+  $ "h h h <h(<1 2>,2,<0!3 1>) [~!3 h]>"
+  # "[hh27:3,drum:2]"
+  # release 0.8
+  # gain 0.85
+d10
+  $ g
+  $ note (
+    "<c!3 d>(<3 3 2 5>,8)" -- Rythme
+    + "[0,12]" -- Epaisseur
+    - 36 -- Gamme baseline
+  )
+  # "supersaw"
+  # legato 2
+  # room 0.7
+  # sz 0.8
+  # pan 0.24
+  # voice 0.03
+  # gain 0.5
+d4 -- BASSLINE Résolue
+  $ g
+  $ mask "<f!4 [t f]!4 t!24>"
+  $ ply "1 <1!4 2 2 [2 4] [8 4]>"
+  $ slice 4 "<0!4 1 1> . <0!3 1 1 0 2 3>"
+  $ "fbass:43"
+  # gain 1.1
+  # cut 4
+  # pan 0.2
+  # room 0.2 # dry 0.99 # sz 0.7
+d5 -- Guitare Ressort
+  -- $ someCyclesBy ("<1!8 0!24>") (|* gain (slow 8 $ min 1 (range 0.5 2 saw)))
+  $ someCyclesBy "<1!16 0!16>" -- degrade
+    (mask "f t" . (|* gain (slow 16 $ range 0.5 1 saw)))
+  $ slice 8 (cat [
+    "0 . <~ 4> <~!3 6>",
+    "0 . ~ 0*<1 <2 4>>",
+    "~ . 0 <3 [6 7]>",
+    (iter 4 $ "0 1*<1 2 4> <2 3> <3 2> . 4 5 6 7")
+    ])
+  $ "fguitar:43"
+  # room 0.1
+  # dry 0.99
+  # cut 5
+  # pan 0.8
+  # gain 1.1
+d6  -- Sliced Electropiano
+  $ jux (("<q h>" ~>) . (|* gain 0.65) . (# cut 61)) -- Brother echo!
+  $ someCyclesBy "<0!16 0!8 1!8>" (slice 16 ("<0 1 2 3 4 5 6 7>" + "<0!4 8!4>"))
+  $ someCyclesBy "<0!16 1!8 0!8>" (slice 16 "<2*2 [0 2 2 2] 2*[8 . 16 4] [3 2 3 2] [3 2 1 0] [4 5 6 5] [3 2 6 7] [4 5 6 7]>")
+  $ someCyclesBy "<1!16 0!16>" (slice 16 "<0 1 0 1 [0 1] [0 1] [0 . ~ 1] [0 0 0 1]>")
+  $ "fepiano:26"
+  # pan 0.3
+  # gain 1 + "<0!4 0.1!4>"
+  # cut 6
+
+
+once $ "fepiano:26"
+  # gain 0.7
+  # cut 7
+
+let linput = pI "linput"
+let lname = pS "lname"
+
+once $ s "looper" # lname "lHome"
+
+once $ "lHome" # gain 1.6
+
+
+
+once $ "hh27:1" -- Ho lo
+
+once $ "hh27:10" -- Ho hi soft
+
+once $ "hh27:2" -- Maracas fermées
+once $ "hh27:9" -- Maracas fermées lo
+
+once $ "hh27:3" -- Maracas ouvertes / balai
+once $ "hh27:8" -- Same plus aigu
+
+once $ "hh27:4" -- Clochettes
+
+once $ "hh27:5" -- Kick neige
+once $ "hh27:6" -- Kick sec
+
+once $ "hh27:12" -- Snare lo
+once $ "hh27:11" -- Snare hi

live/late/funky_evening.tidal

+setcps (90/60/4)
+
+resetCycles
+
+do
+let g = (# djf (slow 32 $ range 0.1 0.75 sine))
+d1 $ g
+  $ fast 2 "k k k [<k <~ k> k k> <~ k>]"
+  # "[cpu,808bd:2]"
+  # gain 1.25
+d2 $ g
+  $ n (stack [
+    "~ <2!3 11>",
+    ("1(<4 5 6 8>,8)" |+ (run 8))
+    ])
+  # "amencutup"
+  # gain 1.25
+d5 -- Broken amen aigu
+  $ n "<10!4 11!3 ~ 10 10 11 11 11 ~ 10 ~>(<10!3 8>,16)"
+  # pan (slow 16 $ range 0.2 0.8 sine + perlin/4)
+  # "amencutup" # gain 1.2
+d3 $ g
+  $ slice 8 (run "<2 4 8 16 16 8 16 32>")
+  $ chop 16
+  $ loopAt 2
+  $ "fguitar:22"
+  # gain (slow 16 $ range 0.9 1.13 sine)
+  # pan 0.2
+  # cut 1
+d4
+  $ mask "t <f t? [f t] [t t?]>"
+  $ slice 8 "0 . 4 5 6 7"
+  $ chop 16
+  $ loopAt 2
+  $ "fbass:22"
+  # pan 0.2
+  -- # lpf 200
+  # gain 1.2
+  # cut 1
+d5 -- Epiano nappes + arp
+  $ g
+  $ someCyclesBy "1" (superimpose (
+    slice 4 "0 . 2(<3 5>,8) <~ <3? 3>>"
+    . (|+ note 12)
+    . (# cut 51)
+    . (|+ pan 0.3)
+  ))
+  $ note ("<0 0 3 0>/2" - 12)
+  # "fepiano:4"
+  # cut 5
+  # pan 0.6
+  # gain 1.2
+
+
+
+once $ "" # cut 5 # gain 1.8
+
+once $ "macron:1" # cut 5 # gain 1.8

live/midi/jazz.tidal

@@ -2,20 +2,21 @@ resetCycles
 
 -- Electro-jazz grille du blues snakish
 do
-setcps (80/60/4)
+setcps (75/60/4)
 let gLpf = (whenmod 16 8 (# lpf (slow 8 $ range 0 0.5 saw)))
 let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "c", "g"]
 let chord = "c'maj"
 let chordAug = "c'maj'8"
-d1 -- Kick rarement doublé
+d1 -- Kick rarement doublé vaguement rub-a-dub
   $ gLpf
   $ every 8 (# gain 0)
   $ whenmod 8 6 (off "<-0.0675 -0.125>" id)
   $ fast 2
   $ "jazz"
   # room 0.1 # dry 0.99 # sz 0.6
-  # gain 1
+  # gain 0.9
 d2
+  $ mask "<f!8 t!8 f!4 t!12>"
   $ gLpf
   $ "~ [jazz:4,cp]"
   # gain (slow 16 $ range 1.2 0.8 isaw)
@@ -25,24 +26,29 @@ d3 -- Snakes
   $ fast 4
   $   "s . s <s!3 ~> <~!3 s>"
   # "hh*6"
-  # gain (slow 32 $ range 0.5 1 saw)
-d4
-  $ superimpose (
-    ply "<2 4 [4 8] 8>" .
-    mask "t(1,4)" . arpeggiate . (# "supermandolin")
-    . (|* gain 0.8)
+  # gain (1.2 * (slow 32 $ range 0.5 1 saw))
+d4 -- Bassline + mandolin ?
+  $ whenmod 32 0 (superimpose (
+    degradeBy ("0 1!6 0.5" * "0.5 0.25")
+    . mask "t . t(5,8)"
+    . ply "<2 4 [4 8] 8>"
+    . arp "<up!4 down!4>"
+    . (|+ note 24) -- Not a bass :)
+    . (# "supermandolin")
     . (# pan 0.6)
-    . (# crush 16)
-  )
-  $ note (cat blues + chord)
+    . (# room 0.5)
+    . (|* gain 1.6)
+  ))
+  $ note (cat blues + chord - 24)
   -- # "supersaw" # voice 0.1
   # "bassWarsaw"
-  # pan 0.75
-  # room 0.1
+  # pan 0.2
+  # room 0.4
   # crush (slow 64 $ range 16 4 isaw)
   # voice 0.8
-  # gain 0.85
+  # gain (0.85 * (slow 16 $ range 0.5 0.9 saw))
 d5 -- Choeurs
+  $ mask "<f!16 t!4 f!4 t!8>"
   $ juxBy 0.5 (
   (0.5 ~>)
   . superimpose (
@@ -58,10 +64,17 @@ d5 -- Choeurs
   $ note (cat blues)
   # "moogBass"
   # octave 3
-  # gain 0.9
+  # gain 0.8
   # room 0.4
   # size 0.7 # dry 1.05
-
+d6
+  $ degradeBy (slow 8 $ range 0 0.2 saw)
+  $ struct "t(<<12!6 24!2> <8!6 16!2>>,16)"
+  $ slow 4
+  $ n (run 32)
+  # "amencutup"
+  # pan 0.9
+  # gain (slow 16 $ range 1 0.8 saw)
 
   once $ arp "up" $ note "d'min" # "superpiano" # velocity 0.38
 -- region BACASABL

live/midi/nova/FFF/mad_fonk.tidal

@@ -11,18 +11,11 @@ do
   let gG a = (gain ("^77" * a)) -- gain Global
   let gM' l h a = (gG (range l h a)) -- gain Modéré
   let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
-  let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49")))))
-  let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49"))))))
-  let gDJF = (gLPF . gHPF)
+  let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
   let novaOn  ch pat = someCyclesBy ch pat
   let novaOff ch pat = someCyclesBy  (1 - ch) pat
   -- endregion Nova Utils
-  let gDelayD = (# delay (range 0 5 "^13"))
-  let gDelayFB = (# delayfb (range 0 0.9 "^14"))
-  let gRoom = ((|+ room (range 0 0.5 "^29")) . (# dry 0.99))
-  let gSize = (|+ size (min 0 (range "-0.5" 0.5 "^29")))
-  let gDelay = (gDelayD . gDelayFB . (# delayt 0.25) . (# orbit 2))
-  let g = (gDJF . gRoom)
+  let g = gDJF
   let bpm = 80 -- Que tu crois!
   setcps (bpm/60/4)
   -- d10 $ funk_noise
@@ -48,7 +41,7 @@ do
     $ novaOn  "^41" (<|"k k k k k k k <k [~ k]>")
     $ novaOff "^41" (<|"k . k(<3 5>,8)") -- L'agité
     $ "[cpu,jazz]"
-    # gM' 0 1.2 "^78"
+    # midiG' "^78" 0 1.1
     # pan 0.45
   d2 $ g
     $ slow 2
@@ -75,10 +68,10 @@ do
     $ novaOff "^57" (slice 8 $ run 8) -- Classique: jumpy groovy
     $ "fbass:8"
     # legato 1
-    # crush (range 10 3.5 "^53") -- CRUSH THIS
+    # crushbus 40 (range 10 3.5 "^53") -- CRUSH THIS
     # gM' 0 1.5 "^81"
     # pan 0.6
-  d5 $ g $ gDelay -- Guitare pompe
+  d5 $ g -- Guitare pompe
     -- region Guitare pompe
     $ novaOn "^59" (slice 8 (cat [
       "0*4",
@@ -97,7 +90,7 @@ do
       "0(<1 4>,<1 4 8>) . [1*<1 2 4>, 3(<1 3 5>,8)]"
     ) . (# n 11))
     $ "fguitar"
-    # crush (range 10 5.5 "^54") -- CRUSH THIS
+    # crushbus 50 (range 10 5.5 "^54") -- CRUSH THIS
     # cut 8
     # gM' 0.3 1.5 "^82"
     # pan 0.3
@@ -105,10 +98,10 @@ do
     $ sometimesBy "^35" (scramble 8)
     $ sometimesBy "^55" (off "e" ((# cut 61) . (|* gain 0.9)))
     -- $ whenmod 32 16 (whenmod 4 2 (jux rev)) -- TODO variations once introduced
-    $ novaOff "^91" (slow 2)
+    $ novaOff "^59" (slow 2)
     -- $ mask "f(<1!16 2!16>,2,<1!4 0!4>)" -- TODO INTRO MASK THIS
-    $ novaOn "^59" (slice 8 "0 3 2 1 0 3 <2 6> 7") -- variant
-    $ novaOff "^59" (slice 8 "0 3 2 1 4 5 6 7*<1 2>") -- regulier
+    -- $ novaOn "^91" (slice 8 "0 3 2 1 0 3 <2 6> 7") -- variant
+    -- $ novaOff "^91" (slice 8 "0 3 2 1 4 5 6 7*<1 2>") -- regulier
       -- "3*4 <0 5> 0 <3 4>*2 0*2 5 0 4" -- TODO FREESTYLE
     -- $ slice 8 "3*4 <0 5> 0 <3 4>*2 0*2 5 0 4" -- TODO FREESTYLE
       -- "0 1 2 [3*<4 2>]!4 [5 <4 5>]"
@@ -117,12 +110,12 @@ do
       -- "5!7 7" -- END OF FILE
       -- "4!5 5 6 7*<1 2>" -- repeat end
     -- )
-    $ s "fepiano"
+    $ "fepiano"
     # n (slow 8 "<24 25>")
     # gM' 0.3 1.5 "^83"
     # cut 6
     # pan 0.7
   d7 $ (|- lpf 1000) $ g
-    $ fast 2 $ s "clap"
+    $ whenmod 16 8 (fast 2) $ "clap"
     # gM' 0.3 1.5 "^84"
     # room 0.4

live/midi/nova/breaks/break_90s.tidal

@@ -3,7 +3,6 @@ import Sound.Tidal.ParVagues.Control
 -- Accompagnement en ré au https://mmontag.github.io/dx7-synth-js/
 
 
-setcps (80/60/4)
 resetCycles
 
 once "dr"
@@ -11,13 +10,14 @@ once "dr"
 -- Break90s∷ :)
 do
 -- let gF = (whenmod 32 28 (# djf (slow 4 $ range 0 0.5 sine)))
-let gDJF = (# djfbus 1 (range 0.15 0.9 "^49"))
+let gDJF = (# djfbus 1 (range 0.15 0.85 "^49"))
 let g = (gDJF)
+setcps (80/60/4)
 d1
   $ g
   $ midiOn "^41" (superimpose ((# "kick:5")
   . (|* gain 0.9))
-  . (<| "k k k k k k k [<k ~> <k ~ ~ k>]")
+  . (<| "k k k k k k k [<k ~> <k k ~ k>]")
   . (# room 0)
   . (|* gain 0.9)
   )
@@ -42,14 +42,15 @@ d2
   ))
   $ "fbreak80:2"
   # midiG' "^79" 0 1.65
+  # note (range "-12" 12 "^51")
   # pan 0.6
   # cut 2
 d3 -- Bassline
   $ (# lpf (range 10000 500 "^53"))
   $ g
   $ midiOn "^89" (off "h" (
-    -- mask "t f"
-    (# speed 2)
+    mask "t(<8 16> ,16)"
+    . ply 2
     . (# cut 31)
     . (|* gain 0.8)
     . (|+ gain 0.1)
@@ -67,9 +68,28 @@ d3 -- Bassline
   )
   $ "fbass:9"
   # cut 3
-  # crush (range 10 4 "^53")
+  # crushbus 31 (range 16 4 "^53")
   # pan 0.2
   # midiG' ("^81" + 0.125*"^53") 0 1.8
+d5 $ g -- Piano base
+  $ midiOn "^58" (superimpose (
+    (0.5 ~>)
+    . degradeBy (1 - "^54")
+    . fast "<1!8 2!8 4!8 1!4 2!4 4!8>"
+    . (|+ note ("12"))
+    . (|* gain 1.2)
+    . (|+ pan 0.125)
+  ))
+  $ degradeBy (1 - "1 ^54!3")
+  $ sometimesBy 0.125 ("1/32" ~>)
+  $ whenmod 16 4 (|+| note "<0!4 [0 a4]!4>")
+  $ note "<d3!3 [g3 . ~ a4]>"
+  # "superpiano"
+  # velocity (0.4 + perlin/8)
+  # room 0.6 # sz 0.8
+  # pan 0.65
+  # orbit 5
+  # midiG' "^82" 0.3 1.5
 d4 -- Skank organ
   $ g
   -- $ superimpose (const $ g
@@ -87,27 +107,10 @@ d4 -- Skank organ
   $ slice 8 ("<~ 3 ~ 2> 0 <~ 4 5 6> <0 1>")
   $ "forgan:9" # cut 5
   # orbit 4
+  # pan 0.45
   # room 0.7 # sz 0.8
+  # crushbus 41 (range 16 4 "^55")
   # midiG' "^83" 0.2 1
-d5 $ g
-  $ midiOn "^58" (superimpose (
-    (0.5 ~>)
-    . degradeBy (1 - "^54")
-    . fast "<1!8 2!8 4!8 1!4 2!4 4!8>"
-    . (|+ note ("12"))
-    . (|* gain 1.2)
-    . (|+ pan 0.125)
-  ))
-  $ degradeBy (1 - "1 ^54!3")
-  $ sometimesBy 0.125 ("1/32" ~>)
-  $ whenmod 16 4 (|+| note "<0!4 [0 a4]!4>")
-  $ note "<d3!3 [g3 . ~ a4]>"
-  # "superpiano"
-  # velocity (0.4 + perlin/8)
-  # room 0.6 # sz 0.8
-  # pan 0.6
-  # orbit 5
-  # midiG' "^82" 0.3 1.5
 d8 -- Tom roll
   $ g
   $ midiOn "^76"  (fast 2)
@@ -128,5 +131,3 @@ d9 -- Finger claps
   # speed (range 0.75 1.25 "^56")
   # release "<0.25!3 0.125 0.25!4 0.125!4>"
   # midiG' "^84" 0 1.7
-
-once $ "dr"

live/midi/nova/breaks/slower.tidal

 import Sound.Tidal.ParVagues.Control
 
-setcps (80/60/4)
 
 resetCycles
 
 do
+setcps (80/60/4)
 let gF = (whenmod 32 24 (# djf (slow 8 $ range 0.15 0.5 sine)))
-let gDJF = (midiDJF "^49" 200 9800 0 200)
-let gFreqL = (# lpq (range 0 0.25 "^29"))
-let gFreqH = (# hpq (range 0 0.25 "^30"))
-let gFreqs = (gFreqH . gFreqL)
+let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
+-- let gFreqL = (# lpq (range 0 0.25 "^29"))
+-- let gFreqH = (# hpq (range 0 0.25 "^30"))
+-- let gFreqs = (gFreqH . gFreqL)
 -- region Params Rhodes
 let modIndex = pF "modIndex"
 -- endregion
-let g = (gF . gDJF . gFreqs)
+let g = (gDJF)
 d1 $ g -- KICK
-  $ midiOn "^41" (<| "k <k!4 ~ k!3> k k*<1 <2 4>>")
-  $ midiOn "^42" (<| "k*4 . k k k k*<1 2>") -- Run
+  $ midiOn "^41" (<| "k*4 . k k k k*<1 2>") -- Run
+  $ midiOn ("^42" - "^41") (<| "k <k!4 ~ k!3> k k*<1 <2 4>>")
   $ midiNo "^41" "^42" (<| "k*<1 1 2 1 2 2 2 1> . k(5,8)")
   $ "[hh27:6,jazz]"
-  # midiG' "^78" 0 1.9
+  # midiG' "^78" 0 2
   # room 0.3 # sz 0.5 # dry 0.9
 d2 -- Breakbeat
   $ g
@@ -32,10 +32,9 @@ d3 $ g
   $ midiOn "^44" (fast 2)
   $ "d ~ ~ d d ~ d <~!3 d>"
   # "snare:22"
-  # midiG' "^80" 0 1.8
   # speed (range 0.5 1.5 "^52")
-d4 -- Bassline
-  $ g
+  # midiG' "^80" 0 2
+d4 $ g -- Bassline
   $ midiOn "^57" (-- + Arps aigus!
     superimpose (
       often (off "h" rev)
@@ -44,17 +43,18 @@ d4 -- Bassline
         + "0(5,8)" |+ "0 7"
         + 12
       ))
-      . (|* gain (0.95 - (0.1 * "^53")))
-      . (# crush (range 12 1.85 "^53"))
+      . (|* gain 1.1)
+      . (# room 0.5) . (# sz 0.75)
     )
   )
   $ note ("<0 [0 . 0 [0 3] 5 ~]>")
   # "bass1"
-  # crush (range 10 5 "^53")
-  # room 0.5 # sz 0.8 # orbit 4
+  # crushbus 41 (range 10 4.5 "^53")
+  # room 0.25 # sz 0.8 # orbit 4
   # pan 0.2
-  # midiG' "^81" 0 1.4
-d5 -- fmono
+  # midiG' "^81" 0 1.8
+d5 $ g -- fmono
+  $ midiOn "^90" (chop "<8!3 [8 16]>")
   $ g
   $ (# lpf (range 10000 5000 "^54"))
   $ slice 8 (
@@ -62,7 +62,7 @@ d5 -- fmono
     "<0 3>")
   $ "fmono:40"
   # cut 4
-  # crush (range 12 1.85 "^54")
+  # crushbus 51 (range 12 1.85 "^54")
   # midiG' ("^82" + 0.125 * "^54") 0 1.2
   # room 0.3 # sz 0.8 # dry 1
 d9 -- Maracas Hats
@@ -85,7 +85,7 @@ d6 -- Pwm steps
  $ g
  $ whenmod 32 16 (scramble 2)
  $ note (
-   "0*2 . ~ 0*2"
+   "0(<2 2 3 5>,8) . ~ 0*<2 4 2 [8 4]>"
    + "0 <0 12>"
    + (arp "up" "<c'minor'4!3 c'maj'4>")
    + "-24" -- Base gamme
@@ -97,21 +97,21 @@ d6 -- Pwm steps
  # sz 0.4
  # midiG' "^83" 0 1.2
 d7 -- Arps FMRhodes1
-  $ stut 4 "q" "[0.95|0.8]"
   $ g
-  $ superimpose (arp "down" .
-  (|+ note ("c'maj'2" + "0 12" + 12)))
+  $ superimpose (arp "down up" .
+  (|+| note ("c'maj'2 <c'maj'4>" + "0 12" + 12)))
   $ note "<c4 ds4 c4 b3>/2"
   # "FMRhodes1"
   # pan 0.3
   # modIndex (range 0 100 "^34")
   # room 0.6 # sz 0.8
-  # midiG' "^18" 0 1.8
-d10 -- Follow claps
-  $ g
-  $ "~ clap"
-  # midiG' "^56" 0.3 1.3
-  # room 0.2
+  # midiG' "^18" 0 1.5
+d10 $ g
+  $ midiOn "^92" (<| "[~ c]*[4 <4 8 4 [8 4]>]")
+  $ midiOff "^92" (<| "~ c")
+  $ "clap"
+  # speed (range 0.5 1.5 "^56")
+  # midiG' "^84" 0 1.7
 
 
 

live/midi/nova/dnb/lucy_rode.tidal

@@ -3,7 +3,6 @@ import Sound.Tidal.ParVagues.Control
 once $ "dr" # gain 0.8
 
 resetCycles
-setcps (60/60/4)
 
 -- Lucy Rode
 do
@@ -17,8 +16,10 @@ do
   let gDJF =   (# djfbus 1 (range 0.1 0.9 "^49"))
   let gFreqs = (gFreqH . gFreqL)
   let g = gDJF . gFreqs
+  setcps (60/60/4)
   d1
     $ g -- Beat
+    $ fast 2
     $ midiOn "^41" (<|  "k k k k")
     $ midiOn "^42" (<| "k . k <~ [<~ k> <k ~>]>")-- RubADub
     $ midiNo "^41" "^42" (<| "<k <k*2 k(3,8)>>")
@@ -94,7 +95,6 @@ do
   d10 $ "~ clap" # midiG' "^84" 0 1.2
 
 
-
   d2
     $ mask "<f!8 t!24>"
     $ "~ s ~ s*<1 2 1 1>"

live/midi/nova/dnb/meurice.tidal

@@ -3,7 +3,7 @@ import Sound.Tidal.ParVagues.Control
 -- This is a test ;)
 --
 do
-setcps (160/610/4)
+setcps (160/60/4)
 let gDJF =  (# djfbus 1 (range 0.1 0.9 "^49"))
 let gFreqL = (# lpq (range 0 0.5 "^29"))
 let gFreqH = (# hpq (range 0 0.5 "^30"))
@@ -16,17 +16,18 @@ d1
     . (|* gain 0.9)
   )
   $ (|* gain "1!7 0.95")
-  $ "b . ~ b ~ <~!3 b>"
-  # "[reverbkick,jazz,kick:5]"
+  $ midiOn "^41" (<| "k k k <k!3 k*2>")
+  $ midiOff "^41" (<| "b . ~ b ~ <~!3 b>")
+  $ "[reverbkick,jazz,kick:5]"
   # release 0.8
   # midiG' "^78" 0 1.2
-d2
+d2 -- Snare tchak!
   $ g
   $ g32Bridge
   $ whenmod 16 12 (struct "t*<4 4 8 16>")
   $ whenmod 16 4 (fast 2)
   $ "~ cp"
-  # "[snare:4,snare:22]"
+  # "[snare:40,snare:22]"
   # pan 0.55
   # note (range "-7" 7 "^51")
   # room 0.8 # dry 0.99 # sz 0.2
@@ -38,7 +39,7 @@ d3 -- Running Hats
   $ midiOn "^76" (fast 2)
   $ "hh*[8 . 8 <16 8 4 [4 8]>]"
   -- # n "[0|0|0|0|1|1|3|3]*8"
-  # midiG' "^80" 0 (1.3 + (slow 4 $ perlin/4))
+  # midiG' "^80" 0 (1.7 + (slow 4 perlin/4))
   # room  (slow 8 $ range 0.2 0.45 saw)
   # sz    (slow 8 $ range 0.8 0.2 saw)
   # dry   (slow 4 $ range 0 2 perlin)
@@ -55,7 +56,7 @@ d4 -- Resolute Bass
   $ "fbass:25"
   # pan 0.15
   # room 0.25 # sz 0.1
-  # crush (range 16 1.45 "^53")
+  # crushbus 41 (range 16 1.25 "^53")
   # midiG' "^81" 0 1.6
   # cut 4
 d6 -- Guitar A
@@ -67,7 +68,7 @@ d6 -- Guitar A
   $ segment 16
   $ "fguitar:24"
   -- # pan 0.8
-  # crush (range 10 3.5 "^54")
+  # crushbus 51 (range 10 3.5 "^54")
   # midiG' "^82" 0 (1.2 * (range 1.4 0.5 "^18"))
   # cut 6
 d7 -- Guitar B
@@ -90,6 +91,11 @@ d8 $ g -- Clave de l'été
   # "[<808lc!6 808hc!2>,<~!4 808mc!4>]"
   # speed (range 0.5 2 "^55")
   # midiG' "^83" 0 1.5
+d9 $ g -- CLAPS!
+  $ midiOff "^60" (mask "<f!8 t!124>")
+  $ midiOn "^92" (fast 4)
+  $ "~ clap:2"
+  # midiG' "^84" 0 1.5
 
 
 d6 $ "seawolf:0/4"

live/midi/nova/lofi/back_baby.tidal

+import Sound.Tidal.ParVagues.Control
+
+
+do
+setcps (80/60/4)
+let g = (# djfbus 1 (range 0.02 1 "^49"))
+d1
+  $ g
+  $ "j . j(<1 2 4 5>,8,<0 2 1 <0 3>>)"
+  # "hh27:5"
+  # cut 1
+  # midiG' "^78" 0 0.8
+
+d2
+  $ g
+  -- $ mask "<f!16 t!16>"
+  $ whenmod 16 12 (fast "<2 [4 2] 2 [4 . 8 2]>")
+  $ "~ cp"
+  # "hh27:2"
+  # release 0.57
+  # note "-5"
+  # midiG' "^79" 0 0.8
+
+d3 $ g
+  $ sometimesBy "0 1 0 0" (ply 16)
+  $ "h h h <h(<1 2>,2,<0!3 1>) [~!3 h]>"
+  # "hh27:3"
+  # release 0.8
+  # cut 3
+  # gain 0.5
+d10
+  $ g
+  $ note (
+    "<c!3 d>(<3 3 2 5>,8)" -- Rythme
+    + "[0,12]" -- Epaisseur
+    - 36 -- Gamme baseline
+  )
+  # "supersaw"
+  # legato 2
+  # room 0.7
+  # sz 0.8
+  # pan 0.24
+  # voice 0.03
+  # gain 0.25
+d4 -- BASSLINE Résolue
+  $ g
+  $ mask "<f!4 [t f]!4 t!24>"
+  $ ply "1 <1!4 2 2 [2 4] [8 4]>"
+  $ slice 4 "<0!4 1 1> . <0!3 1 1 0 2 3>"
+  $ "fbass:43"
+  # gain 0.46
+  # cut 4
+  # pan 0.2
+  # room 0.2 # dry 0.99 # sz 0.7
+d5 -- Guitare Ressort
+  $ mask "<f!8 t!24>"
+  $ someCyclesBy "<t!16 f!16>" -- degrade
+    (mask "f t" . (|* gain (slow 16 $ range 0.5 1 saw)))
+  $ slice 8 (cat [
+    "0 . <~ 4> <~!3 6>",
+    "0 . ~ 0*<1 <2 4>>",
+    "~ . 0 <3 [6 7]>",
+    (iter 4 $ "0 1*<1 2 4> <2 3> <3 2> . 4 5 6 7")
+    ])
+  $ "fguitar:43"
+  # room 0.1
+  # dry 0.99
+  # cut 5
+  # pan 0.8
+  # gain 0.35
+d6  -- Sliced Electropiano
+  $ jux (("<q h>" ~>) . (|* gain 0.65) . (# cut 61)) -- Brother echo!
+  $ someCyclesBy "<0!16 0!8 1!8>" (slice 16 ("<0 1 2 3 4 5 6 7>" + "<0!4 8!4>"))
+  $ someCyclesBy "<0!16 1!8 0!8>" (slice 16 "<2*2 [0 2 2 2] 2*[8 . 16 4] [3 2 3 2] [3 2 1 0] [4 5 6 5] [3 2 6 7] [4 5 6 7]>")
+  $ someCyclesBy "<1!16 0!16>" (slice 16 "<0 1 0 1 [0 1] [0 1] [0 . ~ 1] [0 0 0 1]>")
+  $ "fepiano:26"
+  # pan 0.3
+  # gain 0.47
+  # cut 6
+
+
+once $ "fepiano:26"
+  # gain 0.47
+  # cut 7
+
+
+once $ "hh27:1" -- Ho lo
+once $ "hh27:10" -- Ho hi soft
+
+once $ "hh27:2" -- Maracas fermées
+once $ "hh27:9" -- Maracas fermées lo
+
+once $ "hh27:3" -- Maracas ouvertes / balai
+once $ "hh27:8" -- Same plus aigu
+
+once $ "hh27:4" -- Clochettes
+
+once $ "hh27:5" -- Kick neige
+once $ "hh27:6" -- Kick sec
+
+once $ "hh27:12" -- Snare lo
+once $ "hh27:11" -- Snare hi

live/midi/nova/lounge/blade_dreamer.tidal

+resetCycles
+
+-- Blade Dreamer: For you I will use Vangelis' synth <3
+do
+let chord = "d4'min7'4"
+let gF = midiDJF "^49" 200 9800 0 2000
+-- let gDJF = (whenmod 32 28 (# lpf (max 200 (slow 16 $ range 5000 0 sine))))
+let g = gF
+let chords = "<a4'min7 e'min7 f'maj7 g'sus4>"
+let prog = "<a4 e f g>"
+setcps (110/60/4)
+d1  $ g
+  $ midiOff "^41" (mask "<f f [t f] t t!28>")
+  $ midiOn "^41"  (<| "k k k <k*2 [~ k] k k*2>")
+  $ midiOff "^41" (<| "k . ~ k")
+  $ "[jazz,kick:14]"
+  # midiG' "^78" 0 1.3
+d2 $ g
+  $ whenmod 16 14 (fast "<2 4>")
+  $ "~ s ~ s*<1!3 <4 1 2 4>>"
+  # "electro1" # n "<3!3 4 4 4 3 3>"
+  # midiG' "^79" 0 1.7
+d6 --
+  $ g
+  $ midiOn "^44" (slow 2)
+  -- $ midiOn "^41" (struct "t*[<8 8 16 8> 8]")
+  -- $ degradeBy ("0 0.95!7 0" - "^52")
+  $ "~ h ~ h ~ h*2 ~ h" # "hh27:2"
+  # note (
+    whenmod 4 3 (2 -)
+    "0 . 2 0"
+    )
+  # midiG' "^80" 0 1.6
+d5 $ g -- Breakbeat
+  $ midiOn "^76" (fast "<2!3 4>")
+  $ midiOff "^44" (slow "<4 2>")
+  $ sometimesBy "^32" rev
+  $ someCyclesBy (0.9 * "^52") (scramble "1 4")
+  $ slice 8 "0 1 <0 2 6 2> <1 3 7 3>"
+  $ loopAt 2
+  $ "fbreak100"
+  # cut 5
+  # midiG' "^80" 0 1.5
+d3 $ g -- CBOW Electric Bass
+  $ midiOn "^57" (mask "t(<2 2 3 <4 5 6 8>>,8)")
+  -- $ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
+  -- $ ("0.125" ~>)
+  $ superimpose (mask "t f" . (# cut 31) . (|- note 12))
+  $ arp "up <up!3 updown>"
+  $ note (chords)
+  # "cbow:0"
+  # pan 0.3
+  # cut 3
+  # room 0.6
+  # sz 0.5
+  # midiG' "^81" 0 0.9
+  # room 0.5 # sz 0.5
+  # crushbus 31 (range 10 2 "^53")
+d4 $ g -- Lead vangelis' synth
+  $ juxBy 0.8 (
+    struct "<t [t . t*2]>" . arp "up" . (|+ note (12
+      |+ "0 0 <12!3 7>"
+      + (arp "up" "<c'maj!3 c'min>")))
+  )
+  $ slow 2
+  $ note (
+    "<f g a4 e>"
+    + "-12"
+  )
+  # "cs80leadMH"
+  # pan 0.3
+  # midiG' "^82" 0 1.2
+d7 $ g -- Angel Bogdan
+  $ note (
+    prog
+     |+| "0 [<0 7*2>,12]"
+     - 12
+  )
+  # "choir:1"
+  # cut 7
+  # room 0.3 # sz 0.8
+  # legato 1.2
+  # pan 0.8
+  # midiG' "^83" 0 1.6
+d8 $ g -- Angel Bogdan
+  $ slice "<6!3 3>" "<0!3 2>" "bogdan:10"
+  # cut 8
+  # room 0.2
+  # midiG' "^83" 0 1.1
+d10
+  $ (# lpf 2000)
+  $ g $ "~ cp"
+  # midiG' "^84" 0 1.6

live/midi/nova/lounge/cbow.tidal

@@ -23,7 +23,7 @@ d2 $ gDJF $ g
   $ "~ s ~ s"
   # "h2ogmsn:6"
   # midiG' "^79" 0 1.7
-d6
+d6 --
   $ g
   $ midiOn "^44" (slow 2)
   -- $ midiOn "^41" (struct "t*[<8 8 16 8> 8]")
@@ -33,7 +33,7 @@ d6
     whenmod 4 3 (2 -)
     "0 . 2 0"
     )
-  # midiG' "^80" 0 1.2
+  # midiG' "^80" 0 1.3
 d5 $ g -- Breakbeat
   $ midiOn "^76" (fast "<2!3 4>")
   $ midiOff "^44" (slow "<4 2>")
@@ -43,8 +43,8 @@ d5 $ g -- Breakbeat
   $ loopAt 2
   $ "fbreak100"
   # cut 5
-  # midiG' "^80" 0 1.2
-d3 $ g -- Bass
+  # midiG' "^80" 0 1.5
+d3 $ g -- CBOW Electric Bass
   $ gDJF
   $ midiOn "^57" (euclid "<1 <1 [1 2] 5> 3 5>" 8)
   $ ("0.125" ~>)
@@ -56,11 +56,11 @@ d3 $ g -- Bass
   # cut 3
   # room 0.6
   # sz 0.5
-  # midiG' "^81" 0 0.8
+  # midiG' "^81" 0 0.9
   # crushbus 31 (range 10 2 "^53")
-d4 $ g
-  -- $ mask "<f!8 t!24>"
-  $ whenmod 8 7 (ply "1 4")
+d4 $ g -- Lead aigus
+  $ mask "<f!8 t!24 t!8 f!8 t!16>"
+  -- $ whenmod 8 7 (ply "1 4")
   $ slow 2
   $ whenmod 16 8 (ply 2)
   $ whenmod 4 3 (off "e" ((# cut 41) . (# legato 1)))
@@ -69,13 +69,16 @@ d4 $ g
   # "cbow:2"
   # cut 4
   # room 0.2
-  # midiG' "^82" 0 0.8
+  # midiG' "^82" 0 1.05
+  # lesliebus 41 (range 0 2 "^54")
 d8 $ g -- Angels
-  $ midiOff "^59" (mask "<f!32 t!32>")
-  $ note "<[c . ~!3 <~ <d g4>>] a4>"
-  # "cbow:3"
-  # cut 8
-  # midiG' "^83" 0 0.86
+  $ juxBy 0.8 (sometimesBy "0 1" rev)
+  -- $ midiOff "^59" (mask "<f!32 t!32>")
+  $ note "<[d a4 a4 d . ~ <[d a4] a4*2>] <c c f c>>"
+  # "cpluck"
+  |>| n "7 8"
+  # room 0.4
+  # midiG' "^83" 0 1.1
 d10
   $ (# lpf 2000)
   $ g $ "~ cp"
@@ -103,5 +106,3 @@ d4 $ g
   # gain 0.58
 
 once $ note (run 12) # "cpluck" # gain 0.8 # cut 5
-
-(5) h2ogmcb (5) h2ogmcp (1) h2ogmcy (25) h2ogmft (5) h2ogmhh (20) h2ogmht (5) h2ogmmt (5) h2ogmsn (

live/midi/nova/lounge/invoque_ete.tidal

@@ -20,8 +20,8 @@ d1 $ g
   $ midiOn  ("^42" - "^41") (slow 4)
   $ midiOn  "^41" (<| "k k k <k k k*2 [~ k]>")
   $ midiOff "^41" (<| "k*2")
-  $ "[jazz,808bd:1]"
-  # gM' 0 1.2 "^78"
+  $ "[jazz,808bd:1,kick:5]"
+  # midiG' "^78" 0 1.5
 d2 $ g -- Clave de l'été
   $ midiOn "^43" (fast 2)
   $ midiOn ("^75"-"^43") (fast 2)
@@ -31,8 +31,9 @@ d2 $ g -- Clave de l'été
   # speed (range 0.5 1.5 "^51")
 d4 $ g -- Mecano Course
   $ fast 4
+  $ midiOn "^76"  (fast "<2!3 <4 [4 2]>>" . (# speed 1.2) . (>| "breaks165"))
   $ midiOn "^44"  (slice 16 ("0*<1 2> 1 2 3*<2 1>") . (>| "breaks125"))
-  $ midiOn "^76" (slice 8 "0 <1 ~> 7 3*<1 2 4 4>")
+  -- $ midiOn "^76" (slice 8 "0 <1 ~> 7 3*<1 2 4 4>")
   $ sometimesBy "0 ^32!7" (shuffle 8)
   $ someCyclesBy "^52" (iter 4)
   -- $ slice 8 "0 1 <2!3 0> <3!3 1 4 5 6 7>" "0 1 <2!3 0> <3!3 1>"
@@ -40,15 +41,14 @@ d4 $ g -- Mecano Course
   $ loopAt 2 $ "breaks125:3"
   # gM' 0 1.2 "^80"
   # cut 4
-d5 $ g
+d5 $ g -- Bassline variable double piste
   $ loopAt 2
   $ slice 8 (run "<4!4 8 8 [4 8 4] [8 4 8]>")
   $ midiOn "^57" (# n 14)
   $ "fbass:13"
   # pan 0.2
   # room 0.2
-  # lpq  (range 0 0.125 "^33")
-  # crush (range 10 4.5 "^53")
+  # crushbus 51 (range 16 4.5 "^53")
   # gM' 0.3 1.45 "^81"
   # cut 4
 d6 $ g
@@ -60,7 +60,7 @@ d6 $ g
   $ "fguitar" # n "<12!16 13!16>"
   # gM' 0 1 "^82"
   # release (range 0.15 1 "^34")
-  # crush (range 8 1.4 "^54")
+  # crushbus 61 (range 8 1.4 "^54")
   # pan 0.75
   # room 0.2 # dry 1
   # cut 3
@@ -98,3 +98,16 @@ d9 $ g
   $ "hh:3"
   # lpq (range 0 0.2 "^35")
   # gM' 0 1.2 "^19"
+
+do
+d1 $ "reverbkick" # gain 1.2
+d2 $ "~ cp*4"
+d3
+  $ "dr*3"
+  # gain 2
+  # lpf 2000
+
+once
+  $ "fbass:41"
+  # cut 1
+  # gain 2

live/midi/nova/lounge/michael.tidal

@@ -21,7 +21,7 @@ d3
   $ g
   $ midiOn "^44" (slow 2)
   -- $ midiOn "^41" (struct "t*[<8 8 16 8> 8]")
-  -- $ degradeBy ("0 0.95!7 0" - "^52")
+  -- $ degradeBy ("0 0.95!7 0" - "^52")z
   $ "~ h ~ h ~ h*2 ~ h" # "hh27:2"
   # note (
     whenmod 4 3 (2 -)
@@ -69,7 +69,10 @@ d5 $ g -- Jumpy Piano
   # sz 0.7
   # midiG' "^82" 0 1.5
 d7 $ g
-  $ slice 8 (run ("<2!3 4>" * "<1!4 2!4 [2 1]*4 [2 4]*4>"))
+  $ slice 8 (run (
+    "<2!3 4>"
+    * "<1!4 2!4 [2 1]*4 [2 4]*4>"
+    ))
   $ "forgan:17" # cut 7
   # midiG' "^83" 0 (1.2 - 0.5 * "^55")
   # crush (range 16 1.5 "^55")

live/midi/nova/lounge/top_hats.tidal

@@ -13,10 +13,10 @@ let gG a = (gain (1.2 * "^77" * a)) -- gain Global
 let gM' l h a = (gG (range l h a)) -- gain Modéré
 let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
 let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
-let gFreqL = (# lpq (range 0 0.25 "^29"))
-let gFreqH = (# hpq (range 0 0.25 "^30"))
-let gFreqs = (gFreqH . gFreqL)
-let g = (gDJF . gFreqs)
+-- let gFreqL = (# lpq (range 0 0.25 "^29"))
+-- let gFreqH = (# hpq (range 0 0.25 "^30"))
+-- let gFreqs = (gFreqH . gFreqL)
+let g = (gDJF)
 setcps 0.5
 d1 $ g
   $ midiOn "^41" ( -- KICK RUN
@@ -37,7 +37,7 @@ d3 -- Runny Maracas
   $ fix ((|* gain 0.9) . (# release 0.8)) (n 9)
   $ "hh27*8"
   # n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
-  # gM' 0.5 1.75 "^80"
+  # gM' 0.25 1.75 "^80"
 d6 $ g -- Guitar riffs
   $ whenmod 16 12 (off "h" (
     chop 4
@@ -50,9 +50,8 @@ d6 $ g -- Guitar riffs
   $ note 2 -- correction
   # "punk"
   # cut 6
-  # lpq (range 0 0.125 "^17")
   # attack (range 0.5 1 "^33")
-  # crush (range 12 1.75 "^53")
+  # crushbus 61 (range 12 1.1 "^53")
   # pan 0.9
   # room 0.3
   # sz 0.9
@@ -79,16 +78,16 @@ d4 -- Rhodes base + chords
   # crush (range 10 4 "^54")
   # gM' 0.3 1.9 "^82"
 d5 $ g -- Choirs + arps
-  $ juxBy "-0.7" (
+  $ juxBy "0.7" (
     arp "<up <up down>>"
     . (|+| note "[0,7,12]*2")
-    . (|* gain 0.85)
-    . (# lpf 2000)
+    -- . (|* gain 0.85)
+    -- . (# lpf 2000)
   )
   $ "moogBass"
   # note (prog + "[0,24]")
   # octave 3
-  # gM' 0.3 1.5 "^56"
+  # midiG' "^56" 0 1.2
   # pan 0.2
   # chorus 0.6
 d8 $ g -- Electrified laggy moog
@@ -98,14 +97,14 @@ d8 $ g -- Electrified laggy moog
     . (# lpq (slow 16 $ range 0 0.15 perlin))
   )
   $ midiOn "^91" (segment "4 <4 <8 [8 16]>>")
-  $ note (prog + "0 12")
+  $ note (prog + "0 <12!4 12 12 16 <12 16>>")
   # "moog"
   # cut 8
   # crush (range 16 4 "^55")
   # gM' 0 1.8 "^83"
   # release 100
 d9 $ g
-  $ midiOn "^60" (fast 2 . ply "1 <1 <2!3 1>>")
+  $ midiOff "^60" (mask "<f!8 t!124>")
   $ midiOn "^92" (fast 4)
   $ "~ clap"
   # note (-8)

live/midi/nova/party/electro_blues.tidal

@@ -3,28 +3,31 @@ resetCycles
 -- Electro-jazz grille du blues snakish
 do
 setcps (80/60/4)
-let g = midiDJF "^49" 200 9800 0 1000
+let g = (# djfbus 1 (range 0.1 0.9 "^49"))
 let blues = ["c", "f", "c", "c", "f", "f", "c", "c", "g", "f", "c", "c", "g", "f", "c", "g"]
 let chord = "c'maj"
 let chordAug = "c'maj'8"
 d1 -- Kick rarement doublé
   $ g
-  $ midiOn "^41" (fast 2 . whenmod 4 3 (ply "2 1"))
-  $ midiOn ("^42"-"^41") (fast "<1!8 2!20 1 0 0 2>")
-  $ "k*4" # "jazz"
-  # room 0.1 # dry 0.99 # sz 0.6
+  $ midiOn  "^41" (fast 2 . whenmod 4 3 (ply "2 <1 <2 [1 2]>>"))
+  $ midiOn  ("^42"-"^41") (fast "<1!8 2!20 1 0 0 2>")
+  $ midiOn  ("^42"+"^41") (<| "k*4")
+  $ midiOff ("^42"+"^41") (<| "k . k(<5 6 7 5>,8,<0!7 3>)")
+  $ "808bd" # n "15"
   # midiG' "^78" 0 1.5
 d2 $ g
+  $ midiOn  "^43" (fast 2)
   $ "~ [jazz:4,cp]"
   # hpf (range 0 10000 perlin)
-  # midiG "^79"
-d3 -- Snakes
+  # room 0.6  # sz 0.6 # dry 0.99
+  # midiG' "^79" 0 1.2
+d3 $ g -- Snakes
   $ juxBy (slow 8 $ range 0.1 0.9 sine) rev
   $ fast 4
   $   "s . s <s!3 ~> <~!3 s>"
   # "hh*6"
   # midiG "^80"
-d4
+d4 $ g
   $ midiOn "^57" (juxBy 0.2 (
     -- ply "<2 4 [4 8] 8>" .
     arpeggiate
@@ -42,12 +45,13 @@ d4
   # room 0.1
   # voice 0.8
   # midiG' "^81" 0 1.3
-d5 -- Choeurs
+d5 $ g -- Choeurs
   $ juxBy 0.5 (
   (0.5 ~>) . midiOn "^58" (superimpose (
     arpeggiate
     . (|+ note chordAug)
     . (|+ pan 0.05)
+    . (|* gain 0.85)
     )
   . (|+ note 12)
   . (|* gain 0.95)
@@ -60,3 +64,11 @@ d5 -- Choeurs
   # midiG' "^82" 0 1.4
   # room 0.4
   # size 0.7 # dry 1.05
+d9
+  $ loopAt (2 + (2 * "^92"))
+  $ midiOn "^60" (slice 8 (run ("<8!4 [8!3 16] [8 16] [16 8] [16 32 8 ~]>"))) -- Rush
+  $ midiOff "^60" (slice 8 (run ("<8!4 16 [8 . 32 16] [8 . 16 8] [8 4]>"))) -- Decroissance
+  $ "fbreak80"
+  # cut 42
+  # midiG' "^84" 0 1.4
+  # pan 0.3

live/midi/nova/party/last_one.tidal

@@ -51,7 +51,7 @@ d5 $ g
   ))
   $ note (prog - 12)
   # "moog:2"
-  # midiG' "^82" 0.3 1
+  # midiG' "^82" 0 1
   # attack 0.8
   # room 0.4 # sz 0.9
 d6

live/midi/nova/party/phunk.tidal

@@ -51,7 +51,7 @@ d4 $ g -- Smells like Bass
 d5 $ g -- Guitar
   $ whenmod 8 4 (juxBy 0.75 ((|* gain 0.8) . off "e" id))
   $ whenmod 8 4 (juxBy 0.8 (mask "f t" . ply 2))
-  $ note patFunk
+  $ note (patFunk + 12)
   # "pluck"
   # room 0.2
   # sz 0.8

live/midi/nova/tidal_crime.tidal

@@ -8,21 +8,18 @@ once $ "dr" # gain 1.2
 
 do
 -- region Nova Utils
-let gFactor = 1
+let gFactor = 1.4
 let gG a = (gain (gFactor * "^77" * a)) -- gain Global
 let gM' l h a = (gG (range l h a)) -- gain Modéré
 let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
-let gLPF = (# lpf (min 10000 ((range 200 20000 ("^49")))))
-let gHPF = (# hpf (max 0 (min 7500 ((range "-7500" 7500 ("^49"))))))
-let gDJF = (gLPF . gHPF)
-let gRes = (# hpq "^29") . (# lpq "^30")
+let gDJF = midiDJF "^49" 200 9800 0 1000
 let novaOn  ch pat = (someCyclesBy ch pat)
 let novaOff ch pat = someCyclesBy (1 - ch) pat
 -- endregion Nova Utils
 let sawHarmonic = pF "sawHarmonic"
 let mix = pF "mix"
 let modIndex = pF "modIndex" -- 0.2
-let g = (gDJF . gRes)
+let g = gDJF
 let gMix = ((# mix (range 0 20 "^53")) . (|* gain (range 1 0.7 "^53")))
 let gMod = ((# modIndex (range 0.2 100 "^33")) . (|* gain (range 1 0.6 "^33")))
 let gP = (gMix . gMod)
@@ -60,7 +57,7 @@ d4 $ g $ gP -- Gauche
   $ mask "<f!4 t!12 f!8 t!8>"
   $ note "<c3!3 as3> . ~ [gs3 g3]"
   # keyboard
-  # gM' 0 1.2 ("^81" * range 0.8 1 sine)
+  # gM' 0 1.5 "^81"
   # pan 0.45
 d5 $ g $ gP -- Droite 2/3
   $ whenmod 16 10 (superimpose (const
@@ -69,7 +66,7 @@ d5 $ g $ gP -- Droite 2/3
     )
     # keyboard
     # pan 0.65
-    # gM' 0 1 "^81"
+    # gM' 0 1.5 "^81"
   ))
   $ mask "<f!6 t!10 t!8 f!4 t!4>"
   $ note (
@@ -96,7 +93,7 @@ d7 $ g
   # gM' 0 1.1 "^83"
   # room 0.2
 d8 $ g
-  $ novaOn "^90" (chop 16)
+  $ novaOn "^90" (superimpose (chop 16))
   $ novaOn "^58" (+ note (slow 4 "<0 12>"))
   $ note ("<c3 c3 g3 gs3>")
   # "bassWarsaw"
@@ -105,6 +102,8 @@ d8 $ g
   # gM' 0.4 1 "^82"
   # crush (range 12 3.6 "^54")
 
+
+
 d9 $ note ("gs5(3,8)") # "supergong" # gM' 0 0.8 "^83"
 
   11   │     //Standard Definitions

live/midi/nova/zelda.tidal

 once $ "space" # gain 0.4
 
-
-
 -- Legend of Main theme
 do
 -- region Utils
@@ -16,7 +14,7 @@ let gM' l h ch  = gain (range l h (gG * ch))
 let gM ch  = gM' ch 0 1
 let ampb bus pat = (ampbus bus (gG * pat))
 let midiOn ch pat = someCyclesBy ch pat
-setcps (95/60/4)
+setcps (60/60/4)
 -- endregion
 d1 $ g
   $ midiOn "^42" (fast 2)

live/mood/energy/waiting.tidal

+import Sound.Tidal.ParVagues.Control
+
+-- Part 1: Wait
+do
+  setcps (90/60/4)
+  let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
+  let prog = "<d5 c5 b4 <a4!3 c5>>"
+  let g = gDJF
+  d1 $ g
+    $ superimpose ((# "reverbkick") . (|* gain 0.9))
+    $ midiOn  "^41" (<| "k . k(<3 3 5 <3 4>> 5,8,<0!3 <1 0>>)")
+    $ midiOff "^41" (<| "k(<1 2 1 1 3!3 5>,8)")
+    $ "hh27:5"
+    # midiG' "^78" 0 1.2
+    # room 0.2 # dry 1
+  d2 $ g
+    $ fast "<1!8 1 1 1 2 2 4 8 [8 16]>" -- snare rush
+    $ "~ ~ s [~!3 <~!3 s ~!3 s ~!8>]"
+    # "amencutup" # n "[13,15]"
+    # midiG' "^79" 0 1
+  d3 $ g -- Drumroll+Breakbeat
+    $ midiOn "^44" (superimpose (
+      slice 16 (run "8 <8!3 16 8!3 16 [16 <12 <6 [16 32]>>]!8>") .
+      (>| "breaks125:4")
+      . (|* gain 1.25)
+    ))
+    $ someCyclesBy "<0!32 1!8 0!24>" (often $ slow "1 2!6 1")
+    $ whenmod 32 16 (often $ ply 2)
+    $ "d*<8!3 [8 16]>"
+    # "drum:8"
+    # midiG' "^80" 0 1.4
+  d5 $ g
+    $ superimpose (
+      (|+| note "~ . 12 <7 ~> [<~ 7> <7 4 4 7*<1 2>>] 12")
+      . (# cut 51)
+      )
+    $ note (prog - 24)
+    # "bassWarsaw"
+    # crushbus 50 (range 10 3.4 "^53")
+    # midiG' "^81" 0 1.5
+    # cut 5
+  d4 $ g
+    $ slice 4 "0 <1 2 2 3>"
+    $ "fmono:44"
+    # crushbus 40 (range 10 3.4 "^54")
+    # cut 7
+    # midiG' "^82" 0 0.9
+  d7 $ g
+    $ whenmod 64 32 rev
+    $ midiOn "^91" (striate 4)
+    $ slice 4 ("<0!3 2> <1!3 3> 2 <3!3 [3 2] 3 3 [3 2]!2>")
+    $ "fguitar:60"
+    # pan 0.4
+    # room 0.5 # sz 0.6
+    # crushbus 70 (range 10 3.4 "^55")
+    # midiG' "^83" 0 1.1
+    # dry 0.9
+    # cut 7
+  d6 $ g
+    $ mask "t(8,16)" $ chop 16
+    $ off "h" (
+      (|+| note (12 + (mask "t(3,4,2)" $ arpeggiate "c'maj'4")))
+      . (|* gain 0.9)
+      . (# cut 6)
+      )
+    $ note (
+      prog
+    - 12
+    )
+    # legato 1
+    # "sillyVoice"
+    # pan 0.6
+    # room 0.4
+    # midiG' "^84" 0 1.5
+
+-- Part 2: Got!
+do
+  setcps (90/60/4)
+  let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
+  let prog = "<d5 c5 b4 <a4!3 c5>>"
+  let g = gDJF
+  d1 $ g
+    $ superimpose ((# "reverbkick") . (|* gain 0.9))
+    $ midiOn  "^41" (<| "k . k(<3 3 5 <3 4>> 5,8,<0!3 <1 0>>)")
+    $ midiOff "^41" (<| "k(<1 2 1 1 3!3 5>,8)")
+    $ "hh27:5"
+    # midiG' "^78" 0 1.2
+    # room 0.2 # dry 1
+  d2 $ g
+    $ fast "<1!8 1 1 1 2 2 4 8 [8 16]>" -- snare rush
+    $ "~ ~ s [~!3 <~!3 s ~!3 s ~!8>]"
+    # "amencutup" # n "[13,15]"
+    # midiG' "^79" 0 1
+  d3 $ g -- Drumroll+Breakbeat
+    $ midiOn "^44" (superimpose (
+      slice 16 (run "8 <8!3 16 8!3 16 [16 <12 <6 [16 32]>>]!8>") .
+      (>| "breaks125:4")
+      . (|* gain 1.25)
+    ))
+    $ someCyclesBy "<0!32 1!8 0!24>" (often $ slow "1 2!6 1")
+    $ whenmod 32 16 (often $ ply 2)
+    $ "d*<8!3 [8 16]>"
+    # "drum:8"
+    # midiG' "^80" 0 1.4
+  d5 $ g
+    $ superimpose (
+      (|+| note "~ . 12 <7 ~> [<~ 7> <7 4 4 7*<1 2>>] 12")
+      . (# cut 51)
+      )
+    $ note (prog - 24)
+    # "bassWarsaw"
+    # crushbus 50 (range 10 3.4 "^53")
+    # midiG' "^81" 0 1.5
+    # cut 5
+  d4 $ g
+    $ slice 4 "0 <1 2 2 3>"
+    $ "fmono:44"
+    # crushbus 40 (range 10 3.4 "^54")
+    # cut 7
+    # midiG' "^82" 0 0.9
+  d7 $ g
+    $ whenmod 64 32 rev
+    $ midiOn "^91" (striate 4)
+    $ slice 4 ("<0!3 2> <1!3 3> 2 <3!3 [3 2] 3 3 [3 2]!2>")
+    $ "fguitar:60"
+    # pan 0.4
+    # room 0.5 # sz 0.6
+    # crushbus 70 (range 10 3.4 "^55")
+    # midiG' "^83" 0 1.1
+    # dry 0.9
+    # cut 7
+  d6 $ g
+    $ mask "t(8,16)" $ chop 16
+    $ off "h" (
+      (|+| note (12 + (mask "t(3,4,2)" $ arpeggiate "c'maj'4")))
+      . (|* gain 0.9)
+      . (# cut 6)
+      )
+    $ note (
+      prog
+    - 12
+    )
+    # legato 1
+    # "sillyVoice"
+    # pan 0.6
+    # room 0.4
+    # midiG' "^84" 0 1.5

live/mood/tired/afternoon.tidal

@@ -3,6 +3,7 @@ import Sound.Tidal.ParVagues.Control
 -- Gauche si+mi/sol+re/la+fa/si+sol
 -- Droite whatever autour ;)
 
+once $ "macron:1" # gain 1.3 # cut 1
 
 resetCycles
 
@@ -11,30 +12,30 @@ setcps (60/60/4)
 let mel = "<e3 [g3 <a3 f3>] e3 b3>"
 let prog = "<e3 [g3'maj7'2 f3'min'2] e3 <b3'min7'2 b3'maj7'2>>"
 let modIndex = pF "modIndex"
-let gDJF = (midiDJF "^49" 0 10000 0 10000)
-let gFreqL = (# lpq (range 0 0.25 "^29"))
-let gFreqH = (# hpq (range 0 0.25 "^30"))
-let gFreqs = (gFreqH . gFreqL)
-let g = (gDJF . gFreqs)
+let gDJF = (# djfbus 1 (range 0.15 0.85 "^49"))
+-- let gFreqL = (# lpq (range 0 0.25 "^29"))
+-- let gFreqH = (# hpq (range 0 0.25 "^30"))
+-- let gFreqs = (gFreqH . gFreqL)
+let g = (gDJF)
 d1 $ g -- BEAT
   $ fast 2
   $ midiOn "^41" (<| "k k k <k [<~ k> k]>")
   $ midiOff "^41" (<| "k . ~ k ~ ~ ")
-  $ "[jazz,cpu2,hh27:6]"
+  $ "[jazz,reverbkick,hh27:6]"
   # release "<0.7!3 1>"
-  # midiG' "^78" 0 1.8
+  # midiG' "^78" 0 1.4
 d3 $ g -- Snare contretemps rushé
+   $ mask "t(16,32)"
    $ whenmod 4 3 (ply "2 4")
-   $ midiOn "^43" (fast 2)
    $ fast "<1!4 2!10 4 [4 8]>"
    $ "~ snare"
    # room 0.2
    # dry 1
    # speed (range 0.5 1.5 "^51")
    # n "[11,25]"
-   # midiG' "^79" 0 1.5
+   # midiG' "^79" 0 1.4
 d2 $ g -- BREAK
-  $ degradeBy (range 0.1 0.99 "0 ^32!15")
+  $ sometimesBy (range 0.1 0.99 "0 ^32!15") (scramble 8)
   $ whenmod 32 16 (# djf (slow 32 (cosine + 0.5)))
   $ slice 8 (
     fast "<8 [8 16] 8 [16 <8 4>]>"
@@ -46,15 +47,6 @@ d2 $ g -- BREAK
   # speed (range 0.5 1.5 "^52")
   # midiG' "^80" 0 2
   # cut 2
-d6 $ g -- Nappes Rhodes
-  $ note (
-    prog
-    + "0 12"
-  )
-  # "FMRhodes1"
-  # pan 0.2
-  # modIndex (range 0 100 "^54")
-  # midiG' "^82" 0 1.8
 d7 $ g -- Hello PWM!
   $ (|* gain "<1!15 0.8>")
   $ midiOn "^57" (chop "<[8 <4 16>]!15 1>")
@@ -65,20 +57,22 @@ d7 $ g -- Hello PWM!
   # accelerate "<0!7 <6 12>>"
   # rate "<1!5 2 4 <1 4>>"
   # resonance (slow 32 $ range 0.2 0.6 sine)
-  # crush (range 10 3 "^53")
+  # crushbus 71 (range 10 3 "^53")
   # midiG' "^81" 0 2
-
--- TODO MidiCloud
-p "midiclock" $ midicmd "midiClock*48" # s "midi"
-
--- Your MIDI device should then adjust its BPM to Tidal's cps. Then it's worth sending a 'stop' message like this:
-
-once $ midicmd "stop" # s "midi"
-
--- and then finally a start message to start the MIDI clock at the right time. The following sends a start message every fourth cycle:
-
-p "midictl" $ midicmd "start/4" # s "midi"
-
--- Once everything's started and in sync, it's probably best to stop sending the start messages to avoid glitching:
-
-p "midictl" $ silence
+d6 $ g -- Nappes Rhodes
+  $ note (
+    prog
+    + "0 12"
+  )
+  # "FMRhodes1"
+  # pan 0.2
+  # modIndex (range 0 100 "^54")
+  # crushbus 61 (range 16 5 "^34")
+  # midiG' "^82" 0 1.8
+d9 $ g
+  $ midiOff "^60" (mask "<f!8 t!124>")
+  $ midiOn "^92" (<| "[~ c]*[4 <4 8 4 [8 4]>]")
+  $ midiOff "^92" (<| "~ c")
+  $ "clap"
+  # speed (range 0.5 1.5 "^56")
+  # midiG' "^84" 0 1.7