Italia-suite-Poem

          italia-suite.mid           italia-suite.pdf           italia-suite-sheet.pdf           italia-suite.mp3

This sounds "italia-suite.mp3" and Please click! music plays.
[picture of music]


Source code(italia-suite.ly , italia-suite-sheet.latex , run-script.cmd)
---- name italia-suite.ly --------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.18.0"
#(set-default-paper-size "a4")
#(set-global-staff-size 18)

\header {
  dedication = "Wordless Poem"
  title = "Italia-suite-Poem"
  subtitle = "Dawn, Pray and lasting sleep"
  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.6(Mar. 31. 2007)"}
}

suite = {
\clef soprano \key g\major
\autoBeamOff
%%1-5
  e''1._\pppp\(~ | e''( | d'')~ | d''( | e'')~ |
\break
%%6-10
  e''1.( | d'')~ | d''\)( | c''2)( b')( c'')( | d''1.)\ff^\fermata |
\break
%%11-15
\clef tenor  \key fis\major
 bes2 fis16[ gis8. ais8.] r16 b!2 | g!8. bes16 ais1 b!16 gis8. |
 r16 d!16 eis1 f!8 fis16 dis8. | r8. ees8 fis1 e!8 gis16 |
 aes8. fis16 gis1 a!16 fis8. |
\break
%%16-21
 r16 ais8 gis1 g!8 aes8. | g!16 e!8. fis1 eis16 gis8. | r16 d! f!8 eis1 dis16 fis8. |
\clef bass
 2_( 1)( | 1)_( 2)_( |
 1.)^\fermata |
\break
%%22-25
\clef soprano  \key b\major
 \repeat volta 3 {
 \repeat volta 2 { gis'8[ ais'] b'4. cis''8 disis''!2. |
                                                          ais'4 dis''2 gis'2. | }
  fis'4 e' dis'4. fis'8 e'2 | ais'4 dis''2 gis'2. | }
\break
%%26-30
  \repeat volta 3 {
  gis'8[ b'] ais'2 b'8[ cis''] ais'2 | gis'2 ais'2 e'2 }| e'4 fis'4 e'4 gis'2. |
  b'2 cis''1( | disis''!1.)\fermata |
\break
%%31-35
\clef alto \key aes\major
  des'1. | ees'1 c'2 |
  \repeat volta 2 { \chordmode { bes,4. c8 des2.. bes,8 | c4. bes,8 des2.. c8 } } |
  bes2. des'2. |
\break
%%36-39
  c'4. des'8 ees'2.. c'8 | ees'1 c'2 |  des'1.~ | des'2. bes2 c'4 |
\break
%%40-46
\clef soprano \key fis\major
 \repeat volta 2 {
 fis'1.^\ppp^(_\( | cis')^( | fis')^( | b')( | cis'')( | ais')( | cis'')( |
\break
%%47-52
 dis'')( | eis'')( | cis'')( | dis'')( | eis'')\)_(\ff^\fermata } |
 eis'')^\fermata\sfp
  \bar "|."
}

\book {
%% --- get sheet music
\score {
         \new Staff { \time 3/2 \tempo 4 = 62 \suite }

  \layout {}
}
%% --- get midi music
\score {
         \new Staff { \time 3/2
                      \set Staff.midiInstrument = "pad 4 (choir)"
                      \unfoldRepeats \suite }

  \midi {}
}

\markup { \column {
\line {
This made by excerpting from pompei.ly, milano3.ly firenze.ly, and pompei3.ly.}
\line {" "}
\line {" "} }}
}

---- name italia-suite-sheet.latex -----------------------------------------------
\documentclass{article}
\usepackage[dvips]{graphicx,color}
\usepackage{pstricks}
\usepackage{pst-grad}
\usepackage{geometry}
\geometry{a4paper,width=180mm,bottom=8mm,headsep=6mm,%
top=4mm,headheight=6mm,footskip=5mm,portrait}
\parindent=0pt

\begin{document}
\thispagestyle{empty}
\vspace*{-10.60pc}
\hspace*{-1pc}\vbox{
\begin{pspicture}(-2,0)(20,30)
\psframe[linestyle=none,linewidth=0pt,fillstyle=gradient,gradangle=350,%
gradbegin=yellow,gradend=red,gradmidpoint=1](-2,-6)(20,30)
\input italia-suite-systems.tex
\end{pspicture}
}
\vfill

\end{document}


--- name run-script.cmd ------------------------------------------
@Echo off
chcp 437
rem === make; "1:59:27.01 2018/08/24" Yukio Yoshida. 
rem === This is Letter paper! Are you OK? ===
@Echo on
lilypond -dbackend=eps %1.ly
lilypond --pdf --png %1.ly
latex %1-sheet.latex
dvips -t letter -P pdf %1-sheet.dvi
gswin64c -sDEVICE=png16m -r120 -sOutputFile=%1-sheet.png -dNOPAUSE %1-sheet.ps -c quit
call ps2pdf %1-sheet.ps
pause
%1-sheet.pdf | %1-sheet.png | %1.pdf | %1.png | %1.mid
Erase *.aux *.count *.dvi *.ps *.eps *.log *.pdf ^
*.tex *.texi *.mid *.png
dir /oe
----------------------------------------------------------------------------------

usally;(cmd prompt)   >lilypond --png --pdf italia-suite.ly[Enter]

run-script.cmd;(cmd prompt)   >run-script italia-suite[Enter]
(However, this "Windows8(& UP) + LilyPond(ver2.18) + W32TeX(& UP) + Ghostscript(edition 64bit)" is required.)