playing

2020-05-20.tidal

@@ -0,0 +1,44 @@
+-- sounds
+-- ======
+
+-- # Bass
+-- bass2, ht
+-- clubkick
+-- kicklinn
+-- popkick
+-- reverbkick
+-- rs,sd,sn,stomp,ul,ulgab
+-- # aigus
+-- co, cp (clap), cr (cimbales), dr, dr2
+-- hc, ho
+-- # sons
+-- control, cosmicg, f, fest, flick, fm, gab (gabbernation), gtr (guitare electrique)
+-- hit (futuristique), hoover (techno), if, juno, off, moog, pad, padlong (introductions)
+-- rave2, sine, stab
+-- # templates
+-- hardcore, hardkick
+
+-- Inspiration https://www.youtube.com/watch?v=MbCNdB3hfpc&feature=youtu.be
+
+import qualified Sound.Tidal.Chords as Chords
+
+do
+  let arp = "[0 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1]*2"
+      arp2 = "[7 0 2 4]*2"
+      pat = "<0 2 5 4>"
+      oct = -2
+  d1 $ stack [
+    n (toScale Chords.minor (arp + pat)) # s "superchip" # release 0.05,
+    n (toScale Chords.minor (arp2 + pat - 4)) # s "superchip" # release 0.8,
+    n ("0*8" + (slow 2 pat) - 14) # s "superchip" # release 0.3 # cut 2
+    ] # orbit 1 # room 0.1 # size 0.93
+  d2 $ s "clubkick*4"
+    # orbit 2 # room 0.5
+  d3 $ s "[~ cp:2]*4"
+   # orbit 2
+
+solo 4
+
+unsolo 4
+
+hush

test.tidal

@@ -1,33 +1,60 @@
-setcps (120/60/4)
+setcps (132/60/4)
 
 hush
 
-d1
-  $ fast 4 (sound "bd")
-  # speed 0.7
-  # freq 320
+d1 $ fast 4 (sound "bd")
+  # freq 250
   # overgain 0.4
-  # room 0.9
+  # room 4
   # orbit 0
 
 d2 $ sound "[~ ho]*4"
-  # resonance 0.5
   # gain 0.7
   # orbit 1
 
-d3 $ sound "~ ~ ~ [bd bd]"
+d3 $ sound "bd ~ ~ <~ [bd bd]>"
   # shape 0.7
   # crush 4
   # overgain 0.7
+  # gain 0.5
 
 d4 $ s "[~ arpy] [~ arpy] [~ arpy] [~ [arpy arpy]]"
   # note "c2 c3 c3 [~ [f4 c3]]"
   # crush 3
   # room 0.9
-  # gain 0.89
+  # gain (slow 4 (((+0.5) . (/20)) (run 10)))
 
 d5 $ up (run 12) # sound "arpy"
 
+-- sounds
+-- ======
+
+-- # Bass
+-- bass2, ht
+-- clubkick
+-- kicklinn
+-- popkick
+-- reverbkick
+-- rs,sd,sn,stomp,ul,ulgab
+-- # aigus
+-- co, cp (clap), cr (cimbales), dr, dr2
+-- hc, ho
+-- # sons
+-- control, cosmicg, f, fest, flick, fm, gab (gabbernation), gtr (guitare electrique)
+-- hit (futuristique), hoover (techno), if, juno, off, moog, pad, padlong (introductions)
+-- rave2, sine, stab
+-- # templates
+-- hardcore, hardkick
+
+d1 $ fast 4 (s "bass2")
+  # overgain 0.4
+  # gain 0.7
+
+d1 $ fast 4 (s "bass2")
+  # freq 320
+  # overgain 0.4
+  # gain 0.5
+
 -- https://www.youtube.com/watch?v=54opUoqQLWQ&feature=youtu.be
 
 let pat = [ ["a", note "c4 e4" # c 1 # sus 2]
@@ -198,8 +225,70 @@ xfade 2 $ sound "bd*4"
 
 xfade 2 $ sound "metal*4"
 
--- sounds
+-- Chiptune-like
+-- https://www.youtube.com/watch?v=MbCNdB3hfpc&feature=youtu.be
 
-forM_ ["808" "808bd"] $ \sample -> do
- d1 $ s ( (sample ++ "*4"))
-    # n "<0 1 2 3 4 5 6>"
+
+import qualified Sound.Tidal.Chords as Chords
+
+let mute = const silence
+
+do
+  let arp = "[0 0 2 4]*2"
+      pat = "<0 2 5 4>"
+      oct = -2
+  d1 $ fast 2 $ stack [
+    n (toScale Chords.aug (arp + pat)) # s "superchip" # release 0.075,
+    mute $ n ("0*8" + (slow 4 pat) - 14) # s "superchip" # release 0.3 # cut 2
+    ] # orbit 1 # room 0.1 # size 0.93 # gain 0.9
+
+  d2 $ fast 2 $ stack [
+    mute $ "bd:10(3,8)",
+    s "~ sn" # n 3,
+    s "[~ cp:1]*2"
+    ] # orbit 2 # room 0.05 # size 0.2
+
+hush
+
+import qualified Sound.Tidal.Chords as Chords
+
+do
+  let arp = "[0 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1]*2"
+      arp2 = "[7 0 2 4]*2"
+      pat = "<0 2 5 4>"
+      oct = -2
+  d1 $ stack [
+    n (toScale Chords.minor (arp + pat)) # s "superchip" # release 0.05,
+    n (toScale Chords.minor (arp2 + pat - 4)) # s "superchip" # release 0.8,
+    n ("0*8" + (slow 2 pat) - 14) # s "superchip" # release 0.3 # cut 2
+    ] # orbit 1 # room 0.1 # size 0.93
+  d2 $ s "clubkick*4"
+    # room 0.5
+  d3 $ "[~ co:2]*4"
+
+solo 1
+
+unsolo 1
+
+
+do
+  setcps (160/60/4)
+  d1 $
+    s "[bd:1(3,8?) , [~ cp]*4? , hh*16?]" 
+
+
+d1 $ stut' 3 (1/12) (|+ note "<5 7>") $ s "superpiano" 
+
+d1 $ slow 2 $ n (scale "bhairav" "0 .. 7") # "superpiano"
+
+d1 $ slow 2 $ n (scale "minor" "0 .. 7") # "superpiano"
+
+d1 $ slow 2 $ n (scale "major" "0 .. 7") # "superpiano"
+
+
+-- Accords
+mychords = inhabit [("hola", "[0,4,2]" :: Pattern Double),
+                    ("hello", "[0,5,7,12]")
+                   ]
+
+d1 $ n (mychords "hello hola") # s "superpiano"