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