Source code(pisa.ly , pisa-sheet.latex , run-script.cmd)
---- name pisa.ly ----------------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.12.1"
#(set-default-paper-size "a4")
#(set-global-staff-size 20)
\header {
dedication = "Wordless Poem ; Tribute to lily(cellist)"
title = "The autumn dusk of Pisa"
subtitle = "at Pisa city"
subsubtitle = \markup \center-column {
"bass; F clef on 4th line."
"treble; G clef on 2th line." }
composer = \markup { \italic "yukio yoshida" }
arranger = \markup{\tiny "No.26(Nov. 15, 2007)"}
}
bass = {
%1--5
\autoBeamOff
\partial 4 cis4_\pp^\markup{\italic "cello I, II" } |
e8[_\mf fis] r[ g] e1 | cis8[ d] r[ e] cis1 | d8[ e] r[ fis] d1 |
b,8[ cis] r[ d] cis1 | e8[ fis] r[ e] d1 |
\break
%6--10
\repeat volta 2 { r4 fis4. g2 e8[ d cis] } |
fis2.^\markup {\italic "cello I" } g8[ a] cis'2 |
\clef treble
r8[^\markup{\italic "cello I,II" } fis' a'] b'4. cis''2. |
\repeat volta 3 { fis'8[ e'] a'4 g'8[ fis'] e'2. |
a'8[ g'] cis''4 b'8[ a'] g'2.~ |
\break
%11--15
g'2^\markup {\italic "cello I" } a'8[ b' cis''] fis'2~ fis'8 |
e'8^\markup{\italic "cello I,II" }[ fis' g'] cis''1 r8 |
\clef bass fis8[ e d] cis4. d8[ cis b,] r8^\markup {\italic "cello I" } g,4 |
e,2. b,8[ a, g,] r8 e,4~ | e,1.^\fermata | }
\break
%16--20
R1. |
\clef treble e'8^\markup{\italic "cello I,II" }[ fis' g'] cis''1 r8 |
\clef bass e8[ d cis] b,4. cis8[ b, a,] r8 fis,4 |
d,2. a,8[ g, fis,] r4. | d,1.^\fermata \bar "|."
}
bassM = {
%1--5
\partial 4 cis4_\pp |
e8[^\mf fis] r[ g] e1 | cis8[ d] r[ e] cis1 | d8[ e] r[ fis] d1 |
b,8[ cis] r[ d] cis1 | e8[ fis] r[ e] d1 |
\break
%6--10
\repeat volta 2 { r4 fis4. g2 e8[ d cis] } |
R1. |
\clef treble d'8[ fis' a'] b'4. cis''2. |
\repeat volta 3 { fis'8[ e'] a'4 g'8[ fis'] e'2. |
a'8[ g'] cis''4 b'8[ a'] g'2. |
\break
%11-15
R1. |
a'8[ b' cis''] fis''1 r8 |
\clef bass fis8[ e d] cis4. d8[ cis b,] r4.~ | R1. * 2 | }
\break
%16--20
R1. |
\clef treble e'8 [ fis' g'] cis''1 r8 |
\clef bass e8[ d cis] b,4. cis8[ b, a,] r8 fis,4 |
d,2. a,8[ g, fis,] r4. | d,1.^\fermata \bar "|."
}
pianoUP = {
%1--5
\autoBeamOff
\partial 4 r4 | R1. * 5 |
\break
%6--10
\repeat volta 2 { R1. } |
fis''4. d''8[ cis'' b'] a'2. |
g''4. e''8[ d'' cis''] b'2. |
\repeat volta 3 { fis''4. e''8[ d'' cis''] b'2. |
g''4. e''8[ d'' cis''] b'2. |
\break
%11--15
g''8[ fis'' e''] r8 fis''1 | fis''8[ e'' d''] r8 e''1 | R1. * 2 |
r1 fis''8[ e''] b'4 | }
\break
%16--20
fis'1.^\fermata | fis''4. d''8[ cis'' b'] a'2. |
g''8[ fis'' e''] r8 fis''1 | fis''8[ e'' d''] r8 e''1 |
fis'1.^\fermata \bar "|."
}
pianoDown = {
%1--5
\autoBeamOff
\partial 4 cis4_\f |
e8^\mf fis4 e1 r8 | cis8[ d] cis1 r4 | d8[ e] d1 r4 |
b,8[ cis] cis1 r4 | e8[ fis] d1 r4 |
\break
%6--10
\repeat volta 2{ fis1 r4 cis8[ b,] } |
R1. *2 | \repeat volta 3 { R1. * 2 |
\break
%11--15
<d a,>1. | <cis g,>1. | R1. * 3 | }
\break
%16--20
<fis, cis>1.^\fermata | <d a,>1. | <cis g,>1. | <d a,>1. |
<fis, cis>1.^\fermata \bar "|."
}
%% get sheet music ---------------------------------------------------------------
\score {
<<
\context ChoirStaff = "FourPartStaffaddchorus" <<
\new Voice = "bass" { \clef bass \key d\major \time 3/2
\set Staff.instrumentName = \markup {\tiny "cello 1, 11 "} \bass }
>>
\context PianoStaff
\with { \override VerticalAlignment #'forced-distance = #6 }
<<
\context Staff = "upper" \new Voice { \clef treble \key d\major \time 3/2
\set Staff.fontSize = #-3
\override Staff.StaffSymbol #'staff-space = #(magstep -3)
\override Staff.StaffSymbol #'thickness =#(magstep -3)
\set Staff.instrumentName = \markup {\column{" " " " "piano "}}
\pianoUP }
\context Staff = "lower" \new Voice { \clef bass \key d\major \time 3/2
\set Staff.fontSize = #-3
\override Staff.StaffSymbol #'staff-space = #(magstep -3)
\override Staff.StaffSymbol #'thickness =#(magstep -3)
\pianoDown }
>>
>>
\layout {}
}
%% get midi music ----------------------------------------------------------------
\score {
<<
\context ChoirStaff = "FourPartStaffaddchorus" <<
\new Voice = "bass" { \clef bass \key d\major \time 3/2
\set Staff.midiInstrument = "cello" \unfoldRepeats \bass }
\new Voice = "bass" { \clef bass \key d\major \time 3/2
\set Staff.midiInstrument = "cello" \unfoldRepeats \bassM }
>>
\context PianoStaff
<<
\context Staff = "upper" \new Voice { \clef treble \key d\major \time 3/2
\set Staff.midiInstrument = "acoustic grand" \unfoldRepeats \pianoUP }
\context Staff = "lower" \new Voice { \clef bass \key d\major \time 3/2
\set Staff.midiInstrument = "acoustic grand" \unfoldRepeats \pianoDown }
>>
>>
\midi { tempoWholesPerMinute = #(ly:make-moment 48 4) }
}
----- name pisa-sheet.latex -----------------------------------------------------
\documentclass{article}
\usepackage[dvips]{graphicx,color}
\usepackage{pstricks}
\usepackage{pst-grad}
\definecolor{firebrick}{rgb}{0.69803,0.13333,0.13333}
\definecolor{goldenrod1}{rgb}{1,0.75685,0.1451}
\usepackage{geometry}
\geometry{a4paper,width=180mm,bottom=8mm,headsep=6mm,%
top=4mm,headheight=6mm,footskip=5mm,portrait}
\parindent=0pt
\begin{document}
\thispagestyle{empty}
\vspace*{-4.980pc}
\hspace*{-1pc}\vbox{
\begin{pspicture}(0,0)(20,30)
\psframe[linestyle=none,linewidth=0pt,fillstyle=gradient,gradangle=350,%
gradbegin=firebrick,gradend=goldenrod1,gradmidpoint=1](-2,-6)(20,30)
\input pisa-systems.tex
\end{pspicture}
}
\vfill
\end{document}
--- name run-script.cmd [For windows XP]------------------------------------------
del *.log *.aux *.dvi *.eps *.ps *.pdf *.png *.mid *.count *.texi *.tex
Rem process for %1-sheet.latex -----------------------------------------
lilypond -dbackend=eps %1.ly
Rem Now runing LilyPond normally ---------------------------------------
lilypond --pdf --png %1.ly
Rem Process from here for %1-sheet.latex -------------------------------
latex %1-sheet.latex
dvips -P pdf %1-sheet.dvi
gswin32c -sDEVICE=png16m -r120 -sOutputFile=%1-sheet.png -dNOPAUSE %1-sheet.ps -c quit
call ps2pdf %1-sheet.ps
%1.mid | %1.png | %1-sheet.png | %1.pdf | %1-sheet.pdf
del %1-1.* *.count *.aux *.log *.dvi *.ps *.tex *.texi *.eps *.*~ *~
dir /w
----------------------------------------------------------------------------------