mercury-lang/test/test-synth.txt

Parser for the mercury live coding language

set volume 0.9 5000
set tempo 143
set randomSeed 9123
set scale minor_pentatonic d
set highPass 800 5000
set lowPass 5000 100

// ring scl scale()
ring bassLine fill(0 16 -3 16)
ring notes palin( spread(5 0 12) )
ring jnd join(random(4 0 24) spread(4 0 24) urn(4 4))

new synth [ sine saw ] time(1/4 1/8) note(7 1) env(1 300) beat(0.2) add_fx(reverb 0.9 11) add_fx(lfo 1/4 up) //group(sn bass)

new sample [ kick_min snare_dub ] time(1/16) shape(1 1/32 2) beat(0.9)

new synth sine name(aSynth)
	set aSynth note(notes 1) timing(1/16) shape(1000 200) play(0.8) //aux(sn ld)
	set aSynth gain(0.5 100)

	set aSynth osc2(sine 2) withFX(drive 16) addFX(lfo 1/4 sine)

new synth saw name(bSynth)
	set bSynth note(random(4 0 12) 2) time(1/16) env(300 1000) 
	set bSynth pan(random) //group(bass intro)
	set bSynth gain(0) beat(0.7)

new sample kick_min name(kck)
	set kck time(1/4) fx(drive 1.1) fx(filter low 500 0.3)

new midi 'to Max 1' name(myMidi)
	set myMidi time(1/8) length(150) out(2) 
	set myMidi change(15 100) cc(22 60)

set all fx(reverb 1 20) fx(chip 0.5)
set sn fx(reverb 0.9 17)
set bass fx(drive 5)