release: 1.3.61

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index ec316ecff81ade53fb0c36f21003ccef7e381b46..80e3ffeb6ae74ac8903a06ce9146444c95a2ec4f 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -136,15 +136,7 @@
    )
 )
 
-;; (define (ly-warn s) (error s))
-(define (break-align-spacer this next)
-  (let ((entry (assoc (list this next) space-alist)))
-    (if entry
-       (cdr entry)
-       (begin (ly-warn (string-append "Unknown spacing pair `" this "', `" next "'"))
-              '(minimum-space 0.0)))))
-  
-
+;; silly, use alist? 
 (define (find-notehead-symbol duration style)
   (case style
    ((cross) "2cross")
@@ -171,6 +163,7 @@
     ("feta-2" . "feta") 
     ("typewriter" . "cmtt") 
     ("italic" . "cmti") 
+    ("msam" . "msam") 
     ("roman" . "cmr") 
     ("script" . "cmr") 
     ("large" . "cmbx") 
@@ -209,17 +202,6 @@
   )
             
 (define script-alist '())
-(define (articulation-to-scriptdef a)
-  (assoc a script-alist)
-  )
-
-;; Map style names to TeX font names.  Return false if 
-;; no font name found. 
-(define (style-to-cmr s)
-  (assoc s cmr-alist )
-  )
-           
-
 
 (define font-name-alist  '())
 (define (font-command name-mag)
@@ -310,7 +292,12 @@
     (string-append "% " s))
   
   (define (end-output) 
-    "\n\\EndLilyPondOutput")
+       (begin
+; uncomment for some stats about lily memory     
+;              (display (gc-stats))
+    (string-append "\n\\EndLilyPondOutput"
+                  ; Put GC stats here.
+                  )))
   
   (define (experimental-on)
     "")
@@ -917,7 +904,7 @@
        content))
 
 ;; urg: Use when standalone, do:
-;; (define (ly-gulp-file name) (scm-gulp-file name))
+;; (define ly-gulp-file scm-gulp-file)
 (define (scm-gulp-file name)
   (set! %load-path 
        (cons (string-append (getenv 'LILYPONDPREFIX) "/ly")
@@ -968,3 +955,15 @@
      )
    )
      
+
+(define major-scale
+  '(
+    (0 . 0)
+    (1 . 0)
+    (2 . 0)
+    (3 . 0)
+    (4 . 0)
+    (5 . 0)
+    (6 . 0)
+    )
+  )