;; 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
("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))
+ ("comma" . ((feta . ("lcomma" . "rcomma")) #t 0 1 0))
("upbow" . ((feta . ("upbow" . "upbow")) #f 0 1 0))
("downbow" . ((feta . ("downbow" . "downbow")) #f 0 1 0))
("lheel" . ((feta . ("upedalheel" . "upedalheel")) #f 0 -1 0))
("prallmordent" . ((feta . ("prallmordent" . "prallmordent")) #f 0 1 0))
("upprall" . ((feta . ("upprall" . "upprall")) #f 0 1 0))
("downprall" . ((feta . ("downprall" . "downprall")) #f 0 1 0))
+ ("upmordent" . ((feta . ("upmordent" . "upmordent")) #f 0 1 0))
+ ("downmordent" . ((feta . ("downmordent" . "downmordent")) #f 0 1 0))
+ ("lineprall" . ((feta . ("lineprall" . "lineprall")) #f 0 1 0))
+ ("pralldown" . ((feta . ("pralldown" . "pralldown")) #f 0 1 0))
+ ("prallup" . ((feta . ("prallup" . "prallup")) #f 0 1 0))
("segno" . ((feta . ("segno" . "segno")) #f 0 1 0))
("coda" . ((feta . ("coda" . "coda")) #f 0 1 0)))
default-script-alist)
default-script-alist)
)
+