Source code(ave-annunciation.ly , ave-annunciation-sheet.latex , run-script.cmd)
---- ave-annunciation.ly ---------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.12.1"
#(set-default-paper-size "a4")
#(set-global-staff-size 17)
\header {
dedication =
"The Source send a messenger angel;GAVURIERU to Ave Maria's left side of Nazareth"
title = \markup{ \line { \huge\bold Ave Maria} }
subtitle = \markup{ \line {\bold 1st \hspace #1 Movement; The Annunciation} }
%% 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 = "Fri. 01, JST 2008"
poet = "Yukio Yoshida"
opus = "Op. 27, No.1"
meter = "Largo"
copyright = "public"
}
%%%%%%%%% soprano part %%%%%%%%%%%%%%%%%%%%%
soprano = {
%% 1-
\autoBeamOff
\repeat volta 2 { e''2^\<\melisma cis''4.. d''2\!^\pp\melismaEnd r16 | }
\repeat volta 2 { c''8 e''2. d''2 r8 | }
g'8 a'4. fis'16 a'4.. cis''2 |
\break
%% -5
e'4 e' a'8 a'4. e'4 a'8 a' | d''2 e''4. fis''2 r8 |
%% 6-7(8)
\new Voice = "sopranoTwo" \repeat volta 2 { c''8 e''2. d''2 r8 | } a'2 cis''1 |
\break
%% 8-9
R1. | R1. |
\break
%% 10-11
\stemDown
fis'16-. fis'8-. e'8-. r16 cis'8\( d'8.
e'16\melisma d'16 cis' d'\melismaEnd e' r16 g'4..\) |
\transpose c f {
fis'16-. fis'8-. e'8-. r16 cis'8\( d'8.
e'16\melisma d'16 cis' d'\melismaEnd e' r16 g'4..\) | }
\break
%% 12-15
R1. | R1. | R1. | e''4.-. e''4-. e''-. e''-. e''4.-. |
\break
%% 16-19
r4 e''2. e''2 | r16 e''4.. e''4 e''2. | R1. |
e''4.^\pp\>^\markup{ \hspace #-6 \column { \bold\italic "Tutti; f.o." " " } }
e''4 e'' e'' e''4.\!\pppp
\bar "|."
}
sopranoL = \lyricmode {
%% 1-
æ2 __ | Ma8 -- ri2. -- a!2 |
was8 telling4. and16 Received4.. That2 |
\break
%% -5
frám4 SOURCE,4 To8 redeem4. people!4 To8 the8 | Lord's2 Bir4. -- th!2 |
%% 6-7(8)
received2 That.1 |
%% 8-9 R1.*2
%% 10-11
So16 this8 time!8 She8 accepted8. Je16 __ sus's16 birth!4.. |
So16 this8 time!8 She8 accepted8. Je16 __ sus's16 birth!4.. |
\break
%% 12-15
A4. -- ve4 Ma -- ri -- a!4.
%% 16-19
A2. -- ve2 Ma4.. -- ri4 -- a!2. A4. -- ve4 Ma -- ri -- a!4. |
}
sopranoLROne = \lyricmode { Ma8 -- ri2. -- a!2 }
sopranoLRTwo = \lyricmode { æ8 __ _ }
%%%%%%%%%% alto part %%%%%%%%%%%%%%%%%%%%%%
alto = {
%% 1-
\autoBeamOff
\repeat volta 2 { a'2^\<\melisma fis'4.. g'2\!^\pp\melismaEnd r16 | }
\repeat volta2 { f'8 a'2. g'2 r8 | }
a8 b4. g16 b4.. d'2 |
\break
%% -5
fis4 fis4 b8 b4. fis4 b8 b | e'2 fis'4. g'2 r8 |
%% 6-7(8)
\new Voice = "altoTwo" \repeat volta2 { f'8 a'2. g'2 r8 | } b2 d'1 |
\break
%% 8-9
R1. | R1. |
\break
%% 10-11
\transpose c f, {
fis'16-. fis'8-. e'8-. r16 cis'8\( d'8.
e'16\melisma d'16 cis' d'\melismaEnd e' r16 g'4..\) | }
fis'16-. fis'8-. e'8-. r16 cis'8\( d'8.
e'16\melisma d'16 cis' d'\melismaEnd e' r16 g'4..\) |
\break
%% 12-15
R1. | R1. | a'4.-. a'4-. a'4-. a'-. a'4.-. | R1. |
\break
%% 16-19
r4 a'2. a'2 | r16 a'4.. a'4 a'2. | R1. |
a'4.^\pp\> a'4 a' a' a'4.\!\pppp \bar "|."
}
altoL = \lyricmode {
%% 1-3(5)
æ2 __ | Ma8 -- ri2. -- a!2 |
was8 telling4. and16 Received4.. That2 |
\break
%% -5
frám4 SOURCE,4 To8 redeem4. people!4 To8 the8 | Lord's2 Bir4. -- th!2 |
%% 6-7(8)
received2 That.1 |
%% 8-9 R1.*2
%% 10-11
So16 this8 time!8 She8 accepted8. Je16 __ sus's16 birth!4.. |
So16 this8 time!8 She8 accepted8. Je16 __ sus's16 birth!4.. |
\break
%% 12-15
A4. -- ve4 Ma4 -- ri4 -- a!4.
\break
%% 16-19
A2. -- ve2 Ma4.. -- ri4 -- a!2. A4. -- ve4 Ma4 -- ri4 -- a!4. |
}
altoLROne = \lyricmode { Ma8 -- ri2. -- a!2 }
altoLRTwo = \lyricmode { æ8 __ _ }
%%%%%%%% tenor part %%%%%%%%%%%%%%%%%%%%%%%
tenor = {
%% 1-3(5)
\autoBeamOff
\repeat volta 2 { d'8-. cis'-. b-. cis'4-. r8 d'8^\( cis' b8. cis'4\) r16 | }
\repeat volta 2 { \dimTextDim bes8^\> d'2. cis'2\! r8 | }
a8 b4. g16 b4.. d'2 |
\break
%% -5
fis4 fis4 b8 b4. fis4 b8 b | e'2 fis'4. g'2 r8 |
%% 6-7(8)
\new Voice = "tenorTwo" \repeat volta 2 { \dimTextDim bes8^\> d'2. cis'2\! r8 | }
b2^\< d'1\!^\pp |
\break
%% 8-9
\transpose c c' {
d16-. d8-. cis8-. r16 b,8^\( cis8. d16 cis16 b, cis d e16 fis4..\) | }
\transpose c f' {
d16-. d8-. cis8-. r16 b,8^\( cis8. d16 cis16 b, cis d e16 fis4..\) | }
\break
%% 10-11
R1. | R1. |
\break
%% 12-15
R1. | d'4.-. d'4-. d'-. d'-. d'4.-. | R1. | R1.|
\break
%% 16-19
r4 d'2. d'2 | r16 d'4.. d'4 d'2. | R1. |
d'4.\pp^\> d'4 d' d' d'4.\pppp\! \bar "|."
}
tenorL = \lyricmode {
%% 1
Just8 at8 this8 moment!4 That8 was8 tell8.-- ing4 | óu __ _ _ |
%% 3
was8 telling4. and16 Received4.. That2 |
\break
%% 4-5
frám4 SOURCE,4 To8 redeem4. people!4 To8 the8 | Lord's2 Bir4. -- th!2 |
%% 6-7(8)
received2 That.1 |
\break
%%8-
So16 this time8 she8 received8. to16 the con -- cep -- tion of Jesus. |
So16 this time8 she8 received8. to16 the con -- cep -- tion of Jesus. |
\break
%% 10-11
%% R1 * 2 |
%%\break
%% 12-15
A4. -- ve4 Ma4 -- ri4 -- a!4.
\break
%% 16-19
A2. -- ve2 Ma4.. -- ri4 -- a!2. A4. -- ve4 Ma4 -- ri4 -- a!4. |
}
tenorLR = \lyricmode {
%% 2Repeat-part
Fró8 -- m8 the8 Source4 to8 Ma8 -- ri8. -- a!4 | Ma8 -- ri2. -- a!2 |
}
tenorLROne = \lyricmode { óu __ _ _ }
tenorLRTwo = \lyricmode { Ma8 -- ri2. -- a!2 }
%%%%%%% bass; part %%%%%%%%%%%%%%%%
bass = {
%% 1-3(5)
\autoBeamOff
\repeat volta 2 { d8-. cis-. b,-. cis4-. r8 d8^\( cis b,8. cis4\) r16 | }
\repeat volta 2 { \dimTextDim bes,8^\> d2. cis2\! r8 | }
e8 fis4. d16 fis4.. a2 |
\break
%% -5
cis4 cis fis8 fis4. cis4 fis8 fis | b2 cis'4. d'2 r8 |
%% 6-7(8)
\new Voice = "bassTwo" \repeat volta 2 { \dimTextDim bes,8^\> d2. cis2\! r8 | }
fis2^\< a1\!^\pp |
\break
%% 8-9
\stemDown
d16-. d8-. cis8-. r16 b,8^\( cis8. d16 cis16 b, cis d e16 fis4..\) |
\transpose c f {
d16-. d8-. cis8-. r16 b,8^\( cis8. d16 cis16 b, cis d e16 fis4..\) | }
\break
%% 10-11
R1. | R1. |
\break
%% 12-15
d4.-. d4-. d-. d-. d4.-. | R1. | R1. | R1. |
\break
%% 16-19
r4 d2. d2 | r16 d4.. d4 d2. | R1. |
d4.\pp^\> d4 d d d4.\pppp\! \bar "|."
}
bassL = \lyricmode {
%% 1
Just8 at8 this8 moment!4 That8 was8 tell8.-- ing4 | óu __ _ _ |
%% 3
was8 telling4. and16 Received4.. That2 |
\break
%% 4-5
frám4 SOURCE,4 To8 redeem4. people!4 To8 the8 | Lord's2 Bir4. -- th!2 |
%% 6-7(8)
received2 That.1 |
\break
%% 8-9
So16 this time8 she8 received8. to16 the con -- cep -- tion of Jesus. |
So16 this time8 she8 received8. to16 the con -- cep -- tion of Jesus. |
\break
%% 10-11
%% R1 * 2 |
%%\break
%% 12-15
A4. -- ve4 Ma4 -- ri4 -- a!4.
\break
%% 16-19
A2. -- ve2 Ma4.. -- ri4 -- a!2. A4. -- ve4 Ma4 -- ri4 -- a!4. |
}
bassLR = \lyricmode {
%% 2Repeat-part
Fró8 -- m8 the8 Source4 to8 Ma8 -- ri8. -- a!4 | Ma8 -- ri2. -- a!2 |
}
bassLROne = \lyricmode { óu __ _ _ }
bassLRTwo = \lyricmode { Ma8 -- ri2. -- a!2 }
%%%%%%%%%% midi music code part %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
sopranoM = {
%% 1-
\autoBeamOff
\repeat volta 2 {
e''2\pppp cis''4..\ppp d''2\ppp r16 | }
\repeat volta 2 { c''8 e''2. d''2 r8 | }
e'8 fis'4. d'16 fis'4.. a'2 |
\break
%% -5
cis'4 cis'4 fis'8 fis'4. cis'4 fis'8 fis' | b'2 cis''4. d''2 r8 |
%%6-7(8)
\repeat volta 2 { c''8 e''2. d''2 r8 | } fis'2 a'1 |
\break
%% 8-9
R1. | R1. |
\break
%% 10-11
fis'16-. fis'8-. e'8-. r16 cis'8\( d'8. e'16 d'16 cis' d' e' r16 g'4..\) |
\transpose c c' {
fis'16-. fis'8-. e'8-. r16 cis'8\( d'8. e'16 d'16 cis' d' e' r16 g'4..\) | }
\break
%% 12-15
R1. | R1. | R1. | e''4.-. e''4-. e''-. e''-. e''4.-. |
\break
%% 16-19
r4 e''2. e''2 | r16 e''4.. e''4 e''2. | R1. |
e''4.\ppp e''4 e''\pppp e'' e''4.\pppp \bar "|."
}
altoM = {
%% 1-
\autoBeamOff
\repeat volta 2 {
a'2\pppp fis'4..\ppp g'2\ppp r16 | }
\repeat volta2 { f'8 a'2. g'2 r8 | }
a8 b4. g16 b4.. d'2 |
\break
%% -5
fis4 fis4 b8 b4. fis4 b8 b | e'2 fis'4. g'2 r8 |
%% 6-7(8)
\repeat volta2 { f'8 a'2. g'2 r8 | } b2 d'1 |
\break
%% 8-9
R1. | R1. |
\break
%% 10-11
\transpose c c' {
fis'16-. fis'8-. e'8-. r16 cis'8\( d'8. e'16 d'16 cis' d' e' r16 g'4..\) | }
fis'16-. fis'8-. e'8-. r16 cis'8\( d'8. e'16 d'16 cis' d' e' r16 g'4..\) |
\break
%% 12-15
R1. | R1. | a'4.-. a'4-. a'4-. a'-. a'4.-. | R1. |
\break
%% 16-19
r4 a'2. a'2 | r16 a'4.. a'4 a'2. | R1. |
a'4.\ppp a'4 a'\pppp a' a'4.\pppp \bar "|."
}
tenorM = {
%% 1-
\autoBeamOff
\repeat volta 2 { d'8-.\sf cis'-.\sf b-.\sf cis'4-.\sf r8 d'8\mp cis'\p b8.\p cis'4\pp r16 | }
\repeat volta 2 { b8\pppp d'2.\pppp cis'2\pppp r8 | }
a8 b4. g16 b4.. d'2 |
\break
%% -5
fis4 fis4 b8 b4. fis4 b8 b | e'2 fis'4. g'2 r8 |
%% 6-7(8)
\repeat volta 2 { b8\pppp d'2.\pppp cis'2\pppp r8 | } b2\ppp d'1\pp |
\break
%% 8-9
\transpose c c' {
d8-. d16-. cis8-. r16 b,8^\( cis8. d16 cis16 b, cis d e16 fis4..\) | }
\transpose c f' {
d8-. d16-. cis8-. r16 b,8^\( cis8. d16 cis16 b, cis d e16 fis4..\) | }
\break
%% 10-11
R1. | R1. |
\break
%% 12-15
R1. | d'4.-. d'4-. d'-. d'-. d'4.-. | R1. | R1.|
\break
%% 16-19
r4 d'2. d'2 | r16 d'4.. d'4 d'2. | R1. |
d'4.\ppp d'4 d'\pppp d' d'4.\pppp \bar "|."
}
bassM = {
%% 1-
\autoBeamOff
\repeat volta 2 { d8-.\sf cis-.\sf b,-.\sf cis4-.\sf r8 d8\mp cis\p b,8.\p cis4\pp r16 | }
\repeat volta 2 { b,8\pppp d2.\pppp cis2\pppp r8 | }
e8 fis4. d16 fis4.. a2 |
\break
%% -5
cis4 cis fis8 fis4. cis4 fis8 fis | b2 cis'4. d'2 r8 |
%% 6-7(8)
\repeat volta 2 { bes,8\pppp d2.\pppp cis2\pppp r8 | } fis2\ppp a1\pp |
\break
%% 8-9
d16\sf-. d8-. cis8-. r16 b,8 cis8. d16 cis16 b, cis d e16 fis4..\ff |
\transpose c f {
d16\sf-. d8-. cis8-. r16 b,8^\( cis8. d16 cis16 b, cis d e16 fis4..\ff\) | }
\break
%% 10-11
R1. | R1. |
\break
%% 12-15
d4.-. d4-. d-. d-. d4.-. | R1. | R1. | R1. |
\break
%% 16-19
r4 d2. d2 | r16 d4.. d4 d2. | R1. |
d4.\ppp d4 d\pppp d d4.\pppp \bar "|."
}
%% get sheet music ---------------------------------------------------------------
\score {
<<
\context ChoirStaff = "FourPartStaffaddchorus" <<
\new Voice = "soprano" { \clef soprano \key d\major \time 3/2
\set Staff.instrumentName = "soprano" \soprano }
\new Lyrics = "mainSL" \lyricsto "soprano" { \sopranoL }
\context Lyrics = "mainSL" \lyricsto "sopranoTwo" {
\sopranoLROne }
\new Lyrics = "bassTwoR" \lyricsto "sopranoTwo" {
\set stanza = "repeat-part; " \sopranoLRTwo }
\new Voice = "alto" { \clef alto \key d\major \time 3/2
\set Staff.instrumentName = "alto " \alto }
\new Lyrics = "mainAL" \lyricsto "alto" { \altoL }
\context Lyrics = "mainAL" \lyricsto "altoTwo" {
\altoLROne }
\new Lyrics = "bassTwoR" \lyricsto "altoTwo" {
\set stanza = "repeat-part; " \altoLRTwo }
\new Voice = "tenor" { \clef tenor \key d\major \time 3/2
\set Staff.instrumentName = "tenor " \tenor }
\new Lyrics = "mainTL" \lyricsto "tenor" { \tenorL }
\new Lyrics = "repeatTR" \lyricsto "tenor" {
\set stanza = "repeat-part; " \tenorLR }
\context Lyrics = "mainTL" \lyricsto "tenorTwo" {
\tenorLROne }
\new Lyrics = "bassTwoR" \lyricsto "tenorTwo" {
\set stanza = "repeat-part; " \tenorLRTwo }
\new Voice = "bass" { \clef bass \key d\major \time 3/2
\set Staff.instrumentName = "bass " \bass }
\new Lyrics = "mainBL" \lyricsto "bass" { \bassL }
\new Lyrics = "repeatBR" \lyricsto "bass" {
\set stanza = "repeat-part; " \bassLR }
\context Lyrics = "mainBL" \lyricsto "bassTwo" {
\bassLROne }
\new Lyrics = "bassTwoR" \lyricsto "bassTwo" {
\set stanza = "repeat-part; " \bassLRTwo }
>>
%%\context PianoStaff = "PianoStaff" <<
%%\new Voice = "piano" { \clef treble \key d\major \time 3/2
%% \set Staff.instrumentName = "piano " \pianoUP }
%%\new Voice = "piano" { \clef bass \key d\major \time 3/2
%% \set Staff.instrumentName = "piano " \pianoDown }
%% >>
>>
\layout {
\context { \RemoveEmptyStaffContext }
}
}
%% get midi music ----------------------------------------------------------------
\score {
<<
\new Staff { \clef soprano \key d\major \time 3/2 \tempo 4 = 40
\set Staff.midiInstrument = "pad 4 (choir)"
\unfoldRepeats \sopranoM }
\new Staff { \clef alto \key d\major \time 3/2 \tempo 4 = 40
\set Staff.midiInstrument = "pad 4 (choir)"
\unfoldRepeats \altoM }
\new Staff { \clef tenor \key d\major \time 3/2 \tempo 4 = 40
\set Staff.midiInstrument = "pad 4 (choir)"
\unfoldRepeats \tenorM }
\new Staff { \clef bass \key d\major \time 3/2 \tempo 4 = 40
\set Staff.midiInstrument = "pad 4 (choir)"
\unfoldRepeats \bassM }
%%\new Staff { \clef treble \key d\major \time 3/2 \tempo 4 = 40
%% \set Staff.midiInstrument = "acoustic grand"
%% \unfoldRepeats \pianoUPm }
%%\new Staff { \clef bass \key d\major \time 3/2 \tempo 4 = 40
%% \set Staff.instrumentName = "acoustic grand"
%% \unfoldRepeats \pianoDownm }
>>
\midi { tempoWholesPerMinute = #(ly:make-moment 40 4) }
}
---- name ave-annunciation-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
1st movement; The annunciation\par
}
{\it composer; Yukio Yoshida\par
poet; Yukio Yoshida\par
}
\end{center}
\vskip 4pc
\hskip -1.6pc \includegraphics{title-first.eps}\par
\begin{flushright}
phot-Location;\par
{\tt http://upload.wikimedia.org/wikipedia/commons/9/96/Fra\_Angelico\_069.jpg}\par
Painter; [Annunciazione] Fra Angelico(1433--1434)\par
\end{flushright}
\vfill
\newpage
\pagecolor{cornsilk}
\vspace*{-2pc}
\everypar{\hspace*{-2pc}}
\includegraphics{ave-annunciation-1}\par
\includegraphics{ave-annunciation-2}\par
\vfill
\end{document}
%%
%% In here, "title-first.eps" is eps of "Fra_Angelico_069.jpg"
%% Please download an eps file from
%% "http://ja.wikipedia.org/wiki/%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB:Fra_Angelico_069.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-first.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
----------------------------------------------------------------------------------