#!/usr/local/bin/perl

# converts disk-based to real-time cmix scores
# by luke

while(<>) {
	s/input/rtinput/;
	s/output/rtoutput/;
	s/am\(/AM\(/;
	s/am \(/AM \(/;
	s/aminst/AMINST/;
	s/clar/CLAR/;
	s/combit/COMBIT/;
	s/fir/FIR/;
	s/fminst/FMINST/;
	s/inputsig/INPUTSIG/;
	s/noise/NOISE/;
	s/pulse/PULSE/;
	s/buzz/BUZZ/;
	s/sflute/SFLUTE/;
	s/bsflute/BSFLUTE/;
	s/vsflute/VSFLUTE/;
	s/mix/MIX/;
	s/multicomb/MULTICOMB/;
	s/sculpt/SCULPT/;
	s/stereo/STEREO/;
	s/start/START/;
	s/bend/BEND/;
	s/fret/FRET/;
	s/vstart/VSTART/;
	s/trans/TRANS/;
	s/wavetable/WAVETABLE/;
	s/wshape/WSHAPE/;
	s/del1/DEL1/;
	s/delay/DELAY/;
	s/panecho/PANECHO/;
	print $_;
}
