Ok this:

\version "2.18.0"

ottavaa = {
  \ottava 1
  \set Staff.ottavation = \markup \bold \italic \concat {
    "8" \fontsize #-2 \translate-scaled #'(0 . 0.85) "va"
  }
}

ottavab = {
  \ottava -1
  \set Staff.ottavation = \markup \bold \italic \concat {
    "8" \fontsize #-2 "vb"
  }
}

ottavac = {
  \ottava 2
  \set Staff.ottavation = \markup \bold \italic \concat {
    "15" \fontsize #-2 \translate-scaled #'(0 . 0.85) "ma"
  }
}

ottavad = {
  \ottava -2
  \set Staff.ottavation = \markup \bold \italic \concat {
    "15" \fontsize #-2 "mb"
  }
}

ottavae = {
  \ottava 3
  \set Staff.ottavation = \markup \bold \italic \concat {
    "22" \fontsize #-2 \translate-scaled #'(0 . 0.85) "ma"
  }
}

ottavaf = {
  \ottava -3
  \set Staff.ottavation = \markup \bold \italic \concat {
    "22" \fontsize #-2 "mb"
  }
}

<<
  % current output
  \new Staff \relative c''' {
    \ottava #1 a a
    \ottava #-1 a,, a
    \ottava #2 a''' a
    \ottava #-2 a,,,, a
    \ottava #3 a''''' a
    \ottava #-3 a,,,,,, a
    \ottava #0
  }
  % wish
  \new Staff \relative c''' {
    \ottavaa a a
    \ottavab a,, a
    \ottavac a''' a
    \ottavad a,,,, a
    \ottavae a''''' a
    \ottavaf a,,,,,, a
    \ottava #0
  }
>>

_______________________________________________
bug-lilypond mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/bug-lilypond

Reply via email to