* input/regression/breathing-sign.ly: tiny fixes

[lilypond.git] / scm / script.scm

diff --git a/scm/script.scm b/scm/script.scm
index da60857e283906b1a1dd516d7df4c3ae4d1fa9d2..d8f1be5e356dfe232a99de8f780d819ec12f3ce9 100644 (file)
--- a/scm/script.scm
+++ b/scm/script.scm
@@ -23,9 +23,46 @@
          ((script-molecule . (feta . ("dportato" . "uportato")))
           (side-relative-direction . -1)))
 
+        ("accentus" .
+         ((script-molecule . (feta . ("uaccentus" . "uaccentus")))
+          (side-relative-direction .  -1)
+          (follow-into-staff  . #t)
+          (priority . -100)
+          (direction  . 1)))
+        ("ictus" .
+         ((script-molecule . (feta . ("ictus" . "ictus")))
+          (side-relative-direction .  -1)
+          (follow-into-staff  . #t)
+          (priority . -100)
+          (direction  . -1)))
+        ("semicirculus" .
+         ((script-molecule . (feta . ("dsemicirculus" . "dsemicirculus")))
+          (side-relative-direction .  -1)
+          (follow-into-staff  . #t)
+          (priority . -100)
+          (direction  . 1)))
+        ("circulus" .
+         ((script-molecule . (feta . ("circulus" . "circulus")))
+          (side-relative-direction .  -1)
+          (follow-into-staff  . #t)
+          (priority . -100)
+          (direction  . 1)))
+
+        ("signumcongruentiae" .
+         ((script-molecule . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
+          (direction .  1)))
         ("fermata" .
          ((script-molecule . (feta . ("dfermata" . "ufermata")))
           (direction .  1)))
+        ("shortfermata" .
+         ((script-molecule . (feta . ("dshortfermata" . "ushortfermata")))
+          (direction .  1)))
+        ("longfermata" .
+         ((script-molecule . (feta . ("dlongfermata" . "ulongfermata")))
+          (direction .  1)))
+        ("verylongfermata" .
+         ((script-molecule . (feta . ("dverylongfermata" . "uverylongfermata")))
+          (direction .  1)))
         ("stopped" .
          ((script-molecule . (feta . ("stopped" . "stopped")))
           (direction  . 1) ))
@@ -42,6 +79,10 @@
          ((script-molecule . (feta . ("lcomma" . "rcomma")))
           (follow-into-staff . #t)
           (direction . 1)))
+        ("varcomma" .
+         ((script-molecule . (feta . ("lvarcomma" . "rvarcomma")))
+          (follow-into-staff . #t)
+          (direction . 1)))
         ("upbow" .
          ((script-molecule . (feta . ("upbow" . "upbow")))
           (direction  . 1) ))
@@ -115,6 +156,9 @@
           (direction  . 1) ))
         ("coda" .
          ((script-molecule . (feta . ("coda" . "coda")))
+          (direction  . 1) ))
+        ("varcoda" .
+         ((script-molecule . (feta . ("varcoda" . "varcoda")))
           (direction  . 1) )))
        default-script-alist)
       )