--- ptmsk-3.sh	Fri Jun 19 00:00:00 2015
+++ ptmsk-4.sh	Fri Jun 19 01:00:00 2015
@@ -1,11 +1,11 @@
 #!/bin/bash
 
 SONG=ptmsk
-VER=3
+VER=4
 VOL=all:5
 TEMPO=560000	# usec
 
-PARTS="gc dmsm bs hc"
+PARTS="gc dmsm bs hc dr"
 
 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)
@@ -289,6 +289,96 @@
 cp $P.i1 $P.i2
 cp $P.i1 $P.a3
 cp $P.i1 $P.a4
+
+#
+# Drums
+#
+P=dr
+CH=9
+CH_VOL=70
+PROG=0		# drum
+PAN=74
+
+$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
+
+# a0 a1 a2 a3 a4
+$MIDTXT -len > $P.1 <<EOF
+len=1/4(1/16)  ch=$CH note=BD1
+len=3/16(1/16) ch=$CH note=SD_El
+len=5/16(1/16) ch=$CH note=BD1
+len=1/4(1/16)  ch=$CH note=SD_El
+EOF
+
+$MIDTXT -len > $P.f1 <<EOF
+len=1/4(1/16)  ch=$CH note=BD1
+len=1/4(1/16)  ch=$CH note=SD_El
+len=1/4(1/16)  ch=$CH note=BD1
+len=1/8(1/16)  ch=$CH note=SD_El
+len=1/16       ch=$CH note=LowMidTom
+len=1/16       ch=$CH note=SD_El
+EOF
+
+$MIDTXT -len > $P.f2 <<EOF
+len=1/4(1/16)  ch=$CH note=BD1
+len=1/4(1/16)  ch=$CH note=SD_El
+len=3/16(1/16) ch=$CH note=BD1
+len=1/16       ch=$CH note=SD_El
+len=1/16       ch=$CH note=SD_El
+len=1/16       ch=$CH note=SD_El
+len=1/16       ch=$CH note=LowMidTom
+len=1/16       ch=$CH note=LowMidTom
+EOF
+
+# b
+$MIDTXT -len > $P.2 <<EOF
+len=1/4(1/16)  ch=$CH note=BD1
+len=1/4(1/16)  ch=$CH note=SD_El
+len=1/4(1/16)  ch=$CH note=BD1
+len=1/16       ch=$CH note=SD_El
+len=3/16(1/16) ch=$CH note=BD1
+EOF
+
+# c
+$MIDTXT -len > $P.3 <<EOF
+len=1/4(1/16)  ch=$CH note=BD1
+len=1/4(1/16)  ch=$CH note=SD_El
+len=1/4(1/16)  ch=$CH note=BD1
+len=1/4(1/16)  ch=$CH note=SD_El
+EOF
+
+# d
+$MIDTXT -len > $P.6 <<EOF
+len=3/16(1/16)  ch=$CH note=BD1
+len=5/16(1/16)  ch=$CH note=SD_El
+len=3/16(1/16)  ch=$CH note=BD1
+len=5/16(1/16)  ch=$CH note=SD_El
+EOF
+
+$MIDTXT -len > $P.7 <<EOF
+len=3/16(1/16)  ch=$CH note=BD1
+len=5/16(1/16)  ch=$CH note=SD_El
+
+len=3/16(1/16)  ch=$CH note=BD1
+len=1/16        ch=$CH note=SD_El
+len=1/16        ch=$CH note=SD_El,BD1
+len=1/16        ch=$CH note=SD_El
+len=1/16        ch=$CH note=SD_El
+len=1/16        ch=$CH note=SD_El
+EOF
+
+cat $P.1 $P.1 $P.1 $P.1 > $P.a0
+cat $P.1 $P.1 $P.1 $P.f1 > $P.a1
+cat $P.1 $P.1 $P.1 $P.f2 > $P.a2
+cat $P.2 $P.2 $P.2 $P.2 > $P.b
+cat $P.3 $P.3 $P.3 $P.3 $P.3 > $P.c
+cat $P.6 $P.7 > $P.d
+cat $P.a0 > $P.i2
+cp $P.a1 $P.a3
+cp $P.a2 $P.a4
 
 #
 # Gather and Trans