scm/script.scm

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