(set! back-colour (vector 0 0 0.5))
(set! text-colour (vector 0.46 0.71 1))
(set! bg-colour (vector 1 0.25 0.63))
(set! poke-colour (vector 0.55 1 0.83))
(set! peek-colour (vector 1 0.55 0.83))
(set! menu-colour (vector 0.5 1 0.5))
(set! menu-hi-colour (vector 1 1 1))
(set! data-colour (vector 1 0.38 0))
(set! op-colour (vector 0.78 1 0))

(block-patch-init)

    (betablocker-osc-destination osc-itchy)
    (osc-send "/setclock" "" '())
    (osc-send "/clear" "" '())


(let ((p
'(("typea" 947/500 "freqa" 8 "slidea" 0 "decaya" 19/1000 "decayb" 21/1000 "freqb" 8 "mainvolume" 3863/1000 "typeb" 1789/500 "pan" 29/100 "attackb" 0 "sustainb" 0 "releaseb" 0 "sustaina" 0 "releasea" 0 "attacka" 0 "cutoff" 453/500 "ftype" 0 "volumef" 199/250 "decayf" 7/50 "resonance" 449/1000 "delay" 11/1000 "delayfb" 213/250) ("mainvolume" 771/500 "decay" 2/25 "type" 803/250 "pan" 169/200 "freq" 8 "attack" 0 "sustain" 1/20 "release" 3/40 "distort" 1593/1000 "modattack" 147/1000 "modtype" 0 "modvolume" 5 "modfreq" 1) ("mainvolume" 1051/250 "decaya" 289/1000 "typea" 421/125 "typeb" 3157/1000 "freqa" 1/2 "decayb" 217/1000 "pan" 709/1000 "attackb" 0 "sustainb" 0 "releaseb" 0 "attacka" 0 "sustaina" 0 "releasea" 0 "resonance" 229/500 "cutoff" 13/500 "freqb" 64/125) ("mainvolume" 17/40 "freq" 4 "modfreq" 2 "modvolume" 2161/500 "moddecay" 29/200 "decay" 3/25 "sustain" 183/1000 "release" 773/1000 "poly" 166/25 "modtype" 0 "modslide" 0 "slide" 0 "modattack" 3431/1000 "modsustain" 1 "pan" 507/1000 "fbattack" 0 "fbvolume" 0 "attack" 0 "crushbits" 4857/1000 "crushfreq" 23/250) ("mainvolume" 227/500 "typea" 2421/500 "freqb" 2051/1000 "freqa" 8 "typeb" 821/200 "decaya" 797/1000 "decayb" 217/500 "attackb" 0 "sustainb" 0 "releaseb" 0 "sustaina" 0 "releasea" 0 "attacka" 0 "cutoff" 53/500 "resonance" 433/1000 "ftype" 2307/1000 "slideb" 19/500 "ring" 2267/1000 "slidea" 211/500))
))

(itchy-voice 1 "sub" (list-ref p 0))
(itchy-voice 2 "fm"  (list-ref p 1))
(itchy-voice 3 "sub" (list-ref p 2))
(itchy-voice 4 "fm" (list-ref p 3))
(itchy-voice 5 "sub" (list-ref p 4)))

(scratchy-samples 6 "electro_d")

(define voice-count 6)