X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fscript.scm;h=9df3e8905ceeea724e104e830c6de23816713758;hb=0000bf354336882a1cb6d627570db840e5c05a27;hp=fbeeae8615c8a1c7aaf2b03723e90ff4971bff7b;hpb=670a98f23a2561c6a4a4a19bb72c776189715541;p=lilypond.git

diff --git a/scm/script.scm b/scm/script.scm
index fbeeae8615..9df3e8905c 100644
--- a/scm/script.scm
+++ b/scm/script.scm
@@ -1,41 +1,260 @@
-;; (name . '((downindexstring . upindexstring)
-;;           follow-into-staff :: bool
-;;           dir-relative-to-stem :: int
-;;           force-dir :: int
-;;           priority :: int
+;;;; script.scm -- Script definitions
+;;;;
+;;;; source file of the GNU LilyPond music typesetter
+;;;; 
+;;;; (c) 2000--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
-;;TODO?      extra padding :: Real (given in staff spaces)
+(define-public default-script-alist
+  '(("thumb" .
+     ((script-stencil . (feta . ("thumb"  . "thumb")))
+      (avoid-slur . inside)
+      (padding . 0.20)	   
+      (direction . 1)))
+    ("accent" .
+     ((avoid-slur . around)
+      (padding . 0.20)	   
+      (quantize-position . #t)
+      (script-stencil . (feta . ("sforzato" .  "sforzato")))
+      (side-relative-direction . -1)))
+    ("espressivo" .
+     ((avoid-slur . around)
+      (padding . 0.20)	   
+      (quantize-position . #t)
+      (script-stencil . (feta . ("espr" .  "espr")))
+      (side-relative-direction . -1)))	 
+    ("marcato" .
+     ((script-stencil . (feta . ("dmarcato" . "umarcato")))
+      (padding . 0.20)
+      (avoid-slur . inside)
+					;	   (staff-padding . ())
+      (quantize-position . #t)
+      (side-relative-direction .  -1)))
+    ("staccatissimo" .
+     ((avoid-slur . inside) 
+      (script-stencil . (feta . ("dstaccatissimo" . "ustaccatissimo")))
+      (padding . 0.20)	   
+      (side-relative-direction .  -1)))
+    
+    ("portato" .
+     ((script-stencil . (feta . ("uportato" . "dportato")))
+      (avoid-slur . around)
+      (slur-padding . 0.3)
+      (padding . 0.45)
+      (side-relative-direction . -1)))
 
-(set! script-alist
-      (append 
-      '(("thumb" . ((feta . ("thumb"  . "thumb")) #f 0 1 0))
-	("accent" . ((feta . ("sforzato" .  "sforzato")) #f -1 0 0))
-	("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))
-	("stopped" . ((feta . ("stopped" . "stopped")) #f 0 1 0))
-	("staccato" . ((feta . ("staccato" . "staccato")) #t -1 0 -100))
-	("tenuto" . ((feta . ("tenuto" . "tenuto")) #t -1 0 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))
-	("rheel" . ((feta . ("dpedalheel" . "dpedalheel")) #f 0 1 0))
-	("ltoe" . ((feta . ("upedaltoe" . "upedaltoe")) #f 0 -1 0))
-	("rtoe" . ((feta . ("dpedaltoe" . "dpedaltoe")) #f 0 1 0))
-	("turn" . ((feta . ("turn" . "turn")) #f 0 1 0))
-	("open" . ((feta . ("open" . "open")) #f 0 1 0))
-	("flageolet" . ((feta . ("flageolet" . "flageolet")) #f 0 1 0))
-	("reverseturn" . ((feta . ("reverseturn" . "reverseturn")) #f 0 1 0))
-	("trill" . ((feta . ("trill" . "trill")) #f 0 1 2000))
-	("prall" . ((feta . ("prall" . "prall")) #f 0 1 0))
-	("mordent" . ((feta . ("mordent" . "mordent")) #f 0 1 0))
-	("prallprall" . ((feta . ("prallprall" . "prallprall")) #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))
-	("segno" . ((feta . ("segno" . "segno")) #f 0 1 0))
-	("wheel" . ((feta . ("wheel" . "wheel")) #f 0 1 0)))
-      script-alist)
-      )
+    ("accentus" .
+     ((script-stencil . (feta . ("uaccentus" . "uaccentus")))
+      (side-relative-direction .  -1)
+      (avoid-slur . #f)
+      (padding . 0.20)	   
+      (quantize-position . #t)
+      (script-priority . -100)
+      (direction  . 1)))
+    ("ictus" .
+     ((script-stencil . (feta . ("ictus" . "ictus")))
+      (side-relative-direction .  -1)
+      (quantize-position . #t)
+      (avoid-slur . #f)
+      (padding . 0.20)	   
+      (script-priority . -100)
+      (direction  . -1)))
+    ("semicirculus" .
+     ((script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
+      (side-relative-direction .  -1)
+      (quantize-position . #t)
+      (avoid-slur . #f)
+      (padding . 0.20)	   
+      (script-priority . -100)
+      (direction  . 1)))
+    ("circulus" .
+     ((script-stencil . (feta . ("circulus" . "circulus")))
+      (side-relative-direction .  -1)
+      (avoid-slur . #f)
+      (padding . 0.20)	   
+      (quantize-position . #t)
+      (script-priority . -100)
+      (direction  . 1)))
 
+    ("signumcongruentiae" .
+     ((script-stencil . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
+      (padding . 0.20)	   
+      (avoid-slur . outside)
+      (direction .  1)))
+    ("fermata" .
+     ((script-stencil . (feta . ("dfermata" . "ufermata")))
+      (padding . 0.20)	   
+      (avoid-slur . around)
+      (script-priority . 4000)
+      (direction .  1)))
+    ("shortfermata" .
+     ((script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
+      (padding . 0.20)	   
+      (avoid-slur . around)
+      (direction .  1)))
+    ("longfermata" .
+     ((script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
+      (padding . 0.20)	   
+      (avoid-slur . around)
+      (direction .  1)))
+    ("verylongfermata" .
+     ((script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
+      (padding . 0.20)	   
+      (avoid-slur . around)
+      (direction .  1)))
+    ("stopped" .
+     ((script-stencil . (feta . ("stopped" . "stopped")))
+      (avoid-slur . inside)
+      (padding . 0.20)	   
+      (direction  . 1)))
+    ("staccato" .
+     ((script-stencil . (feta . ("staccato" . "staccato")))
+      (side-relative-direction .  -1)
+      (quantize-position . #t)
+      (avoid-slur . inside) 
+      (padding . 0.20)	   
+      (script-priority . -100)))
+    ("tenuto" .
+     ((script-stencil . (feta . ("tenuto" . "tenuto")))
+      (quantize-position . #t)
+      (avoid-slur . inside)
+      (padding . 0.20)	   
+      (side-relative-direction . -1)))
+    ("comma" .
+     ((script-stencil . (feta . ("lcomma" . "rcomma")))
+      (quantize-position . #t)
+      (padding . 0.20)	   
+      (avoid-slur . #f)
+      (direction . 1)))
+    ("varcomma" .
+     ((script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
+      (quantize-position . #t)
+      (padding . 0.20)	   
+      (avoid-slur . #f)
+      (direction . 1)))
+    ("upbow" .
+     ((script-stencil . (feta . ("upbow" . "upbow")))
+      (avoid-slur . around)
+      (padding . 0.20)	   
+      (direction  . 1)))
+    ("downbow" .
+     ((script-stencil . (feta . ("downbow" . "downbow")))
+      (padding . 0.20)	   
+      (avoid-slur . around)
+      (direction  . 1)))
+    ("lheel" .
+     ((script-stencil . (feta . ("upedalheel" . "upedalheel")))
+      (padding . 0.20)	   
+      (avoid-slur . around) ;guessing?
+      (direction .  -1))
+     )
+    ("rheel" .
+     ((script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
+      (padding . 0.20)	   
+      (avoid-slur . around) ;guessing?
+      (direction  . 1)))
+    ("ltoe" .
+     ((script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
+      (padding . 0.20)	   
+      (avoid-slur . around) ;guessing?
+      (direction  . -1)))
+    ("rtoe" .
+     ((script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
+      (padding . 0.20)	   
+      (avoid-slur . around) ;guessing?
+      (direction  . 1)))
+    ("turn" .
+     ((script-stencil . (feta . ("turn" . "turn")))
+      (avoid-slur . inside)
+      (padding . 0.20)	   
+      (direction  . 1)))
+    ("open" .
+     ((avoid-slur . outside)
+      (padding . 0.20)	   
+      (script-stencil . (feta . ("open" . "open")))
+      (direction  . 1)))
+    ("flageolet" .
+     ((script-stencil . (feta . ("flageolet" . "flageolet")))
+      (padding . 0.20)	   
+      (avoid-slur . around) ;guessing?
+      (direction  . 1)))
+    ("reverseturn" .
+     ((script-stencil . (feta . ("reverseturn" . "reverseturn")))
+      (padding . 0.20)	   
+      (avoid-slur . inside)
+      (direction  . 1)))
+    ("trill" .
+     ((script-stencil . (feta . ("trill" . "trill")))
+      (direction . 1)
+      (padding . 0.20)	   
+      (avoid-slur . outside)
+      (script-priority . 2000)))
+    ("prall" .
+     ((script-stencil . (feta . ("prall" . "prall")))
+      (padding . 0.20)	   
+      (avoid-slur . around)
+      (direction  . 1)))
+    ("mordent" .
+     ((script-stencil . (feta . ("mordent" . "mordent")))
+      (padding . 0.20)	   
+      (avoid-slur . around)
+      (direction  . 1)))
+    ("prallprall" .
+     ((script-stencil . (feta . ("prallprall" . "prallprall")))
+      (padding . 0.20)	   
+      (avoid-slur . around)
+      (direction  . 1)))
+    ("prallmordent" .
+     ((script-stencil . (feta . ("prallmordent" . "prallmordent")))
+      (padding . 0.20)	   
+      (avoid-slur . around)
+      (direction  . 1)))
+    ("upprall" .
+     ((script-stencil . (feta . ("upprall" . "upprall")))
+      (padding . 0.20)	   
+      (avoid-slur . around)
+      (direction  . 1)))
+    ("downprall" .
+     ((script-stencil . (feta . ("downprall" . "downprall")))
+      (padding . 0.20)	   
+      (avoid-slur . around)
+      (direction  . 1)))
+    ("upmordent" .
+     ((script-stencil . (feta . ("upmordent" . "upmordent")))
+      (padding . 0.20)	   
+      (avoid-slur . around)
+      (direction  . 1)))
+    ("downmordent" .
+     ((script-stencil . (feta . ("downmordent" . "downmordent")))
+      (padding . 0.20)	   
+      (avoid-slur . around)
+      (direction  . 1)))
+    ("lineprall" .
+     ((script-stencil . (feta . ("lineprall" . "lineprall")))
+      (padding . 0.20)	   
+      (avoid-slur . around)
+      (direction  . 1)))
+    ("pralldown" .
+     ((script-stencil . (feta . ("pralldown" . "pralldown")))
+      (padding . 0.20)	   
+      (avoid-slur . around)
+      (direction  . 1)))
+    ("prallup" .
+     ((script-stencil . (feta . ("prallup" . "prallup")))
+      (padding . 0.20)	   
+      (avoid-slur . around)
+      (direction  . 1)))
+    ("segno" .
+     ((script-stencil . (feta . ("segno" . "segno")))
+      (padding . 0.20)	   
+      (avoid-slur . outside)
+      (direction  . 1)))
+    ("coda" .
+     ((script-stencil . (feta . ("coda" . "coda")))
+      (padding . 0.20)	   
+      (avoid-slur . outside)
+      (direction  . 1)))
+    ("varcoda" .
+     ((script-stencil . (feta . ("varcoda" . "varcoda")))
+      (padding . 0.20)	   
+      (avoid-slur . outside)
+      (direction  . 1)))))