briquets: MVP

parent 4c421462
-- Briquets: essayons d'ALLUMER LE FEU
once
d1 -- briquet
$ whenmod 64 57 ( -- silence
const $ s "~"
)
$ whenmod 64 56 ( -- souffle final
const $ n "2*4 1" # s "wind" # release 2
)
$ whenmod 64 33 ( -- le feu!
const $ s "[fire, <sn dr> [hh hh ~ hh]]"
)
$ whenmod 64 32 ( -- etincelle
const $ hurry 2 $ s "[lighter:6(3,4),pebbles]" # release 2
)
$ sometimesBy 0.1 (const $ s "wind:1?,wind?") -- TODO souvent du vent
$ sometimesBy 0.4 (off 0.25 (|+ 0)) -- retente
$ sometimesBy 0.1 (off 0.375 (|+ 0)) -- retente
$ sometimesBy 0.05 (off 0.125 (|> 3)) -- derape
$ rarely (|> 6) -- grosse etincelle
$ euclid "<1 0 0 0 1 1 0 0 1 1 1 0 1 1 1 1 1 2 1 2 4 2 4 6 7 6 7 8 7 6 8 8>" 8
$ s "lighter"
# n (choose [0,1])
d2 -- guitare du feu!
$ degrade
$ whenmod 64 56 ( const $ s "~" ) -- silence
$ whenmod 64 38 (# gain 0.8)
$ whenmod 64 35 (# gain 0.9)
$ whenmod 64 34 (# gain 0.7)
$ whenmod 64 33 (# gain 0.6)
$ whenmod 64 32 (# gain 0.5)
$ whenmod 64 33 (const -- victoire!
$ fast 2
$ note "<[0 <2 4>] 0>/4"
# s "sitar:1"
# legato 2
)
$ s "~"
once $ s "sitar:1"
solo 2
-- DEV: guides
d2 $ every 64 (# gain 1)
$ s "cp"
# gain 0
d3 $ n "<0 1 2 3 4 5 6 7 8 9 [1, 0] [1, 1] [1, 2] [1, 3] [1, 4] [1, 5]>"
# s "numbers"
# gain 0.7
# pan 0
-- Chill hop beat?
d1 $ s "lighter:1" # n (irand 32)
# gain 1.1
d3 $ chop 1 $ s "lighter:1"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment