hellofi.tidal 3.62 KB
Newer Older
PLN committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
resetCycles

-- Hellofi: Major chill electrized beat
do
setcps (60/60/4)
let modIndex = pF "modIndex"
let mix = pF "mix"
let prog = "<a g f g>"
let chords = "c'maj'4 c'major7'2"
let len = 64
let outLen = 16
let brk = 32
let whenOut pat = whenmod len (len - outLen) pat
let whenIn  pat = someCyclesBy "<16!8 0!48>" pat
let whenPt1 pat = someCyclesBy "<1!32 0!32>" pat
let whenPt2 pat = someCyclesBy "<0!32 1!32>" pat
let whenPt2Begin pat = someCyclesBy "<0!32 1!8 0!20>" pat
let loopLPF = (whenmod brk (brk - 8) (# lpf ("<12 10 10 8 8 5 5 2>" * 100)))
let whenInFade  = whenIn  (|* gain (slow outLen $ range 0.8 1   saw))
let whenOutFade = whenOut (|* gain (slow outLen $ range 1 0.2   saw))
let whenOutHPF  = whenOut (|* hpf  (slow outLen $ range 0 10000 saw))
let g = loopLPF
d1 $ g -- Kick
  $ whenIn (mask "<f!7 [f t] t(2,4)!4 t(3,4) t(5,8) t(6,8) t>")
  $ whenOutFade
  $ whenPt2Begin (degradeBy "<1!3 [1!3 0.5] 0.5!3 [1!3 0]>")
PLN committed
27
  $ whenPt2 (<| "k . <[k ~ <k k*2> <k ~>] . k(<3!3 5>,8)>")
PLN committed
28 29
  $ whenPt1 (<| "k [~|k*4] . ~ [<k <~ k>> <~ k>]")
  $ "jazz"
PLN committed
30 31
  # attack 0.25
  # gain 2
PLN committed
32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65
d2 $ g -- Clap contretemps
  $ whenIn (mask "<f!7 t f!4 t!4>")
  $ whenOutFade
  $ whenPt2Begin (# room (slow 8 $ range 0.4 0 saw))
  $ superimpose ( -- Equalize
    (# hpf 2000) . (# lpf 10000) . (|* gain 1.1)
  )
  $ "~ cp"
  # lpf 500
  # gain (slow 4 $ range 0.5 0.95 saw)
  # dry 1
  # pan 0.6
d3 $ g -- Drumroll léger
  $ whenIn (mask "<f!3 t!13>" . slow "16 [8 4] 4 [4 2] 2!4 [2 1]!4 [2 1!3]!3 1")
  $ whenOutFade
  $ whenPt2Begin (degradeBy (1 - (slow 8 cosine)))
  $ whenmod 8 7 (|* gain "1.05 1.1")
  $ sometimesBy "<0.1 0.125 0.25 0.5>" (ply "<2!4 4!4>")
  $ someCycles (degradeBy "0 0.25" . fast 2)
  $ "dr*8" # hpf 150 # hpq 0
  # room 0.8 # sz 0.5 # dry 1
  # gain (slow 8 $ range 0.5 0.8 saw)
  # pan  (slow 4 $ range 0.3 0.5 saw)
d4 $ g -- Bassline doublée
  $ whenIn (mask "<f!4 t!12>")
  $ whenOutFade
  $ whenOut ((# lpf 5000) . (# lpq 0.2))
  $ whenmod 4 3 (swingBy (1/3) "8")
  $ whenPt2 (whenmod 4 3 (# cut 4))
  $ juxBy 0.75 rev -- JUX REV DOUBLE
  $ sometimesBy "<0 0.25 0.5 1>" (off "0.125" id)
  $ arp "up"
  $ note (prog |+| "c2'maj*4")
  # "bassWarsaw"
PLN committed
66
  # gain 0.85
PLN committed
67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109
  # room (slow 32 $ range 0 0.8 saw)
  # sz 0.5
d5 $ g -- FMRhodes base
  $ whenInFade
  $ whenOutHPF
  $ whenmod 16 4 (superimpose (# modIndex 5))
  $ note (
    prog
    |+| "<0 0 [0 . ~ ~ <-5 ~> -3] [0 . ~ ~ 0]>"
    |+| "0 . 0(3,8)"
    - 12
  )
  # "FMRhodes1"
  # cut 42
  # room 0.4
  # gain 0.95
  # pan 0.3
  # mix 1.15
  # modIndex 0
d6 $ g -- FMRhodes arps électriques
  $ whenIn (mask "f!8 t!8")
  $ whenInFade
  $ whenOutHPF
  $ whenmod 32 16 (# modIndex (slow 8 $ range 0 3 perlin))
  $ note (prog
    + "0 . 0*<1 2 4 [8 4]> 0"
    + ( -- Remplissage accords
      slow (slow 4 "<16 8 4 4 4 2 2 1>") $ -- Éclairci
      arp "updown" chords)
    + "0 12 0"
    - 24
  )
  # "FMRhodes2"
  # mix 1.15
  # gain 0.9
  # pan 0.2
d7 -- Carillons back
  $ g
  $ whenIn (slow "<4!8 2!8>")
  $ whenInFade
  $ whenOutHPF
  $ juxBy 0.5 (rev . fast 4)
  $ fix ((# "808hc:0") . (|* gain 0.85)) "h"
PLN (Algolia) committed
110
  $ fix ((# "808mc") . (# n "<4 3 2 3>")) "m"
PLN committed
111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133
  $ fix ((# "808lc") . (# n (slow 4 "<0 0 0 2>"))) "l"
  $ "~ l <~ [~ ~ ~ <h!3 m>]> l"
  # room 0.5 # sz 0.8 # dry 0.8
  # gain (slow 16 $ range 0.5 0.8 saw)
d8 $ g -- Final choirs
  $ whenOut (# gain (0.8 * (slow outLen $ range 0.5 1 saw)))
  $ someCyclesBy "0!3 1 0 1!3" (superimpose (
    (|+ note 24)
    . degradeBy "0 1!7"
    . (# legato 2)
    . (|* gain 0.87)
    . (|+ pan 0.3)
    ))
  $ someCyclesBy "0!4 1 0 0 1" (juxBy 0.6 (
    arp "up!3 down" . ply "2 4" . (|+ note 12)
    . (|* gain 0.6)
  ))
  $ note (prog
    |+| chords
    + "-24"
  )
  # "moogBass"
  # gain 0