X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-grobs.scm;h=becbc1c597198934cb0a8810b0d7204c7430543e;hb=c44e6e55681395d4ae4d59807aeab0b136d933bc;hp=c07a9537defd0b19f30fd8b5303f40e2213d8883;hpb=8ef188110ffeeb73421169a00a9cb8e3c7f8df10;p=lilypond.git

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index c07a9537de..becbc1c597 100644
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; (c) 1998--2006 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 1998--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 
 ;;;; distances are given in line-thickness (thicknesses) and
@@ -51,10 +51,15 @@
 				accidental-suggestion-interface
 				self-alignment-interface
 				font-interface))))))
+
     (AccidentalPlacement
      . (
 	(left-padding . 0.2)
 
+	;; for horizontally stacked scripts.
+	(script-priority .  -100)
+	(direction .  ,LEFT)
+	
 	(positioning-done . ,ly:accidental-placement::calc-positioning-done)
 	(X-extent . ,ly:axis-group-interface::width)		      
 	
@@ -63,6 +68,7 @@
 	(right-padding . 0.15)
 	(meta . ((class . Item)
 		 (interfaces . (accidental-placement-interface))))))
+    
     (Ambitus
      . (
 	(axes . (0 1))
@@ -130,6 +136,7 @@
 	(X-offset . ,ly:side-position-interface::x-aligned-side)
 	(direction . ,LEFT)
 	(padding . 0.5)
+	(script-priority . 0)
 	(side-axis . ,X)
 	(staff-position . 0.0)
 	(meta . ((class . Item)
@@ -138,10 +145,19 @@
 				side-position-interface
 				font-interface))))))
 
