ly/script-init.ly

   1 % script-init.ly
   2
   3 \version "2.17.25"
   4
   5 harmonic = #(make-music 'HarmonicEvent)
   6
   7 accent = #(make-articulation "accent"
   8            'midi-extra-velocity 20)
   9 coda = #(make-articulation "coda")
  10 downbow = #(make-articulation "downbow")
  11 downmordent = #(make-articulation "downmordent")
  12 downprall = #(make-articulation "downprall")
  13 espressivo = #(make-articulation "espressivo")
  14 fermata = #(make-articulation "fermata")
  15 flageolet = #(make-articulation "flageolet")
  16 halfopen = #(make-articulation "halfopen")
  17 lheel = #(make-articulation "lheel")
  18 lineprall = #(make-articulation "lineprall")
  19 longfermata = #(make-articulation "longfermata")
  20 ltoe = #(make-articulation "ltoe")
  21 marcato = #(make-articulation "marcato"
  22             'midi-extra-velocity 40)
  23 mordent = #(make-articulation "mordent")
  24 open = #(make-articulation "open")
  25
  26 portato = #(make-articulation "portato"
  27             'midi-length
  28             (lambda (len context)
  29              (ly:moment-mul len (ly:make-moment 3/4))))
  30 prall = #(make-articulation "prall")
  31 pralldown = #(make-articulation "pralldown")
  32 prallmordent = #(make-articulation "prallmordent")
  33 prallprall = #(make-articulation "prallprall")
  34 prallup = #(make-articulation "prallup")
  35 reverseturn = #(make-articulation "reverseturn")
  36 rheel = #(make-articulation "rheel")
  37 rtoe = #(make-articulation "rtoe")
  38 segno = #(make-articulation "segno")
  39 shortfermata = #(make-articulation "shortfermata")
  40 signumcongruentiae = #(make-articulation "signumcongruentiae")
  41 snappizzicato = #(make-articulation "snappizzicato")
  42 staccatissimo = #(make-articulation "staccatissimo"
  43                   'midi-length
  44                   (lambda (len context)
  45                     (seconds->moment 1/8 context))
  46                   'midi-extra-velocity 6)
  47 staccato = #(make-articulation "staccato"
  48              'midi-length
  49              (lambda (len context)
  50                (moment-min (ly:moment-mul len (ly:make-moment 1/2))
  51                            (seconds->moment 1/2 context)))
  52              'midi-extra-velocity 4)
  53 stopped = #(make-articulation "stopped")
  54 tenuto = #(make-articulation "tenuto")
  55 thumb = \finger \markup \scale #(cons (magstep 5) (magstep 5))
  56                         \musicglyph #"scripts.thumb"
  57 trill = #(make-articulation "trill")
  58 turn = #(make-articulation "turn")
  59 upbow = #(make-articulation "upbow")
  60 upmordent = #(make-articulation "upmordent")
  61 upprall = #(make-articulation "upprall")
  62 varcoda = #(make-articulation "varcoda")
  63 verylongfermata = #(make-articulation "verylongfermata")
  64
  65 % code char abbreviations
  66 dashHat = \marcato
  67 dashPlus = \stopped
  68 dashDash = \tenuto
  69 dashBang = \staccatissimo
  70 dashLarger = \accent
  71 dashDot = \staccato
  72 dashUnderscore = \portato