The autumn dusk of Pisa

          pisa.mid           pisa.pdf           pisa-sheet.pdf           pisa.mp3

This sounds "pisa.mp3" and Please click! music plays.
[picture of music]


Source code(pisa.ly , pisa-sheet.latex , run-script.cmd)
---- name pisa.ly ----------------------------------------------------------------
%% -*- Coding: utf-8 -*-
%% Nov. 15, 2007
%% Time-stamp: "2/23/2017 19:33"
\version "2.18.0"
#(set-default-paper-size "letter")
#(set-global-staff-size 18)
%%% I'm sorry because for my-job's easy! m(_ _)m
\paper{ paper-height = 260\mm }%% for page-color. Time-stamp :3/4/2017 00:23
\paper{ paper-width = 200\mm }%% for page-color. Time-stamp :3/4/2017 00:23
\header {
  dedication = "Wordless Poem ; Tribute to lily(cellist)"
  title = "The autumn dusk of Pisa"
  subtitle = "at Pisa city"
  subsubtile = \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
      1. | 1. | R1. * 3 | }
\break
%16--20
      1.^\fermata | 1. | 1. | 1. |
      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 -----------------------------------------------------
%% Time-stamp: "3/4/2017 00:27"
\documentclass[letterpaper]{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{letterpaper,width=180mm,bottom=8mm,headsep=6mm,%
top=4mm,headheight=6mm,footskip=5mm,portrait}
\parindent=0pt

\begin{document}
\thispagestyle{empty}
\vspace*{-10pc}
\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 ----------------------------------------------------------
@Echo off
rem === make; "1:59:27.01 2018/08/24" Yukio Yoshida. 
rem === This is Letter paper! Are you OK? ===
@Echo on
pause
copy /y html\svg-%1.html svg\
@Echo on
lilypond -dbackend=eps %1.ly
lilypond --pdf %1.ly
lilypond -dbackend=svg %1.ly
REM ---- ! LaTeX running %1-sheet.latex ----
latex %1-sheet.latex
dvips -t letter -P pdf %1-sheet.dvi
call ps2pdf %1-sheet.ps
copy /y %1-sheet.pdf svg\
copy /y %1.pdf svg\
copy /y *.svg svg\
copy /y %1.mid svg\
cd svg
svg-%1.html
cd ..\
Erase *.aux *.count *.dvi *.ps *.eps *.log *.pdf ^
*.tex *.texi *.mid *.svg
dir /oe html\
dir /oe svg\
dir /oe
cd ..\
dir /oe
----------------------------------------------------------------------------------
All download files(Includes all files, no mp3) -------------->> pisa.tar.gz(About 3,421Bytes)
    and     >tar xvfz pisa.tar.gz =====> pisa/*.*(Files and Directory)

usally;(cmd prompt)   pisa>lilypond --png --pdf pisa.ly[Enter]    you can get "pisa.pdf , pisa.png, pisa.mid".

script-run;(cmd prompt)   pisa>run-script pisa[Enter]  •••• And displays the pisa (here the same as).
(However, this "Windows10 + LilyPond(ver2.18.*) + W32TeX(& UP) + Ghostscript(ver9.06 & UP)" is required.)