Top

Pisa


[file-code; "ly,texi,sh are UTF-8"]


Normally; Windows & Linux "[Prompt]  lilypond --png --pdf name.ly[Enter]"

And---- Only; 
 Linux(Prompt) $ ./run--lily.sh name[Enter](need makeinfo) ----

pisa.midi(//The one below is mp3//) pisa.pdf • All files (pisa.tar.gz;<3,140bytes)

Music Sheet

pisa.ly

%%  3:28 AM Tuesday, April 18, 2023
%% Yukio Yoshida
\version "2.24.1"
#(set-default-paper-size "letter")
#(set-global-staff-size 18)
\header {
  dedication = \markup { \column { " " " " "Wordless Poem" " " } }
  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)"}
copyright = "public Domain"
%% tagline = " "
}

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 Voice = "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 Voice = "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 Staff = "bass" { \clef bass \key d\major \time 3/2
             \set Staff.midiInstrument = "cello" \unfoldRepeats   \bass }

           \new Staff = "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) }
}

pisa.texi

%% 12:50 PM Friday, January 19, 2024
%% Yukio Yoshida
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\input colordvi.tex
\input texinfo

@c %**start of header
@setfilename pisa.info
@c @settitle pisa
@documentlanguage en
@documentencoding utf-8
@setchapternewpage odd
@c %**end of header

@c *********** Body start ******************
@node       Top,         Music Sheet,    ("dir"),    ("dirTop")
@comment  node-name,        next,        previous,       up
@c @node Top
@ifhtml
@html
<p align = "center">
<span  style="font-size: 40px;"><b>Pisa</b></spam>
</p>
<code>
[file-code; "ly,texi,sh are UTF-8"]<br />
<span style="font-size: 16px;">
<b>Normally; Windows & Linux "[Prompt] <kbd> lilypond --png --pdf name.ly</kbd>[Enter]"</b><br />
<b>And---- Only; 
 <i>Linux(Prompt)<kbd> <span style="color: red;">$ ./run--lily.sh name</span></kbd>[Enter]</i>(need makeinfo) ----</b><br />
</span>
</code>
<br />
@end html
@end ifhtml
@c @top
@c @ignore ------------------------------------------------------------------------
@ifhtml
@menu
* pisa::                 --- Music Sheet:                    Music Sheet.
* pisa.ly::             --- Source code framework:  pisa.ly.
* pisa.texi::          --- Source code document:    pisa.texi.
* run--makeinfo::   --- Source code run-file:        run--makeinfo.
@end menu
@end ifhtml
@c @ignore ------------------------------------------------------------------------
@html
<p align = "center">
&#160;&#160;&#160;&#160;&#160;
<a href="earth.mid">pisa.midi</a>(//The one below is mp3//)&#160;&#160;&#160;
&#160;&#160;&#160;&#160;&#160;<a href="pisa.pdf">pisa.pdf</a>
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;
&#149;&#160;<a href="pisa.tar.gz">All files</a>&#160;(pisa.tar.gz;&lt;3,140bytes)<br />
<audio src="pisa.mp3" controls>
Download <a href="earth.mp3">episode 42 Learnung to love HTML5</a>
</audio></p>
@end html

@ifnottex
@node        Music Sheet,   pisa.ly,       Top,      Top
@comment      node-name,     next,          previous,    up
@c @top
@end ifnottex
@unnumbered Music Sheet
@ifhtml
@html
<p align = "center">
<a href="pisa.pdf">
<img src="pisa.svg" alt="[picture of music]" /><!--  -->
<hr style="width:68%; height:4px;" />
</a></p>
<br />
@end html
@end ifhtml
@html
</div>
@end html

@ifnottex
@node          pisa.ly,       pisa.texi,  Music Sheet,  Top
@comment    node-name,     next,         previous,        up
@end ifnottex
@unnumbered pisa.ly
@html
<blockquote><blockquote>
@end html
@verbatiminclude pisa.ly
@html
</blockquote></blockquote>
@end html

@ifnottex
@node     pisa.texi,   run--makeinfo,      pisa.ly, Top
@comment   node-name,         next,          previous,    up
@end ifnottex
@unnumbered pisa.texi
@html
<blockquote><blockquote>
@end html
@verbatiminclude pisa.texi
@html
</blockquote></blockquote>
@end html

@ifnottex
@node     run--makeinfo,           ,  pisa.texi,   Top
@comment      node-name,    next,       previous,       up
@end ifnottex
@unnumbered run--makeinfo
@html
<blockquote><blockquote>
<b><i>Only; running is on Linux(on WSL).</i></b><br />
@end html
@ifhtml
@html
<span style="font: 16px;">
<table>
<td>
&#160;&#160;&#160;<b><i>run--lily.sh</i></b><br />
<span style="color: red;">
@verbatiminclude run--lily.sh
</span>
</td>
</table>
@end html
@end ifhtml
@ @ @ @ This is under the following environment.@*
@ @ @ @ Linux[on WSL(windows11)]@  ---(GNU/Linux 4.4.0-19041-Microsoft x86_64) or 
(GNU/Linux 5.10.16.3-microsoft-standard-WSL2 x86_64)---@*
@html
</blockquote></blockquote>
<br />
<br />
@end html
@c *********** End Body *********************
@bye

run–makeinfo

Only; running is on Linux(on WSL).

   run--lily.sh

#!/usr/bin/bash # rm -r html lilypond --pdf --png $1.ly lilypond --svg $1.ly makeinfo --no-split --force --html $1.texi mkdir html mv *.svg html/ mv *.pdf html/ mv *.midi html/ mv *.html html/ cd html xdg-open $1.pdf | xdg-open $1.midi | explorer.exe $1.html cd ../ rm *.eps *.png ls -lX

    This is under the following environment.
    Linux[on WSL(windows11)] —(GNU/Linux 4.4.0-19041-Microsoft x86_64) or (GNU/Linux 5.10.16.3-microsoft-standard-WSL2 x86_64)—