\version "2.12.3"


Barre = #(define-music-function (parser location grow) (number?)
#{
  \override Arpeggio #'stencil = #ly:arpeggio::brew-chord-bracket
  \once \override Arpeggio #'positions  = #(lambda (grob)
    (let ((iv (ly:arpeggio::calc-positions grob))
          (grow-hi (max 0 (/ $grow 2)))
          (grow-lo (min 0 (/ $grow 2))))
      (cons (+ (car iv) grow-lo) (+ (cdr iv) grow-hi))))
  $(make-music 'EventChord 'elements (list (make-music 'ArpeggioEvent)))
#})

<<
  \clef "treble_8"
 
  \relative c { 
              %Barre verschieben
              %\once \override Arpeggio #'padding = #3 
              \Barre #5 f'8 a d a
              }
  \\
  \relative c, { 
               d'2 ^ \markup {  "X"}
               }
>>