BASSLINE scorefile

print_on()
set_option("FULL_DUPLEX_ON")
rtsetparams(44100, 2)
load("VMSTRUM")
load("BASSLINE")
rtinput("AUDIO")

tempo = 120.0
whole = 4
half = 2
quarter = 1
eigth = 0.5

start = 0 /* start time for chords */
st = 0 /* start time for bass line */

num_chords = getchordinfo("DataFiles/chordfile.dat") /* data file with chord progression */

/* play chords */
for (i = 0; i < num_chords; i = i + 1){

dur = getdur(i, tempo) /* duration for current chord */

BASSLINE(start, i, tempo)

/* play chords */
VMSTART(start, dur, getpitch(i, 0), dur, 0.1,
30000, 1, 0.5, 1, 0)
VMSTART(start, dur, getpitch(i, 1), dur, 0.1,
30000, 1, 0.5, 1, 1)
VMSTART(start, dur, getpitch(i, 2), dur, 0.1,
30000, 1, 0.5, 1, 1)
VMSTART(start, dur, getpitch(i, 3), dur, 0.1,
30000, 1, 0.5, 1, 1)

start = start + dur

}