input/regression/harp-pedals-tweaking.ly

   1 \version "2.14.0"
   2
   3 \header {
   4   texidoc = "Harp pedals can be tweaked through the size, thickness and
   5 harp-pedal-details properties of TextScript."
   6 }
   7
   8 \relative c'' {
   9   \override Score.PaperColumn #'keep-inside-line = ##f
  10   \override Voice.TextScript #'(harp-pedal-details box-width) = #1
  11   \once \override Voice.TextScript #'size = #1.5
  12   \once \override Voice.TextScript #'thickness = #7
  13   c1^\markup \harp-pedal #"o^ovo-|vovo-o^"
  14   c1^\markup \override #'(harp-pedal-details . (
  15                   (box-width . 0.6)
  16                   (box-height . 0.3)
  17                   (box-offset . 0.5)
  18                   (space-before-divider . 0.1)
  19                   (space-after-divider . 1.2))) {
  20            \harp-pedal #"o^ovo-|vovo-o^"}
  21   \revert Voice.TextScript #'(harp-pedal-details box-width)
  22   \override Voice.TextScript #'(harp-pedal-details circle-thickness) = #3
  23   \override Voice.TextScript #'(harp-pedal-details circle-x-padding) = #0.6
  24   \override Voice.TextScript #'(harp-pedal-details circle-y-padding) = #-0.3
  25   c1^\markup \harp-pedal #"o^ovo-|vovo-o^"
  26 }