Next: , Previous: , Up: ("dirTop")  

Top

Pompei-5

[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) ----

      pompei-5.midi(//The one below is mp3//)         pompei-5.pdf          • All files (pompei-5.tar.gz;<3,050bytes)

Next: , Previous: , Up: Top  

Music Sheet

[picture of music]


Next: , Previous: , Up: Top  

pompei-5.ly

%%  3:28 AM Tuesday, April 18, 2023
%% Yukio Yoshida
\version "2.24.1"
#(set-default-paper-size "letter")
#(set-global-staff-size 18)

%%% --- One ------------------------------------------------------------------
sopranoOne = {
             \clef soprano
             \key d\major \time 3/4 \tempo 4 = 54
             \set Staff.midiInstrument = "acoustic grand"
             \set Staff.instrumentName = \markup { \teeny \italic "sop" }
\autoBeamOff
%8-12
 a'4. a'4. | b'8 cis''4 a'~ a'8 | e''2 fis''8[ g''] |
 fis''8[ e'' d'' cis''] b'4 | e''2 d''8[ cis''] | fis''2 cis''4 | a'2. |
 \break
 }

altoOne = {
          \clef alto
          \key d\major \time 3/4 \tempo 4 = 54
          \set Staff.midiInstrument = "acoustic grand"
          \set Staff.instrumentName = \markup { \teeny \italic "alt" }
\autoBeamOff
%8-12
 a4. a4. | b8 cis'4 a~ a8 | fis'2 g'8[ a'] |
 g'8[ fis' e' d'] cis'4 | e'2 cis'8[ b] | g'2 b4 | a2. |
 \break
 }

tenorOne = {
          \clef tenor
          \key ces\major \time 3/4 \tempo 4 = 54
          \set Staff.midiInstrument = "acoustic grand"
          \set Staff.instrumentName = \markup { \teeny \italic "ten" }
\autoBeamOff
%1-7
 aes4. aes4. | bes8 ces'4 aes~ aes8 | fes'2 ges'8[ aes'] |
 ges'8[ fes' ees' des'] ces'4 | fes'2 des'8[ ces'] | aes'2 ces'4 | aes2. |
 \break
 }

bassOne = {
          \clef bass
          \key ces\major \time 3/4 \tempo 4 = 54
          \set Staff.midiInstrument = "acoustic grand"
          \set Staff.instrumentName = \markup { \teeny \italic "bas" }
\autoBeamOff
%1-7
 aes,4. aes,4. | bes,8 ces4 aes,~ aes,8 | fes2 ges8[ aes] |
 ges8[ fes ees des] ces4 | ees2 ces8[ bes,] | ges2 bes,4 | aes,2. |
\break
 }

%%% --- Two -------------------------------------------------------------------
sopranoTwo = {
             \clef soprano
             \key d\major \time 3/4 \tempo 4 = 54
             \set Staff.midiInstrument = "acoustic grand"
             \set Staff.instrumentName = \markup { \teeny \italic "sop" }
             \set Staff.shortInstrumentName = \markup {\teeny \italic "sop" }
\autoBeamOff
%22-28
  b'8[ cis''] b'4. cis''8 | a'2. |
  g'4 a' g'~ | g' a' fis'~ | fis'2. |
  d''4 e'' d''~ | d''2. |
\break
 }

altoTwo = {
          \clef alto
          \key d\major \time 3/4 \tempo 4 = 54
          \set Staff.midiInstrument = "acoustic grand"
          \set Staff.instrumentName = \markup { \teeny \italic "alt" }
          \set Staff.shortInstrumentName = \markup { \teeny \italic "alt" }
\autoBeamOff
%22-28
  e'8[ fis'] e'4. fis'8 | d'2. |
  cis'4 d' cis'~ | cis' d' b~ | b2. |
  g'4 a' g'~ | g'2. |
\break
 }

