赤鼻のトナカイ

夏なのに頭のなかに赤鼻のトナカイのメロディーが流れたので楽譜を探したところ持っている楽譜にありませんでした。
そこで久しぶりに楽譜を書いてみることにしました。

八分音符2つを三連符の四分音符と八分音符で弾むように弾く、という指定がはじめに入っていますが、これをLilyPondで書くのに苦労しました。最後はアイデアで\bookpartの中に\scoreを2つ入れる、という方法をとっています。これが正しいかどうかわかりません。
21小節目の和音進行とその表記は自信がありません。
24小節目で2つの声部が重なるので音符の上下にステムが出るところの書き方もわからなかったので工夫しました。
22小節目と23小節目に出てくる、アクシデンタルのナチュラル記号は、小節が変わっているのでデフォルトではついてくれなかった。これをつける方法も探しました。
rudolph03.midi
rudolph03.pdf

\version "2.14.2"

\header {
  title = "赤鼻のトナカイ"
  subtitle = "Rudolph the Red-Nosed Reindeer"
  composer = "J. Marks"
}

chExceptionMusic = {
  <c es ges>1-\markup { \super "dim" }
}
chExceptions = #( append
                  ( sequential-music-to-chord-exceptions chExceptionMusic #t)
                  ignatzekExceptions)

global = {
  \key c \major
  \time 4/4
  \tempo 4=152
}

chordNames = \chordmode {
  \global
  \set chordChanges = ##t
  \set chordNameExceptions = #chExceptions
  c1 c  c g:7
  g:7 g:7 g:7 c
  c c c g:7
  g:7 g:7 g:7 c2 c:7
  f1 c d2:m7 g:7 c1
  g2 e4:m es:dim g2:/d e:m7
  a:m d:7 g1:7
  c1 c c g:7
  g:7 g:7 g:7 c

}

melody = \relative c'' {
  \global
  g4 a8 g
  %{
    <<

    \new Staff \with {
    \remove "Time_signature_engraver"
    \remove "Staff_symbol_engraver"
    firstClef = ##f
    alignAboveContext = #"main"
    }
    \relative c' {c8[ c]}
    >>
  %}
  e4 c'
  % 1
  a g2 r4 % 2
  g8 a g a g4 c %3
  b2. r4 %4
  \break
  f8 g f4 d b' %5
  a g2 r4 %6
  g8 a g a g4 a %7
  e2. r4 %8
  \break
  g8 a g4 e c' %9
  a g2 r4 %10
  g8 a g a g4 c %11
  b2. r4 %12
  \break
  f4 g8 f8 d4 b' %13
  a g2 r4 %14
  g8 a g a g4 d' %15
  c2. r4 %16
  \break
  <a f>4 <a f> <c a> <a f> %17
  <g e> <e c> <g e>2 %18
  <f d>4 <a f> <g e> <f d> %19
  <e c>2. r4 %20
  \break
  <d b>4 <e b> <g e> <a es> %21
  <b d,> <b d,> <b d,>2 %22
  <c e,!>4 <c e,> <b fis> <a fis> %23
  %  <g g> <f f>8 <d d>~ <d d>4 r %24
  <<
    \new Voice {
      %24
      \voiceOne
      {
        g4 f!8 d~ d4
      }
    }

    \new Voice {
      \voiceTwo
      \stemDown
      {
        g4 f8 d~ d4
      }
    }
  >>
  r4
  g8 a g4 e c' %25
  a g2 r4 %26
  g8 a g a g4 c %27
  b2. r4 %28
  \break
  f8 g f4 d b' %29
  a g2 r4 %30
  g8 a g a g4 d' %31
  c2. r4 %32

  \bar "|."
}

verse = \lyricmode {
  % Lyrics follow here.
}

\bookpart {
  \score {
    \new Staff \with {
      \remove "Time_signature_engraver"
      \remove "Staff_symbol_engraver"
      firstClef = ##f
      alignAboveContext = #"main"
    }
    \relative c' {
      c8[ c]
      \hideNotes

      \override TextScript #'extra-offset = #'(2 . 4)
      a2-\markup { \pad-markup #1.0 "=" }
      \unHideNotes
      \times 2/3 {c4 c8}
    }

  }
  \score {
    <<
      \new ChordNames \chordNames
      \new Staff {
        \melody
      }
      \addlyrics { \verse }
    >>
    \layout { }
    \midi {
      \context {
        \Score
        tempoWholesPerMinute = #(ly:make-moment 152 4)
      }
    }
  }
}