Source code(italia-suite.ly , italia-suite-sheet.latex , run-script.cmd)
---- name italia-suite.ly --------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.12.1"
#(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 [For windows XP]------------------------------------------
del *.log *.aux *.dvi *.eps *.ps *.pdf *.png *.mid *.count *.texi *.tex
Rem process for %1-sheet.latex -----------------------------------------
lilypond -dbackend=eps %1.ly
Rem Now runing LilyPond normally ---------------------------------------
lilypond --pdf --png %1.ly
Rem Process from here for %1-sheet.latex -------------------------------
latex %1-sheet.latex
dvips -P pdf %1-sheet.dvi
gswin32c -sDEVICE=png16m -r120 -sOutputFile=%1-sheet.png -dNOPAUSE %1-sheet.ps -c quit
call ps2pdf %1-sheet.ps
%1.mid | %1.png | %1-sheet.png | %1.pdf | %1-sheet.pdf
del %1-1.* *.count *.aux *.log *.dvi *.ps *.tex *.texi *.eps *.*~ *~
dir /w
----------------------------------------------------------------------------------