% "Ave Maria"
%
% Original PD source from the Mutopia project at:
% http://www.mutopiaproject.org/ftp/GounodC/AveMaria/AveMaria.ly
% (Seemed to need significant modification to work with newer LilyPad.)
%
% Transposed and shakuhachi 1.8 fingering added.
%
% This is public domain music.  If you do something interesting
% with the shakuhachi side of it, please please send me a copy
% (dstone -at- verrus -dot- com) and keep the revision history up to date!
% 
% Revision history:
% 2006-11-20  Darren Stone  Heavy mods to Mutopia version & added shakuhachi
lastRevDate = "2006-11-20"
% *** keep lastRevDate 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
shakuRoDaiMeriOtsu = _\markup \center-align { \typewriter 1a }
shakuRoOtsu = _\markup \center-align { \typewriter 1c }
shakuTsuOtsu = _\markup \center-align { \typewriter 1f }
shakuReOtsu = _\markup \center-align { \typewriter 1i }
shakuChiOtsu = _\markup \center-align { \typewriter 1o }
shakuRoKan = _\markup \center-align { \typewriter 2c }
shakuTsuChuMeriKan = _\markup \center-align { \typewriter 2e }
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 { "Ave Maria" }
		subtitle = "Meditation on the First Prelude of J. S. Bach"
		composer =  \markup { \right-align \center-align { "Charles Gounod" \smaller "(1818-1893)"} }
		piece = "moderato" 
		opus = ""
		tagline = \markup \with-url #"http://bitmason.com/shaku/sheet" { \smaller \smaller \smaller
			{ "Public domain. Original from http://mutopiaproject.org, this version" \lastRevDate "from http://bitmason.com/shaku/sheet" } }
  	}

	\score { <<
		\relative c' {
			\time 4/4
			\clef treble
			\key f \major
			%\property Score.skipBars = ##t
			%^\markup \bold \bigger "4" 
			\once \override TextScript #'padding = #3.0
			r1_\markup { \right-align \small shakuhachi \smaller "1.8" } |
			
			\override TextScript #'padding = #3.0

			a'1-\pp_\shakuChiOtsu
			bes2._\shakuRiMeri
			r8 
			bes8_\shakuRiMeri
			c2._\shakuRoKan
			g4_\shakuReOtsu
			a2_\shakuChi
			(a8_\shakuChi) 
			r8
			r4 
			d2_\shakuRoKan(\<
			d8_\shakuRo) \! 
			d,8_\shakuRoOtsu
			e8_\shakuTsuChuMeri
			f8_\shakuTsu
			\break

			g4.-\pp_\shakuRe 
			a8_\shakuChi
			g4_\shakuRe r4 
			c2_\shakuRi (\< 
			c8_\shakuRi) \! 
			c,8_\shakuRoDaiMeriOtsu 
			d8_\shakuRo
			e8_\shakuTsuChuMeri |
			f4.-\pp_\shakuTsu
			g8_\shakuRe 
			f4_\shakuTsu
			r4
			f'2_\shakuTsuKan  (\< 
			f8_\shakuTsu) \! 
			\once \override TextScript #'padding = #4.6
			f,8_\shakuTsuOtsu 
			\once \override TextScript #'padding = #3.6
			g8_\shakuRe 
			a8_\shakuChi
			b4._\shakuRiChuMeri 
			a8_\shakuChi
			g4_\shakuRe \> 
			d4_\shakuRo \!
			\break

			e2-\p_\shakuTsuChuMeri r4 
			g4_\shakuRe

			a2_\shakuChi 
			(\< a8_\shakuChi) \! 
			a8_\shakuChi 
			bes8_\shakuRiMeri 
			c8_\shakuRi | 
			d4.._\shakuRoKan 
			d,16_\shakuRoOtsu 
			d4_\shakuRo r4 |
			g2_\shakuRe
			(\< g8_\shakuRe) \! 
			g8_\shakuRe 
			a8_\shakuChi 
			bes8_\shakuRiMeri | 
			c2-\p_\shakuRi
			c,4_\shakuRoDaiMeri
			r4 |
			\break

			f2_\shakuTsu
			(f8_\shakuTsu) 
			f8_\shakuTsu \< 
			g8_\shakuRe 
			a8_\shakuChi 
			bes2_\shakuRiMeri
			(bes8_\shakuRiMeri) 
			bes8_\shakuRiMeri 
			c8_\shakuRi
			d8_\shakuI | 
			e4._\shakuTsuChuMeriKan \! 
			d8_\shakuRo 
			c4_\shakuRi \> 
			g4_\shakuRe \! |
			a2_\shakuChi
			(-\p a8_\shakuChi) r8 r4 
			c2_\shakuRi 
			a4.._\shakuChi 
			a16_\shakuChi |

			d2_\shakuRoKan 
			d,4_\shakuRoOtsu r4 
			\break

			d'2_\shakuRoKan \< 
			f,4.._\shakuTsuOtsu 
			d'16_\shakuRoKan | 
			f2_\shakuTsuKan 
			aes,4_\shakuU r8. 
			f'16_\shakuTsuKan | 
			f2_\shakuTsu \! 
			g,4_\shakuReOtsu r4 | 
			g2_\shakuRe
			(-\pp g8_\shakuRe) 
			g8_\shakuRe 
			f8_\shakuTsu 
			e8_\shakuTsuChuMeri |

			c'4._\shakuRi 
			a8_\shakuChi 
			f4_\shakuTsu r4 
			\break

			bes2_\shakuRiMeri
			(\< bes8_\shakuRiMeri) 
			bes8_\shakuRiMeri 
			a8_\shakuChi 
			g8_\shakuRe | 
			g'4._\shakuReKan 
			e8_\shakuTsuChuMeri 
			c4_\shakuRi r4 | 
			d2_\shakuRo
			(d8_\shakuRo)
			d8_\shakuRo 
			\once \override TextScript #'padding = #3.6
			e8_\shakuTsuChuMeri 
			\once \override TextScript #'padding = #3.6
			f8_\shakuTsu \! | 
			\once \override TextScript #'padding = #4.6
			a2_\shakuChi
			(-\ff a8_\shakuChi) 
			f8_\shakuTsu 
			c8_\shakuRi 
			a8_\shakuChi |

			g2_\shakuRe
			(g8_\shakuRe) 
			d'8_\shakuRoKan 
			e8_\shakuTsuChuMeri 
			d8_\shakuRo | 
			\break

			c8_\shakuRi 
			g'8_\shakuReKan 
			e8_\shakuTsuChuMeri 
			c8_\shakuRi 
			bes8_\shakuRiMeri 
			g8_\shakuRe 
			e8_\shakuTsuChuMeri 
			c8_\shakuRoDaiMeri 

			f1_\shakuTsu \> 
			f2_\shakuTsu \! r2
			c'1-\p_\shakuRi 
			c2._\shakuRi 
			r4 r1
			\bar "|."
		}

	>> } % score
} % book