-(set! default-script-alist
- (append
- '(("accDiscant" . ((accordion "Discant" "") #f 0 1 0))
- ("accDiscantF" . ((accordion "Discant" "F") #f 0 1 0))
- ("accDiscantE" . ((accordion "Discant" "E") #f 0 1 0))
- ("accDiscantEh" . ((accordion "Discant" "Eh") #f 0 1 0))
- ("accDiscantFE" . ((accordion "Discant" "FE") #f 0 1 0))
- ("accDiscantFEh" . ((accordion "Discant" "FEh") #f 0 1 0))
- ("accDiscantEE" . ((accordion "Discant" "EE") #f 0 1 0))
- ("accDiscantFEE" . ((accordion "Discant" "FEE") #f 0 1 0))
- ("accDiscantEEE" . ((accordion "Discant" "EEE") #f 0 1 0))
- ("accDiscantFEEE" . ((accordion "Discant" "FEEE") #f 0 1 0))
- ("accDiscantS" . ((accordion "Discant" "S") #f 0 1 0))
- ("accDiscantFS" . ((accordion "Discant" "FS") #f 0 1 0))
- ("accDiscantES" . ((accordion "Discant" "ES") #f 0 1 0))
- ("accDiscantEhS" . ((accordion "Discant" "EhS") #f 0 1 0))
- ("accDiscantFES" . ((accordion "Discant" "FES") #f 0 1 0))
- ("accDiscantFEhS" . ((accordion "Discant" "FEhS") #f 0 1 0))
- ("accDiscantEES" . ((accordion "Discant" "EES") #f 0 1 0))
- ("accDiscantFEES" . ((accordion "Discant" "FEES") #f 0 1 0))
- ("accDiscantEEES" . ((accordion "Discant" "EEES") #f 0 1 0))
- ("accDiscantFEEES" . ((accordion "Discant" "FEEES") #f 0 1 0))
- ("accDiscantSS" . ((accordion "Discant" "SS") #f 0 1 0))
- ("accDiscantESS" . ((accordion "Discant" "ESS") #f 0 1 0))
- ("accDiscantEESS" . ((accordion "Discant" "EESS") #f 0 1 0))
- ("accDiscantEEESS" . ((accordion "Discant" "EEESS") #f 0 1 0))
- ("accFreebase" . ((accordion "Freebase" "") #f 0 -1 0))
- ("accFreebaseF" . ((accordion "Freebase" "F") #f 0 -1 0))
- ("accFreebaseE" . ((accordion "Freebase" "E") #f 0 -1 0))
- ("accFreebaseFE" . ((accordion "Freebase" "FE") #f 0 -1 0))
- ("accBayanbase" . ((accordion "Bayanbase" "") #f 0 -1 0))
- ("accBayanbaseT" . ((accordion "Bayanbase" "T") #f 0 -1 0))
- ("accBayanbaseE" . ((accordion "Bayanbase" "E") #f 0 -1 0))
- ("accBayanbaseTE" . ((accordion "Bayanbase" "TE") #f 0 -1 0))
- ("accBayanbaseEE" . ((accordion "Bayanbase" "EE") #f 0 -1 0))
- ("accBayanbaseTEE" . ((accordion "Bayanbase" "TEE") #f 0 -1 0))
- ("accStdbase" . ((accordion "Stdbase" "") #f 0 -1 0))
- ("accStdbaseFE" . ((accordion "Stdbase" "FE") #f 0 -1 0))
- ("accStdbaseTFE" . ((accordion "Stdbase" "TFE") #f 0 -1 0))
- ("accStdbaseMES" . ((accordion "Stdbase" "MES") #f 0 -1 0))
- ("accStdbaseTFMES" . ((accordion "Stdbase" "TFMES") #f 0 -1 0))
-
- ("accSB" . ((accordion "SB" "") #f 0 -1 0))
- ("accBB" . ((accordion "BB" "") #f 0 -1 0))
- ("accOldEE" . ((accordion "OldEE" "") #f 0 -1 0))
- ("accOldEES" . ((accordion "OldEES" "") #f 0 -1 0)))
- default-script-alist)
+ ("signumcongruentiae" .
+ ((script-stencil . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
+ (direction . 1)))
+ ("fermata" .
+ ((script-stencil . (feta . ("dfermata" . "ufermata")))
+ (inside-slur . #f)
+ (direction . 1)))
+ ("shortfermata" .
+ ((script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
+ (direction . 1)))
+ ("longfermata" .
+ ((script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
+ (direction . 1)))
+ ("verylongfermata" .
+ ((script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
+ (direction . 1)))
+ ("stopped" .
+ ((script-stencil . (feta . ("stopped" . "stopped")))
+ (direction . 1) ))
+ ("staccato" .
+ ((script-stencil . (feta . ("staccato" . "staccato")))
+ (side-relative-direction . -1)
+ (follow-into-staff . #t)
+ (inside-slur . #t)
+ (priority . -100)))
+ ("tenuto" .
+ ((script-stencil . (feta . ("tenuto" . "tenuto")))
+ (follow-into-staff . #t)
+ (inside-slur . #t)
+ (side-relative-direction . -1)))
+ ("comma" .
+ ((script-stencil . (feta . ("lcomma" . "rcomma")))
+ (follow-into-staff . #t)
+ (direction . 1)))
+ ("varcomma" .
+ ((script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
+ (follow-into-staff . #t)
+ (direction . 1)))
+ ("upbow" .
+ ((script-stencil . (feta . ("upbow" . "upbow")))
+ (inside-slur . #f)
+ (direction . 1) ))
+ ("downbow" .
+ ((script-stencil . (feta . ("downbow" . "downbow")))
+ (inside-slur . #f)
+ (direction . 1)))
+ ("lheel" .
+ ((script-stencil . (feta . ("upedalheel" . "upedalheel")))
+ (direction . -1))
+ )
+ ("rheel" .
+ ((script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
+ (direction . 1) ))
+ ("ltoe" .
+ ((script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
+ (direction . -1) ))
+ ("rtoe" .
+ ((script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
+ (direction . 1) ))
+ ("turn" .
+ ((script-stencil . (feta . ("turn" . "turn")))
+ (direction . 1) ))
+ ("open" .
+ ((script-stencil . (feta . ("open" . "open")))
+ (direction . 1) ))
+ ("flageolet" .
+ ((script-stencil . (feta . ("flageolet" . "flageolet")))
+ (direction . 1) ))
+ ("reverseturn" .
+ ((script-stencil . (feta . ("reverseturn" . "reverseturn")))
+ (direction . 1) ))
+ ("trill" .
+ ((script-stencil . (feta . ("trill" . "trill")))
+ (direction . 1)
+ (priority . 2000)))
+ ("prall" .
+ ((script-stencil . (feta . ("prall" . "prall")))
+ (direction . 1) ))
+ ("mordent" .
+ ((script-stencil . (feta . ("mordent" . "mordent")))
+ (direction . 1) ))
+ ("prallprall" .
+ ((script-stencil . (feta . ("prallprall" . "prallprall")))
+ (direction . 1) ))
+ ("prallmordent" .
+ ((script-stencil . (feta . ("prallmordent" . "prallmordent")))
+ (direction . 1) ))
+ ("upprall" .
+ ((script-stencil . (feta . ("upprall" . "upprall")))
+ (direction . 1) ))
+ ("downprall" .
+ ((script-stencil . (feta . ("downprall" . "downprall")))
+ (direction . 1) ))
+ ("upmordent" .
+ ((script-stencil . (feta . ("upmordent" . "upmordent")))
+ (direction . 1) ))
+ ("downmordent" .
+ ((script-stencil . (feta . ("downmordent" . "downmordent")))
+ (direction . 1) ))
+ ("lineprall" .
+ ((script-stencil . (feta . ("lineprall" . "lineprall")))
+ (direction . 1) ))
+ ("pralldown" .
+ ((script-stencil . (feta . ("pralldown" . "pralldown")))
+ (direction . 1) ))
+ ("prallup" .
+ ((script-stencil . (feta . ("prallup" . "prallup")))
+ (direction . 1) ))
+ ("segno" .
+ ((script-stencil . (feta . ("segno" . "segno")))
+ (direction . 1) ))
+ ("coda" .
+ ((script-stencil . (feta . ("coda" . "coda")))
+ (direction . 1) ))
+ ("varcoda" .
+ ((script-stencil . (feta . ("varcoda" . "varcoda")))
+ (direction . 1) )))
+ default-script-alist)