--- jrt2-midi.sh-	2015-09-25 00:00:00.000000000 +0900
+++ jrt2-midi.sh	2015-09-30 00:00:00.000000000 +0900
@@ -32,16 +32,17 @@
   -pd_lmt_sec $PD_LMT -lmt_sec=$LMT_SEC \
   $SAVE_LOAD -pre_release $PRE_REL $OVT"
 
+# -c 1 -adj_cent 50 -div 5 -midi -thres 0.03 -men_thres 0.3 -pd_lmt_sec 0.0625 -lmt_sec 0.0625 -pd_load ../pd-4 -pre_release 0.005 -cut_over_tone < ../jrt2-mono.raw
+
+
 VOL=all:2.5
-CH=0
 CH_VOL=100
-#PROG=24		# SIN wave
-PROG=50		# String Ensamble 2
 
 if [ ! -e midi_prog ] ; then
-  cp -r ../midi_prog/ .
+  LKSH=../lk.sh
+  $LKSH ../midi_prog .
   if [ ! -e cui ] ; then
-    cp -r ../cui/ .
+    $LKSH ../cui .
     (cd cui ; make clean ; make)
   fi
   (cd midi_prog ; make clean ; make)
@@ -68,10 +69,21 @@
 #
 # Setting
 #
-cat > setting <<EOF
-delta=0 prog_num ch=$CH v=$PROG
-delta=0 ctl_chg ch_vol_msb ch=$CH v=$CH_VOL
-EOF
+#50		# String Ensamble 2
+#24		# SIN wave
+#35		# Electric Bass (pick)"
+#79		# Whistle
+#49		# String Ensamble 1
+PROG=(50 24 35 79 49)
+
+rm -f setting
+for ch in $(seq 0 15) ; do
+  i=$(expr $ch % 5)
+  prg=${PROG[$i]}
+  echo "delta=0 prog_num ch=$ch v=$prg" >> setting
+  echo "delta=0 ctl_chg ch_vol_msb ch=$ch v=$CH_VOL" >> setting
+  echo "delta=0 ctl_chg pan_msb ch=$ch v=$(expr 127 \* $ch / 15)" >> setting
+done
 
 #
 # Pickup
@@ -103,7 +115,7 @@
 fi
 cat $SONG.mid >> data
 
-PROG_OPT="-nocui -c 1 -adj_cent $ADJ_CENT -vol $VOL -v"
+PROG_OPT="-nocui -c 2 -adj_cent $ADJ_CENT -vol $VOL -v"
 cat data | $MIDPROG $PROG_OPT > $SONG.raw
 if which sox ; then
   cat $SONG.raw | sox -t raw -r 44100 -c 1 -b 16 -s - $SONG.wav
@@ -118,8 +130,7 @@
 echo 'Mix ;-p'
 RAWMIX2=$MDIR/rawmix2
 
-#cat $RAW | $RAWMIX2 -CH0 "-c 1 -pan 0" -CH1 "-c 1 -i $SONG.raw -pan 1 -vol 1.3" > mix.raw
-cat $RAW | $RAWMIX2 -CH0 "-c 1 -pan 0" -CH1 "-c 1 -i $SONG.raw -pan 1 -vol 1.7" > mix.raw
+cat $RAW | $RAWMIX2 -CH0 "-c 1 -pan 0.5" -CH1 "-c 2 -i $SONG.raw -pan -1 -vol 1.7" > mix.raw
 
 if which sox ; then
   cat mix.raw | sox -t raw -r 44100 -c 2 -b 16 -s - mix.wav
@@ -132,9 +143,9 @@
 # Split
 #
 echo Split 30M
-split -b 30M -d mix.raw mix_
+split -b 30m mix.raw mix_
 
-for FN in $(ls mix_[0-9][0-9] 2> /dev/null) ; do
+for FN in $(ls mix_a[a-z] 2> /dev/null) ; do
   mv $FN $FN.raw
   if which sox ; then
     WAV=$FN.wav