From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 7 Jul 2003 22:07:47 +0000 (+0000)
Subject: (drumNotes): 1.7 fixes
X-Git-Tag: release/1.7.26~50
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=788625d2a716299799b71f95f8a8ea1774f26134;p=lilypond.git

(drumNotes): 1.7 fixes
---

diff --git a/ChangeLog b/ChangeLog
index 8279076bc9..785823dd0e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-07-08  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
+
+	* input/template/jazz-combo.ly (drumNotes): 1.7 fixes 
+
 2003-07-09  Heikki Junes  <hjunes@cc.hut.fi>
 
 	* Documentation/user/refman.itely: spelling fix.
diff --git a/input/template/jazz-combo.ly b/input/template/jazz-combo.ly
index 981822bff6..bf1a54fb90 100644
--- a/input/template/jazz-combo.ly
+++ b/input/template/jazz-combo.ly
@@ -1,4 +1,4 @@
-\version "1.6.6"
+\version "1.7.23"
 \header {
         title = "Song"
         subtitle = "(tune)"
@@ -22,7 +22,10 @@ nsl = {
          \property Voice.Stem \revert #'length }
 cr = \property Voice.NoteHead \override #'style = #'cross
 ncr = \property Voice.NoteHead \revert #'style
-jzchords = \property ChordNames.ChordName \override #'style = #'jazz
+
+%% insert chord name style stuff here.
+
+jzchords = { } 
 
 %%%%%%%%%%%% Keys'n'thangs %%%%%%%%%%%%%%%%%
 
@@ -34,12 +37,12 @@ Key = \notes \key c \major
 
 % ############ Horns ############
 % ------ Trumpet ------
-trpt = \notes \transpose d' \relative c'' {
+trpt = \notes \transpose c d \relative c'' {
 	\Key
         c1 c c
 }
 
-trpharmony = \chords \transpose d { \jzchords }
+trpharmony = \chords \transpose c' d { \jzchords }
 trumpet = {
         \global 
         \property Staff.instrument = #"Trumpet"
@@ -50,12 +53,12 @@ trumpet = {
 }
 
 % ------ Alto Saxophone ------
-alto = \notes \transpose a' \relative c' {
+alto = \notes \transpose c a \relative c' {
 	\Key
         c1 c c
 }
 
-altoharmony = \chords \transpose a { \jzchords }
+altoharmony = \chords \transpose c' a { \jzchords }
 altosax = {
         \global
         \property Staff.instrument = #"Alto Sax"
@@ -66,12 +69,12 @@ altosax = {
 }
 
 % ------ Baritone Saxophone ------
-bari = \notes \transpose a'' \relative c {
+bari = \notes \transpose c a' \relative c {
 	\Key
         c1 c \sl d4^"Solo" d d d \nsl
 }
 
-bariharmony = \chords \transpose a { \jzchords s1 s d2:maj e:m.7 }
+bariharmony = \chords \transpose c' a { \jzchords s1 s d2:maj e:m7 }
 barisax = {
         \global
         \property Staff.instrument = #"Bari Sax"
@@ -103,7 +106,7 @@ gtr = \notes \relative c'' {
 }
 
 gtrharmony = \chords { \jzchords
-        s1 c2:min.7+ d2:maj.9
+        s1 c2:min7+ d2:maj9
 }
 
 guitar = {
@@ -193,11 +196,11 @@ down = \notes {
         bd4 s bd s bd s bd s bd s bd s
 }
 
-drums = {
+drumNotes = \context Staff = drums {
 	\global
 	\property Staff.instrument = #"Drums"
 	\clef percussion
-	\context Staff <
+	<
 		\context Voice = first { \voiceOne \up }
 		\context Voice = second { \voiceTwo \down }
 	>
@@ -226,13 +229,13 @@ drums = {
                 
                 \context Staff = bass \bass
                 
-                \apply #(drums->paper 'drums) \context Staff = drums \drums
+                \apply #(drums->paper 'drums) \drumNotes
         >
 >
         \midi { \tempo 4 = 75 }
         \paper {
                 linewidth = 15.0 \cm
-                \translator { \HaraKiriStaffContext }
+                \translator { \RemoveEmptyStaffContext }
                 \translator {
                         \StaffContext
                         \consists Instrument_name_engraver
diff --git a/scm/drums.scm b/scm/drums.scm
index 07420c0ef3..50e40d4095 100644
--- a/scm/drums.scm
+++ b/scm/drums.scm
@@ -248,6 +248,7 @@
      )
    )
  )
+
 (define ((name->paper kit) n)
    (let n2p ((pitches (primitive-eval kit)))
      (cond ((eq? pitches '())