Progressif
Profondeur
Entrainant, dansant plus que ambiant
Melancolie


once
  $ note ("[g, c, e5, f5]")
  # "superpiano"
  # velocity 0.5 # gain 1.8

prog1
g bf d
fs bf d
f bs b
ef g bs

bf d f
a d f
g ef g
fs ef fs

once $ "giorgio_syn:"


-- Pas commencer avec piano trop aigu, trop Filtered
-- basse bienvenue plus tot?

-- Intro 8
-- C1 8 Doucement je recule
-- R1 8 Laissons le temps passer x4
-- C2 8 Mon estomac me brule
-- R2 8 Laissons le temps x4
-- C3 8 Tu voyais encore
-- R3 8 Laissons le temps x3
-- 8 Outro
-- TOTAL 64

do
-- resetCycles
setcps (80/60/4)
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2
  $ whenmod 128 64 (# silence)
  -- $ superimpose ((# lpf 500))
  $ mask "<t!7 f>" -- Orchestration
  $ "k . k([<3!3 5> <1 <3 5>>],8)"
  # "[808bd:3,808bd:11]" -- 6,11
  -- # lpf 1400
  # note "1"
  -- # room 0.4 # sz 0.8
  -- # dry 1.1
  # gain 1.3
   -- # att 0.034
d2 $ gF1 $ gM1 -- Submarine snare sable mouvant inspired
  -- $ whenmod 128 64 (# silence)
  $ mask "<f!8 t!32 t!32 t!32 f!8>" -- Orchestration
  $ "~ s ~ [s*<1 2> <~ [~ s] ~ [~ s] ~!3 [~ s]>]"
  # "[snare:8]" --8
  -- # att 0.01
  -- # rel 4
  -- # lpf 4000
  -- # octersub 2
  # cut 2
  # room 0
  # gain 1
  # lpf 4000
d3 $ gF1 $ gM1
  $ whenmod 128 64 (# silence)
  $ mask "<t!7 f>" -- Mask permanent
  -- Orchestration
  $ midiOn "^76" (ply 2)
  $ fix (|* gain 0.9) (n 10)
  $ "~ h(3,8)"
  # "808oh:1" # "rampleS15" # n "<9!3 [9 . 9 10]>"
  -- # att 0.03
  -- # rel 1
  -- # hpf 1500
  |* gain (0.8 * (fast 4 $ range 0.85 1 perlin))
  -- # room 0.4 # dry 0.8 # sz 0.2
  # pan (range 1 0.6 saw)
  # gain 0.9
d4 $ gF2 $ gM3
  $ whenmod 128 64 (# silence)
  $ midiOn "^89" (ply 2)
  $ superimpose (
    (# crushbus 41 (range 16 5 "^53")) . (# hpf 500) . (|* gain 0.8)
  )
  $ someCyclesBy "<1!8 1!8 0!8 1!8 0!8 1!8 0!8 1!8>" -- Prog Couplet
    (|+| note ("<g3 <f3 af3> <ef3 [ef3 f3]> <d3 bf3>>")) -- v3
  $ someCyclesBy "<0!8 0!8 1!8 0!8 1!8 0!8 1!8 0!8>" -- Prog Refrain
    (|+| note ("<[ef4] [d4] <bf3 [bf3 f3]> <g3 bf3>>" - 12)) -- Original v1
  $ note 0
     -- "<g3 <f3 af3> <ef3 [ef3 f3]> <d3 bf3>>" -- COUPLET v3
     -- "<[ef4] [d4] <bf3 [bf3 f3]> <g3 bf3>>" - 12  -- Refrain mi bemol
  -- )
  # "bassWarsaw" |- note 0
  # room 0.8 # sz 0.4 # dry 0.3
  # bandf 300
  # pan 0.35
  # gain 1.4
d5 $ gF3 $ gM3 -- v1: Avec deux progs incertaines, pas d'arp
  $ whenmod 128 64 (# silence)
  -- $ ply 2 $ struct "t*4" $ arp "up"
  -- $ note ("<[g4, bf5, d5, f5] [af5, c5, ef5, f5] [ef4, g4, bf4, d5] [d4, fs4, bf4, c5]>") -- CouPLET v3
  $ note ("<[ef4] [d4] [bf4] [g4]>") -- Refrain v3
  -- $ someCyclesBy "<1!8 1!8 0!8 1!8 0!8 1!8 0!8 1!8>" -- Prog Couplet
  --   (|+| note ("<[g, bf, d] [fs, bf, d] [f, bf, d] [ef, g, bf]>")) -- v2
  -- $ someCyclesBy "<0!8 0!8 1!8 0!8 1!8 0!8 1!8 0!8>" -- Prog Refrain
  --   (|+| note "<[bf4, d5, f5] [a4, d5, fs5] [g4, d5, g5] [fs4, ef5, fs5]>") -- Original v1
    -- (|+ note "<[bf4, d5, f5] [a4, d5, fs5] [g4, <as4!3 c5>, d5] [fs4, ef5, <fs5!3 c5>]>") -- Mix variation v2
  -- $ note ("0"- 12)
  # "FMRhodes1"
  # modIndex (range 0 3 "^54")
  # gain 1.1
  # legato 4
  # att 0.1
  # rel 4
  # lpf 4000
  # pan 0.55
  # delay 0.2 # delayfb 0.5 # delayt 0.125
  # room 0.2 # dry 0.9 # sz 0.4
-- d5 $ gF3 $ gM3 -- V2: Avec arpege et prog validee
  -- 1 3 2 3 1
  -- Bonus arpege potentiel?
  -- up, down, updown, downup, converge, diverge, disconverge, pinkyup,
  -- $ arp "<converge!7 diverge>"
  -- $ ply "<4!3 2>"
  -- $ note ("<[bf4, d5, f5] [a4, d5, fs5] [g4, d5, g5] [fs4, ef5, fs5]>" -- Original
   -- - 12)
  -- # "FMRhodes1"
  -- # modIndex (range 0 3 "^54")
  -- # gain 1.1
  -- # legato 4
  -- # lpf 4000
  -- # delay 0.2 # delayfb 0.5 # delayt 0.125
  -- # room 0.2 # dry 0.9 # sz 0.4
-- d5
  -- $ arp "up"
  -- - 12) -- PROG1 OLD Session a deux
  -- # "FMRhodes1"
  -- # modIndex 1
  -- # lpf 5000
  -- # gain 1.3
  -- # att 0.05
  -- # rel 2
d7 $ gF3 $ gM3 -- Rhodes arpege pour couplet
  $ whenmod 128 64 (# silence)
  $ somecyclesBy "<0!8 0!32 0!32 0!32 1!8>" (|* gain (range 1 0.5 (slow 8 $ saw)))
  $ somecyclesBy "<1!8 0!32 0!32 0!32 0!8>" (|* gain (range 0.5 1 (slow 8 $ saw)))
  -- $ mask "<t!8 t!8 f!8 t!8 f!8 t!8 f!8 t!8>"
  -- $ mask "<t!8 f!16>"
  $ note ( -- A B C <D1 D2>
    "<[bf g d5 bf g d5 bf5 c6]!1 [a5 fs d5 a4 d5 fs a fs]!1 [g5 d5 bf4 g5 d5 bf4 bf5 g5]!1 <[a5 fs5 ef5 bf4 g4@4] [c6 bf5 a5 fs5 d5@4]>!1>" -- Le rhytme arpeggie vers le bas, plus variante montee
    -- "<0!4 [0 0]!4 [0 0(<3!3 2>,8)]!8>"
  -- - 12
  )
  # "FMRhodes2"
  # modIndex 1
  # att 0.05
  # rel 2
  # gain 0.8
  # legato 1
  # lpf 2000
  # delay 0.8 # delayfb 0.5 # delayt 0.125
  # room 0.47 # dry 0.8 # sz 0.4
  # gain 1.2
d8 $ gF1 $ gM1
  $ whenmod 128 64 (# silence)
  $ mask "<f!7 [f . t f] t!32 t!32 t!32 [t f . f] f!7>" -- Orchestration
  $ midiOn "^92" (ply 2)
  $ chop 16
  $ loopAt 2
  $ midiOn "^36" (loopAt 1 . (>| "jungle_breaks:48"))
  -- $ slice 4 ("0 1 2*<1 2> 3*<1!3 2>")
  $ midiOn "^56" (# "break:9")
  $ "break:13"
  -- # room 0.3 # dry 0.9 # sz 0.4
d9 $ gF3 $ gM3
  $ whenmod 128 64 (# silence)
  $ midiOn "^89" (ply 2)
  $ someCyclesBy "<1!8 1!8 0!8 1!8 0!8 1!8 0!8 1!8>" -- Prog Couplet
    (|+| note ("<g3 <f3 af3> <ef3 [ef3 f3]> <d3 bf3>>" + 12)) -- v3
  $ someCyclesBy "<0!8 0!8 1!8 0!8 1!8 0!8 1!8 0!8>" -- Prog Refrain
    (|+| note ("<[ef4] [d4] <bf3 [bf3 f3]> <g3 bf3>>")) -- Original v1
  $ note 0
     -- "<g3 <f3 af3> <ef3 [ef3 f3]> <d3 bf3>>" -- COUPLET v3
     -- "<[ef4] [d4] <bf3 [bf3 f3]> <g3 bf3>>" - 12  -- Refrain mi bemol
  -- )
  # "moog:2" |+ note 12
  # gain 0.5
  # lpf 1400
  -- # legato 1.8
  -- # att 0.25
  -- # rel 4
  -- # room 0.4
  -- # sz 0.9
  -- # hpf 1500

d10 $ gF3
  -- Orchestration
  $ mask "<f!7 t f!15 t f!15 t f!15 t f!15 t f!15 t f!15 t f!7 t>"
  $ "h2ogmcy:15"
  # lpf 4000

once
-- $ gF3
  -- Orchestration
  $ "<h2ogmcy:15>"
  # lpf 4000
