do
-- setcps (134/60/4)
-- resetCycles
setcps (90/60/4)
let width = pF "width"
let gMask = (midiOn "^41" (mask "t!3 <t!3 [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 dMask = (whenmod 8 7 (mask "t t <t f> f"))
let gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 $ gF1 $ gM2 
--   $ midiOn "^42" (<| "k k k <k k*2 k <k [~ k] k*2 [~ . k*2 k*<1 2>]>>")
--   $ midiOff "^42" (<| "k . <~!8 k!8> ~ ~ k")
--   -- $ fix (|* gain 0.6) "jazz"
  $ "[jazz]"
d2 $ "~ s ~ s" 
  # "snare:40"
  # gain 0.9
d3 $ "hh*[8 . 8 8 <8 16> <16!3 8>]"
  -- # delay 0.4 # delayfb 0.2 # delayt 0.125
d4 $ gF2 $ gM3 
  $ slow 2 
  $ note "d2" 
  # "bassWarsaw"  
  # legato 2 
  # crushbus 41 (range 16 2.5 "^53")
  # octersubbus 42 (range 0 2.5 "^33")
d5 $ note (
  scale "indian" (
    "c e g e c" -- notes within scale
    + "c5"      -- fundamental
  )) 
  # "cricri" # n "<3!3 1 2!3 1 3!3 2 1!3 2>" 
  # legato 1.2
  # cut 5
  # room 0.4 
  # octersub 0.4
  # pan 0.3
d12 $ slow 4 $ note (
  scale "indian" (
    "{c e g e, ~ ~ a ~}"
    + "c5"
  )
  ) # s "cricri:3" # lpf 800
d8 $ gF1 $ gM1 
  $ slice 8 "0 <~!4 1!4> 2 <~!3 3>"
  $ chop 8 
  $ loopAt 2 
  $ "jungle_breaks:24" 
  # cut 8

-- Raga-style phrases with slides
d5 $ slow 3 $ note (
  "{0 2 4 2, ~ ~ 7 ~}" -- typical raga phrase pattern
  + scale "indian" "c5"
  ) # "cricri:3" 
  # legato 1.2 -- overlap for slides
  # lpf 800 # lpq 0.2

-- Tihai pattern (3x repetition landing on 1)
d5 $ fast 3 $ note (
  "0 2 4" + scale "indian" "c5"
  ) # "cricri:3"


-- once $ note "a" # "cpluck:" # cut 1
