* The grand 2005-2006 replace.

[lilypond.git] / scm / lily-library.scm

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index c16acc56f2a1f6b15897e849b3d369845f49c581..52779ceef4feaa52c835f98bbea335783804feb2 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c) 1998--2005 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 1998--2006 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;; Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
 
@@ -44,19 +44,19 @@
 ;; parser stuff.
 (define-public (print-music-as-book parser music)
   (let* ((head (ly:parser-lookup parser '$defaultheader))
-        (book (ly:make-book (ly:parser-lookup parser $defaultpaper)
-                            head score)))
-    (ly:parser-print-book parser book)))
+        (book (ly:make-book (ly:parser-lookup parser '$defaultpaper)
+                            head (scorify-music music parser))))
+    (print-book-with-defaults parser book)))
 
 (define-public (print-score-as-book parser score)
   (let* ((head (ly:parser-lookup parser '$defaultheader))
-        (book (ly:make-book (ly:parser-lookup parser $defaultpaper)
+        (book (ly:make-book (ly:parser-lookup parser '$defaultpaper)
                             head score)))
-    (ly:parser-print-book parser book)))
+    (print-book-with-defaults parser book)))
 
 (define-public (print-score parser score)
   (let* ((head (ly:parser-lookup parser '$defaultheader))
-        (book (ly:make-book (ly:parser-lookup parser $defaultpaper)
+        (book (ly:make-book (ly:parser-lookup parser '$defaultpaper)
                             head score)))
     (ly:parser-print-score parser book)))
                
@@ -115,6 +115,17 @@
     (ly:score-process score header paper layout base)
     ))
 
+
+(define-public (paper-system-title? system)
+  (equal? #t (ly:paper-system-property system 'is-title)
+         ))
+
+(define-public (paper-system-stencil system)
+  (ly:paper-system-property system 'stencil))
+
+(define-public (paper-system-extent system axis)
+  (ly:stencil-extent (paper-system-stencil system) axis))
+
 ;;;;;;;;;;;;;;;;
 ;; alist
 (define-public assoc-get ly:assoc-get)
@@ -315,6 +326,16 @@ found."
 (define-public interval-start car)
 (define-public interval-end cdr)
 
+(define-public (interval-center x)
+  "Center the number-pair X, when an interval"
+  (/ (+ (car x) (cdr x)) 2))
+
+(define-public interval-start car)
+(define-public interval-end cdr)
+(define-public (interval-translate iv amount)
+  (cons (+ amount (car iv))
+       (+ amount (cdr iv))))
+
 (define (other-axis a)
   (remainder (+ a 1) 2))