# l .mint ̒́Atimidity ֌W̐ݒłB

$timidity-menu		&menu -t" TiMidity play menu  " \
				1"16poly 16kHz Stereo  ", \
				2"20poly 16kHz Monaural", \
				3"64poly 16kHz Monaural", \
				4"16poly adpcm Monaural", \
				5"16poly 44kHz Stereo  ";
			&if      (1) {
				&set tmopt "-p16 -s16000"
			} &elsif (2) {
				&set tmopt "-p20 -s16000 -OmM"
			} &elsif (3) {
				&set tmopt "-p64 -s16000 -OmM"
			} &elsif (4) {
				&set tmopt "-p16 -Om8U -o PCM"	# ł̓mCYc
			} &elsif (5) {
				&set tmopt "-p16 -s44100"
			} &else { &end }
			&endm

$timiditys-menu		&menu -t" TiMidity file menu  " \
				1"80poly 44kHz s44", \
				2"80poly 32kHz s32", \
				3"80poly 16kHz s16", \
				4"80poly 44kHz a44", \
				5"80poly 32kHz a32", \
				6"80poly 16kHz a16";
				&if      (1) {
					&set tmopt "-p80 -s44100 -OmS";
					&set tmext "s44"
				} &elsif (2) {
					&set tmopt "-p80 -s32000 -OmS";
					&set tmext "s32"
				} &elsif (3) {
					&set tmopt "-p80 -s16000 -OmS";
					&set tmext "s16"
				} &elsif (4) {
					&set tmopt "-p80 -s44100 -OmS8";
					&set tmext "a44"
				} &elsif (5) {
					&set tmopt "-p80 -s32000 -OmS8";
					&set tmext "a32"
				} &elsif (6) {
					&set tmopt "-p80 -s16000 -OmS8";
					&set tmext "a16"
				} &else { &end }
				&endm

^	MThd	
.mid .smf	\
	-c-----	(timidity-menu);
		timidity $tmopt $F ; &unset tmopt
	-ct----	(timiditys-menu);
		timiditys -ix $tmopt -o $F:r.$tmext $< $F ;
		&unset tmopt ; &unset tmext
