% "What Child Is This?"
%
% Christmas carol notated for melody in B-flat major
% with lyrics, chords, and shakuhachi 1.8 fingering.
%
% For free distribution.  Have fun.  This is dedicated back
% to the public domain.  If you correct or improve
% something, please send me a copy (dstone -at- verrus -dot- com) 
% and keep the revision history up to date!
% 
% Revision history:
% 2006-12-16  Darren Stone  Created in A-flat, from original in G.
% 2006-12-17  Darren Stone  Transposed up again, from A-flat to B-flat major for better fingering
% 2006-12-21  Darren Stone  Corrected B-flats to be shakuhachi RiMeri & completely wrong note in measure 5
lastRevDate = "2006-12-21"
% ** keep lastRevDate (above) updated with latest revision date

\version "2.6.3"

#(ly:set-option 'point-and-click #f)

% -- convenience definitions for ShakuhachiNotation.ttf --
% notes
shakuRoDaiMeri = _\markup \center-align { \typewriter a }
shakuRoMeri = _\markup \center-align { \typewriter b }
shakuRo = _\markup \center-align { \typewriter c }
shakuTsuMeri = _\markup \center-align { \typewriter d }
shakuTsuChuMeri = _\markup \center-align { \typewriter e }
shakuTsu = _\markup \center-align { \typewriter f }
shakuReMeri = _\markup \center-align { \typewriter g }
shakuReChuMeri = _\markup \center-align { \typewriter h }
shakuRe = _\markup \center-align { \typewriter i }
shakuUMeri = _\markup \center-align { \typewriter j }
shakuU = _\markup \center-align { \typewriter k }
shakuSanNoUMeri = _\markup \center-align { \typewriter l }
shakuSanNoU = _\markup \center-align { \typewriter m }
shakuChiMeri = _\markup \center-align { \typewriter n }
shakuChi = _\markup \center-align { \typewriter o }
shakuRiMeri = _\markup \center-align { \typewriter p }
shakuRiChuMeri = _\markup \center-align { \typewriter q }
shakuRi = _\markup \center-align { \typewriter r }
shakuHa = _\markup \center-align { \typewriter s }
shakuGoNoHa = _\markup \center-align { \typewriter t }
shakuNiNoHa = _\markup \center-align { \typewriter u }
shakuRa = _\markup \center-align { \typewriter v }
shakuIMeri = _\markup \center-align { \typewriter w }
shakuI = _\markup \center-align { \typewriter x }
shakuA = _\markup \center-align { \typewriter y }
shakuZ = _\markup \center-align { \typewriter z }
shakuHiMeri = _\markup \center-align { \typewriter A }
shakuHiChuMeri = _\markup \center-align { \typewriter B }
shakuYonNoHi = _\markup \center-align { \typewriter C }
shakuHi = _\markup \center-align { \typewriter D }
% registers
shakuOtsu = _\markup \center-align { \typewriter 1 }
shakuKan = _\markup \center-align { \typewriter 2 }
% notes with explicit register
shakuRoOtsu = _\markup \center-align { \typewriter 1c }
shakuTsuOtsu = _\markup \center-align { \typewriter 1f }
shakuReOtsu = _\markup \center-align { \typewriter 1i }
shakuRoKan = _\markup \center-align { \typewriter 2c }
shakuTsuKan = _\markup \center-align { \typewriter 2f }
shakuReKan = _\markup \center-align { \typewriter 2i }

% change "PAPER-SIZE" to "letter" or "a4" or whatever you need
#(set-default-paper-size "PAPER-SIZE")

\paper  {
	myStaffSize = #20

	% text font is a casual font, seems to go well with the kana
	% the shakuhachi notation font is available at http://bitmason.com/shaku/font
	#(define fonts
		(make-pango-font-tree 
			"TSCu_Comic" 
        		"TSCu_Comic"
        		"ShakuhachiNotation"
		        (/ myStaffSize 20)))
}

