setcpm(136/4)

// Switch Angel - Gain Settings
setGainCurve(x => Math.pow(x, 2))
setDefault('gain', 1)

// Switch Angel - use slider for 0-1 values
register('rlpf', (x, pat) => { return pat.lpf(pure(x).mul(12).pow(4)) })
register('rhpf', (x, pat) => { return pat.hpf(pure(x).mul(12).pow(4)) })
register('acidenv', (x, pat) => pat.rlpf(.25).lpenv(x * 9).lps(.2).lpd(.15))

// Switch Angel
register('o', (orbit, pat) => pat.orbit(orbit))
register('acid', (pat) => { return pat.s('supersaw').detune(.5).unison(1).lpf(100).lpsustain(0.2).lpd(.2).lpenv(2).lpq(12) })

$: s("white").clip(0).gain(0)

$drum: s("sbd!4").duck("2:3:4:5:6").duckdepth(.8).duckattack(.2)
  ._scope()
$lead: n("<0 4 0 9 7>*16").scale("g:minor").trans(-12).o(3)
  .sound("sawtooth").acidenv(slider(0.695))._pianoroll()

$bass: n("<0 4 2 8>*16").scale("g:minor").trans(-24).o(4)
  .acid()._pianoroll()
$: n(irand(10).sub(7).seg(16)).scale("c:minor").o(2).rib(46,1).distort("2.2:.3")
  .s("sawtooth").lpf(200).lpenv(slider(3.4,0,8)).lpq(12)._pianoroll()
_$: s("supersaw").detune(1).rel(5).beat(2,32).slow(2).o(5).fm("2").fmh(2.04).room(1).roomsize(6)

_$: s("pulse").o(6).seg(16).dec(.1).fm(time).fmh(time)


-------------------------------------------

setcpm(136/4)

// Switch Angel

setGainCurve(x => Math.pow(x, 2))
setDefault('gain', 1)
register('o', (orbit, pat) => pat.orbit(orbit))
register('rlpf', (x, pat) => { return pat.lpf(pure(x).mul(12).pow(4)) })
register('rhpf', (x, pat) => { return pat.hpf(pure(x).mul(12).pow(4)) })
register('acidenv', (x, pat) => pat.rlpf(.25).lpenv(x * 9).lps(.2).lpd(.15))
register('acid', (pat) => { return pat.s('supersaw').detune(.5).unison(1).lpf(100).lpsustain(0.2).lpd(.2).lpenv(2).lpq(12) })
$: s("white").clip(0).gain(0)

// PERCUSSION

$drum: s("sbd!4").duck("2:3:4").duckdepth(.8).duckattack(.2)
$hat: s("hh hh hh*4 hh, lt [~ lt] ~ [~ ht ~]").bank("RolandTR808").lpf(rand.range(1000,5000)).room(rand.range(.2,.5))
$clap: s("~ cp ~ cp").gain(.5).room(.2)

// EFFECTS

$voc: n("<0 5*2 12>").sound("gm_voice_oohs").decay(slider(1)).scale("c:minor").scaleTranspose("<0 -12>").room(0.8).o(2)
$blow: n("0, 4, 7").scale("c:minor").scaleTranspose("<0@2 -2 3 5>").sound("gm_blown_bottle").decay(3).attack(.4).room(.9).delay(rand.range(.7,.9)).o(2)

// GUITAR

$guitar: n("[0 .. 8]*6/9, [0 .. 2]*4/5").jux(rev).scale("c:minor:pentatonic").scaleTranspose("<0 12 7>").sound("gm_electric_guitar_clean").decay(rand.range(.1,.3)).attack(rand.range(.3,.6)).delaytime("<.25 .125 .33 .5>").delayfeedback("<.8 .5 .75 0.9@2>").lpf(rand.range(100,2000)).room(.9).o(3)
$bass: n("[0 .. 8]*6/9, [0 .. 2]*4/5").scale("g:minor").trans(-24).o(3).acid()

// LEAD

$lead: n("[0 4 7 9]*2").scale("g:minor").trans(-12).o(4).sound("sawtooth").acidenv(slider(0.597))