#!/bin/rc
# convert pcm to AMIGA sample rates

rfork e

name = (\
	B-3 'A#3' A-3 'G#3' G-3 'F#3' F-3 E-3 'D#3' D-3 'C#3' C-3\
	B-2 'A#2' A-2 'G#2' G-2 'F#2' F-2 E-2 'D#2' D-2 'C#2' C-2\
	B-1 'A#1' A-1 'G#1' G-1 'F#1' F-1 E-1 'D#1' D-1 'C#1' C-1\
)
note = (\
	31388 29557 27928 26273 24803 23489 22168 20864 19704 18667 17558 16574\
	15694 14778 13964 13185 12445 11744 11084 10462  9852  9309  8779  8287\
	 7829  7389  6982  6592  6222  5872  5542  5231  4926  4654  4389  4143\
)

flagfmt = 'i fmt,l length'
args='[note]'
if(! ifs=() eval `{aux/getflags $*}){
	aux/usage
	exit usage
}
flags = ()
if(! ~ $#flagi 0)
	flags = ($flags -i $flagi)
if(! ~ $#flagl 0)
	flags = ($flags -l $flagl)

r = 8287	# default to C-2
if(! ~ $#* 0)
	for(i in `{seq 36})
		if(~ $1 $name($i))
			r = $note($i)

audio/pcmconv $flags -o s8c1r^$r
