--- ptmsk-2.sh	Thu Jun 18 02:00:00 2015
+++ ptmsk-3.sh	Fri Jun 19 00:00:00 2015
@@ -1,11 +1,11 @@
 #!/bin/bash
 
 SONG=ptmsk
-VER=2
+VER=3
 VOL=all:5
 TEMPO=560000	# usec
 
-PARTS="gc dmsm bs"
+PARTS="gc dmsm bs hc"
 
 SEQS=(i0 i1 a0 a1 a2 b c d a1 a2 b c i2 a0 a1 a2 a3 a4 a3 a4 e)
 LENS=(2  4  4  4  4  4 5 2 4  4  4 5 4  4  4  4  4  4  4  4  2)
@@ -51,25 +51,30 @@
 #
 # Initialize as all rest
 #
-$MIDTXT -len > r.1 <<EOF
-len=1 ch=0 note=R
-EOF
-
-cat r.1 r.1 > r.2
-cat r.2 r.2 > r.4
-
-N_1=$(expr ${#SEQS[@]} - 1)
-for P in $PARTS ; do
-  for i in $(seq 0 $N_1) ; do
-    S=${SEQS[$i]}
-    L=${LENS[$i]}
-    $RM $P.$S
-    for j in $(seq $L) ; do
-      cat r.1 >> $P.$S
+REST_Z=$SONG-$VER-rest.tgz
+if [ -e $REST_Z ] ; then
+  tar xzf $REST_Z
+else
+  echo "len=1 ch=0 note=R" | $MIDTXT -len > r.1
+  cat r.1 r.1 > r.2
+  cat r.2 r.2 > r.4
+
+  LST="r.1 r.2 r.4"
+  N_1=$(expr ${#SEQS[@]} - 1)
+  for P in $PARTS ; do
+    for i in $(seq 0 $N_1) ; do
+      S=${SEQS[$i]}
+      L=${LENS[$i]}
+      $RM $P.$S
+      for j in $(seq $L) ; do
+	cat r.1 >> $P.$S
+      done
+      LST="$LST $P.$S"
     done
+    $RM $P.trans
   done
-  $RM $P.trans
-done
+  tar czf $REST_Z $LST
+fi
 
 
 #
@@ -247,6 +252,43 @@
 cat $P.7 $P.8 $P.9 $P.10 $P.11 $P.12 $P.13 $P.13 $P.14 $P.14 > $P.c
 cp $P.a1 $P.a3
 cp $P.a2 $P.a4
+
+#
+# Hi-Hat Close
+#
+P=hc
+CH=10
+CH_VOL=40
+PROG=0		# drum
+PAN=54
+
+$SED >> setting <<EOF
+delta=0 prog_num ch=$CH v=$PROG
+delta=0 ctl_chg ch_vol_msb ch=$CH v=$CH_VOL
+delta=0 ctl_chg pan_msb ch=$CH v=$PAN
+EOF
+
+LEN="1/16(1/64)"
+
+$MIDTXT -len cat > $P.0 <<EOF
+len=$LEN ch=$CH note=HC
+EOF
+
+$RM $P.1
+for i in $(seq 16) ; do
+  cat $P.0 >> $P.1
+done
+
+cat $P.1 $P.1 $P.1 $P.1 > $P.i1
+cp $P.i1 $P.a0
+cp $P.i1 $P.a1
+cp $P.i1 $P.a2
+cp $P.i1 $P.b
+cat $P.1 $P.1 $P.1 $P.1 $P.1 > $P.c
+cat $P.1 $P.1  > $p.d
+cp $P.i1 $P.i2
+cp $P.i1 $P.a3
+cp $P.i1 $P.a4
 
 #
 # Gather and Trans