#!/bin/rc
awk 'BEGIN {
	bpm = '$1'
	rate = 44100
	obeat = rate * 60 / bpm
	ibeat = 2 ^ 14
	dest = "'$2'"
}
{
	l[$2] = l[$2] + 1
	t[$2,l[$2]] = $0
}
END{
	for(k in l){
		cmd = "sort -n | smp1 > "dest"/"k
		for(i=1; i<=l[k]; i++){
			$0 = t[k,i]
			print int($1*obeat/ibeat), $2, $3, int($4 != "" ? $4 *obeat/ibeat : -1) | cmd
		}
		close(cmd)
	}
}
'