\include "predefined-guitar-fretboards.ly"

\header
{
	title = "Shout to the North"
	composer = "Martin Smith"
	tagline = "© (c) 1995 Curious? Music"
}

popChordsMusic = 
{ 

        <c d e g>-\markup { \super "add2" } 
	<c e f g>-\markup { \super "add4" } 
	
}
popChordsAdd = #(append 
         (sequential-music-to-chord-exceptions popChordsMusic #t) 
         ignatzekExceptions) 
	 
\score 
{
	\layout 
	{
		\context 
		{
			\Score
			\override SpacingSpanner
				#'base-shortest-duration = #(ly:make-moment 1 16)
		}
	}

	intro = \relative 
	{ 
	
		r2.| 
		r2.|
		r2.|
	}
	
	verse = \relative 
	{ 
	
		r4. r8 d8\( e8 | fis4 a,8 e'4 cis8 | d4.\) r8 d8\( e8 |
		fis4 a,8 e'4 cis8 | d4.\) r8 d8\( e8 | fis4 a,8 e'4 cis8 | d4.\) 
		r8 d8\( e8 | fis4 a,8 e'4 fis8 | e16 ~ d8. ~ d8 ~ d4. \)
	}

	chorus = \relative 
	{ 
		a'4.\( a4 d,8 | g8 g8 fis8 e4.\) | a4.\( a4 d,8 | g8 g8 fis8 e4.\) | a4.\( a4 d,8 | g8 g8 fis8 e4.\) | g4\( fis8 e16 d8. e8 | d2.\) |
		
	}
	
	song = 
	{
		\clef treble
		\key d \major
		\time 6/8

		\new Voice = "intro" {\intro}
		\new Voice = "verse" {\verse}
		\new Voice = "chorus" {\chorus}
	}
	
	lyrVerseOne = \lyricmode 
	{
		 \set stanza = "1. "
		 \set associatedVoice = #"verse"
		 
		Men of faith, rise up and sing
		of the great and glo -- rious King.
		You are strong when you feel weak 
		in your bro -- ken -- ness com -- plete __
	}
	
	lyrVerseTwo = \lyricmode 
	{
		 \set stanza = "2. "
		 \set associatedVoice = #"verse"
		 
		Rise up wo -- men of the truth, 
		stand and sing to bro -- ken hearts 
		who can know the hea -- ling pow'r 
		of our awe -- some King of love __
	}
	
	lyrVerseThree = \lyricmode 
	{
		 \set stanza = "3. "
		 \set associatedVoice = #"verse"
		 
		Rise up church with bro -- ken wings, 
		fill this place with songs a -- gain 
		of our God who reigns on high. 
		By His grace a -- gain we'll fly __
	}
	
	lyrChorus = \lyricmode 
	{
		 \set associatedVoice = #"chorus"
		 
		Shout to the north and the south, 
		sing to the east and the west, 
		Je -- sus is Sav -- ior to all, 
		Lord of heav -- en and earth.
	}
    
	MusicChords = \transpose c c'
	{
		\chordmode
		{
			\set chordNameExceptions = #popChordsAdd
			 \override SeparatingGroupSpanner #'padding = #'2.0
		
			% intro
			d2. | d2.:sus4 | d2. | d2.:sus4| 
			
			% verse
			d4. a4. | g2. |
			d4. a4. | g2. |
			d4. a4. | g2. |
			d4. a4. | g2. |
			
			% chorus
			d2. | g4. a4.|
			d2. | g4. a4.|
			b2.:m7 | g4. a4.|
			g4. a4. | d2.
		}
	}
     
     	<< 
		\new ChordNames \MusicChords
		\new Voice = "song" { \song }
		\new Lyrics \lyricsto "chorus"   \lyrChorus
		\new Lyrics \lyricsto "verse"    \lyrVerseOne
		\new Lyrics \lyricsto "verse"    \lyrVerseTwo
		\new Lyrics \lyricsto "verse"    \lyrVerseThree
	>>
	
}

% Chord Dictionary

mychords = \chordmode
{
	d1 d:sus4 a g b:m7
}

\storePredefinedDiagram \chordmode { b:m7 }
                        #guitar-tuning
                        #"x;2-1;o;2-2;o;2-3;"
			
\storePredefinedDiagram \chordmode { d:sus4 }
                        #guitar-tuning
                        #"x;x;o;2-1;3-2;3-4;"

<<
  \context ChordNames 
  {
	{
		\mychords
	}
  }
  
\context FretBoards
  {
	{
		\mychords
	}
  }
>>

\version "2.10.0"  % necessary for upgrading to future LilyPond versions.