A World in a Wood

          wood.mid           wood.pdf           wood-sheet.pdf           wood.mp3

This sounds "wood.mp3" and Please click! music plays.
[picture of music]


Source code(wood.ly , wood-sheet.latex , run-script.cmd)
---- name wood.ly ----------------------------------------------------------------
%% -*- Coding: utf-8 -*-
\version "2.18.0"
#(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 ------------------------------------------------
@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 wood.ly[Enter]

run-script.cmd;(cmd prompt)  >run-script wood[Enter]
(However, this "Windows10(64) + LilyPond(ver2.18.*) + W32TeX(& UP) + Ghostscript(edtion 64bit)" is required.)