(clear)
(ortho)

(load (full-path "stroke.scm"))

(pattern-reset)
(pattern-init)

(define fm-pp1 '("freq" 2 "modfreq" 0.01 
    "type" 2 "attack" 0 "decay" 0.1 "sustain" 0.1 "release" 0.5 
"modtype" 0 "modattack" 0.1 "moddecay" 0.2 "modsustain" 0.1 "modrelease" 0.5 
"fbattack" 2.5 "fbdecay" 1 "fbsustain" 0.1 "fbrelease" 0.5 
"volume" 1 "modvolume" 1 "fbvolume" 1 "crushfreq" 0 "crushbits" 0
        "slide" 0 "modslide" 0 
        "poly" 3 "mainvolume" 1))

(define fm-pp2 '("freq" 2 "modfreq" 1 
    "type" 2 "attack" 0.5 "decay" 0.1 "sustain" 0.1 "release" 0.5 
"modtype" 0 "modattack" 0 "moddecay" 0.6 "modsustain" 0.1 "modrelease" 0.5 
"fbattack" 2.5 "fbdecay" 1 "fbsustain" 0.1 "fbrelease" 0.5 
"volume" 1 "modvolume" 0.2 "fbvolume" 0 
        "slide" 0 "modslide" 0 
        "poly" 3 "mainvolume" 1))

(define sub-pp1 '("freqa" 2 "freqb" 1.501 "cutoff" 0.6 "resonance" 0.3 "ftype" 2
    "typea" 2 "attacka" 0 "decaya" 0.1 "sustaina" 0.1 "releasea" 0.5 "volumea" 1 
    "typeb" 2 "attackb" 0 "decayb" 0.1 "sustainb" 0.1 "releaseb" 0.5 "volumeb" 1
    "attackf" 0.2 "decayf" 0.2 "sustainf" 0.1 "releasef" 0.5 "volumef" 0.2
    "lfodepth" 0.5 "lfofreq" 0.1 "crushfreq" 0 "crushbits" 0
        "slidea" 0.02 "slideb" 0.05 "distort" 0.7
        "poly" 3 "mainvolume" 1))

(define sub-pp2 '("freqa" 1 "freqb" 0.501 "cutoff" 0.2 "resonance" 0.1 "ftype" 2
    "typea" 8 "attacka" 0 "decaya" 0.5 "sustaina" 0 "releasea" 0 "volumea" 1 
    "typeb" 8 "attackb" 0 "decayb" 0.2 "sustainb" 0 "releaseb" 0 "volumeb" 1
    "attackf" 0 "decayf" 0.6 "sustainf" 0 "releasef" 0 "volumef" 1
    "lfodepth" 0 "lfofreq" 5 "crushfreq" 0 "crushbits" 0
        "slidea" 0 "slideb" 0.2 "distort" 0.7
        "poly" 3 "mainvolume" 1))


(define drum-pp1 '("kickfreqdecay" 0.1 "kickdecay" 0.5 "kickfreqvolume" 2 "kickfreq" 0.1
        "hat1decay" 0.02 "hat1volume" 2 "hat1cutoff" 0.01 "hat1resonance" 0.4
        "hat2decay" 0.02 "hat2volume" 2 "hat2cutoff" 0.4 "hat2resonance" 0.1
        "snaredecay" 0.01 "snarevolume" 2 "distort" 0.5 
    "snareftype" 0 "snarefilterattack" 0 "snarefilterdecay" 0.1 
    "snarefiltersustain" 0 "snarefilterrelease" 0 "snarefiltervolume" 1
        "snarecutoff" 0.2 "snareresonance" 0.4
        "crushfreq" 2 "crushbits" 3.5 "poly" 1 "mainvolume" 1))

;------------------------------------------------------------------------

(define sub-atk1 '("freqa" 0.5 "freqb" 1.5 "typea" 3 "cutoff" 0.2 "resonance" 0.4
        "lfodepth" 0.1 "lfofreq" 1 "decaya" 0.5 "decayb" 0.5
        "slidea" 0.1 "slideb" 0.1
        ))

(define sub-atk2 '("freqa" 2 "freqb" 0.5001 "typea" 3 "typeb" 3 "cutoff" 0.5 "resonance" 0.2
        "lfodepth" 0.1 "lfofreq" 1 "attacka" 0.1 "attackb" 0.2 "decaya" 0.7 "decayb" 0.7
        "slidea" 0 "slideb" 0 "poly" 4 "mainvolume" 2
        ))

(define sub-atk3 '("freqa" 0.25 "freqb" 0.25 "typea" 3 "cutoff" 0.1 
        "resonance" 0.45 "decayf" 0.5
        "lfodepth" 0 "lfofreq" 1 "decaya" 0.5 "decayb" 0.5 "volumef" 0.1
        "slidea" 0 "slideb" 0 "crushfreq" 5 "crushbits" 6
        ))

;------------------------------------------------------------------------

(pattern-samples 1 "atk")
(pattern-samples 1 "808")
(pattern-samples 1 "hrs")
(pattern-samples 1 "latino")
(pattern-samples 1 "tabla")
(pattern-samples 1 "kip")
(pattern-samples 1 "rip")
(pattern-samples 1 "syn")

;------------------------------------------------------------------------

(clear)
(pattern-init)

(pattern-voice 1 "fm" fm-pp1)

(pattern 1 1 1 (list "!<1" (list (list "1" "o.o.o.o."))))

(pattern-sample-unmap)