Source code(pisa.ly , pisa.latex , run)
---- name pisa.ly -----------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.10.0"
#(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"
instrument = \markup \center-align {
"bass; F clef on 4th line."
"treble; G clef on 2th line." }
composer = \markup{\italic "ipika"}
arranger = \markup{\tiny "No.26(Nov 15 2007)"}
}
bass = {
%1--5
\autoBeamOff
\partial 4 cis4_\ppp^\markup{\italic "cello I, II" } |
e8[ 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_\ppp |
e8[ 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_\ff |
e8 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.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=210mm,bottom=0mm,headsep=5mm,%
top=10mm,headheight=0mm,footskip=0mm,portrait}
\parindent=0pt
\begin{document}
\thispagestyle{empty}
\vspace*{-6.375pc}
\hspace*{-1pc}\vbox{
\begin{pspicture}(-2,-1)(20,30)
\psframe[linestyle=none,linewidth=0pt,fillstyle=gradient,gradangle=350,%
gradbegin=firebrick,gradend=goldenrod1,gradmidpoint=1](-2,-1)(20,30)
\hskip -1pc\includegraphics{pisa.eps}\par
\end{pspicture}
}
\vfill
\end{document}
----- name run-script [for Linux Fedora 7] -----------------------------------------
rm *.eps *.png *.pdf *.midi
lilypond -b eps $1.ly
latex $1.latex
latex $1.latex
dvips -P pdf $1.dvi
gs -sDEVICE=epswrite -sOutputFile=$1b.eps -dNOPAUSE $1.ps -c quit
gs -sDEVICE=png16m -r120 -sOutputFile=$1b.png -dNOPAUSE $1.ps -c quit
ps2pdf $1.ps $1b.pdf
rm $1-1.* *.aux *.log *.dvi *.ps *.tex *.texi
lilypond $1.ly
evince $1.pdf | evince $1b.pdf
rm *.ps
clear
ls
--- name run-script.cmd [For windows XP]------------------------------------------
del *.eps *.png *.pdf *.midi
lilypond -b eps %1.ly
latex %1.latex
latex %1.latex
dvips -P pdf %1.dvi
gswin32c -sDEVICE=epswrite -sOutputFile=%1b.eps -dNOPAUSE %1.ps -c quit
gswin32c -sDEVICE=png16m -r120 -sOutputFile=%1b.png -dNOPAUSE %1.ps -c quit
call ps2pdf %1.ps %1b.pdf
del %1-1.* *.aux *.log *.dvi *.ps *.tex *.texi
lilypond %1.ly
%1.midi | %1.pdf | %1b.pdf |
del *.ps
dir /w
----------------------------------------------------------------------------------
%% run! get pdf and midi
%% Unix(linux) Fedroa 7 + LilyPond ver2.10(after) + teTeX
%% [system terminal bash login shell]
%% $ ./run-script pisa[Enter]
%% ! I'm sorry, I've not used about tcsh(shell).
%%
%% In Japan Windows XP + LilyPond ver2.10(after) + 角藤版pTeX + Ghostscript(ver8.60)
%% Other Windows XP + LilyPond ver2.10(after) + teTeX + Ghostscript(ver8.60)
%% [system terminal cmd.exe]
%% >run-script pisa[Enter]
%%
%% ------------------------------------------------------------------------------
%% dvi file can print with veiw by dviout.exe; for Windows XP
%% ps file can print with veiw by gsview32.exe; for Windows XP
%% Unix use xdvi(for dvi) or evnice(for ps), Of course, Fedora 7.
%%