Implement MeasureSpanner

scm/define-grobs.scm

 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
 ;;;; Copyright (C) 1998--2019 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
 ;;;; the Free Software Foundation, either version 3 of the License, or
 ;;;; (at your option) any later version.
 ;;;;
@@ skipping 1432 matching lines @@
         (X-align-on-main-noteheads . #t)
         (X-offset . ,ly:self-alignment-interface::aligned-on-x-parent)
         (Y-extent . ,grob::always-Y-extent-from-stencil)
         (meta . ((class . Item)
                  (interfaces . (font-interface
                                 lyric-syllable-interface
                                 rhythmic-grob-interface
                                 self-alignment-interface
                                 text-interface))))))
 
+    (MeasureAttachedSpanner
+     . (
+        (connect-to-neighbor . ,ly:measure-attached-spanner::calc-connect-to-neighbors)
+        (direction . ,UP)
+        ;(font-size . -2)

[thomasmorley651, 2019/11/16 14:42:02]

Mmh, this is commented. Why?
Same below.

[david.nalesnik, 2019/11/21 17:32:16]

Just some test code.  Removed.

+        (edge-height . (0.7 . 0.7))
+        ;(outside-staff-horizontal-padding . 0.5)
+        (outside-staff-priority . 750)
+        (self-alignment-X . ,CENTER)
+        (side-axis . ,Y)
+        (staff-padding . 0.5)
+        (stencil . ,ly:measure-attached-spanner::print)
+        (Y-offset . ,side-position-interface::y-aligned-side)
+        (meta . ((class . Spanner)
+                 (interfaces . (font-interface
+                                measure-attached-spanner-interface
+                                line-interface
+                                outside-staff-interface
+                                self-alignment-interface
+                                side-position-interface
+                                text-interface))))))
+
     (MeasureCounter
      . (
         (count-from . 1)
         (direction . ,UP)
         (font-encoding . fetaText)
         (font-size . -2)
         (outside-staff-horizontal-padding . 0.5)
         (outside-staff-priority . 750)
         (self-alignment-X . ,CENTER)
         (side-axis . ,Y)
@@ skipping 1425 matching lines @@
 ;; make sure that \property Foo.Bar =\turnOff doesn't complain
 
 (for-each (lambda (x)
             ;; (display (car x)) (newline)
 
             (set-object-property! (car x) 'translation-type? ly:grob-properties?)
             (set-object-property! (car x) 'is-grob? #t))
           all-grob-descriptions)
 
 (set! all-grob-descriptions (sort all-grob-descriptions alist<?))