\book {
	\header {
		title = \markup \bold \center-align { "What Child Is This?" }
		poet = \markup { \left-align \center-align  {"William C. Dix" \smaller "(1837-1898)"} }
		composer =  \markup { \right-align \center-align { "To the tune of \"Greensleeves\""} }
		tagline = \markup \with-url #"http://bitmason.com/shaku/sheet" { \smaller \smaller \smaller
			{ "Public domain. Revision" \lastRevDate "from http://bitmason.com/shaku/sheet" } }
  	}

	% transposed from G major to B-flat major for shakuhachi

	\score { <<
		\transpose g bes
		\new ChordNames  \chords {
			\time 6/8
			\autoBeamOff
			%\override ChordName #'font-size = #-0.5
			s2 s8 e8:m r4 d8 g8. r8. d4 r2 e4:m r8 a8.:m r8. b4. r4 e8:m
			r4 d8 g8. r8. d4 r2 e8.:m r16 a8:m7 b8. r8. e4.:m r4.
			b4.:m g8. r8. d4 r2 e4:m r8 a8.:m r8. b4 r2
			b4.:m g8. r8. d4 r2 e8.:m r16 a8:m7 b8. r8. e4.:m
		}

		\relative { 
			\time 6/8
			\key bes \major
			\autoBeamOff
			\clef treble
	
			\transpose g bes' {
				s2_\markup { \right-align \small shakuhachi \smaller "1.8" }
				s8
				e8_\shakuReOtsu
				g4_\shakuRiMeri
				a8_\shakuRi
				b8._\shakuRo
				[(c'16_\shakuTsuMeri)]
				b8_\shakuRo
				a4_\shakuRi
				fis8_\shakuChi
				\once \override TextScript #'padding = #0.85
				d8._\shakuTsu
				[(
				\once \override TextScript #'padding = #1.5
				e16_\shakuRe)]
				fis8_\shakuChi
				g4_\shakuRiMeri
				e8_\shakuRe
				\once \override TextScript #'padding = #0.85
				e8._\shakuRe
				[(
				\once \override TextScript #'padding = #1.5
				dis16_\shakuReChuMeri)]
				e8_\shakuRe
				fis4._\shakuChi
				b,8_\shakuRo
				r8
				e8_\shakuRe
				\break

				g4_\shakuRiMeri
				a8_\shakuRi
				b8._\shakuRo
				[(c'16_\shakuTsuMeri)]
				b8_\shakuRo
				a4_\shakuRi
				fis8_\shakuChi
				\once \override TextScript #'padding = #0.85
				d8._\shakuTsu
				[(
				\once \override TextScript #'padding = #1.5
				e16_\shakuRe)]
				fis8_\shakuChi
				g8._\shakuRiMeri
				[(fis16_\shakuChi)]
				e8_\shakuRe
				\once \override TextScript #'padding = #0.85
				dis8._\shakuReChuMeri
				[(
				\once \override TextScript #'padding = #1.5
				cis16_\shakuTsuChuMeri)]
				dis8_\shakuReChuMeri
				e4._\shakuRe
				e4_\shakuRe
				r8
				\bar "||"

				d'4._\shakuTsuKan
				d'8._\shakuTsu
				[(c'16_\shakuTsuMeri)]
				b8_\shakuRo
				a4_\shakuRi
				fis8_\shakuChi
				\once \override TextScript #'padding = #0.85
				d8._\shakuTsu
				[(
				\once \override TextScript #'padding = #1.5
				e16_\shakuRe)]
				fis8_\shakuChi
				g4_\shakuRiMeri
				e8_\shakuRe
				\once \override TextScript #'padding = #0.85
				e8._\shakuRe
				[(
				\once \override TextScript #'padding = #1.5
				dis16_\shakuReChuMeri)]
				e8_\shakuRe
				fis4_\shakuChi
				dis8_\shakuReChuMeri
				b,4_\shakuRo
				r8
				\break

				d'4._\shakuTsuKan
				d'8._\shakuTsu
				[(c'16_\shakuTsuMeri)]
				b8_\shakuRo
				a4_\shakuRi
				fis8_\shakuChi
				\once \override TextScript #'padding = #0.85
				d8._\shakuTsu
				[(
				\once \override TextScript #'padding = #1.5
				e16_\shakuRe)]
				fis8_\shakuChi
				g8._\shakuRiMeri
				[(fis16_\shakuChi)]
				e8_\shakuRe
				\once \override TextScript #'padding = #0.85
				dis8._\shakuReChuMeri
				[(
				\once \override TextScript #'padding = #1.5
				cis16_\shakuTsuChuMeri)]
				dis8_\shakuReChuMeri
				e4._\shakuRe
				e4_\shakuRe
				
				\bar "|." 
			} % transpose
		}

		\addlyrics { \set ignoreMelismata = ##t \set stanza = "1." 
			What child is this \skip8 who, laid to rest, \skip8 on Ma -- ry's lap \skip8 is sleep -- ing? Whom
			ang -- gels greet \skip8 with an -- thems sweet \skip8 while shep -- \skip8 herds watch \skip8 are keep -- ing?
			This, this \skip8 is Christ the King \skip8 whom shep -- herds guard \skip8 and ang -- gels sing.
			Haste, haste, \skip8 to bring Him laud, \skip8 the Babe, \skip8 the Son \skip8 of Ma -- ry.
		}

		\addlyrics { \set ignoreMelismata = ##t \set stanza = "2." 
			Why lies He in \skip8 such mean es -- tate \skip8 where ox and ass \skip8 are feed -- ing? Good
			Chris -- tian, fear, \skip8 for sin -- ners here \skip8 the si -- \skip8 lent Word \skip 8 is plead -- ing.
			Nails, spear \skip8 shall pierce Him through, \skip8 the cross be borne \skip8 for me, for you.
			Hail, hail \skip8 the Word made flesh, \skip8 the Babe, \skip8 the Son \skip8 of Ma -- ry.  
 		}

		\addlyrics { \set ignoreMelismata = ##t \set stanza = "3." 
			So bring Him in -- \skip8 cense, gold and myrrh, \skip8 come peas -- ant, king \skip8 to own Him.
			The King of kings \skip8  sal -- va -- tion brings, \skip8 let lov -- \skip8 ing hearts \skip8 en -- throne Him.
			Raise, raise \skip8 a song on high, \skip8 the vir -- gin sings \skip8 her lull -- a -- by.
			Joy, joy \skip8 for Christ is born, \skip8 the Babe, \skip8 the Son \skip8 of Ma -- ry.
		}
	
	>> } % score
} % book