…foot; value = list (glide-grobs '()) ;; key = gliding foot; value = spanner grob (glide-tweaks '()) ;; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;; Constants ;; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ (lfoot-plain ;; Standard Lilypond: '("lheel" "ltoe" ;; … …astr) (let* ((y (get_vadjustment_startfoot astr))) (adjust_spanner_y spannergrob 'right y)))) ) ;; end of "let" bindings … …glide-tweaks endfoot '())) ;; Set right bound. ;; Select the preceding spanner grob via our startfoot (its ;; endfoot) from glide-grobs, …