Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / scm / music-functions.scm

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index e33e1629aff9efd16c7e9a1c9d4bfc7fc3ca65bd..bc8dad2e448c5d5517725b485e196d8976b13a1d 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -16,9 +16,6 @@
   (make-procedure-with-setter ly:music-property
                              ly:music-set-property!))
 
-(define-safe-public (music-is-of-type? mus type)
-  "Does @code{mus} belong to the music class @code{type}?"
-  (memq type (ly:music-property mus 'types)))
 
 ;; TODO move this
 (define-public ly:grob-property
@@ -199,6 +196,8 @@ Returns `obj'.
          (set! (ly:music-property music 'duration) nd)))
     music))
 
+
+
 (define-public (shift-duration-log music shift dot)
   (music-map (lambda (x) (shift-one-duration-log x shift dot))
             music))
@@ -474,23 +473,6 @@ OTTAVATION to `8va', or whatever appropriate."
 (define-public (make-time-signature-set num den . rest)
   "Set properties for time signature NUM/DEN.  Rest can contain a list
 of beat groupings "
-
-  (define (standard-beat-grouping num den)
-
-    "Some standard subdivisions for time signatures."
-    (let*
-       ((key (cons num den))
-        (entry (assoc key '(((6 . 8) . (3 3))
-                        ((5 . 8) . (3 2))
-                        ((9 . 8) . (3 3 3))
-                        ((12 . 8) . (3 3 3 3))
-                        ((8 . 8) . (3 3 2))
-                        ))))
-
-      (if entry
-         (cdr entry)
-         '())))    
-  
   (let* ((set1 (make-property-set 'timeSignatureFraction (cons num den)))
         (beat (ly:make-moment 1 den))
         (len  (ly:make-moment num den))
@@ -498,7 +480,7 @@ of beat groupings "
         (set3 (make-property-set 'measureLength len))
         (set4 (make-property-set 'beatGrouping (if (pair? rest)
                                                    (car rest)
-                                                   (standard-beat-grouping num den))))
+                                                   '())))
         (basic  (list set1 set2 set3 set4)))
     (descend-to-context
      (context-spec-music (make-sequential-music basic) 'Timing) 'Score)))