ソース記述(dream.ly , dream-sheet.latex , run-script)
---- name dream.ly ---------------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.12.1"
#(set-default-paper-size "a4")
#(set-global-staff-size 18)
\header {
dedication = "Wordless Poem"
title = "The midll of Dream"
subtitle ="Opus 5"
subsubtitle = "December 20, 2004"
composer = \markup { \italic "yukio yoshida" }
}
Soprano = { \clef treble \key g\major \time 4/4
\autoBeamOff
\override Score.VerticalAxisGroup #'remove-first = ##t
R1*2 |
e''4 \acciaccatura {\relative c''{g'32 fis e d fis c b d a }}
c''4 fis'' d'' | \break
g''4 b'' \acciaccatura {\relative c''{g'32 fis e d fis c b d a }}
cis''4 e'' | \break
a''4 c''' g'' \relative c''{g'64[\mp fis e d fis c b d] } b''8\fff |
a''4 c''' g'' b'' | \break
fis''32[( d'' c''16] a''8)
\acciaccatura {\relative c'{fis'32 e d fis c b d a }}b''2 fis''4 |
c'' \acciaccatura {\relative c''{fis'16 e d fis c b d a }}e''4
\acciaccatura {\relative c'{fis'16 e d fis c b d a }}d''4 b'' |
c'' \acciaccatura {\relative c''{fis'16 e d fis c b d a }}e''4
\acciaccatura {\relative c'{fis'16 e d fis c b d a }}d''4 b'' |
R1*2 |
}
Treble = { \clef bass \key g\major \time 4/4
\autoBeamOff
\times 2/3 {
<fis a>16[(\mf <g b> <a c>]) <a c>[( <g b> <fis a>])
<fis a>[( <g b> <a c>]) <a c>[( <g b> <fis a>])
<e g>[( <fis a> <g b>]) <g b>[( <fis a> <e g>])
<e g>[( <fis a> <g b>]) <g b>[( <fis a> <e g>]) } |
\times 2/3 {
<fis a>16[(\mf <g b> <a c>]) <a c>[( <g b> <fis a>])
<fis a>[( <g b> <a c>]) <a c>[( <g b> <fis a>])
<e g>[( <fis a> <g b>]) <g b>[( <fis a> <e g>])
<e g>[( <fis a> <g b>]) <g b>[( <fis a> <e g>]) } |
\times 2/3 {
<fis a>16[(\mf <g b> <a c>]) <a c>[( <g b> <fis a>])
<fis a>[( <g b> <a c>]) <a c>[( <g b> <fis a>])
<e g>[( <fis a> <g b>]) <g b>[( <fis a> <e g>])
<e g>[( <fis a> <g b>]) <g b>[( <fis a> <e g>]) } |
\relative c,,{
\times 2/3 {
<fis a>16[(\mf <g b> <a c>]) <a c>[( <g b> <fis a>])
<fis a>[( <g b> <a c>]) <a c>[( <g b> <fis a>])
<e g>[( <fis a> <g b>]) <g b>[( <fis a> <e g>])
<e g>[( <fis a> <g b>]) <g b>[( <fis a> <e g>]) }} |
\relative c,{
\times 2/3 {
<fis a>16[(\mf <g b> <a c>]) <a c>[( <g b> <fis a>])
<fis a>[( <g b> <a c>]) <a c>[( <g b> <fis a>])
<e g>[( <fis a> <g b>]) <g b>[( <fis a> <e g>]) }}
\relative c,,{ \times 2/3 {
<e g>[(\ff <fis a> <g b>]) <g b>[( <fis a> <e g>]) }} |
\relative c,,{
\times 2/3 {
<fis a c>16[( <g b d> <a c e>]) <a c e>[( <g b d> <fis a c>])
<fis a c>[( <g b d> <a c e>]) <a c e>[( <g b d> <fis a c>])
<e g b>[( <fis a c> <g b d>]) <g b d>[( <fis a c> <e g b>])
<e g b>[( <fis a c> <g b d>]) <g b d>[( <fis a c> <e g b>]) }} |
R1 * 3 |
\times 2/3 {
<fis a>16[(\mf <g b> <a c>]) <a c>[( <g b> <fis a>])
<fis a>[( <g b> <a c>]) <a c>[( <g b> <fis a>])
<e g>[( <fis a> <g b>]) <g b>[( <fis a> <e g>])
<e g>[( <fis a> <g b>]) <g b>[( <fis a> <e g>]) } |
\times 2/3 {
<fis a>16[(\mf <g b> <a c>]) <a c>[( <g b> <fis a>])
<fis a>[( <g b> <a c>]) <a c>[( <g b> <fis a>])
<e g>[( <fis a> <g b>]) <g b>[( <fis a> <e g>])
<e g>[( <fis a> <g b>]) <g b>[( <fis a> <e g>]) } \bar "|."
}
\score {
\context StaffGroup <<
\new Staff {\Soprano}
\new Staff {\Treble}
>>
\layout { \context { \RemoveEmptyStaffContext }}
\midi {}
}
---- name dream-sheet.latex ------------------------------------------------------
\documentclass{article}
\usepackage[dvips]{graphicx,color}
\definecolor{lavenderblush}{rgb}{1,0.94116,0.96077}
\usepackage{geometry}
\geometry{a4paper,width=180mm,bottom=8mm,headsep=6mm,%
top=4mm,headheight=6mm,footskip=5mm,portrait}
\parindent=0pt
\begin{document}
\thispagestyle{empty}
\pagecolor{lavenderblush}
\vspace*{-16pt}
\hspace*{-20pt}
\input dream-systems.tex
\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
----------------------------------------------------------------------------------