2002-07-13 Han-Wen <hanwen@cs.uu.nl>

[lilypond.git] / scm / script.scm

diff --git a/scm/script.scm b/scm/script.scm
index 628876274bf6cea9cbbcdaecdd88692c9bcd868d..8fde1da2800f4a4ceb060a20d3b418414919321f 100644 (file)
--- a/scm/script.scm
+++ b/scm/script.scm
@@ -2,14 +2,18 @@
 ;;           follow-into-staff :: bool
 ;;           dir-relative-to-stem :: int
 ;;           force-dir :: int
-;;           priority :: int
 
-;;TODO?      extra padding :: Real (given in staff spaces)
 
+;;           priority :: int -- lower number means closer to the  note head. 
 
 ;; TODO: generate Grob types for this, by prepending appropriate props
 ;; on top of Script (?)  
 
+
+;; TODO: don't use 2 level indiriection, simply set
+;; thumb = \script #'((feta . ( . .. ) (follow-staff .  #f))
+
+
 (set! default-script-alist
       (append 
       '(("thumb" . ((feta . ("thumb"  . "thumb")) #f 0 1 0))
@@ -17,7 +21,7 @@
        ("marcato" . ((feta . ("dmarcato" . "umarcato")) #f -1 0  0))
        ("staccatissimo" . ((feta . ("dstaccatissimo" . "ustaccatissimo")) #f  -1 0 0))
        ("portato" . ((feta . ("dportato" . "uportato")) #f -1 0 0))
-       ("fermata" . ((feta . ("dfermata" . "ufermata")) #f 1 0 0))
+       ("fermata" . ((feta . ("dfermata" . "ufermata")) #f 0 1 0))
        ("stopped" . ((feta . ("stopped" . "stopped")) #f 0 1 0))
        ("staccato" . ((feta . ("staccato" . "staccato")) #t -1 0 -100))
        ("tenuto" . ((feta . ("tenuto" . "tenuto")) #t -1 0 0))