X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-grobs.scm;h=8251fec8192086a91a9bd347105376c4de17856f;hb=f0968c08c70e954c1d928feadf94006504ac4de1;hp=30ef5818fdb2c5d4c93ef96bc77a893f4aee2b7f;hpb=b7a0cffbf9d1069860368f289a5b50e9d1d90ba8;p=lilypond.git

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 30ef5818fd..8251fec819 100644
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -1,6 +1,6 @@
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;; Copyright (C) 1998--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; Copyright (C) 1998--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
@@ -165,7 +165,6 @@
 	(stencil . ,ly:arpeggio::print)
 	(X-extent . ,ly:arpeggio::width)
 	(X-offset . ,ly:side-position-interface::x-aligned-side)
-	(Y-extent . ,ly:arpeggio::height)
 	(Y-offset . ,ly:staff-symbol-referencer::callback)
 	(meta . ((class . Item)
 		 (interfaces . (arpeggio-interface
@@ -534,6 +533,7 @@
 	(direction . ,UP)
 	(extra-spacing-width . (+inf.0 . -inf.0))
 	(font-series . bold)
+	(outside-staff-priority . 450)
 	(padding . 0.5)
 	(script-priority . 200)
 	(side-axis . ,Y)
@@ -607,7 +607,7 @@
     (DoublePercentRepeatCounter
      . (
 	(direction . ,UP)
-	(font-encoding . fetaNumber)
+	(font-encoding . fetaText)
 	(font-size . -2)
 	(padding . 0.2)
 	(self-alignment-X . ,CENTER)
@@ -656,11 +656,12 @@
 
 	(direction . ,ly:script-interface::calc-direction)
 	(extra-spacing-width . (+inf.0 . -inf.0))
-	(font-encoding . fetaDynamic)
+	(font-encoding . fetaText)
 	(font-series . bold)
 	(font-shape . italic)
 	(outside-staff-priority . 250)
 	(positioning-done . ,ly:script-interface::calc-positioning-done)
+	(right-padding . 0.5)
 	(self-alignment-X . ,CENTER)
 	(self-alignment-Y . ,CENTER)
 	(stencil . ,ly:text-interface::print)
@@ -668,6 +669,7 @@
 	(Y-offset . ,ly:self-alignment-interface::y-aligned-on-self)
 	(meta . ((class . Item)
 		 (interfaces . (dynamic-interface
+				dynamic-text-interface
 				font-interface
 				script-interface
 				self-alignment-interface
@@ -675,6 +677,7 @@
 
     (DynamicTextSpanner
      . (
+	(before-line-breaking . ,dynamic-text-spanner::before-line-breaking)
 	(bound-details . ((right . ((attach-dir .  ,LEFT)
 				    (Y . 0)
 				    (padding . 0.75)
@@ -685,8 +688,8 @@
 
 			  (left . ((attach-dir .  ,LEFT)
 				   (Y . 0)
-				   (stencil-offset . (0 . -0.5))
-				   (padding . 0.5)
+				   (stencil-offset . (-0.75 . -0.5))
+				   (padding . 0.75)
 				   ))
 			  (left-broken . ((attach-dir .  ,RIGHT)
 				   ))
@@ -719,6 +722,33 @@
 				text-interface))))))
 
 
+    (Episema
+     . (
+	(bound-details . ((left . ((Y . 0)
+				   (padding . 0)
+				   (attach-dir . ,LEFT)
+				   ))
+			  (right . ((Y . 0)
+				    (padding . 0)
+				    (attach-dir . ,RIGHT)
+				    ))
+			  ))
+	(direction . ,UP)
+	(left-bound-info . ,ly:line-spanner::calc-left-bound-info)
+	(quantize-position . #t)
+	(right-bound-info . ,ly:line-spanner::calc-right-bound-info)
+	(side-axis . ,Y)
+	(stencil . ,ly:line-spanner::print)
+	(style . line)
+	(Y-offset . ,ly:side-position-interface::y-aligned-side)
+	(meta . ((class . Spanner)
+		 (interfaces . (episema-interface
+				font-interface
+				line-interface
+				line-spanner-interface
+				side-position-interface))))))
+
+
     (Fingering
      . (
 
@@ -727,7 +757,7 @@
 	(avoid-slur . around)
 	(cross-staff . ,ly:side-position-interface::calc-cross-staff)
 	(direction . ,ly:script-interface::calc-direction)
-	(font-encoding . fetaNumber)
+	(font-encoding . fetaText)
 	(font-size . -5) 		; don't overlap when next to heads.
 	(padding . 0.5)
 	(positioning-done . ,ly:script-interface::calc-positioning-done)
@@ -828,7 +858,6 @@
 	(stencil . ,ly:hairpin::print)
 	(thickness . 1.0)
 	(to-barline . #t)
-	(Y-extent . ,ly:hairpin::height)
 	(Y-offset . ,ly:self-alignment-interface::y-aligned-on-self)
 	(meta . ((class . Spanner)
 		 (interfaces . (dynamic-interface
@@ -1138,7 +1167,7 @@
      . (
 	(bound-padding  . 2.0)
 	(direction . ,UP)
-	(font-encoding . fetaNumber)
+	(font-encoding . fetaText)
 	(padding . 0.4)
 	(self-alignment-X . ,CENTER)
 	(side-axis . ,Y)
@@ -1356,7 +1385,7 @@
     (PercentRepeatCounter
      . (
 	(direction . ,UP)
-	(font-encoding . fetaNumber)
+	(font-encoding . fetaText)
 	(font-size . -2)
 	(padding . 0.2)
 	(self-alignment-X . ,CENTER)
@@ -1739,7 +1768,7 @@
     (StringNumber
      . (
 	(avoid-slur . around)
-	(font-encoding . fetaNumber)
+	(font-encoding . fetaText)
 	(font-size . -5) 		; don't overlap when next to heads.
 	(padding . 0.5)
 	(script-priority . 100)
@@ -1890,6 +1919,7 @@
 	(font-size . -2)
 	(stem-attachment . (0.0 . 1.35))
 	(stencil . ,ly:text-interface::print)
+	(whiteout . #t)
 	(X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
 	(Y-offset . ,ly:staff-symbol-referencer::callback)
 	(meta . ((class . Item)
@@ -1936,6 +1966,7 @@
 				   (padding . 0.25)
 				   (attach-dir . ,LEFT)
 				   ))
+			  (left-broken . ((end-on-note . #t)))
 			  (right . ((Y . 0)
 				    (padding . 0.25)
 				    ))
@@ -2073,17 +2104,11 @@
     (TrillSpanner
      . (
 	(after-line-breaking . ,ly:spanner::kill-zero-spanned-time)
-	(bound-details . ((left . ((text . ,(make-translate-scaled-markup
-					     '(0.0 . -1.0)
-					     (make-musicglyph-markup "scripts.trill")))
+	(bound-details . ((left . ((text . ,(make-musicglyph-markup "scripts.trill"))
 				   (Y . 0)
-				   (stencil-offset . (-0.5 . 0))
-				   (padding . 1.5)
+				   (stencil-offset . (-0.5 . -1))
+				   (padding . 0.5)
 				   (attach-dir . ,CENTER)
-				   ;; this isn't CENTER because the trill glyph's origin
-				   ;; is not centered in its extent; to have the trill
-				   ;; spanner aligned the same as a trill, we need a slight offset
-				   (anchor-alignment . 0.15)
 				   ))
 			  (left-broken . ((end-on-note . #t)))
 			  (right . ((Y . 0)))
@@ -2239,10 +2264,10 @@
      . (
 	(direction . ,UP)
 	(edge-height . (2.0 . 2.0)) ;; staff-space;
-	(font-encoding . fetaNumber)
+	(font-encoding . fetaText)
 	(font-size . -4)
 	(stencil . ,ly:volta-bracket-interface::print)
-	(thickness . 1.6)  ;;  line-thickness
+	(thickness . 1.6) ;; line-thickness
 	(word-space . 0.6)
 	(meta . ((class . Spanner)
 		 (interfaces . (font-interface
@@ -2250,14 +2275,15 @@
 				line-interface
 				side-position-interface
 				text-interface
-				volta-bracket-interface))))))
+				volta-bracket-interface
+				volta-interface))))))
 
     (VoltaBracketSpanner
      . (
 	(after-line-breaking . ,ly:side-position-interface::move-to-extremal-staff)
 	(axes . (,Y))
 	(direction . ,UP)
-	(no-alignment . ,#t)
+	(no-alignment . #t)
 	(outside-staff-priority . 600)
 	(padding . 1)
 	(side-axis . ,Y)
@@ -2266,7 +2292,8 @@
 	(Y-offset . ,ly:side-position-interface::y-aligned-side)
 	(meta . ((class . Spanner)
 		 (interfaces . (axis-group-interface
-				side-position-interface))))))
+				side-position-interface
+				volta-interface))))))
 
 ))
 
@@ -2320,13 +2347,20 @@
 
 (set! all-grob-descriptions (sort all-grob-descriptions alist<?))
 
+(define (volta-bracket-interface::pure-height grob start end)
+  (let ((edge-height (ly:grob-property grob 'edge-height)))
+    (if (number-pair? edge-height)
+	(let ((smaller (min (car edge-height) (cdr edge-height)))
+	      (larger (max (car edge-height) (cdr edge-height))))
+	  (interval-union '(0 . 0) (cons smaller larger)))
+	'(0 . 0))))
+
 (define pure-print-callbacks
   (list
    fret-board::calc-stencil
+   note-head::brew-ez-stencil
    print-circled-text-callback
    lyric-text::print
-   ly:arpeggio::print
-   ly:arpeggio::brew-chord-bracket
    ly:bar-line::print
    ly:mensural-ligature::brew-ligature-primitive
    ly:note-head::print
@@ -2335,21 +2369,33 @@
    ly:text-interface::print
    ly:script-interface::print))
 
-;; ly:grob::stencil-extent is safe iff the print callback is safe too
+;; Sometimes we have grobs with (Y-extent . ,ly:grob::stencil-height)
+;; and the print function is not pure, but there is a easy way to
+;; figure out the Y-extent from the print function.
+(define pure-print-to-height-conversions
+  `(
+    (,ly:arpeggio::print . ,ly:arpeggio::pure-height)
+    (,ly:arpeggio::brew-chord-bracket . ,ly:arpeggio::pure-height)
+    (,ly:hairpin::print . ,ly:hairpin::pure-height)
+    (,ly:volta-bracket-interface::print . ,volta-bracket-interface::pure-height)))
+
+;; ly:grob::stencil-extent is safe if 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)
-	 (memq sten pure-print-callbacks))
-	(ly:grob::stencil-height grob)
-	'(0 . 0))))
+  (let* ((sten (ly:grob-property-data grob 'stencil))
+	 (pure-height-callback (assoc-get sten pure-print-to-height-conversions)))
+    (cond ((or
+	    (ly:stencil? sten)
+	    (memq sten pure-print-callbacks))
+	   (ly:grob::stencil-height grob))
+	  ((procedure? pure-height-callback)
+	   (pure-height-callback grob start stop))
+	  (else
+	   '(0 . 0)))))
 
 (define pure-conversions-alist
   `(
     (,ly:accidental-interface::height . ,ly:accidental-interface::pure-height)
-    (,ly:arpeggio::height . ,ly:arpeggio::pure-height)
     (,ly:slur::outside-slur-callback . ,ly:slur::pure-outside-slur-callback)
-    (,ly:hairpin::height . ,ly:hairpin::pure-height)
     (,ly:stem::height . ,ly:stem::pure-height)
     (,ly:rest::height . ,ly:rest::pure-height)
     (,ly:grob::stencil-height . ,pure-stencil-height)
@@ -2375,13 +2421,12 @@
 	       (memq extent-callback pure-functions)
 	       (and
 		(pair? (assq extent-callback pure-conversions-alist))
-		(begin
+		(let ((stencil (ly:grob-property-data grob 'stencil)))
 		  (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))
-
-		   ))))))))
+		   (memq stencil pure-print-callbacks)
+		   (assq stencil pure-print-to-height-conversions)
+		   (ly:stencil? stencil)))))))))
 
 (define-public (call-pure-function unpure args start end)
   (if (ly:simple-closure? unpure)