ly/music-functions-init.ly

   1 \version "2.4.0"
   2
   3
   4 applymusic = #(def-music-function (parser location func music) (procedure? ly:music?)
   5                (func music))
   6
   7 oldaddlyrics = #(def-music-function (parser location music lyrics) (ly:music? ly:music?)
   8
   9               (make-music 'LyricCombineMusic
  10                           'origin location
  11                           'elements (list music lyrics)))
  12
  13 grace = #(def-grace-function startGraceMusic stopGraceMusic)
  14
  15 acciaccatura = #(def-grace-function startAcciaccaturaMusic stopAcciaccaturaMusic)
  16 appoggiatura = #(def-grace-function startAppoggiaturaMusic stopAppoggiaturaMusic)
  17
  18 partcombine = #(def-music-function (parser location part1 part2) (ly:music? ly:music?)
  19                 (make-part-combine-music (list part1 part2)))
  20
  21 autochange = #(def-music-function (parser location music) (ly:music?)
  22                (make-autochange-music music))
  23
  24 applycontext = #(def-music-function (parser location proc) (procedure?)
  25                  (make-music 'ApplyContext
  26                    'origin location
  27                    'procedure proc))
  28
  29 displayMusic = #(def-music-function (parser location music) (ly:music?)
  30                  (display-music music)
  31                  music)
  32 applyoutput = #(def-music-function (parser location proc) (procedure?)
  33                 (make-music 'ApplyOutputEvent
  34                   'origin location
  35                   'procedure proc))
  36
  37 breathe = #(def-music-function (parser location) ()
  38             (make-music 'EventChord
  39               'origin location
  40               'elements (list (make-music 'BreathingSignEvent))))
  41
  42
  43 unfoldrepeats = #(def-music-function (parser location music) (ly:music?)
  44                   (unfold-repeats music))
  45
  46 compressmusic = #(def-music-function
  47                   (parser location fraction music) (number-pair? ly:music?)
  48                   (ly:music-compress music (ly:make-moment (car fraction) (cdr fraction))))
  49
  50 makeClusters = #(def-music-function
  51                 (parser location arg) (ly:music?)
  52                 (music-map note-to-cluster arg))
  53
  54
  55 removeWithTag =
  56 #(def-music-function
  57   (parser location tag music) (symbol? ly:music?)
  58   (music-filter
  59    (lambda (m)
  60     (let* ((tags (ly:music-property m 'tags))
  61             (res (memq tag tags)))
  62        (not res)))))
  63
  64 keepWithTag =
  65 #(def-music-function
  66   (parser location tag music) (symbol? ly:music?)
  67   (music-filter
  68    (lambda (m)
  69     (let* ((tags (ly:music-property m 'tags))
  70            (res (memq tag tags)))
  71        (or
  72         (eq? tags '())
  73         (memq tag tags))))
  74    music))
  75
  76
  77 %% Todo:
  78 %% doing
  79 %% def-music-function in a .scm causes crash.
  80
  81 cueDuring =
  82 #(def-music-function
  83   (parser location what dir main-music)
  84   (string? ly:dir? ly:music?)
  85   (make-music 'QuoteMusic
  86               'element main-music
  87               'quoted-context-type 'Voice
  88               'quoted-context-id "cue"
  89               'quoted-music-name what
  90               'quoted-voice-direction dir
  91               'origin location))
  92
  93
  94 quoteDuring = #
  95 (def-music-function
  96   (parser location what main-music)
  97   (string? ly:music?)
  98   (make-music 'QuoteMusic
  99               'element main-music
 100               'quoted-music-name what
 101               'origin location))
 102
 103
 104
 105
 106 killCues =
 107 #(def-music-function
 108    (parser location music)
 109    (ly:music?)
 110    (music-map
 111     (lambda (mus)
 112       (if (string? (ly:music-property mus 'quoted-music-name))
 113           (ly:music-property mus 'element)
 114           mus)) music))
 115
 116
 117 afterGraceFraction = #(cons 6 8)
 118
 119 afterGrace =
 120 #(def-music-function
 121   (parser location main grace)
 122   (ly:music? ly:music?)
 123
 124   (let*
 125       ((main-length (ly:music-length main))
 126        (fraction  (ly:parser-lookup parser 'afterGraceFraction)))
 127
 128     (make-simultaneous-music
 129      (list
 130       main
 131       (make-sequential-music
 132        (list
 133
 134         (make-music 'SkipMusic
 135                     'duration (ly:make-duration
 136                                0 0
 137                                (* (ly:moment-main-numerator main-length)
 138                                   (car fraction))
 139                                (* (ly:moment-main-denominator main-length)
 140                                   (cdr fraction)) ))
 141         (make-music 'GraceMusic
 142                     'element grace)))))))
 143
 144 %{
 145
 146 TODO:
 147
 148 remove these from the parser, and softcode here:
 149
 150  * \tag
 151
 152 with small syntax changes, we could also do
 153
 154  * \bar
 155  *  ?
 156
 157 %}