scm/script.scm

   1 ;;;; script.scm -- Script definitions
   2 ;;;;
   3 ;;;; source file of the GNU LilyPond music typesetter
   4 ;;;;
   5 ;;;; (c) 2000--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
   6
   7 (define-public default-script-alist
   8   `(
   9     ("accent"
  10      . (
  11         (avoid-slur . around)
  12         (padding . 0.20)
  13         (quantize-position . #t)
  14         (script-stencil . (feta . ("sforzato" . "sforzato")))
  15         (side-relative-direction . ,DOWN)))
  16     ("accentus"
  17      . (
  18         (script-stencil . (feta . ("uaccentus" . "uaccentus")))
  19         (side-relative-direction . ,DOWN)
  20         (avoid-slur . ignore)
  21         (padding . 0.20)
  22         (quantize-position . #t)
  23         (script-priority . -100)
  24         (direction . ,UP)))
  25
  26
  27     ("circulus"
  28      . (
  29         (script-stencil . (feta . ("circulus" . "circulus")))
  30         (side-relative-direction . ,DOWN)
  31         (avoid-slur . ignore)
  32         (padding . 0.20)
  33         (quantize-position . #t)
  34         (script-priority . -100)
  35         (direction . ,UP)))
  36     ("coda"
  37      . (
  38         (script-stencil . (feta . ("coda" . "coda")))
  39         (padding . 0.20)
  40         (avoid-slur . outside)
  41         (direction . ,UP)))
  42     ("comma"
  43      . (
  44         (script-stencil . (feta . ("lcomma" . "rcomma")))
  45         (quantize-position . #t)
  46         (padding . 0.20)
  47         (avoid-slur . ignore)
  48         (direction . ,UP)))
  49
  50
  51     ("downbow"
  52      . (
  53         (script-stencil . (feta . ("downbow" . "downbow")))
  54         (padding . 0.20)
  55         (avoid-slur . around)
  56         (direction . ,UP)))
  57     ("downmordent"
  58      . (
  59         (script-stencil . (feta . ("downmordent" . "downmordent")))
  60         (padding . 0.20)
  61         (avoid-slur . around)
  62         (direction . ,UP)))
  63     ("downprall"
  64      . (
  65         (script-stencil . (feta . ("downprall" . "downprall")))
  66         (padding . 0.20)
  67         (avoid-slur . around)
  68         (direction . ,UP)))
  69
  70
  71     ("espressivo"
  72      . (
  73         (avoid-slur . around)
  74         (padding . 0.20)
  75         (quantize-position . #t)
  76         (script-stencil . (feta . ("espr" .  "espr")))
  77         (side-relative-direction . ,DOWN)))
  78
  79
  80     ("fermata"
  81      . (
  82         (script-stencil . (feta . ("dfermata" . "ufermata")))
  83         (padding . 0.20)
  84         (avoid-slur . around)
  85         (script-priority . 4000)
  86         (direction . ,UP)))
  87     ("flageolet"
  88      . (
  89         (script-stencil . (feta . ("flageolet" . "flageolet")))
  90         (padding . 0.20)
  91         (avoid-slur . around) ;guessing?
  92         (direction . ,UP)))
  93
  94
  95     ("ictus"
  96      . (
  97         (script-stencil . (feta . ("ictus" . "ictus")))
  98         (side-relative-direction . ,DOWN)
  99         (quantize-position . #t)
 100         (avoid-slur . ignore)
 101         (padding . 0.20)
 102         (script-priority . -100)
 103         (direction . ,DOWN)))
 104
 105
 106     ("lheel"
 107      . (
 108         (script-stencil . (feta . ("upedalheel" . "upedalheel")))
 109         (padding . 0.20)
 110         (avoid-slur . around) ;guessing?
 111         (direction . ,DOWN)))
 112     ("lineprall"
 113      . (
 114         (script-stencil . (feta . ("lineprall" . "lineprall")))
 115         (padding . 0.20)
 116         (avoid-slur . around)
 117         (direction . ,UP)))
 118     ("longfermata"
 119      . (
 120         (script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
 121         (padding . 0.20)
 122         (avoid-slur . around)
 123         (direction . ,UP)))
 124     ("ltoe"
 125      . (
 126         (script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
 127         (padding . 0.20)
 128         (avoid-slur . around) ;guessing?
 129         (direction . ,DOWN)))
 130
 131
 132     ("marcato"
 133      . (
 134         (script-stencil . (feta . ("dmarcato" . "umarcato")))
 135         (padding . 0.20)
 136         (avoid-slur . inside)
 137         ;;(staff-padding . ())
 138         (quantize-position . #t)
 139         (side-relative-direction . ,DOWN)))
 140     ("mordent"
 141      . (
 142         (script-stencil . (feta . ("mordent" . "mordent")))
 143         (padding . 0.20)
 144         (avoid-slur . around)
 145         (direction . ,UP)))
 146
 147
 148     ("open"
 149      . (
 150         (avoid-slur . outside)
 151         (padding . 0.20)
 152         (script-stencil . (feta . ("open" . "open")))
 153         (direction . ,UP)))
 154
 155
 156     ("portato"
 157      . (
 158         (script-stencil . (feta . ("uportato" . "dportato")))
 159         (avoid-slur . around)
 160         (slur-padding . 0.3)
 161         (padding . 0.45)
 162         (side-relative-direction . ,DOWN)))
 163     ("prall"
 164      . (
 165         (script-stencil . (feta . ("prall" . "prall")))
 166         (padding . 0.20)
 167         (avoid-slur . around)
 168         (direction . ,UP)))
 169     ("pralldown"
 170      . (
 171         (script-stencil . (feta . ("pralldown" . "pralldown")))
 172         (padding . 0.20)
 173         (avoid-slur . around)
 174         (direction . ,UP)))
 175     ("prallmordent"
 176      . (
 177         (script-stencil . (feta . ("prallmordent" . "prallmordent")))
 178         (padding . 0.20)
 179         (avoid-slur . around)
 180         (direction . ,UP)))
 181     ("prallprall"
 182      . (
 183         (script-stencil . (feta . ("prallprall" . "prallprall")))
 184         (padding . 0.20)
 185         (avoid-slur . around)
 186         (direction . ,UP)))
 187     ("prallup"
 188      . (
 189         (script-stencil . (feta . ("prallup" . "prallup")))
 190         (padding . 0.20)
 191         (avoid-slur . around)
 192         (direction . ,UP)))
 193
 194
 195     ("reverseturn"
 196      . (
 197         (script-stencil . (feta . ("reverseturn" . "reverseturn")))
 198         (padding . 0.20)
 199         (avoid-slur . inside)
 200         (direction . ,UP)))
 201     ("rheel"
 202      . (
 203         (script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
 204         (padding . 0.20)
 205         (avoid-slur . around) ;guessing?
 206         (direction . ,UP)))
 207     ("rtoe"
 208      . (
 209         (script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
 210         (padding . 0.20)
 211         (avoid-slur . around) ;guessing?
 212         (direction . ,UP)))
 213
 214
 215     ("segno"
 216      . (
 217         (script-stencil . (feta . ("segno" . "segno")))
 218         (padding . 0.20)
 219         (avoid-slur . outside)
 220         (direction . ,UP)))
 221     ("semicirculus"
 222      . (
 223         (script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
 224         (side-relative-direction . ,DOWN)
 225         (quantize-position . #t)
 226         (avoid-slur . ignore)
 227         (padding . 0.20)
 228         (script-priority . -100)
 229         (direction . ,UP)))
 230     ("shortfermata"
 231      . (
 232         (script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
 233         (padding . 0.20)
 234         (avoid-slur . around)
 235         (direction . ,UP)))
 236     ("signumcongruentiae"
 237      . (
 238         (script-stencil . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
 239         (padding . 0.20)
 240         (avoid-slur . outside)
 241         (direction . ,UP)))
 242     ("snappizzicato"
 243      . (
 244         (script-stencil . (feta . ("snappizzicato" . "snappizzicato")))
 245         (padding . 0.20)
 246         (avoid-slur . outside)
 247         (direction . ,UP)))
 248     ("staccatissimo"
 249      . (
 250         (avoid-slur . inside)
 251         (script-stencil . (feta . ("dstaccatissimo" . "ustaccatissimo")))
 252         (padding . 0.20)
 253         (side-relative-direction . ,DOWN)))
 254     ("staccato"
 255      . (
 256         (script-stencil . (feta . ("staccato" . "staccato")))
 257         (side-relative-direction . ,DOWN)
 258         (quantize-position . #t)
 259         (avoid-slur . inside)
 260         (toward-stem-shift . 0.5)
 261         (padding . 0.20)
 262         (script-priority . -100)))
 263     ("stopped"
 264      . (
 265         (script-stencil . (feta . ("stopped" . "stopped")))
 266         (avoid-slur . inside)
 267         (padding . 0.20)
 268         (direction . ,UP)))
 269
 270
 271     ("tenuto"
 272      . (
 273         (script-stencil . (feta . ("tenuto" . "tenuto")))
 274         (quantize-position . #t)
 275         (avoid-slur . inside)
 276         (padding . 0.20)
 277         (side-relative-direction . ,DOWN)))
 278     ("thumb"
 279      . (
 280         (script-stencil . (feta . ("thumb"  . "thumb")))
 281         (avoid-slur . inside)
 282         (padding . 0.20)
 283         (direction . ,UP)))
 284     ("trill"
 285      . (
 286         (script-stencil . (feta . ("trill" . "trill")))
 287         (direction . ,UP)
 288         (padding . 0.20)
 289         (avoid-slur . outside)
 290         (script-priority . 2000)))
 291     ("turn"
 292      . (
 293         (script-stencil . (feta . ("turn" . "turn")))
 294         (avoid-slur . inside)
 295         (padding . 0.20)
 296         (direction . ,UP)))
 297
 298
 299     ("upbow"
 300      . (
 301         (script-stencil . (feta . ("upbow" . "upbow")))
 302         (avoid-slur . around)
 303         (padding . 0.20)
 304         (direction . ,UP)))
 305     ("upmordent"
 306      . (
 307         (script-stencil . (feta . ("upmordent" . "upmordent")))
 308         (padding . 0.20)
 309         (avoid-slur . around)
 310         (direction . ,UP)))
 311     ("upprall"
 312      . (
 313         (script-stencil . (feta . ("upprall" . "upprall")))
 314         (padding . 0.20)
 315         (avoid-slur . around)
 316         (direction . ,UP)))
 317
 318
 319     ("varcoda"
 320      . (
 321         (script-stencil . (feta . ("varcoda" . "varcoda")))
 322         (padding . 0.20)
 323         (avoid-slur . outside)
 324         (direction . ,UP)))
 325     ("varcomma"
 326      . (
 327         (script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
 328         (quantize-position . #t)
 329         (padding . 0.20)
 330         (avoid-slur . ignore)
 331         (direction . ,UP)))
 332     ("verylongfermata"
 333      . (
 334         (script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
 335         (padding . 0.20)
 336         (avoid-slur . around)
 337         (direction . ,UP)))
 338       ))