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

Top

Pompei-2

[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-2.midi(//The one below is mp3//)         pompei-2.pdf          • All files (pompei-2.tar.gz;<2,870bytes)

Next: , Previous: , Up: Top  

Music Sheet

[picture of music]


Next: , Previous: , Up: Top  

pompei-2.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 = "Brightness of Pompei"
  subtitle = "At Pompei city in Italia"
  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."}
  poet = ""
  composer = \markup { \italic "yukio yoshida" }
  arranger = \markup{\tiny "No.17(Mar. 14, 2007)"}
copyright = "public Domain"
%% tagline = " "
}

sopranoOne = {
             \clef soprano
             \set Staff.midiInstrument = "pad 4 (choir)"
\autoBeamOff
%%25-29
 \repeat volta 2 { < fis'' d'' b' >1.^\ppp(_\( |
 < d'' b' >)( | fis''1.)^\ff( | d'')( | e''^\pp)\)( | }
\break
%%30-34
 e''1.^\ppp)( | d'')( | e'')( | < c'' c' >2)( < b' g'>)( < c'' c'>)( |
 < d'' b' g' >1.)^\ff^\fermata \bar "|."
\break
}


altoOne = {
          \clef alto
          \set Staff.midiInstrument = "pad 4 (choir)"
\autoBeamOff
%17-20
 b1.(^\mp | e'2.)^\pp e'2.( | g'1.)^\ppp |
 \repeat volta 2 {
 r16^\ff << { d'16 r fis'8 r16 d'8 r16 b8 r16 d'16 r8 e'16 fis'16 g'4. } \\
            { a2. r16 b8[ c'] d'16^([ c' b8 a16 g)] } >> |
 r16 << { a'2. r16 b'8[ c''] d''16_([ c'' b'8 a'16 g')] } \\
        { g4. fis16 e16 r8 d16 r16 b,8 r16 d8 r16 fis8 r16 d16 } >> | }
\break
%21-24
 << { a'2 r4 b'2.} \\ { e8[ g] b2. fis2 } >> |
 << { d''16[ a' g'8] e'4 b'2 g'16[ fis' e' c'] d'16[ e' fis' a'] } \\
    { e2 r4 b,2 b4 } >> |
 << { b'16[ g' e' c'8.] b16[ d' fis' a'8.] r16 a'16[ fis' d' b8]
      r16 c'16[ e' g' < b' d >8 ] } \\ { d4. g r16 fis4 r8 a4 r16} >> |
 << { g'2.( d'^\pp) } \\ { fis2.( a_\pp) } >> |
\break
}


tenorOne = {
          \clef tenor
          \set Staff.midiInstrument = "pad 4 (choir)"
\autoBeamOff
%9-12
 d'16[ r] c'16[ r] b[ a] fis2 g16[ a] b2 |
 e8[ g b] r d'2 c'16[ a fis] e4 r16 |
 a16[ b] d'4. b16[ c'] e'4. fis16[ g] b4. |
 << { d'2. c'16[ d'8] r16 e'2 } \\ { e2. r16 d16[ e8] fis2 } >> |
\break
%13-16
 << { fis'2. e'16[ c'8] r16 a2 } \\ { g2. r16 e16[ d8] b,2 } >> |
 << { b2. r16 d'16[ fis'8] e'2 } \\ { c2. e16[ g8] r16 fis2 } >> |
 << { c'16[ e'8] r16 e'16[ c'8] r16 c'2. e'4 } \\
    { a16[ fis8] r16 fis16[ a8] r16 a2. fis4 } >> |
 << { b16[ c'8] r16 b16[ d'8] r16 b2. c'4 } \\
    { b16[ a8] r16 b16[ g8] r16 b2. a4 } >> |
\break
}

bassOne = {
          \clef bass
          \set Staff.midiInstrument = "pad 4 (choir)"
\autoBeamOff
%1-4
 fis4 g8 b4. c'2 b8[ a] | e c2 d4. fes2 | ges4 a8 c'4. d'2 c'8[ b] |
 r16[ g fis8 d] c[ b,] c4._( a2) |
\break
%5-8
 d'16[ r] c'[ r] b2 a8[ fis] e[ r c b,] | c2 e fis | g e b |
 fis16[ r] d[ r] a,[ r] b,[ c] a,[ c] b,[ r] c[ e] d[ fis_(] a,2) |
\break
}

%% --- get sheet music
\score {
         \new Voice { \key g\major \time 3/2 \tempo 4 = 62
                          \bassOne \tenorOne \altoOne \sopranoOne  }

  \layout { }
}
%% --- get midi music
\score {
         \new Staff { \key g\major \time 3/2 \tempo 4 = 62
                      \bassOne \tenorOne { \unfoldRepeats \altoOne }
                      { \unfoldRepeats \sopranoOne }
                     }

  \midi { }
}

Next: , Previous: , Up: Top  

pompei-2.texi

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

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

@ifnottex
@node        Music Sheet,   pompei-2.ly,       Top,      Top
@comment      node-name,     next,          previous,    up
@c @top
@end ifnottex
@unnumbered Music Sheet
@ifhtml
@html
<p align = "center">
<a href="pompei-2.pdf">
<img src="pompei-2.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-2.ly,       pompei-2.texi,  Music Sheet,  Top
@comment    node-name,     next,         previous,        up
@end ifnottex
@unnumbered pompei-2.ly
@html
<blockquote><blockquote>
@end html
@verbatiminclude pompei-2.ly
@html
</blockquote></blockquote>
@end html

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

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