scm/script.scm

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