tenorTwo = {
             \clef tenor
             \key ces\major \time 3/4 \tempo 4 = 54
             \set Staff.midiInstrument = "acoustic grand"
             \set Staff.instrumentName = \markup { \teeny \italic "ten" }
             \set Staff.shortInstrumentName = \markup { \teeny \italic "ten" }
\autoBeamOff
%15-21
  bes8[ ces'] bes4. ces'8 | aes2. |
  ges4 aes ges~ | ges aes fes~ | fes2. |
  des'4 ees' des'~ | des'2. |
\break
 }

bassTwo = {
          \clef bass
          \key ces\major \time 3/4 \tempo 4 = 54
          \set Staff.midiInstrument = "acoustic grand"
          \set Staff.instrumentName = \markup { \teeny \italic "bas" }
          \set Staff.shortInstrumentName = \markup { \teeny \italic "bas" }
\autoBeamOff
%15-21
  ees8[ fes] ees4. fes8 | des2. |
  ces4 des ces~ | ces des bes,~ | bes,2. |
  ges4 aes ges~ | ges2. |
\break
 }

%%---- Three ----------------------------------------------------------------------
upper = {
     \clef treble
     \key d\major \time 3/4 \tempo 4 = 54
     \set Staff.midiInstrument = "acoustic grand"
     \set Staff.instrumentName = \markup {
                                 \column { \teeny \italic { " " " " } } }
     \set Staff.shortInstrumentName = \markup {
                                 \column { \teeny \italic { " " " " } } }
\autoBeamOff
%%29-35
 << { fis''8^\markup { \hspace #-8 "treble; G clef on 2nd line" }
 [ e'' d'' cis''] b'4 | b'8 cis''4 a'~ a'8 | e''2 fis''8[ g''] |
 e''2 fis''8[ g''] | e''2 d''8[ cis''] | fis''2 cis''4 |
 \repeat volta 2 { a'2.^\fermata } \bar "|." }
 \\
    { g'8[ fis' e' d'] cis'4 | b8 cis'4 a~ a8 | fis'2 g'8[ a'] |
 fis'2 g'8[ a'] | e'2 cis'8[ b] | g'2 b4 |
 \repeat volta 2 { a2._\fermata } \bar "|." } >>
\break
 }

lower = {
     \clef bass
     \key ces\major \time 3/4 \tempo 4 = 54
     \set Staff.midiInstrument = "acoustic grand"
     \set Staff.instrumentName = \markup {
                                 \column { \teeny \italic { " " " " } } }
     \set Staff.shortInstrumentName = \markup {
                                 \column { \teeny \italic { " " " " } } }
\autoBeamOff
%%29-35
 << { ges'8[ fes' ees' des'] ces'4 | bes8 ces'4 aes~ aes8 | fes'2 ges'8[ aes'] |
 fes'2 ges'8[ aes'] | fes'2 des'8[ ces'] | aes'2 ces'4 |
 \repeat volta 2 { aes2.^\fermata } \bar "|." }
 \\
    { ges8[ fes ees des] ces4 | bes,8 ces4 aes,~ aes,8 | fes2 ges8[ aes] |
 fes2 ges8[ aes] | ees2 ces8[ bes,] | ges2 bes,4 |
 \repeat volta 2 { aes,2._\fermata } \bar "|." } >>
\break
 }
%%------------------------------------------------------------------------------


\book {
\header {
  dedication = \markup { \column { " " " " "Wordless Poem" " " } }
  title = "Traces of the grave."
  subtitle = "grand piano"
  subsubtitle = \markup\center-column {
                   "soprano; C clef on 1th line,   alto; C clef on 3th line."
                   "     tenor; C clef on 4th line,   bass; F clef on 4th line."}
  composer = \markup { \italic "yukio yoshida" }
  arranger = \markup{\tiny "No.20(May. 11, 2007)"}
copyright = "public Domain"
%% tagline = " "
}

%% --- get sheet music
\score {
           \context ChoirStaff = "Sheet" <<
               \context Voice = "UpAsheet" { \tenorOne \sopranoOne
                                             \tenorTwo \sopranoTwo \upper
                                           }

               \context Voice = "DownBsheet" { \bassOne \altoOne
                                               \bassTwo \altoTwo \lower
                                             }
                                      >>

  \layout { indent = 0.00\mm }
       }

%% --- get midi music
\score {
           \unfoldRepeats
           \context ChoirStaff = "Midi" <<
               \context Staff = "UpAmidi" { \tenorOne \sopranoOne
                                            \tenorTwo \sopranoTwo \upper
                                          }

               \context Staff = "DownBmidi" { \bassOne \altoOne
                                              \bassTwo \altoTwo \lower
                                            }
                                      >>

  \midi { }
        }
}

Next: , Previous: , Up: Top  

pompei-5.texi

%% 10:03 AM Friday, January 19, 2024
%% Yukio Yoshida
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\input colordvi.tex
\input texinfo

@c %**start of header
@setfilename pompei-5.info
@c @settitle pompei-5
@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>Pompei-5</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
* pompei-5::                 --- Music Sheet:                    Music Sheet.
* pompei-5.ly::             --- Source code framework:  pompei-5.ly.
* pompei-5.texi::          --- Source code document:    pompei-5.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">pompei-5.midi</a>(//The one below is mp3//)&#160;&#160;&#160;
&#160;&#160;&#160;&#160;&#160;<a href="pompei-5.pdf">pompei-5.pdf</a>
&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;
&#149;&#160;<a href="pompei-5.tar.gz">All files</a>&#160;(pompei-5.tar.gz;&lt;3,050bytes)<br />
<audio src="pompei-5.mp3" controls>
Download <a href="earth.mp3">episode 42 Learnung to love HTML5</a>
</audio></p>
@end html

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

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

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

@ifnottex
@node     run--makeinfo,           ,  pompei-5.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

Previous: , Up: Top  

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)—