90s_glassatm (5) 90s_matrix (7) 90s_megafx (338) 90s_synatm (35) 90s_weird (13)

celtic_guitar80 (50) celtic_guitar85 (18)

do
setcps (85/60/4)
let g = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.05 0.45 saw)))
d1
  $ g
  $ "k . k(3,8)" # "jazz"
  # gain 0.8
d2 $ g
  $ fast 2
  $ "~ s"
  # "snare:29"
  # gain 0.85
d3
  $ g
  $ slice 4 ("0 <~ 1> <0 2> < ~3>")
  $ "c/2" # "celtic_guitar85:12"
  # cut 4
  # gain 0.8
d10 -- fx

once
  $ "90s_megafx:132"
  # cut 10
  -- # begin 0.2
  # gain 0.75


-- 2: Il etait un paysan mineur
-- 3: Puis un paysan majeur
-- 5: Majeur et ses amis

-- 4: Aigu ritournelle
-- 7: Aigu


-- 6: Resolu bass
-- CELTIC TECHNO
do
setcps (120/60/4)
let g = whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.45 0.15 saw))
d1
  $ g
  $ mask "<t(1,4)!4 t(2,4)!3 t t!12 f!3 t(1,4) f!3 t(3,4,1) t!3 f>"
  $ "k*4"
  # "jazz" # gain 0.65
d3 $ g
  $ mask "<f!3 [f t] f!3 [f t f t] t!24>"
  $ fast "<1!7 2 1!4 2!4>"
  $ "hh*[8 <8 [8 <[4 <8 4>]!3 16>]>]"
  # gain 0.75
d4 $ g
  $ whenmod 64 32 (>| n "<20!3 21 20!2 21 21 20 21 20 20 21 21 20 21>")
  $ someCyclesBy "<0!32 1!32>" (>| n "4/2")
  $ "celtic_guitar80"
  # cut 4
  # gain 0.67
d10 -- fx
  $ "~ <~!7 90s_megafx:335>"
  # gain 0.5
  # room 0.8
  # cut 10


-- ScratchPad: Play with scratch mixes!
once
  $ "scratch_short"
  # gain 0.7
  # n "<0 1 0 2>"
  # cut 2

once $ "scratch_med:4"
  # gain 0.9
  # cut 9




resetCycles
