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          ("accentus" .
  27           ((script-molecule . (feta . ("uaccentus" . "uaccentus")))
  28            (side-relative-direction .  -1)
  29            (follow-into-staff  . #t)
  30            (priority . -100)
  31            (direction  . 1)))
  32          ("ictus" .
  33           ((script-molecule . (feta . ("ictus" . "ictus")))
  34            (side-relative-direction .  -1)
  35            (follow-into-staff  . #t)
  36            (priority . -100)
  37            (direction  . -1)))
  38          ("semicirculus" .
  39           ((script-molecule . (feta . ("dsemicirculus" . "dsemicirculus")))
  40            (side-relative-direction .  -1)
  41            (follow-into-staff  . #t)
  42            (priority . -100)
  43            (direction  . 1)))
  44          ("circulus" .
  45           ((script-molecule . (feta . ("circulus" . "circulus")))
  46            (side-relative-direction .  -1)
  47            (follow-into-staff  . #t)
  48            (priority . -100)
  49            (direction  . 1)))
  50
  51          ("signumcongruentiae" .
  52           ((script-molecule . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
  53            (direction .  1)))
  54          ("fermata" .
  55           ((script-molecule . (feta . ("dfermata" . "ufermata")))
  56            (direction .  1)))
  57          ("shortfermata" .
  58           ((script-molecule . (feta . ("dshortfermata" . "ushortfermata")))
  59            (direction .  1)))
  60          ("longfermata" .
  61           ((script-molecule . (feta . ("dlongfermata" . "ulongfermata")))
  62            (direction .  1)))
  63          ("verylongfermata" .
  64           ((script-molecule . (feta . ("dverylongfermata" . "uverylongfermata")))
  65            (direction .  1)))
  66          ("stopped" .
  67           ((script-molecule . (feta . ("stopped" . "stopped")))
  68            (direction  . 1) ))
  69          ("staccato" .
  70           ((script-molecule . (feta . ("staccato" . "staccato")))
  71            (side-relative-direction .  -1)
  72            (follow-into-staff  . #t)
  73            (priority . -100)))
  74          ("tenuto" .
  75           ((script-molecule . (feta . ("tenuto" . "tenuto")))
  76            (follow-into-staff . #t)
  77            (side-relative-direction . -1)))
  78          ("comma" .
  79           ((script-molecule . (feta . ("lcomma" . "rcomma")))
  80            (follow-into-staff . #t)
  81            (direction . 1)))
  82          ("varcomma" .
  83           ((script-molecule . (feta . ("lvarcomma" . "rvarcomma")))
  84            (follow-into-staff . #t)
  85            (direction . 1)))
  86          ("upbow" .
  87           ((script-molecule . (feta . ("upbow" . "upbow")))
  88            (direction  . 1) ))
  89          ("downbow" .
  90           ((script-molecule . (feta . ("downbow" . "downbow")))
  91            (direction  . 1) ))
  92          ("lheel" .
  93           ((script-molecule . (feta . ("upedalheel" . "upedalheel")))
  94            (direction .  -1))
  95           )
  96          ("rheel" .
  97           ((script-molecule . (feta . ("dpedalheel" . "dpedalheel")))
  98            (direction  . 1) ))
  99          ("ltoe" .
 100           ((script-molecule . (feta . ("upedaltoe" . "upedaltoe")))
 101            (direction  . -1) ))
 102          ("rtoe" .
 103           ((script-molecule . (feta . ("dpedaltoe" . "dpedaltoe")))
 104            (direction  . 1) ))
 105          ("turn" .
 106           ((script-molecule . (feta . ("turn" . "turn")))
 107            (direction  . 1) ))
 108          ("open" .
 109           ((script-molecule . (feta . ("open" . "open")))
 110            (direction  . 1) ))
 111          ("flageolet" .
 112           ((script-molecule . (feta . ("flageolet" . "flageolet")))
 113            (direction  . 1) ))
 114          ("reverseturn" .
 115           ((script-molecule . (feta . ("reverseturn" . "reverseturn")))
 116            (direction  . 1) ))
 117          ("trill" .
 118           ((script-molecule . (feta . ("trill" . "trill")))
 119            (direction . 1)
 120            (priority . 2000)))
 121          ("prall" .
 122           ((script-molecule . (feta . ("prall" . "prall")))
 123            (direction  . 1) ))
 124          ("mordent" .
 125           ((script-molecule . (feta . ("mordent" . "mordent")))
 126            (direction  . 1) ))
 127          ("prallprall" .
 128           ((script-molecule . (feta . ("prallprall" . "prallprall")))
 129            (direction  . 1) ))
 130          ("prallmordent" .
 131           ((script-molecule . (feta . ("prallmordent" . "prallmordent")))
 132            (direction  . 1) ))
 133          ("upprall" .
 134           ((script-molecule . (feta . ("upprall" . "upprall")))
 135            (direction  . 1) ))
 136          ("downprall" .
 137           ((script-molecule . (feta . ("downprall" . "downprall")))
 138            (direction  . 1) ))
 139          ("upmordent" .
 140           ((script-molecule . (feta . ("upmordent" . "upmordent")))
 141            (direction  . 1) ))
 142          ("downmordent" .
 143           ((script-molecule . (feta . ("downmordent" . "downmordent")))
 144            (direction  . 1) ))
 145          ("lineprall" .
 146           ((script-molecule . (feta . ("lineprall" . "lineprall")))
 147            (direction  . 1) ))
 148          ("pralldown" .
 149           ((script-molecule . (feta . ("pralldown" . "pralldown")))
 150            (direction  . 1) ))
 151          ("prallup" .
 152           ((script-molecule . (feta . ("prallup" . "prallup")))
 153            (direction  . 1) ))
 154          ("segno" .
 155           ((script-molecule . (feta . ("segno" . "segno")))
 156            (direction  . 1) ))
 157          ("coda" .
 158           ((script-molecule . (feta . ("coda" . "coda")))
 159            (direction  . 1) ))
 160          ("varcoda" .
 161           ((script-molecule . (feta . ("varcoda" . "varcoda")))
 162            (direction  . 1) )))
 163        default-script-alist)
 164       )