Hi, George:

When I ran it, it came out transposed, but without the header. Also I just noticed the Chord Symbols didn't get transposed.

My bad -- forgot to transpose the CS, and leave the \header outside of the \score.
The attached should Do The Right Thing™.

Best regards,
Kieren.

\version "2.8.5"

\header
{
	title = "Modal Behavior - 1"
	subtitle = "Creative Saxophone Improvisation"
	subsubtitle = "Tenor Chart for Alto Backup Track"
}

tempoMark =
{
	\once \override Score.RehearsalMark #'extra-offset = #'(0.0 . 1.6)
	\mark \markup { \small \bold { Swing } }
	\once \override Score.MetronomeMark #'extra-offset = #'(1.0 . 2.0)
	\tempo 4=120
}
segnoMark =
{
	\once \override Score.RehearsalMark #'break-align-symbol = #'key-signature
	\mark \markup { \musicglyph #"scripts.segno" }
}
fineMark = { \once \override Score.RehearsalMark #'self-alignment-X = #right \mark "Fine  " }

melody = \relative c''
{
	\clef treble
	\key g \major
	\time 4/4
	\autoBeamOff

	% Melody - Line 1
	\tempoMark
	R1*3 |
	r2 r4 r8 c8 \mf \bar "||" \break
    \segnoMark b8--[ g8-.] r4 g4-^ r8 d'8 |
	f8[ f8] e4-^ d4-^ c4-- |
	d8--[ g8-.] r4 r2 |
	r2 r4 r8 c,8 | \break

	b8[ c8] d4-^ g,8[ a8] b4-^ |
	f8[ g8] a4-^ d4-^ c4-- |
	b8--[ g8-.] r4 r2 |
	R1 | \break

	\setTextCresc
	g'8[ \p   g8-> \< g8 g8->(] g4)\! g8[ g8->] |
	as8[ as8-> as8 as8->(] as2)|
	g8[ g8-> g8 g8->(] g4) g8[ g8->] |
	f8[ f8-> f8 f8->(] f2) | \break

	g,8[ \mf a8] b4-> f8[ g8] a4-> |
	d8[ e8] f4-^ d4-^ c4-- |
	b8[ g'8-.] r4 r2 |

	\once \override Score.RehearsalMark #'break-visibility = #begin-of-line-invisible R1
	\fineMark
	\bar "|."
}

harmonies = \chordmode
{
	s1 s1 s1 s1 |
	s16 g2.:7 r8. f1:7 g:7 f:7 |
	g:7 f:7 g:7 f:7 |
	g:7 as:7 g:7 f:7 |
	g:7 f:7 g:7 f:7 |
}

\score
{
	<<
		\new ChordNames { \transpose g d \harmonies }
        \new Staff { \transpose g d \melody }
	>>

	\layout
	{
		\context
		{
			\Score
			skipBars = ##t
			\override MultiMeasureRest #'expand-limit = #1		    \override TimeSignature #'style = #'()
		}
		\context
		{
			\ChordNames
			chordChanges = ##t
		}
	}

	\midi { \tempo 4=120 }
}
_______________________________________________
lilypond-user mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to