break_blue.tidal 3.72 KB
Newer Older
1 2 3
-- BreakBlue: Breakbit nocturnal piano instrumental
-- Tags: Hip-Hop, piano, energique
-- Ready: 4/10
PLN (Algolia) committed
4 5 6 7 8 9 10 11 12 13 14 15

setcps (60/60/4)

do
  solo 1 -- Break/kick
  solo 3 -- Basse
  solo 4 -- Piano Aigu
  solo 5 -- Piano Grave
  solo 6 -- Clap
  solo 8 -- Maracas

do
PLN (Algolia) committed
16
  solo 1 -- Break/kick
PLN (Algolia) committed
17
  unsolo 3 -- Basse
PLN (Algolia) committed
18
  solo 4 -- Piano Aigu
PLN (Algolia) committed
19 20
  unsolo 5 -- Piano Grave
  unsolo 6 -- Clap
PLN (Algolia) committed
21
  solo 8 -- Maracas
PLN (Algolia) committed
22 23

do
24
  setcps 0.4
PLN (Algolia) committed
25
  let scale = getScale (scaleTable ++ [("blues", [0, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12])])
26 27 28
  let gKick = 0.8
  let gBreak = 0.47
  let gBass = 0.7
PLN (Algolia) committed
29
  let gClap = 0.7
30 31
  let gMaracas = 1
  let vPianoMin = 0.2
PLN (Algolia) committed
32 33 34 35
  let vPianoGauche = 0.4
  let vPiano = 0.5
  d1
    $ superimpose (const -- THE BEAT
36 37
      -- $ slow 4 -- l'attente
      $ s "k"
PLN (Algolia) committed
38
      # s "jazz"
39
      # lpf 1500
PLN (Algolia) committed
40 41 42 43 44
      # gain gKick
      )
    -- $ whenmod 64 32 (# gain 0)
    $ loopAt 2
    $ slice 8 (
45 46
      whenmod 8 6 (|> "6!7 7")
      "0 1*2 2 3 4*[1|2|4] 5 <6!3 7> 7"
PLN (Algolia) committed
47 48
      )
    $ s "break"
49
    # gain 0.65
PLN (Algolia) committed
50
  d3 -- Bassline
51 52 53
    $ fast 2
    $ note (scale "blues"
    ("<0!5 4 5 4>  . 2(<3!3 5>,8)")
PLN (Algolia) committed
54
     - 24)
55 56
    # s "supersaw"
    # voice 0.05
PLN (Algolia) committed
57 58
    # sustain "0.75 . 0.25 0.5"
    # gain gBass
59
    # hpf (slow 64 $ range 0 1000 sine)
PLN (Algolia) committed
60
  d4 -- Piano aigu fou
61
    $ mask "t(<1!4 2!4 4!24>,12)"
PLN (Algolia) committed
62 63 64 65 66 67 68 69 70
    $ whenmod 32 16 (often (off 0.125 (|+ note "[0,7]")))
    $ whenmod 4 3 (often (fast 2))
    $ n "0*16"
    # note (scale "blues" (
      "<0!2 [0 1] 0!2 [0 -1 -4]>"
      )
    + 24)
    # s "superpiano"
    # velocity (slow 64 $ range vPianoMin vPiano sine)
71

PLN (Algolia) committed
72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90
  d5 -- Accords main gauche
    $ stut' 4 (1/16) ((|+ 0). (|- velocity 0.05))
    $ note (scale "blues" "[0,<3 2 1 3 2 5 1 1 3 1 0 ~>]")
    # s "superpiano"
    # velocity (vPianoGauche)
    # sustain 2
  d8 -- maracas hombre
    $ whenmod 6 4 (fast 2)
    $ s "m(<3 5>,8)" # speed "[0.8|0.86|0.92]"
    # s "drum:3"
    # room 0.2 # sz 0.4 # dry (slow 100 $ range 0 5 sine)
    # gain gMaracas
  d6
    -- $ fast 2
    $ s "~ clap:1"
    # speed (slow 42 $ range 0.9 1.2 isaw)
    # gain gClap


91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164






-- V1: Bleu casse

do
let scale = getScale (scaleTable ++ [("blues", [0, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12])])
let gKick = 0.65
let gBreak = 0.45
let gBass = 0.5
let gClap = 0.7
let gMaracas = 0.8
let vPianoMin = 0.35
let vPianoGauche = 0.4
let vPiano = 0.5
d1
  $ superimpose (const -- THE BEAT
    $ slow 4 -- l'attente
    $ s "k*0"
    # s "jazz"
    # lpf 50
    # gain gKick
    )
  -- $ whenmod 64 32 (# gain 0)
  $ loopAt 2
  $ slice 8 (
    whenmod 32 28 (|> "0*4 1!2 7 6 8 ~ 8")
    $ whenmod 32 24 (|> "0 1 2!6")
    $ whenmod 16 15 (|> "0!6 [8 7]")
    $ whenmod 16 12 (|> "0 1 2 3*5")
    "0 <1 2> <2 1> 3 4*<1!4 2!4 4!24> [5 5?] 6*<1 2 4> <7!3 6>"
    )
  $ s "break"
  # gain gBreak
d3 -- Bassline
  $ note (scale "aeolian" (run 8)
   - 24)
  # s "supersaw" # voice 0.01
  # sustain "0.75 . 0.25 0.5"
  # gain gBass
  -- # hpf (slow 64 $ range 0 2500 sine)
d4 -- Piano aigu fou
  $ mask "t(<1!4 2!4 4!24>,4)"
  $ whenmod 32 16 (often (off 0.125 (|+ note "[0,7]")))
  $ whenmod 4 3 (often (fast 2))
  $ n "0*16"
  # note (scale "blues" (
    "<0!2 [0 1] 0!2 [0 -1 -4]>"
    )
  + 24)
  # s "superpiano"
  # velocity (slow 64 $ range vPianoMin vPiano sine)
d5 -- Accords main gauche
  $ stut' 4 (1/16) ((|+ 0). (|- velocity 0.05))
  $ note (scale "blues" "[0,<3 2 1 3 2 5 1 1 3 1 0 ~>]")
  # s "superpiano"
  # velocity (vPianoGauche)
  # sustain 2
d8 -- maracas hombre
  $ whenmod 6 4 (fast 2)
  $ s "m(<3 5>,8)" # speed "[0.8|0.86|0.92]"
  # s "drum:3"
  # room 0.2 # sz 0.4 # dry (slow 100 $ range 0 5 sine)
  # gain gMaracas
d6
  -- $ fast 2
  $ s "~ clap:1"
  # speed (slow 42 $ range 0.9 1.2 isaw)
  # gain gClap


PLN (Algolia) committed
165 166 167 168 169 170 171 172 173 174 175 176 177
once $ s "hh:9" # gain 1

d3
$ fast 4
$ s "drum:8" # gain 0.6

d4
$ iter 4
$ fast 3 $ n "<[0 1 2] [0 1]> . <0 1 2>"
# s "ho hc"
# gain 0.4

d5 $ s