;; 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))
("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))