\header {
  filename = "diademata.ly"
  enteredby = "Peter Chubb"
  composer = "Sir George J. Elvey (1816--1893)"
  date = "1868"
  title = "Diademata"
  metre = "6 6. 8 6. D"
  meter = \metre

  mutopiatitle = \title
  mutopiacomposer = \composer
  mutopiainstrument = "Voice (SATB)"
  style = "Hymn"
  source = "Book of Common Praise, 1908, number 367"
  copyright = "Public Domain"
  maintainer = "Peter Chubb"
  maintainerEmail = "mutopia@chubb.wattle.id.au"
  lastupdated = "2005/Jan/09"

  footer = "Mutopia-2005/01/18-524"
  tagline = "\\raisebox{10mm}{\\parbox{188mm}{\\quad\\small\\noindent " + \footer + " \\hspace{\\stretch{1}} This music is part of the Mutopia project: \\hspace{\\stretch{1}} \\texttt{http://www.MutopiaProject.org/}\\\\ \\makebox[188mm][c]{It has been typeset and placed in the public domain by " + \maintainer + ".} \\makebox[188mm][c]{Unrestricted modification and redistribution is permitted and encouraged---copy this music and share it!}}}"

}
\version "2.4.0"

%{
Words include `Crown him with many crowns'
%}

sop =  \transpose c c' {
	\voiceOne
	ees2 ees4 ees4 g2 g2 |  c'1.  
	c'2 | bes2 ees aes g |  f1.  
	f2 | g bes c' bes |  a g4( f)  bes2  
	ees'2 | d' ees' c' c' |  bes1. 
	bes2 | bes g f ees |  c'1. 
	c'2 | c' a g f |  d'1. 
	d'2 | ees'2. d'4 c'2 bes |  aes f g 
	bes2 | aes g f f | ees\breve

}

alt =  \transpose c c' {
	\voiceTwo
	bes,2 bes,4 bes,4 ees2 ees2 |  ees1. 
	ees2 | ees ees d ees |  d1. 
	d2 | ees f ees g |  ees c f 
	ees2 | f g c f |  d1. 
	d2 | ees ees d ees |  ees1. 
	e2 | f f ees ees |  d1. 
	f2 | ees ees ees ees |  ees d ees 
	ees | ees ees ees d | ees\breve 
}


ten =  {
	\voiceOne
	g2  g4 g4 g2 g2 |  aes1. 
	aes2 | bes c' aes bes |  bes1. 
	bes2 | bes bes g g  |  c' a bes 
	a2 | bes bes bes a |  bes1. 
	bes2 | bes bes aes bes |  c'1. 
	bes2 | a c' bes c' |  bes1. 
	bes2 | bes bes aes bes |  c' bes bes 
	bes c' bes bes2. aes4 | g\breve 
}

bass =  {
	\voiceTwo
	ees2 ees4 ees4 c2 c2 |  aes,1. 
	aes2 | g aes f ees |  bes,1. 
	bes,2 | ees d c ees |  f ees d 
	c2 bes, ees f f |  bes,1. 
	aes2 | g ees f g |  aes1. 
	g2 | f f g a |  bes1. 
	aes2 | g g  aes g | f bes ees 
	g,2 | aes, ees bes, bes, | ees\breve 
}

one = {
	\time 1/2\skip 2*1 | \time 4/2\skip 2*4 | \time 3/2\skip 2*3 
	\bar "||"
}
two =  {
    \time 1/2 \skip 2*1 | \time 4/2 \skip 2*4 | \skip 2*4 |
}
global = {
	\time 4/2
	\key ees \major
	\skip 2*4 |
	\time 3/2 \skip 2*3 \bar "||" |
	\one \break \one  \one \one 
	\one \break \one \two
	\bar "|."
}

% now have only one || request per staff
upperStaff = \context Staff = upper<< 
	\global
	\context Voice = "sop" \sop
	\context Voice = "alto" \alt
>>

lowerStaff = \context Staff = lower<<
	\global
	\clef "bass"
	\context Voice = "tenor" \ten
	\context Voice = "bass" \bass
>>

msusfour =  {
  < c es f g >1-\markup{ m \super 4 }
}

chExceptions = #(append
		 (sequential-music-to-chord-exceptions msusfour #t) 
		 ignatzekExceptions)


accomp=\chordmode {
  \set chordNameExceptions = #chExceptions 
	es2 es c1:m |
	as1. 
	as2 	
	es2 as d:m5- es |
	bes1.

	bes2 |
	es bes  c:m es |
	f:7  f:7/+es  bes2 |
	a:dim | bes2 es  f:sus4 f |
	bes1. 


	bes2:7 | es2 es d:dim/+f es |
	as1. 

	c2:7 |
	f f es f:7 |
	bes1.
	bes2:7 |
	es2 es4 es:7 as2 es |
	f:m7 bes es 

	es2 |
	as es bes:sus bes4 bes4:7 |
	es1*2
} 
	 
	


\score {
	\context ChoirStaff  \transpose c' c'	<<
		\context ChordNames {
		  \set ChordNames.chordChanges = ##t 
		  \accomp
		}
		\upperStaff 
		\lowerStaff
	>>
	\layout {
		%indent = 0.0 \mm
		%linewidth= 140.0\mm
		\context { 
		  \Staff \remove "Time_signature_engraver"
		}
	}
	\midi {
		\tempo 2 = 100
	}
}

