re: terrible question for a distinctive chord name system

[hhpmusic]

Dear Werner:
  THank you for your advice. Here's my first exercise for suspension notes. I don't know whether the result looks satisfying Could you all help me?

\version "2.11.49"

\include "mydefs.ly"

#(ly:set-option 'point-and-click #f)

\header {
  tagline = ##f
  title = \markup { \fontsize #2 "Ex. 36-551" }
}

  IupperI = \relative c'' {
    \clef treble \key fis \minor \time 4/4
    \override MetronomeMark #'stencil = ##f
    \tempo 2=60
    cis2\mark \markup { \bold \fontsize #2 "1" } fis ~ | fis4 eis fis cis ~ |
    cis b2 a4 | gis2 b ~ |
    b4 a b d ~ | d cis2 e4 ~ |
    e d cis2 ~ | cis4 cis2 b4 ~ |
    b a2 gis4 | fis1 \bar "||" \break
  }

  IupperII = \relative c' {
    fis1 | gis2 fis |
    fis1 | eis2 gis |
    fis1 ~ | fis ~ |
    fis | e2 d ~ |
    d b | a1 \bar "||"
  }

  IlowerI = \relative c' {
    \clef bass \key fis \minor \time 4/4
    a2 cis ~ | cis1 |
    d2 dis | cis1 |
    cis2 b | cis1 |
    b2 cis | fis,1 ~ |
    fis2 eis | fis1 \bar "||"
  }

  IlowerII = \relative c, {
    fis2 a | b a |
    b bis | cis eis |
    fis d4 b | a2 ais |
    b a | ais b |
    bis cis | fis,1 \bar "||"
  }

  Ichords = {
    s2_\markup { \bold "t" } s_\markup { \bold "6" } | s_\markup { \bold "D2" } s_\markup { \bold "t6" }
    s_\markup { \bold "s" } s_\markup { \bold "DDVII" \translate #(cons 0 1) \column { "-" "7" } } | s_\markup { \bold "D" } s_\markup { \bold { \column { "6" "5" } } } |
    s2_\markup { \bold "t" } s4_\markup { \bold "s6" } s4_\markup { \bold "s" } | s2_\markup { \bold "t6" } s4_\markup { \bold "D6" \arrow-head #X #RIGHT ##t } s4_\markup { \bold \column { "6" "5" } \arrow-head #X #RIGHT ##t } |
    s2_\markup { \bold "s" } s2_\markup { \bold "t6" } | s2_\markup { \bold "D" \column { "6" "5" } \arrow-head #X #RIGHT ##t } s2_\markup { \bold "s" } |
    s2_\markup { \bold \smaller \flat "3 DDVII" \translate #(cons 0 1) \column { "-" "7" } } s2_\markup { \bold "D7" } | s1_\markup { \bold "t" } \bar "||"
  }

  \score {
    \new PianoStaff <<
      \set PianoStaff.midiInstrument = "choir aahs"
      \new Staff = "rh" { << \voiceOne \IupperI \voiceTwo \IupperII >> }
      \new Staff = "lh" { << \voiceOne \IlowerI \voiceTwo \IlowerII >> }
      \new ChordSymbols = "chords" \Ichords
    >>
    \layout {
      \context {
        \type "Engraver_group"
        \name ChordSymbols
        \alias Voice
        \consists "Output_property_engraver"
        \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
        \consists "Script_engraver"
        \consists "Text_engraver"
        \override TextScript #'font-size = #2
        \consists "Skip_event_swallow_translator"
        \consists "Axis_group_engraver"
      }
      \context {
        \PianoStaff
        \accepts ChordSymbols
      }
    }
    \midi { }
  }

 

 

 

 

---

CBD板楼精装两居

harmony.ly
Description: Text Data