scm/script.scm

   1 ;; (name . '((downindexstring . upindexstring)
   2 ;;           follow-into-staff :: bool
   3 ;;           dir-relative-to-stem :: int
   4 ;;           force-dir :: int
   5 ;;           priority :: int
   6
   7 ;;TODO?      extra padding :: Real (given in staff spaces)
   8
   9 (set! script-alist
  10       (append
  11       '(("thumb" . ((feta . ("thumb"  . "thumb")) #f 0 1 0))
  12         ("accent" . ((feta . ("sforzato" .  "sforzato")) #f -1 0 0))
  13         ("marcato" . ((feta . ("dmarcato" . "umarcato")) #f -1 0  0))
  14         ("staccatissimo" . ((feta . ("dstaccatissimo" . "ustaccatissimo")) #f  -1 0 0))
  15         ("portato" . ((feta . ("dportato" . "uportato")) #f -1 0 0))
  16         ("fermata" . ((feta . ("dfermata" . "ufermata")) #f 1 0 0))
  17         ("stopped" . ((feta . ("stopped" . "stopped")) #f 0 1 0))
  18         ("staccato" . ((feta . ("staccato" . "staccato")) #t -1 0 -100))
  19         ("tenuto" . ((feta . ("tenuto" . "tenuto")) #t -1 0 0))
  20         ("upbow" . ((feta . ("upbow" . "upbow")) #f 0 1 0))
  21         ("downbow" . ((feta . ("downbow" . "downbow")) #f 0 1 0))
  22         ("lheel" . ((feta . ("upedalheel" . "upedalheel")) #f 0 -1  0))
  23         ("rheel" . ((feta . ("dpedalheel" . "dpedalheel")) #f 0 1 0))
  24         ("ltoe" . ((feta . ("upedaltoe" . "upedaltoe")) #f 0 -1 0))
  25         ("rtoe" . ((feta . ("dpedaltoe" . "dpedaltoe")) #f 0 1 0))
  26         ("turn" . ((feta . ("turn" . "turn")) #f 0 1 0))
  27         ("open" . ((feta . ("open" . "open")) #f 0 1 0))
  28         ("flageolet" . ((feta . ("flageolet" . "flageolet")) #f 0 1 0))
  29         ("reverseturn" . ((feta . ("reverseturn" . "reverseturn")) #f 0 1 0))
  30         ("trill" . ((feta . ("trill" . "trill")) #f 0 1 2000))
  31         ("prall" . ((feta . ("prall" . "prall")) #f 0 1 0))
  32         ("mordent" . ((feta . ("mordent" . "mordent")) #f 0 1 0))
  33         ("prallprall" . ((feta . ("prallprall" . "prallprall")) #f 0 1 0))
  34         ("prallmordent" . ((feta . ("prallmordent" . "prallmordent")) #f 0 1 0))
  35         ("upprall" . ((feta . ("upprall" . "upprall")) #f 0 1 0))
  36         ("downprall" . ((feta . ("downprall" . "downprall")) #f 0 1 0))
  37         ("segno" . ((feta . ("segno" . "segno")) #f 0 1 0))
  38         ("coda" . ((feta . ("coda" . "coda")) #f 0 1 0)))
  39       script-alist)
  40       )
  41