Source code(ave-rosary.ly , ave-rosary-sheet.latex , run-script.cmd)
---- ave-rosary ------------------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.12.1"
#(set-default-paper-size "a4")
#(set-global-staff-size 16)
\header {
%% dedication = " "
title = \markup{ \line { \huge\bold Ave Maria} }
subtitle = \markup{ \line {\bold 3rd \hspace #1 Movement; Ave Rosary} }
%% subsubtitle = #(string-append "LilyPond version " (lilypond-version))
subsubtitle = \markup\center-column {
"Soprano; C clef on 1st line, Alto; C clef on 3rd line."
" Bass; F clef on 4th line, Tenor; C clef on 4th line."}
composer = \markup { \italic "yukio yoshida" }
arranger = "Feb. 14, JST 2008"
poet = "Yukio Yoshida"
opus = "Op. 27, No.3"
meter = "Largo"
copyright = "public"
}
%%% soprano part %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
soprano = {
%% 1-3
\override Score.VerticalAxisGroup #'remove-first = ##t
\autoBeamOff
eis''4\melisma dis'' eis''\melismaEnd r8 gis'4 fis'8 eis'4 |
dis'4 eis'8 fis' gis'4. ais'8 bis'4 cis''4 |
gis'4 fis'8 eis'4. dis'8 cis'4 bis4. |
\break
%% 4-6
R1. * 3 |
\break
%% 7-9
\dimTextDim
eis''2^\>\melisma dis'' eis'' | eis'' dis'' eis'' | eis'' dis'' eis''\!\melismaEnd
\break
%% 10-15
R1. * 6 |
\break
%% 16-18
dis''8-. cis''-. bis'-. cis''4.-. r8 dis''4. cis''4 |
bis'8 dis''4 cis''4. eis''2. |
bis'4 cis''4 bis'8 cis''4. eis''2 |
\break
%% 19-21
eis''4\melisma dis'' eis''\melismaEnd r8 gis'4 fis'8 eis'4 |
dis'4 eis'8 fis' gis'4. ais'8 bis'4 cis''4 |
gis'4 fis'8 eis'4. dis'8 cis'4 bis4. |
\break
%% (22-24)25
R1. * 3 |
eis''2 dis'' eis'' |
\break
%% 26-29
r4 eis''2. dis''2 | eis''2 dis'' eis'' | R1. |
eis''4.^\pp\>^\markup{ \hspace #-6 \column { \bold\italic "Tutti; f.o." " " } }
eis''4 eis''4 eis''4 eis''4.\!^\pppp
\bar "|."
}
sopranoL = \lyricmode {
%% 1-3(4-6)
æ4 __ Ma4 -- ri8 -- a4. | is4 hol8 -- ding Christe4. in8 ones'4 arms.4 |
Ma4 -- ri8 --a4. was8 in4 tears.4. |
\break
%% 7-9(10-15)
æ2 __
\break
%% 16-18
Jus8 at this moment,4. Christe4. with4 |
Ma8 -- ri4 -- a's4. tears2. |
go4 back to8 the4. Source.2 |
\break
%% 19-21
æ4 __ Ma4 -- ri8 -- a4. | is4 hol8 -- ding Christe4. in8 ones'4 arms.4 |
Ma4 -- ri8 --a4. was8 in4 tears.4. |
\break
%% (22-24)25
Ma2 -- ri -- a!
\break
%% 26-29
A2. -- ve2 | Ma2 -- ri -- a! A4. -- ve4 Ma -- ri -- a!4. |
}
%%% alto part %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
alto = {
%% 1-3
\override Score.VerticalAxisGroup #'remove-first = ##t
\autoBeamOff
R1. * 3 |
\break
%% 4-6
ais'4\melisma gis' ais'\melismaEnd r8 cis'4 bis8 ais4 |
gis4 ais8 bis cis'4. dis'8 eis'4 fis'4 |
eis'4 bis8 ais4. gis8 fis4 eis4. |
\break
%% 7-9
\dimTextDim
ais'2^\>\melisma gis' ais' | ais' gis' ais' | ais' gis' ais'\!\melismaEnd |
\break
%% 10-15
R1. * 6 |
\break
%% 16-18
gis'8-. fis'-. eis'-. fis'4.-. r8 gis'4. fis'4 |
eis'8 gis'4 fis'4. ais'2. |
eis'4 fis'4 eis'8 fis'4. ais'2 |
\break
%% 19-21
ais'4\melisma gis' ais'\melismaEnd r8 cis'4 bis8 ais4 |
gis4 ais8 bis cis'4. dis'8 eis'4 fis'4 |
eis'4 bis8 ais4. gis8 fis4 eis4. |
\break
%% (22-23)24(25)
R1. * 2 |
ais'2 gis' ais' |
R1. |
\break
%% 26-29
r4 ais'2. gis'2 | ais'2 gis' ais' | R1. |
ais'4.^\pp\> ais'4 ais' ais' ais'4.\!^\pppp
\bar "|."
}
altoL = \lyricmode {
%% (1-3)4-6
æ4 __ Ma4 -- ri8 -- a4. | is4 hol8 -- ding Christe4. in8 ones'4 arms.4 |
Ma4 -- ri8 --a4. was8 in4 tears.4. |
\break
%% 7-9(10-15)
æ2 __
\break
%% 16-18
Jus8 at this moment,4. Christe4. with4 |
Ma8 -- ri4 -- a's4. tears2. |
go4 back to8 the4. Source.2 |
\break
%% 19-21
æ4 __ Ma4 -- ri8 -- a4. | is4 hol8 -- ding Christe4. in8 ones'4 arms.4 |
Ma4 -- ri8 --a4. was8 in4 tears.4. |
\break
%% (22-23)24(25)
Ma2 -- ri -- a!
\break
%% 26-29
A2. -- ve2 | Ma2 -- ri -- a! A4. -- ve4 Ma -- ri -- a!4. |
}
%%% tenor part %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
tenor = {
%% 1-3
\override Score.VerticalAxisGroup #'remove-first = ##t
\autoBeamOff
R1. * 3 |
\break
%% 4-6
R1. * 3 |
\break
%% 7-9
des'8-. ces'-. bes-. ces'4.-. r8 des'4. ces'4 |
bes8 des'4 ces'4. ees'2. |
bes4 ces'4 bes8 ces'4. ees'2 |
\break
%% 10-12
R1. * 3 |
\break
%% 13-15
aes4. ges4 aes ges aes4. | ges4 aes bes ces'2. | des'4 ees' fes' ges'2. |
\break
%% 16-18
\dimTextDim
aes2^\>\melisma ges aes | aes ges aes | aes ges aes\!\melismaEnd |
%% 19-21
aes4. ges4 aes ges aes4. | ges4 aes bes ces'2. | des'4 ees' fes' ges'2. |
\break
%% (22)23(24-25)
R1. |
aes2 ges aes |
R1. * 2 |
\break
%% 26-29
r4 aes2. ges2 | aes2 ges aes | R1. |
aes4.^\pp^\> aes4 aes aes aes4.\!^\pppp
\bar "|."
}
tenorL = \lyricmode {
%% (1-6)7-9
Jus8 at this moment,4. Christe4. and4 |
Ma8 -- ri4 -- a's4. tears2. |
go4 back to8 the4. Source.2 |
\break
%% (10-12)13-15
A4. -- ve4 Ma -- ri -- a4. | ho4 -- ld chri -- ste.2. | Ma4 -- ri -- a tears.2. |
\break
%% 16--18
ó __
\break
%% 19-21
A4. -- ve4 Ma -- ri -- a4. | ho4 -- ld chri -- ste.2. | Ma4 -- ri -- a tears.2. |
\break
%% (22)23(24-25)
Ma2 -- ri -- a!
\break
%% 26-29
A2. -- ve2 | Ma2 -- ri -- a! A4. -- ve4 Ma -- ri -- a!4. |
}
%%% bass part %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
bass = {
%% 1-3
\override Score.VerticalAxisGroup #'remove-first = ##t
\autoBeamOff
R1. * 3 |
\break
%% 4-6
R1. * 3 |
\break
%% 7-9
ges8-. fes-. ees-. fes4.-. r8 ges4. fes4 |
ees8 ges4 fes4. aes2. |
ees4 fes4 ees8 fes4. aes2 |
\break
%% 10-12
des4. ces4 des ces des4. | ces4 des ees fes2. | ges4 aes bes ces'2. |
\break
%% 13-15
R1. * 3 |
\break
%% 16-18
\dimTextDim
des2^\>\melisma ces des | des ces des | des ces des\!\melismaEnd |
\break
%% 19-21
des4. ces4 des ces des4. | ces4 des ees fes2. | ges4 aes bes ces'2. |
\break
%% 22(23-25)
des2 ces des |
R1. * 3 |
\break
%% 26-29
r4 des2. ces2 | des2 ces des | R1. |
des4.^\pp^\> des4 des des des4.\!^\pppp
\bar "|."
}
bassL = \lyricmode {
%% (1-6)7-9
Jus8 at this moment,4. Christe4. and4 |
Ma8 -- ri4 -- a's4. tears2. |
go4 back to8 the4. Source.2 |
\break
%% 10-12(13-15)
A4. -- ve4 Ma -- ri -- a4. | ho4 -- ld chri -- ste.2. | Ma4 -- ri -- a tears.2. |
\break
%% 16--18
ó __
\break
%% 19-21
A4. -- ve4 Ma -- ri -- a4. | ho4 -- ld chri -- ste.2. | Ma4 -- ri -- a tears.2. |
\break
%% 22(23-25)
Ma2 -- ri -- a!
\break
%% 26-29
A2. -- ve2 | Ma2 -- ri -- a! A4. -- ve4 Ma -- ri -- a!4. |
}
%%%% midi part %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
sopranoM = {
%% 1-3
\autoBeamOff
eis''4\melisma dis'' eis''\melismaEnd r8 gis'4 fis'8 eis'4 |
dis'4 eis'8 fis' gis'4. ais'8 bis'4 cis''4 |
gis'4 fis'8 eis'4. dis'8 cis'4 bis4. |
\break
%% 4-6
R1. * 3 |
\break
%% 7-9
eis''2\pp\melisma dis''\pp eis''\ppp |
eis''\ppp dis''\pp eis''\ppp | eis''\ppp dis''\pp eis''\p\melismaEnd
\break
%% 10-15
R1. * 6 |
\break
%% 16-18
dis''8-.\sf cis''-.\sf bis'-.\sf cis''4.-.\sf r8 dis''4. cis''4 |
bis'8 dis''4 cis''4. eis''2. |
bis'4 cis''4 bis'8 cis''4. eis''2 |
\break
%% 19-21
eis''4\melisma dis'' eis''\melismaEnd r8 gis'4 fis'8 eis'4 |
dis'4 eis'8 fis' gis'4. ais'8 bis'4 cis''4 |
gis'4 fis'8 eis'4. dis'8 cis'4 bis4. |
\break
%% (22-24)25
R1. * 3 |
eis''2 dis'' eis'' |
\break
%% 26-29
r4 eis''2. dis''2 | eis''2 dis'' eis'' | R1. |
eis''4.\pp eis''4\ppp eis''4\ppp eis''4\pppp eis''4.\pppp
\bar "|."
}
altoM = {
%% 1-3
\autoBeamOff
R1. * 3 |
%%\break
%% 4-6
ais'4\melisma gis' ais'\melismaEnd r8 cis'4 bis8 ais4 |
gis4 ais8 bis cis'4. dis'8 eis'4 fis'4 |
eis'4 bis8 ais4. gis8 fis4 eis4. |
\break
%% 7-9
ais'2\pp\melisma gis'\pp ais'\ppp |
ais'\ppp gis'\pp ais'\ppp | ais'\ppp gis'\pp ais'\p\melismaEnd |
\break
%% 10-15
R1. * 6 |
\break
%% 16-18
gis'8-. fis'-. eis'-. fis'4.-. r8 gis'4. fis'4 |
eis'8 gis'4 fis'4. ais'2. |
eis'4 fis'4 eis'8 fis'4. ais'2 |
\break
%% 19-21
ais'4\melisma gis' ais'\melismaEnd r8 cis'4 bis8 ais4 |
gis4 ais8 bis cis'4. dis'8 eis'4 fis'4 |
eis'4 bis8 ais4. gis8 fis4 eis4. |
\break
%% (22-23)24(25)
R1. * 2 |
ais'2 gis' ais' |
R1. |
\break
%% 26-29
r4 ais'2. gis'2 | ais'2 gis' ais' | R1. |
ais'4.\pp ais'4\ppp ais'\ppp ais'\pppp ais'4.\pppp
\bar "|."
}
tenorM = {
%% 1-6
R1. * 6 |
\break
%% 7-9
des'8-.\sf ces'-.\sf bes-.\sf ces'4.-.\sf r8 des'4. ces'4 |
bes8 des'4 ces'4. ees'2. |
bes4 ces'4 bes8 ces'4. ees'2 |
\break
%% 10-12
R1. * 3 |
\break
%% 13-15
aes4. ges4 aes ges aes4. | ges4 aes bes ces'2. | des'4 ees' fes' ges'2. |
\break
%% 16-18
aes2\pp\melisma ges\pp aes\ppp | aes\ppp ges\pp aes\ppp |
aes\ppp ges\pp aes\p\melismaEnd |
\break
%% 19-21
aes4. ges4 aes ges aes4. | ges4 aes bes ces'2. | des'4 ees' fes' ges'2. |
\break
%% (22)23(24-25)
R1. |
aes2 ges aes |
R1. * 2 |
\break
%% 26-29
r4 aes2. ges2 | aes2 ges aes | R1. |
aes4.\pp aes4\ppp aes\ppp aes\pppp aes4.\pppp
\bar "|."
}
bassM = {
%% 1-6
R1. * 6 |
\break
%% 7-9
ges8-.\sf fes-.\sf ees-.\sf fes4.-.\sf r8 ges4. fes4 |
ees8 ges4 fes4. aes2. |
ees4 fes4 ees8 fes4. aes2 |
\break
%% 10-12
des4. ces4 des ces des4. | ces4 des ees fes2. | ges4 aes bes ces'2. |
\break
%% 13-15
R1. * 3 |
\break
%% 16-18
des2\pp\melisma ces\pp des\ppp | des\ppp ces\pp des\ppp |
des\ppp ces\pp des\p\melismaEnd |
\break
%% 19-21
des4. ces4 des ces des4. | ces4 des ees fes2. | ges4 aes bes ces'2. |
\break
%% 22(23-25)
des2 ces des |
R1. * 3 |
\break
%% 26-29
r4 des2. ces2 | des2 ces des | R1. |
des4.\pp des4\ppp des\ppp des\pppp des4.\pppp
\bar "|."
}
%% get sheet music ---------------------------------------------------------------
\score {
<<
\context ChoirStaff = "FourPartStaffaddchorus" <<
\new Voice = "soprano" { \clef soprano \key cis\major \time 3/2
\set Staff.instrumentName = \markup { \italic "sop" }
\set Staff.shortInstrumentName = \markup {\italic "sop" }
\soprano }
\new Lyrics \lyricsto "soprano" { \sopranoL }
\new Voice = "alto" { \clef alto \key cis\major \time 3/2
\set Staff.instrumentName = \markup { \italic "alt" }
\set Staff.shortInstrumentName = \markup {\italic "alt" }
\alto }
\new Lyrics \lyricsto "alto" { \altoL }
\new Voice = "tenor" { \clef tenor \key ces\major \time 3/2
\set Staff.instrumentName = \markup { \italic "ten" }
\set Staff.shortInstrumentName = \markup {\small \italic "ten" }
\tenor }
\new Lyrics \lyricsto "tenor" { \tenorL }
\new Voice = "bass" { \clef bass \key ces\major \time 3/2
\set Staff.instrumentName = \markup { \italic "bas" }
\set Staff.shortInstrumentName = \markup {\small \italic "bas" }
\bass }
\new Lyrics \lyricsto "bass" { \bassL }
>>
%%\context PianoStaff = "PianoStaff" <<
%%\new Voice = "piano" { \clef treble \key cis\major \time 3/2
%% \set Staff.instrumentName = "piano " \pianoUP }
%%\new Voice = "piano" { \clef bass \key cis\major \time 3/2
%% \set Staff.instrumentName = "piano " \pianoDown }
%% >>
>>
\layout {
\context { \RemoveEmptyStaffContext }
}
}
%% get midi music ----------------------------------------------------------------
\score {
<<
\new Staff { \clef soprano \key cis\major \time 3/2 \tempo 4 = 40
\set Staff.midiInstrument = "pad 4 (choir)"
\unfoldRepeats \sopranoM }
\new Staff { \clef alto \key cis\major \time 3/2 \tempo 4 = 40
\set Staff.midiInstrument = "pad 4 (choir)"
\unfoldRepeats \altoM }
\new Staff { \clef tenor \key ces\major \time 3/2 \tempo 4 = 40
\set Staff.midiInstrument = "pad 4 (choir)"
\unfoldRepeats \tenorM }
\new Staff { \clef bass \key ces\major \time 3/2 \tempo 4 = 40
\set Staff.midiInstrument = "pad 4 (choir)"
\unfoldRepeats \bassM }
%%\new Staff { \clef treble \key cis\major \time 3/2 \tempo 4 = 40
%% \set Staff.midiInstrument = "acoustic grand"
%% \unfoldRepeats \pianoUPM }
%%\new Staff { \clef bass \key cis\major \time 3/2 \tempo 4 = 40
%% \set Staff.instrumentName = "acoustic grand"
%% \unfoldRepeats \pianoDownM }
>>
\midi { tempoWholesPerMinute = #(ly:make-moment 40 4) }
}
---- name ave-rosary-sheet.latex -------------------------------------------------
\documentclass{article}
\usepackage[dvips]{graphicx,color}
\definecolor{cornsilk}{rgb}{1,0.97253,0.86273}
\usepackage{geometry}
\geometry{a4paper,width=180mm,bottom=8mm,headsep=6mm,%
top=4mm,headheight=6mm,footskip=5mm,portrait}
\parindent=0pt
\pagestyle{empty}
\begin{document}
\thispagestyle{empty}
%%\pagecolor{cornsilk}
\vspace*{4pc}
\begin{center}
{\Huge Ave Maria\par
3rd movement; Rosary\par
}
{\it composer; Yukio Yoshida\par
poet; Yukio Yoshida\par
}
\end{center}
\vskip 4pc
\begin{center}
\resizebox{15cm}{!}{\includegraphics{title-last.eps}}\par
\end{center}
\begin{flushright}
phot-Location;\par
{\tt http://upload.wikimedia.org/wikipedia/commons/8/8a/Michelangelo\%27s\_Pieta\_5450\_cropncleaned.jpg}\par
bronze; [Pieta] Michelangelo di Lodovico Buonarroti Simoni(1475--1564)\par
\end{flushright}
\vfill
\newpage
\pagecolor{cornsilk}
\vspace*{-2pc}
\everypar{\hspace*{-2pc}}
\includegraphics{ave-rosary-1}\par
\includegraphics{ave-rosary-2}\par
\vfill
\end{document}
%%
%% In here, "title-last.eps" is eps of "Michelangelo%27s_Pieta_5450_cropncleaned.jpg"
%% Please download an eps file from
%% "http://upload.wikimedia.org/wikipedia/commons/8/8a/Michelangelo%27s_Pieta_5450_cropncleaned.jpg"
--- name run-script.cmd [For windows XP]------------------------------------------
del *.log *.aux *.dvi *.eps *.ps *.pdf *.png *.mid *.count *.texi *.tex
Rem From here process for %1-sheet.latex ---------------------------------
lilypond -dbackend=eps %1.ly
Rem Now runing LilyPond normally -----------------------------------------
lilypond --pdf --png %1.ly
copy title-eps\title-last.eps
latex %1-sheet.latex
dvips -P pdf %1-sheet.dvi
rem gswin32c -sDEVICE=png16m -r120 -sOutputFile=%1-sheet.png -dNOPAUSE %1-sheet.ps -c quit
gswin32c -sDEVICE=png16m -r120 -sOutputFile=%1-sheet+page%%d.png -dNOPAUSE %1-sheet.ps -c quit
call ps2pdf %1-sheet.ps
rem %1.mid | %1.png | %1-sheet.png | %1.pdf | %1-sheet.pdf
%1.mid | %1-page1.png | %1-sheet+page1.png | %1.pdf | %1-sheet.pdf
del %1-1.* *.count *.aux *.log *.dvi *.ps *.tex *.texi *.eps *.*~ *~
dir /w
----------------------------------------------------------------------------------