scm/script.scm

   1
   2 (set! default-script-alist
   3       (append
   4        '(("thumb" .
   5           (
   6            (script-molecule . (feta . ("thumb"  . "thumb")))
   7            (direction . 1)))
   8          ("accent" .
   9           (
  10            (script-molecule . (feta . ("sforzato" .  "sforzato")))
  11            (side-relative-direction . -1))
  12           )
  13          ("marcato" .
  14           (
  15            (script-molecule . (feta . ("dmarcato" . "umarcato")))
  16            (side-relative-direction .  -1)))
  17          ("staccatissimo" .
  18           (
  19            (script-molecule . (feta . ("dstaccatissimo" . "ustaccatissimo")))
  20            (side-relative-direction .  -1)))
  21
  22          ("portato" .
  23           ((script-molecule . (feta . ("dportato" . "uportato")))
  24            (side-relative-direction . -1)))
  25
  26          ("fermata" .
  27           ((script-molecule . (feta . ("dfermata" . "ufermata")))
  28            (direction .  1)))
  29          ("stopped" .
  30           ((script-molecule . (feta . ("stopped" . "stopped")))
  31            (direction  . 1) ))
  32          ("staccato" .
  33           ((script-molecule . (feta . ("staccato" . "staccato")))
  34            (side-relative-direction .  -1)
  35            (follow-into-staff  . #t)
  36            (priority . -100)))
  37          ("tenuto" .
  38           ((script-molecule . (feta . ("tenuto" . "tenuto")))
  39            (follow-into-staff . #t)
  40            (side-relative-direction . -1)))
  41          ("comma" .
  42           ((script-molecule . (feta . ("lcomma" . "rcomma")))
  43            (follow-into-staff . #t)
  44            (direction . 1)))
  45          ("upbow" .
  46           ((script-molecule . (feta . ("upbow" . "upbow")))
  47            (direction  . 1) ))
  48          ("downbow" .
  49           ((script-molecule . (feta . ("downbow" . "downbow")))
  50            (direction  . 1) ))
  51          ("lheel" .
  52           ((script-molecule . (feta . ("upedalheel" . "upedalheel")))
  53            (direction .  -1))
  54          ("rheel" .
  55           ((script-molecule . (feta . ("dpedalheel" . "dpedalheel")))
  56            (direction  . 1) ))
  57          ("ltoe" .
  58           ((script-molecule . (feta . ("upedaltoe" . "upedaltoe")))
  59            (direction  . -1) ))
  60          ("rtoe" .
  61           ((script-molecule . (feta . ("dpedaltoe" . "dpedaltoe")))
  62            (direction  . 1) ))
  63          ("turn" .
  64           ((script-molecule . (feta . ("turn" . "turn")))
  65            (direction  . 1) ))
  66          ("open" .
  67           ((script-molecule . (feta . ("open" . "open")))
  68            (direction  . 1) ))
  69          ("flageolet" .
  70           ((script-molecule . (feta . ("flageolet" . "flageolet")))
  71            (direction  . 1) ))
  72          ("reverseturn" .
  73           ((script-molecule . (feta . ("reverseturn" . "reverseturn")))
  74            (direction  . 1) ))
  75          ("trill" .
  76           ((script-molecule . (feta . ("trill" . "trill")))
  77            (direction . 1)
  78            (priority . 2000)))
  79          ("prall" .
  80           ((script-molecule . (feta . ("prall" . "prall")))
  81            (direction  . 1) ))
  82          ("mordent" .
  83           ((script-molecule . (feta . ("mordent" . "mordent")))
  84            (direction  . 1) ))
  85          ("prallprall" .
  86           ((script-molecule . (feta . ("prallprall" . "prallprall")))
  87            (direction  . 1) ))
  88          ("prallmordent" .
  89           ((script-molecule . (feta . ("prallmordent" . "prallmordent")))
  90            (direction  . 1) ))
  91          ("upprall" .
  92           ((script-molecule . (feta . ("upprall" . "upprall")))
  93            (direction  . 1) ))
  94          ("downprall" .
  95           ((script-molecule . (feta . ("downprall" . "downprall")))
  96            (direction  . 1) ))
  97          ("upmordent" .
  98           ((script-molecule . (feta . ("upmordent" . "upmordent")))
  99            (direction  . 1) ))
 100          ("downmordent" .
 101           ((script-molecule . (feta . ("downmordent" . "downmordent")))
 102            (direction  . 1) ))
 103          ("lineprall" .
 104           ((script-molecule . (feta . ("lineprall" . "lineprall")))
 105            (direction  . 1) ))
 106          ("pralldown" .
 107           ((script-molecule . (feta . ("pralldown" . "pralldown")))
 108            (direction  . 1) ))
 109          ("prallup" .
 110           ((script-molecule . (feta . ("prallup" . "prallup")))
 111            (direction  . 1) ))
 112          ("segno" .
 113           ((script-molecule . (feta . ("segno" . "segno")))
 114            (direction  . 1) ))
 115          ("coda" .
 116           ((script-molecule . (feta . ("coda" . "coda")))
 117            (direction  . 1) )))
 118        default-script-alist)
 119       )