scm/script.scm

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