+    (BalloonTextItem 
+     . ((stencil . ,ly:balloon-interface::print)
+	(text . ,(grob::calc-property-by-copy 'text)) 
+	(X-offset . ,(grob::calc-property-by-copy 'X-offset)) 
+	(Y-offset . ,(grob::calc-property-by-copy 'Y-offset)) 
+	(meta . ((class . Item)
+		 (interfaces . (text-interface
+				font-interface))))))
     (BarLine
      . (
 	(break-align-symbol . staff-bar)
 	(glyph . "|")
+	(gap . 0.4)
 	(layer . 0)
 	(break-visibility . ,all-visible)
 	(non-musical . #t)
@@ -188,17 +204,19 @@
 	(X-offset . ,(ly:make-simple-closure
 		      `(,+
 			,(ly:make-simple-closure
-			  (list ly:break-alignment-align-interface::self-align-callback))
+			  (list ly:break-alignable-interface::self-align-callback))
 			,(ly:make-simple-closure
 			  (list ly:self-alignment-interface::x-aligned-on-self)))))
 
 	(self-alignment-X . 1)
+
+	;; want the bar number before the clef at line start. 
 	(break-align-symbol . left-edge)
 	(meta .
 	      ((class . Item)
 	       (interfaces . (side-position-interface
 			      text-interface
-			      break-alignment-align-interface
+			      break-alignable-interface
 			      self-alignment-interface
 			      font-interface
 			      ))))
@@ -314,11 +332,19 @@
 		 (interfaces . (staff-symbol-referencer-interface
 				beam-interface))))))
 
+    (BendAfter
+     . (
+	(stencil . ,bend::print)
+	(thickness . 2.0)
+	(meta . ((class . Spanner)
+		 (interfaces . (spanner-interface
+				bend-after-interface))))))
+
     (BreakAlignment
      . (
 	(non-musical . #t)
 	(stacking-dir . 1)
-	(positioning-done . ,ly:break-align-interface::calc-positioning-done)
+	(positioning-done . ,ly:break-alignment-interface::calc-positioning-done)
 	(X-extent . ,ly:axis-group-interface::width)
 	(break-align-orders . ;; end of line
 			    #((
@@ -396,6 +422,7 @@
 	(stencil . ,ly:clef::print)
 	(glyph-name . ,ly:clef::calc-glyph-name)
 	(non-musical . #t)
+	(avoid-slur . inside)
 	(font-family . music)
 	(break-align-symbol . clef)
 	(break-visibility . ,begin-of-line-visible)
@@ -497,7 +524,7 @@
     (Dots
      . (
 	(stencil . ,ly:dots::print)
-	(dot-count . 1)
+	(dot-count . ,dots::calc-dot-count)
 	(meta . ((class . Item)
 		 (interfaces . (font-interface
 				staff-symbol-referencer-interface
@@ -516,7 +543,7 @@
 	(meta . ((class . Item)
 		 (interfaces . (font-interface
 				break-aligned-interface
-				percent-repeat-interface))))))
+				percent-repeat-item-interface))))))
 
     (DoublePercentRepeatCounter
      . (
@@ -534,7 +561,7 @@
 	(meta . ((class . Item)
 		 (interfaces . (side-position-interface
 				self-alignment-interface
-				percent-repeat-interface
+				percent-repeat-item-interface
 				font-interface
 				text-interface))))))
     (DynamicLineSpanner
@@ -548,6 +575,7 @@
 	(minimum-space . 1.2)
 	(direction . ,DOWN)
 	(side-axis . ,Y)
+	(outside-staff-priority . 250)
 	(Y-extent . ,ly:axis-group-interface::height)
 	(X-extent . ,ly:axis-group-interface::width)
 	(meta . ((class . Spanner)
@@ -573,7 +601,7 @@
 	(font-shape . italic)
 	(avoid-slur . around)
 	(no-spacing-rods . #t)
-	(script-priority . 100)
+	(outside-staff-priority . 250)
 	(meta . ((class . Item)
 		 (interfaces . (font-interface
 				text-interface
@@ -603,6 +631,7 @@
 				dynamic-text-spanner-interface
 				spanner-interface))))))
 
+				
     (Fingering
      . (
 
@@ -618,7 +647,7 @@
 
 	(stencil . ,ly:text-interface::print)
 	(direction . ,ly:script-interface::calc-direction)
-
+	(text . ,fingering::calc-text) 
 	(font-encoding . fetaNumber)
 	(font-size . -5) 		; don't overlap when next to heads.
 	(meta . ((class . Item)
@@ -629,12 +658,19 @@
 				side-position-interface
 				self-alignment-interface
 				item-interface))))))
+    (FretBoard
+     . ((stencil . ,fret-board::calc-stencil)
+	(finger-code . below-string)
+	(meta . ((class . Item)
+		 (interfaces . (fret-diagram-interface
+				font-interface
+				))))
+	      ))
     (Glissando
      . (
 	(style . line)
 	(gap . 0.5)
 	(zigzag-width . 0.75)
-	(non-musical . #t)
 	(X-extent . #f)
 	(Y-extent . #f)
 	(stencil . ,ly:line-spanner::print)
@@ -643,6 +679,16 @@
 		 (interfaces . (line-interface
 				line-spanner-interface))))))
 
+    (GraceSpacing
+     . (
+	(common-shortest-duration . ,grace-spacing::calc-shortest-duration)
+	(spacing-increment . 0.8)
+	(shortest-duration-space . 1.6)
+	(meta . ((class . Spanner)
+		 (interfaces . (grace-spacing-interface
+				spacing-interface
+				spacing-options-interface
+				spanner-interface))))))
     (GridPoint
      . (
 	(X-extent . (0 . 0))
@@ -670,6 +716,7 @@
 	(stencil . ,ly:hairpin::print)
 	(springs-and-rods . ,ly:spanner::set-spacing-rods)
 	(after-line-breaking . ,ly:hairpin::after-line-breaking)
+	(grow-direction . ,hairpin::calc-grow-direction)
 	(circled-tip . #f)
 	(thickness . 1.0)
 	(height . 0.6666)
@@ -689,6 +736,8 @@
 	(thickness . 1.0)
 	(stencil . ,ly:horizontal-bracket::print)
 	(Y-offset . ,ly:side-position-interface::y-aligned-side)
+	(connect-to-neighbor . ,ly:tuplet-bracket::calc-connect-to-neighbors)
+	
 	(padding . 0.2)
 	(staff-padding . 0.2)
 	(direction . ,DOWN)
@@ -711,6 +760,20 @@
 				side-position-interface
 				font-interface))))))
 
+    (InstrumentSwitch
+     . (
+	(padding . 0.3)
+	(stencil . ,ly:text-interface::print)
+	(Y-offset . ,ly:side-position-interface::y-aligned-side)
+	(X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
+	(staff-padding . 2)
+	(direction . ,UP)
+	(self-alignment-X . ,CENTER)
+	(meta . ((class . Item)
+		 (interfaces . (system-start-text-interface
+				side-position-interface
+				font-interface))))))
+    
     (KeyCancellation
      . (
 	(stencil . ,ly:key-signature-interface::print)
@@ -731,6 +794,7 @@
     (KeySignature
      . (
 	(stencil . ,ly:key-signature-interface::print)
+	(avoid-slur . inside)
 	(space-alist . (
 			(time-signature . (extra-space . 1.15))
 			(staff-bar . (extra-space . 1.1))
@@ -750,9 +814,10 @@
      . (
 	(stencil  . ,ly:tie::print)
 	(control-points . ,ly:semi-tie::calc-control-points)
-	(direction . ,ly:semi-tie::calc-direction)
+	(direction . ,ly:tie::calc-direction)
 	(details . ((ratio . 0.333)
 		    (height-limit . 1.0)))
+	(head-direction . ,LEFT)
 	(thickness . 1.0)
 	(meta . ((class . Item)
 		 (interfaces . (semi-tie-interface))
@@ -780,7 +845,7 @@
 	(length-fraction . 0.25)
 	(layer . 0)
 	(meta . ((class . Spanner)
-		 (interfaces . (ledger-line-interface))))))
+		 (interfaces . (ledger-line-spanner-interface))))))
 
     (LeftEdge
      . (
@@ -842,8 +907,8 @@
 	(minimum-length . 0.3)
 	(minimum-distance . 0.1)
 	(padding . 0.07)
-	(springs-and-rods . ,ly:hyphen-spanner::set-spacing-rods)
-	(stencil . ,ly:hyphen-spanner::print)
+	(springs-and-rods . ,ly:lyric-hyphen::set-spacing-rods)
+	(stencil . ,ly:lyric-hyphen::print)
 	(Y-extent . (0 . 0))
 	(meta . ((class . Spanner)
 		 (interfaces . (lyric-interface
@@ -853,7 +918,7 @@
 
     (LyricSpace
      . ((minimum-distance . 0.45)
-	(springs-and-rods . ,ly:hyphen-spanner::set-spacing-rods)
+	(springs-and-rods . ,ly:lyric-hyphen::set-spacing-rods)
 	(padding . 0.0)
 	(Y-extent . #f)
 	(X-extent . #f)
@@ -862,9 +927,11 @@
 				lyric-hyphen-interface spacing-interface))
 		 ))
 	))
+    
     (LyricText
      . (
-	(stencil . ,ly:text-interface::print)
+	(stencil . ,lyric-text::print)
+	(text . ,(grob::calc-property-by-copy 'text)) 
 	(X-offset . ,ly:self-alignment-interface::aligned-on-x-parent)
 	(self-alignment-X . 0)
 	(word-space . 0.6)
@@ -980,6 +1047,26 @@
 				font-interface
 				text-interface))))))
 
+    (NonMusicalPaperColumn
+     . (
+	(allow-loose-spacing . #t)
+	(axes . (0))
+	(before-line-breaking . ,ly:paper-column::before-line-breaking)
+	(X-extent . ,ly:axis-group-interface::width)
+	;;		      (stencil . ,ly:paper-column::print)
+	
+	(non-musical . #t)
+	(line-break-permission . allow)
+	(page-break-permission . allow)
+
+	;; debugging stuff: print column number.
+	;;		 (font-size . -6) (font-name . "sans")	(Y-extent . #f)
+
+	(meta . ((class . Paper_column)
+		 (interfaces . (paper-column-interface
+				axis-group-interface
+				spaceable-grob-interface))))))
+    
     (NoteCollision
      . (
 	(axes . (0 1))
@@ -1002,6 +1089,7 @@
     (NoteHead
      . (
 	(stencil . ,ly:note-head::print)
+	(duration-log . ,note-head::calc-duration-log)
 	(stem-attachment . ,ly:note-head::calc-stem-attachment)
 	(glyph-name . ,note-head::calc-glyph-name) 
 	(Y-offset . ,ly:staff-symbol-referencer::callback)
@@ -1043,9 +1131,6 @@
 	
 	(Y-offset . ,ly:side-position-interface::y-aligned-side)
 	(stencil . ,ly:text-interface::print)
-
-	;; no Y dimensions, because of lyrics under tenor clef.
-	(Y-extent . (0 . 0))
 	(font-shape . italic)
 	(padding . 0.6)
 	(staff-padding . 0.2)
@@ -1068,6 +1153,7 @@
 	(dash-fraction . 0.3)
 	(edge-height . (0 . 1.2))
 	(direction . ,UP)
+	(outside-staff-priority . 400)
 	(meta . ((class . Spanner)
 		 (interfaces . (ottava-bracket-interface
 				horizontal-bracket-interface
@@ -1079,6 +1165,7 @@
     (PaperColumn
      . (
 	(axes . (0))
+	(allow-loose-spacing . #t)
 	(before-line-breaking . ,ly:paper-column::before-line-breaking)
 	;; (stencil . ,ly:paper-column::print)
 	(X-extent . ,ly:axis-group-interface::width)
@@ -1092,11 +1179,20 @@
 
     (ParenthesesItem
      . ((stencil . ,parentheses-item::print)
+	(stencils . ,parentheses-item::calc-parenthesis-stencils)
 	(font-size . -6)
 	(padding . 0.2)
 	(meta . ((class . Item)
 		 (interfaces . (parentheses-interface font-interface))))
 	))
+
+    (HarmonicParenthesesItem
+     . ((stencil . ,parentheses-item::print)
+	(padding . 0)
+	(stencils . ,parentheses-item::calc-angled-bracket-stencils)
+	(meta . ((class . Item)
+		 (interfaces . (parentheses-interface font-interface))))
+	))
     
     (PhrasingSlur
      . ((details . ,default-slur-details)
@@ -1112,23 +1208,7 @@
 	(meta . ((class . Spanner)
 		 (interfaces . (slur-interface))))))
 
-    (NonMusicalPaperColumn
-     . (
-	(axes . (0))
-	(before-line-breaking . ,ly:paper-column::before-line-breaking)
-	(X-extent . ,ly:axis-group-interface::width)
-	;;		      (stencil . ,ly:paper-column::print)
-	
-	(non-musical . #t)
-	(line-break-permission . allow)
-
-	;; debugging stuff: print column number.
-	;;		 (font-size . -6) (font-name . "sans")	(Y-extent . #f)
 
-	(meta . ((class . Paper_column)
-		 (interfaces . (paper-column-interface
-				axis-group-interface
-				spaceable-grob-interface))))))
 
     (PercentRepeat
      . (
@@ -1140,7 +1220,7 @@
 	(meta . ((class . Spanner)
 		 (interfaces . (multi-measure-rest-interface
 				font-interface
-				percent-repeat-interface))))))
+				percent-repeat-item-interface))))))
     (PercentRepeatCounter
      . (
 	(stencil . ,ly:text-interface::print)
@@ -1157,7 +1237,7 @@
 	(meta . ((class . Spanner)
 		 (interfaces . (side-position-interface
 				self-alignment-interface
-				percent-repeat-interface
+				percent-repeat-item-interface
 				font-interface
 				text-interface))))))
 
@@ -1183,7 +1263,7 @@
 	(X-offset . ,(ly:make-simple-closure
 		      `(,+
 			,(ly:make-simple-closure
-			  (list ly:break-alignment-align-interface::self-align-callback))
+			  (list ly:break-alignable-interface::self-align-callback))
 			,(ly:make-simple-closure
 			  (list ly:self-alignment-interface::x-aligned-on-self)))))
 
@@ -1196,30 +1276,32 @@
 	(break-visibility . ,end-of-line-invisible)
 	(break-align-symbol . staff-bar)
 	(padding . 0.8)
+	(outside-staff-priority . 1000)
 	(meta . ((class . Item)
 		 (interfaces . (text-interface
 				side-position-interface
-				break-alignment-align-interface
+				break-alignable-interface
 				font-interface
 				mark-interface
 				self-alignment-interface))))))
 
-
     (RepeatSlash
      . (
 	(stencil . ,ly:percent-repeat-item-interface::beat-slash)
 	(thickness . 0.48)
 	(slope . 1.7)
 	(meta . ((class . Item)
-		 (interfaces . (percent-repeat-interface))))))
+		 (interfaces . (percent-repeat-item-interface))))))
+
     (RepeatTie
      . (
 	(stencil  . ,ly:tie::print)
 	(control-points . ,ly:semi-tie::calc-control-points)
-	(direction . ,ly:semi-tie::calc-direction)
+	(direction . ,ly:tie::calc-direction)
 	(details . ((ratio . 0.333)
 		    (height-limit . 1.0)))
 	(thickness . 1.0)
+	(head-direction . ,RIGHT)
 	(meta . ((class . Item)
 		 (interfaces . (semi-tie-interface))
 		 ))
@@ -1229,7 +1311,9 @@
      . (
 	(X-extent . #f)
 	(Y-extent . #f)
+	(direction . ,ly:tie::calc-direction)
 	(head-direction . ,RIGHT)
+	
 	(positioning-done . ,ly:semi-tie-column::calc-positioning-done)
 	(meta . ((class . Item)
 		 (interfaces . (semi-tie-column-interface))
@@ -1239,6 +1323,7 @@
     (Rest
      . (
 	(stencil . ,ly:rest::print)
+	(duration-log . ,stem::calc-duration-log)
 	(X-extent . ,ly:rest::width)
 	(Y-extent . ,ly:rest::height)
 	(Y-offset . ,ly:rest::y-offset-callback)
@@ -1261,13 +1346,12 @@
      . (
 	;; don't set direction here: it breaks staccato.
 
-	;; This value is sensitive: if too large, staccato dots will move a
-	;; space a away.
-	(padding . 0.20)
+	;; padding set in script definitions.
 	(staff-padding . 0.25)
 	;; (script-priority . 0) priorities for scripts, see script.scm
-	(X-offset . , ly:self-alignment-interface::centered-on-x-parent)
-	
+	(X-offset . ,ly:self-alignment-interface::centered-on-x-parent)
+	(Y-offset . ,ly:side-position-interface::y-aligned-side)
+	(side-axis . ,Y)
 
 	(stencil . ,ly:script-interface::print)
 	(direction . ,ly:script-interface::calc-direction)
@@ -1282,11 +1366,18 @@
 	(before-line-breaking . ,ly:script-column::before-line-breaking)
 	(meta . ((class . Item)
 		 (interfaces . (script-column-interface))))))
+    (ScriptRow
+     . (
+	(before-line-breaking . ,ly:script-column::row-before-line-breaking)
+	(meta . ((class . Item)
+		 (interfaces . (script-column-interface))))))
 
     (SeparationItem
      . (
-	(X-extent . #f)
-	(Y-extent . #f)
+	(avoid-slur . inside)
+	(X-extent . ,ly:axis-group-interface::width)
+	(Y-extent . ,ly:axis-group-interface::height)
+	(skylines . ,ly:separation-item::calc-skylines)
 	(meta . ((class . Item)
 		 (interfaces . (spacing-interface
 				separation-item-interface))))))
@@ -1297,7 +1388,7 @@
 	(meta . ((class . Spanner)
 		 (interfaces . (only-prebreak-interface
 				spacing-interface
-				separation-spanner-interface))))))
+				separating-group-spanner-interface))))))
 
     (Slur
      . ((details . ,default-slur-details)
@@ -1327,6 +1418,7 @@
 	(meta . ((class . Item)
 		 (interfaces . (text-interface
 				self-alignment-interface
+				piano-pedal-script-interface
 				font-interface))))))
 
     (SostenutoPedalLineSpanner
@@ -1346,13 +1438,15 @@
     (SpacingSpanner
      . (
 	(springs-and-rods . ,ly:spacing-spanner::set-springs)
+	(common-shortest-duration . ,ly:spacing-spanner::calc-common-shortest-duration)
 	(average-spacing-wishes . #t)
-	(grace-space-factor . 0.6)
 	(shortest-duration-space . 2.0)
 	(spacing-increment . 1.2)
+	
 	(base-shortest-duration . ,(ly:make-moment 3 16))
 	(meta . ((class . Spanner)
 		 (interfaces . (spacing-interface
+				spacing-options-interface				
 				spacing-spanner-interface))))))
 
     (SpanBar
@@ -1418,8 +1512,10 @@
     (Stem
      . (
 	(direction . ,ly:stem::calc-direction)
+	(duration-log . ,stem::calc-duration-log)
 	(default-direction . ,ly:stem::calc-default-direction)
 	(stem-end-position . ,ly:stem::calc-stem-end-position)
+
 	(neutral-direction . ,DOWN)
 	(stem-info . ,ly:stem::calc-stem-info)
 	(positioning-done . ,ly:stem::calc-positioning-done)
@@ -1480,6 +1576,7 @@
     (StringNumber
      . (
 	(stencil . ,print-circled-text-callback)
+	(text . ,string-number::calc-text)
 	(padding . 0.5)
 	(staff-padding . 0.5)
 	(self-alignment-X . 0)
@@ -1496,6 +1593,28 @@
 				self-alignment-interface
 				item-interface))))))
     
+    (StrokeFinger
+     . (
+	(stencil . ,ly:text-interface::print)
+	(text . ,stroke-finger::calc-text)
+	(digit-names . #("p" "i" "m" "a" "x"))
+	(padding . 0.5)
+	(staff-padding . 0.5)
+	(self-alignment-X . 0)
+	(self-alignment-Y . 0)
+	(script-priority . 100)
+	(font-shape . italic)
+	(font-size . -4) 		; don't overlap when next to heads.
+	(meta . ((class . Item)
+		 (interfaces . (stroke-finger-interface
+				font-interface
+				text-script-interface
+				text-interface
+				side-position-interface
+				self-alignment-interface
+				item-interface))))))
+    
+
     (SustainPedal
      . (
 	(no-spacing-rods . #t)
@@ -1510,6 +1629,7 @@
 				line-spanner-interface
 				text-interface
 				self-alignment-interface
+				piano-pedal-script-interface
 				font-interface))))))
 
     (SustainPedalLineSpanner
@@ -1532,6 +1652,8 @@
 	(axes . (0 1))
 	(X-extent . ,ly:axis-group-interface::width)
 	(Y-extent . ,ly:axis-group-interface::height)
+	(skylines . ,ly:axis-group-interface::calc-skylines)
+	(skyline-horizontal-padding . 1.0)
 	(meta . ((class . System)
 		 (interfaces . (system-interface
 				axis-group-interface))))))
@@ -1594,11 +1716,12 @@
 		 (interfaces . (side-position-interface
 				system-start-delimiter-interface))))))
 
