scm/script.scm

   1 ;;;; This file is part of LilyPond, the GNU music typesetter.
   2 ;;;;
   3 ;;;; Copyright (C) 2000--2015 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         (skyline-horizontal-padding . 0.20)
  66         (avoid-slur . around)
  67         (direction . ,UP)
  68         (script-priority . 150)))
  69     ("downmordent"
  70      . (
  71         (script-stencil . (feta . ("downmordent" . "downmordent")))
  72         (padding . 0.20)
  73         (avoid-slur . around)
  74         (direction . ,UP)))
  75     ("downprall"
  76      . (
  77         (script-stencil . (feta . ("downprall" . "downprall")))
  78         (padding . 0.20)
  79         (avoid-slur . around)
  80         (direction . ,UP)))
  81
  82
  83     ("espressivo"
  84      . (
  85         (avoid-slur . around)
  86         (padding . 0.20)
  87         (script-stencil . (feta . ("espr" .  "espr")))
  88         (side-relative-direction . ,DOWN)))
  89
  90
  91     ("fermata"
  92      . (
  93         (script-stencil . (feta . ("dfermata" . "ufermata")))
  94         (padding . 0.20)
  95         (avoid-slur . around)
  96         (script-priority . 4000)
  97         (direction . ,UP)))
  98     ("flageolet"
  99      . (
 100         (script-stencil . (feta . ("flageolet" . "flageolet")))
 101         (padding . 0.20)
 102         (avoid-slur . around) ;guessing?
 103         (direction . ,UP)))
 104
 105
 106     ("halfopen"
 107      . (
 108         (avoid-slur . outside)
 109         (padding . 0.20)
 110         (script-stencil . (feta . ("halfopen" . "halfopen")))
 111         (direction . ,UP)))
 112
 113     ("halfopenvertical"
 114      . (
 115         (avoid-slur . outside)
 116         (padding . 0.20)
 117         (script-stencil . (feta . ("halfopenvertical" . "halfopenvertical")))
 118         (direction . ,UP)))
 119
 120
 121     ("ictus"
 122      . (
 123         (script-stencil . (feta . ("ictus" . "ictus")))
 124         (side-relative-direction . ,DOWN)
 125         (quantize-position . #t)
 126         (avoid-slur . ignore)
 127         (padding . 0.20)
 128         (script-priority . -100)
 129         (direction . ,DOWN)))
 130
 131
 132     ("lheel"
 133      . (
 134         (script-stencil . (feta . ("upedalheel" . "upedalheel")))
 135         (padding . 0.20)
 136         (avoid-slur . around) ;guessing?
 137         (direction . ,DOWN)))
 138     ("lineprall"
 139      . (
 140         (script-stencil . (feta . ("lineprall" . "lineprall")))
 141         (padding . 0.20)
 142         (avoid-slur . around)
 143         (direction . ,UP)))
 144     ("longfermata"
 145      . (
 146         (script-stencil . (feta . ("dlongfermata" . "ulongfermata")))
 147         (padding . 0.20)
 148         (avoid-slur . around)
 149         (direction . ,UP)))
 150     ("ltoe"
 151      . (
 152         (script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
 153         (padding . 0.20)
 154         (avoid-slur . around) ;guessing?
 155         (direction . ,DOWN)))
 156
 157
 158     ("marcato"
 159      . (
 160         (script-stencil . (feta . ("dmarcato" . "umarcato")))
 161         (padding . 0.20)
 162         (avoid-slur . inside)
 163         ;;(staff-padding . ())
 164         (quantize-position . #t)
 165         (side-relative-direction . ,DOWN)))
 166     ("mordent"
 167      . (
 168         (script-stencil . (feta . ("mordent" . "mordent")))
 169         (padding . 0.20)
 170         (avoid-slur . around)
 171         (direction . ,UP)))
 172
 173
 174     ("open"
 175      . (
 176         (avoid-slur . outside)
 177         (padding . 0.20)
 178         (script-stencil . (feta . ("open" . "open")))
 179         (direction . ,UP)))
 180
 181
 182     ("portato"
 183      . (
 184         (script-stencil . (feta . ("uportato" . "dportato")))
 185         (avoid-slur . around)
 186         (padding . 0.45)
 187         (side-relative-direction . ,DOWN)))
 188     ("prall"
 189      . (
 190         (script-stencil . (feta . ("prall" . "prall")))
 191         (padding . 0.20)
 192         (avoid-slur . around)
 193         (direction . ,UP)))
 194     ("pralldown"
 195      . (
 196         (script-stencil . (feta . ("pralldown" . "pralldown")))
 197         (padding . 0.20)
 198         (avoid-slur . around)
 199         (direction . ,UP)))
 200     ("prallmordent"
 201      . (
 202         (script-stencil . (feta . ("prallmordent" . "prallmordent")))
 203         (padding . 0.20)
 204         (avoid-slur . around)
 205         (direction . ,UP)))
 206     ("prallprall"
 207      . (
 208         (script-stencil . (feta . ("prallprall" . "prallprall")))
 209         (padding . 0.20)
 210         (avoid-slur . around)
 211         (direction . ,UP)))
 212     ("prallup"
 213      . (
 214         (script-stencil . (feta . ("prallup" . "prallup")))
 215         (padding . 0.20)
 216         (avoid-slur . around)
 217         (direction . ,UP)))
 218
 219
 220     ("reverseturn"
 221      . (
 222         (script-stencil . (feta . ("reverseturn" . "reverseturn")))
 223         (padding . 0.20)
 224         (avoid-slur . inside)
 225         (direction . ,UP)))
 226     ("rheel"
 227      . (
 228         (script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
 229         (padding . 0.20)
 230         (avoid-slur . around) ;guessing?
 231         (direction . ,UP)))
 232     ("rtoe"
 233      . (
 234         (script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
 235         (padding . 0.20)
 236         (avoid-slur . around) ;guessing?
 237         (direction . ,UP)))
 238
 239
 240     ("segno"
 241      . (
 242         (script-stencil . (feta . ("segno" . "segno")))
 243         (padding . 0.20)
 244         (avoid-slur . outside)
 245         (direction . ,UP)))
 246     ("semicirculus"
 247      . (
 248         (script-stencil . (feta . ("dsemicirculus" . "dsemicirculus")))
 249         (side-relative-direction . ,DOWN)
 250         (quantize-position . #t)
 251         (avoid-slur . ignore)
 252         (padding . 0.20)
 253         (script-priority . -100)
 254         (direction . ,UP)))
 255     ("shortfermata"
 256      . (
 257         (script-stencil . (feta . ("dshortfermata" . "ushortfermata")))
 258         (padding . 0.20)
 259         (avoid-slur . around)
 260         (direction . ,UP)))
 261     ("signumcongruentiae"
 262      . (
 263         (script-stencil . (feta . ("dsignumcongruentiae" . "usignumcongruentiae")))
 264         (padding . 0.20)
 265         (avoid-slur . outside)
 266         (direction . ,UP)))
 267     ("snappizzicato"
 268      . (
 269         (script-stencil . (feta . ("snappizzicato" . "snappizzicato")))
 270         (padding . 0.20)
 271         (avoid-slur . outside)
 272         (direction . ,UP)))
 273     ("staccatissimo"
 274      . (
 275         (avoid-slur . inside)
 276         (quantize-position . #t)
 277         (script-stencil . (feta . ("dstaccatissimo" . "ustaccatissimo")))
 278         (padding . 0.20)
 279         (skyline-horizontal-padding . 0.10)
 280         (side-relative-direction . ,DOWN)
 281         (toward-stem-shift . 1.0)
 282         (toward-stem-shift-in-column . 0.0)))
 283     ("staccato"
 284      . (
 285         (script-stencil . (feta . ("staccato" . "staccato")))
 286         (side-relative-direction . ,DOWN)
 287         (quantize-position . #t)
 288         (avoid-slur . inside)
 289         (toward-stem-shift . 1.0)
 290         (toward-stem-shift-in-column . 0.0)
 291         (padding . 0.20)
 292         (skyline-horizontal-padding . 0.10)
 293         (script-priority . -100)))
 294     ("stopped"
 295      . (
 296         (script-stencil . (feta . ("stopped" . "stopped")))
 297         (avoid-slur . inside)
 298         (padding . 0.20)
 299         (direction . ,UP)))
 300
 301
 302     ("tenuto"
 303      . (
 304         (script-stencil . (feta . ("tenuto" . "tenuto")))
 305         (quantize-position . #t)
 306         (avoid-slur . inside)
 307         (padding . 0.20)
 308         (side-relative-direction . ,DOWN)))
 309     ("trill"
 310      . (
 311         (script-stencil . (feta . ("trill" . "trill")))
 312         (direction . ,UP)
 313         (padding . 0.20)
 314         (avoid-slur . outside)
 315         (script-priority . 2000)))
 316     ("turn"
 317      . (
 318         (script-stencil . (feta . ("turn" . "turn")))
 319         (avoid-slur . inside)
 320         (padding . 0.20)
 321         (direction . ,UP)))
 322
 323
 324     ("upbow"
 325      . (
 326         (script-stencil . (feta . ("upbow" . "upbow")))
 327         (avoid-slur . around)
 328         (padding . 0.20)
 329         (direction . ,UP)
 330         (script-priority . 150)))
 331     ("upmordent"
 332      . (
 333         (script-stencil . (feta . ("upmordent" . "upmordent")))
 334         (padding . 0.20)
 335         (avoid-slur . around)
 336         (direction . ,UP)))
 337     ("upprall"
 338      . (
 339         (script-stencil . (feta . ("upprall" . "upprall")))
 340         (padding . 0.20)
 341         (avoid-slur . around)
 342         (direction . ,UP)))
 343
 344
 345     ("varcoda"
 346      . (
 347         (script-stencil . (feta . ("varcoda" . "varcoda")))
 348         (padding . 0.20)
 349         (avoid-slur . outside)
 350         (direction . ,UP)))
 351     ("varcomma"
 352      . (
 353         (script-stencil . (feta . ("lvarcomma" . "rvarcomma")))
 354         (quantize-position . #t)
 355         (padding . 0.20)
 356         (avoid-slur . ignore)
 357         (direction . ,UP)))
 358     ("verylongfermata"
 359      . (
 360         (script-stencil . (feta . ("dverylongfermata" . "uverylongfermata")))
 361         (padding . 0.20)
 362         (avoid-slur . around)
 363         (direction . ,UP)))
 364     ))