X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fscript.scm;h=d8f1be5e356dfe232a99de8f780d819ec12f3ce9;hb=2ac91de7c1099097dd38b46b1b47db71d16d1201;hp=da60857e283906b1a1dd516d7df4c3ae4d1fa9d2;hpb=4aa6d35217d28af57c12899e2327e7151f92f365;p=lilypond.git

diff --git a/scm/script.scm b/scm/script.scm
index da60857e28..d8f1be5e35 100644
--- 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)
       )