ソース記述(wood.ly , wood-sheet.latex , run-script)
---- name wood.ly ----------------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.12.1"
#(set-default-paper-size "a4")
#(set-global-staff-size 20)
\header {
dedication = "Wordless Poem"
title = "A world in a wood"
subtitle = "Opus 1"
subsubtitle = "December 20, 2004"
composer = \markup { \italic "yukio yoshida" }
}
woodA=
\relative c' { \clef treble \key c\major \time 3/4
\tempo 4 = 84
%% 1--4
g''4\mp a,8 f\mf c4 | a'8\f g d4. f8 | c8[ c] d d f[ f] |
a'16\fff[ b8] g16\fp f2^\sf \bar "|" \break
%% 5--8
b,16[(\f c d b e g g b, d]) a8. |
c16[( d d b]) d,4. f16[( a ]) |
a4 b16[( f f e ]) c[( e g b]) |
r2 f16-.[ r f-. r] \bar "|" \break
%% 9--12
g4 a8 b e4 | c8 b g4. a8 | f4-. g-. f-. | a g2 \bar "|" \break
%% 13--15
b32[( c d b e g b, d]) e,[( g b d b d c b]) b[( c d b e g b, d]) |
c[( d d b f a a b]) f[( a a d b d d c]) c[( d d b f a a b]) |
b[( f f e c e g b]) c,[( e g b e, f f b]) b[( f f e c e g b])
\bar "|" \break
%% 16
a2._\markup{\hspace #18 \italic "Fine"}
\mark \markup {\hspace #1 \musicglyph #"scripts.ufermata"}
\bar "||" }
woodB=
\relative c' {
%% 17--19
R2. | R2. | a'16[\p b8] g16\mp a2\f \bar "|" \break
%% 20--23
c,32[( e g b e, f f b]) c16[( d d b]) f[( a a d]) |
\clef bass
a,,4 c2 | b,4 e2 | d2. \bar"|" \break
%% 24--27
\clef treble
a'''4 \grace c16( b4) \grace{g16[ a(]} f4) |
a4 \grace {c16( d e f} e4) f4 |
c,4 \grace {c16[ c, \clef bass c, b]} f'4 \clef bass d |
<b' e>4 <a d> <c f> \bar"|" \break
%% 28--32
<a c>4 <g b> <f a> | <d f a>2. | <c d e> | <g' a>4 <g f> <d e> |
<c e g>8\arpeggio[ <f a c>8\arpeggio] <d f a>2\arpeggio
<c d e>2.( <d e f>)_\markup{\hspace #8 \italic "D.C."} \bar "||" }
\score { \context Staff = mel { \woodA \woodB }
\layout {}
}
\score { \context Staff = mel { \woodA \woodB \woodA}
\midi { \tempo 4 = 84 }
}
---- name wood-sheet.latex ------------------------------------------------------
\documentclass{article}
\usepackage[dvips]{graphicx,color}
\definecolor{darkgreen}{rgb}{0,0.39215,0}
\usepackage{geometry}
\geometry{a4paper,width=180mm,bottom=8mm,headsep=6mm,%
top=4mm,headheight=6mm,footskip=5mm,portrait}
\parindent=0pt
\begin{document}
\thispagestyle{empty}
\pagecolor{darkgreen}
\vspace*{-16pt}
\hspace*{-20pt}
\input wood-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
----------------------------------------------------------------------------------