--- jrt2-midi.sh-	Wed Sep 30 00:00:00 2015
+++ jrt2-midi.sh	Thu Oct  1 00:00:00 2015
@@ -36,7 +36,6 @@
 
 
 VOL=all:2.5
-CH_VOL=100
 
 if [ ! -e midi_prog ] ; then
   LKSH=../lk.sh
@@ -74,15 +73,25 @@
 #35		# Electric Bass (pick)"
 #79		# Whistle
 #49		# String Ensamble 1
-PROG=(50 24 35 79 49)
+
+PROG=(50 24 79 49)
+PROG_VOL=(80 127 110 90)
+
+PROG_N=${#PROG[@]}
 
 rm -f setting
-for ch in $(seq 0 15) ; do
-  i=$(expr $ch % 5)
+for j in $(seq 0 14) ; do
+  ch=$j
+  if [ $ch -ge 9 ] ; then
+    ch=$(expr $j + 1)
+  fi
+  i=$(expr $j % $PROG_N)
   prg=${PROG[$i]}
+  vol=${PROG_VOL[$i]}
+  pan=$(expr 127 \* $j / 14)
   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
+  echo "delta=0 ctl_chg ch_vol_msb ch=$ch v=$vol" >> setting
+  echo "delta=0 ctl_chg pan_msb ch=$ch v=$pan" >> setting
 done
 
 #