-
     (TabNoteHead
      . (
 	(stencil . ,ly:text-interface::print)
 	(Y-offset . ,ly:staff-symbol-referencer::callback)
+	(X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
+	(direction . 0)
 	(font-size . -2)
 	(stem-attachment . (0.0 . 1.35))
 	(font-series . bold)
@@ -1614,6 +1737,8 @@
      . (
 	(no-spacing-rods . #t)
 	(X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
+	(Y-offset . ,ly:side-position-interface::y-aligned-side)
+	(side-axis . ,Y)
 	(direction . ,DOWN)
 
 	;; sync with Fingering ?
@@ -1623,6 +1748,7 @@
 	(stencil . ,ly:text-interface::print)
 	(direction . ,ly:script-interface::calc-direction)
 
+	(outside-staff-priority . 450)
 	(avoid-slur . around)
 	(slur-padding . 0.5)
 	(script-priority . 200)
@@ -1644,6 +1770,7 @@
 	(dash-period . 3.0)
 	(side-axis . ,Y)
 	(direction . ,UP)
+	(outside-staff-priority . 350)
 	(meta . ((class . Spanner)
 		 (interfaces . (text-spanner-interface
 				line-spanner-interface
@@ -1653,12 +1780,13 @@
     (Tie
      . (
 	(control-points . ,ly:tie::calc-control-points)
+	(springs-and-rods . ,ly:spanner::set-spacing-rods)
 	(avoid-slur . inside)
 	(direction . ,ly:tie::calc-direction)
 	(stencil . ,ly:tie::print)
 	(font-size . -6)
 	(details . (
-		    ;; for a full list, see tie-helper.cc
+		    ;; for a full list, see tie-details.cc
 		    (ratio . 0.333)
 		    (center-staff-line-clearance . 0.6)
 		    (tip-staff-line-clearance . 0.45)
@@ -1675,6 +1803,7 @@
 		    (outer-tie-vertical-gap . 0.25)
 		    (multi-tie-region-size . 1)
 		    (between-length-limit . 1.0)))
+	
 	(thickness . 1.2)
 	(line-thickness . 0.8)
 	(meta . ((class . Spanner)
@@ -1695,6 +1824,7 @@
 	(stencil . ,ly:time-signature::print)
 	(break-align-symbol . time-signature)
 	(break-visibility . ,all-visible)
+	(avoid-slur . inside)
 	(space-alist . (
 			(first-note . (fixed-space . 2.0))
 			(right-edge . (extra-space . 0.5))
@@ -1717,6 +1847,7 @@
 	(direction . ,UP)
 	(Y-offset . ,ly:side-position-interface::y-aligned-side)
 	(side-axis . ,Y)
+	(outside-staff-priority . 50)
 	(meta . ((class . Spanner)
 		 (interfaces . (text-spanner-interface
 				line-spanner-interface
@@ -1732,7 +1863,7 @@
 	(stencil . ,ly:accidental-interface::print)
 	(meta . ((class . Item)
 		 (interfaces . (item-interface
-				accidental-interface
+				trill-pitch-accidental-interface
 				side-position-interface
 				font-interface))))))
 
@@ -1741,6 +1872,7 @@
 	(axes . (,X))
 	(font-size . -4)
 	(stencil . ,parenthesize-elements)
+	(stencils . ,parentheses-item::calc-parenthesis-stencils)
 	(direction . ,RIGHT)
 	(side-axis . ,X)
 	(padding . 0.3)
@@ -1773,7 +1905,6 @@
 	(edge-height . (0.7 . 0.7))
 	(shorten-pair . (-0.2 . -0.2))
 	(staff-padding . 0.25)
-	
 	(direction  . ,ly:tuplet-bracket::calc-direction)
 	(positions . ,ly:tuplet-bracket::calc-positions)
 	(connect-to-neighbor . ,ly:tuplet-bracket::calc-connect-to-neighbors)
@@ -1787,6 +1918,7 @@
     (TupletNumber
      . (
 	(stencil . ,ly:tuplet-number::print)
+	(text . ,tuplet-number::calc-denominator-text)
 	(font-shape . italic)
 	(font-size . -2)
 	(avoid-slur . inside)
@@ -1805,6 +1937,7 @@
 	(X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
 	(meta . ((class . Item)
 		 (interfaces . (text-interface
+				piano-pedal-script-interface
 				self-alignment-interface
 				font-interface))))))
 
@@ -1840,6 +1973,8 @@
 	(Y-extent . ,ly:axis-group-interface::height)
 	(X-extent . ,ly:axis-group-interface::width)
 	(stacking-dir . -1)
+	(padding . 0.1)
+	(skylines . ,ly:axis-group-interface::combine-skylines)
 	(meta . ((class . Spanner)
 		 (interfaces . (align-interface
 				axis-group-interface))))))
@@ -1847,12 +1982,12 @@
      . (
 	(axes . (1))
 	(Y-offset . ,ly:hara-kiri-group-spanner::force-hara-kiri-callback)
-
 	(Y-extent . ,ly:hara-kiri-group-spanner::y-extent)
 	(X-extent . ,ly:axis-group-interface::width)
+	(skylines . ,ly:axis-group-interface::calc-skylines);
 	(meta . ((class . Spanner)
 		 (interfaces . (axis-group-interface
-				hara-kiri-group-interface
+				hara-kiri-group-spanner-interface
 				vertically-spaceable-interface))))))
 
 
@@ -1868,6 +2003,7 @@
 	(edge-height . (2.0 . 2.0)) ;; staff-space;
 	(minimum-space . 5)
 	(font-size . -4)
+	(outside-staff-priority . 100)
 	(meta . ((class . Spanner)
 		 (interfaces . (volta-bracket-interface
 				horizontal-bracket-interface				
@@ -1942,68 +2078,62 @@
 
 (set! all-grob-descriptions (sort all-grob-descriptions alist<?))
 
-
 (define pure-print-callbacks
   (list
-   `(,ly:note-head::print . '())
-   `(,ly:clef::print . '())
-   `(,ly:text-interface::print . '())))
+   ly:note-head::print
+   ly:accidental-interface::print
+   ly:dots::print
+   ly:clef::print
+   ly:text-interface::print
+   ly:script-interface::print))
 
 ;; ly:grob::stencil-extent is safe iff the print callback is safe too
 (define (pure-stencil-height grob start stop)
   (let ((sten (ly:grob-property-data grob 'stencil)))
     (if (or
 	 (ly:stencil? sten)
-	 (pair? (assq sten pure-print-callbacks)))
+	 (memq sten pure-print-callbacks))
 	(ly:grob::stencil-height grob)
-	'(0 . 0))))
 
-(define pure-Y-extents
-  (list
-   `(,ly:staff-symbol::height . ())))
+	'(0 . 0))))
 
-(define Y-extent-conversions
+(define pure-conversions-alist
   (list
+   `(,ly:slur::outside-slur-callback . ,ly:slur::pure-outside-slur-callback)
    `(,ly:stem::height . ,ly:stem::pure-height)
    `(,ly:grob::stencil-height . ,pure-stencil-height)
    `(,ly:side-position-interface::y-aligned-side . ,ly:side-position-interface::pure-y-aligned-side)
    `(,ly:axis-group-interface::height . ,ly:axis-group-interface::pure-height)
-   `(,ly:hara-kiri-group-spanner::y-extent . ,ly:hara-kiri-group-spanner::pure-height)))
-
-(define pure-Y-offsets
-  (list
-   `(,ly:staff-symbol-referencer::callback . ())))
+   `(,ly:hara-kiri-group-spanner::y-extent . ,ly:hara-kiri-group-spanner::pure-height)
+   `(,ly:slur::height . ,ly:slur::pure-height)
+   `(,ly:side-position-interface::y-aligned-side . ,ly:side-position-interface::pure-y-aligned-side)))
 
-(define Y-offset-conversions
+(define pure-functions
   (list
-   `(,ly:side-position-interface::y-aligned-side . ,ly:side-position-interface::pure-y-aligned-side)))
+   ly:staff-symbol-referencer::callback
+   ly:staff-symbol::height))
 
 (define-public (pure-relevant grob)
   (let ((extent-callback (ly:grob-property-data grob 'Y-extent)))
-    (or
-     (pair? (assq extent-callback pure-Y-extents))
-     (and
-      (pair? (assq extent-callback Y-extent-conversions))
-      (or
-       (not (eq? extent-callback ly:grob::stencil-height))
-       (pair? (assq (ly:grob-property-data grob 'stencil) pure-print-callbacks))
-       (ly:stencil? (ly:grob-property-data grob 'stencil)))))))
-
-(define (pure-conversion pures conversions defsymbol defreturn rettype? grob start stop)
-  (let* ((normal-callback (ly:grob-property-data grob defsymbol))
-	 (pure-callback (assq normal-callback conversions)))
-    (if (rettype? normal-callback)
-	normal-callback
-	(if (pair? (assq normal-callback pures))
-	    (normal-callback grob)
-	    (if (pair? pure-callback)
-		((cdr pure-callback) grob start stop)
-		defreturn)))))
-
-(define-public (pure-Y-extent grob start stop)
-  (pure-conversion pure-Y-extents Y-extent-conversions
-		   'Y-extent '(0 . 0) pair? grob start stop))
-
-(define-public (pure-Y-offset grob start stop)
-  (pure-conversion pure-Y-offsets Y-offset-conversions
-		   'Y-offset 0 number? grob start stop))
+    (not (eq? #f
+	      (or
+	       (pair? extent-callback)
+	       (memq extent-callback pure-functions)
+	       (and
+		(pair? (assq extent-callback pure-conversions-alist))
+		(begin
+		  (or
+		   (not (eq? extent-callback ly:grob::stencil-height))
+		   (memq (ly:grob-property-data grob 'stencil) pure-print-callbacks)
+		   (ly:stencil? (ly:grob-property-data grob 'stencil))))))))))
+
+(define-public (call-pure-function unpure args start end)
+  (if (ly:simple-closure? unpure)
+      (ly:eval-simple-closure (car args) unpure start end)
+      (if (not (procedure? unpure))
+	  unpure
+	  (if (memq unpure pure-functions)
+	      (apply unpure args)
+	      (let ((pure (assq unpure pure-conversions-alist)))
+		(if pure
+		    (apply (cdr pure) (append (list (car args) start end) (cdr args)))))))))