Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / scm / output-lib.scm

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 572fcaff4399bd710087719b44dfb862381b9fc2..bf98dbab41487de60be66c96050353531f7e01cc 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -243,23 +243,6 @@ centered, X==1 is at the right, X == -1 is at the left."
       (ly:grob-translate-axis! g 3.5 X)))
 
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Tuplets
-
-(define-public (tuplet-number::calc-denominator-text grob)
-  (let*
-      ((mus (ly:grob-property grob 'cause)))
-    
-    (number->string (ly:music-property mus 'denominator))))
-
-
-(define-public (tuplet-number::calc-fraction-text grob)
-  (let*
-      ((mus (ly:grob-property grob 'cause)))
-    (format "~a:~a" 
-      (ly:music-property mus 'denominator)
-      (ly:music-property mus 'numerator))))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Color
 
@@ -340,38 +323,3 @@ centered, X==1 is at the right, X == -1 is at the left."
 
   value)
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; falls
-
-(define-public (fall::print spanner)
-  (let*
-      ((delta (ly:grob-property spanner 'delta-position))
-       (left-span (ly:spanner-bound spanner LEFT))
-       (right-span (ly:spanner-bound spanner RIGHT))
-       (thickness (* (ly:grob-property spanner 'thickness)
-                    (ly:output-def-lookup (ly:grob-layout spanner) 'line-thickness)))
-       (padding (ly:grob-property spanner 'padding 0.5))
-       (common (ly:grob-common-refpoint right-span
-                                       (ly:grob-common-refpoint spanner
-                                               left-span X)
-                                       X))
-       (left-x (+ padding  (interval-end  (ly:grob-robust-relative-extent left-span common X))))
-       (right-x (- (interval-start  (ly:grob-robust-relative-extent right-span common X)) padding))
-       (self-x (ly:grob-relative-coordinate spanner common X))
-       (dx (- right-x left-x))
-       (exp (list 'path thickness 
-                 `(quote
-                   (,(- left-x self-x) 0
-                    rmoveto
-                    ,(/ dx 3)
-                    0
-                    ,dx ,(* 0.66 delta)
-                    ,dx ,delta
-                    rcurveto)))) 
-       )
-
-    (ly:make-stencil
-     exp
-     (cons 0 dx)
-     (cons (min 0 delta)
-          (max 0 delta)))))