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" . (("thumb"  . "thumb") #f 0 1 0))
  12         ("accent" . (("sforzato" .  "sforzato") #f -1 0 0))
  13         ("marcato" . (("dmarcato" . "umarcato") #f -1 0  0))
  14         ("staccatissimo" . (("dstaccatissimo" . "ustaccatissimo") #f  -1 0 0 0))
  15         ("portato" . (("dportato" . "uportato") #f -1 0 0))
  16         ("fermata" . (("dfermata" . "ufermata") #f 1 0 0))
  17         ("stopped" . (("stopped" . "stopped") #f 0 1 0))
  18         ("staccato" . (("staccato" . "staccato") #t -1 0 -100))
  19         ("tenuto" . (("tenuto" . "tenuto") 1 -1 0 0))
  20         ("upbow" . (("upbow" . "upbow") #f 0 1 0))
  21         ("downbow" . (("downbow" . "downbow") #f 0 1 0))
  22         ("lheel" . (("upedalheel" . "upedalheel") #f 0 -1  0))
  23         ("rheel" . (("dpedalheel" . "dpedalheel") #f 0 1 0))
  24         ("ltoe" . (("upedaltoe" . "upedaltoe") #f 0 -1 0))
  25         ("rtoe" . (("dpedaltoe" . "dpedaltoe") #f 0 1 0))
  26         ("turn" . (("turn" . "turn") #f 0 1 0))
  27         ("open" . (("open" . "open") #f 0 1 0))
  28         ("flageolet" . (("flageolet" . "flageolet")  0 0 1 0))
  29         ("reverseturn" . (("reverseturn" . "reverseturn")   0 0 1 0))
  30         ("trill" . (("trill" . "trill") #f 0 1 2000))
  31         ("prall" . (("prall" . "prall") #f 0 1 0))
  32         ("mordent" . (("mordent" . "mordent") #f 0 1 0))
  33         ("prallprall" . (("prallprall" . "prallprall") #f 0 1 0))
  34         ("prallmordent" . (("prallmordent" . "prallmordent") #f 0 1 0))
  35         ("upprall" . (("upprall" . "upprall") #f 0 1 0))
  36         ("downprall" . (("downprall" . "downprall") #f 0 1 0)))
  37       script-alist)
  38       )