definitions/music-functions.ly

   1 %------------------------------------------------------------------%
   2 % Opéra Libre -- functions.ly                                      %
   3 %                                                                  %
   4 % (c) Valentin Villenave, 2008                                     %
   5 %                                                                  %
   6 %------------------------------------------------------------------%
   7
   8 % Various additional functions.
   9
  10 %%%%%%%%%%%%%%%%%%%%%%%%% Music Shortcuts %%%%%%%%%%%%%%%%%%%%%%%%%%
  11
  12 %% Rhythm shortcuts -----------------------------------------------%
  13
  14 t =
  15 #(define-music-function (parser location music) (ly:music?)
  16 #{ \times 2/3 $music #})
  17
  18 tt =
  19 #(define-music-function (parser location music) (ly:music?)
  20 #{ \times 4/5 $music #})
  21
  22 ttt =
  23 #(define-music-function (parser location music) (ly:music?)
  24 #{ \times 4/6 $music #})
  25
  26 tttt =
  27 #(define-music-function (parser location music) (ly:music?)
  28 #{ \times 4/7 $music #})
  29
  30
  31 %% Polyphony shortcuts --------------------------------------------%
  32
  33 %%% Functions (Issue #442 workaround)
  34
  35 #(define (remove music) ; throw everything into the Big Void...
  36  (context-spec-music music 'Devnull))
  37
  38 #(define (unpitch music)
  39   ; in addition to the PitchSquash thing, we need to make
  40   ; accidentals disappear (since these are engraved at a
  41   ; Staff level, and since we don't want to affect the
  42   ; real Voice).
  43   (let* ((es (ly:music-property music 'elements))
  44          (e (ly:music-property music 'element))
  45          (p (ly:music-property music 'pitch)))
  46     (if (pair? es)
  47         (ly:music-set-property!
  48          music 'elements
  49          (map (lambda (x) (unpitch x)) es)))
  50     (if (ly:music? e)
  51         (ly:music-set-property!
  52          music 'element
  53          (unpitch e)))
  54     (if (ly:pitch? p)
  55           (ly:music-set-property! music 'pitch 0)))
  56    music)
  57
  58 #(define (event-filter event)
  59  (let ((n (ly:music-property event 'name)))
  60   (if (or
  61     (eq? n 'ContextSpeccedMusic) ; to avoid clefs and ottavas
  62     (eq? n 'ContextChange) ; cross-staff voices are supported
  63     (eq? n 'ArpeggioEvent)) ; arpeggios need to go too
  64     (music-map remove event))
  65   (if (eq? n 'SimultaneousMusic) ; we don't want a new Voice to be created
  66     (ly:music-set-property! event 'name 'NoteEvent))))
  67
  68 makeGhost =
  69 #(define-music-function (parser location music) (ly:music?)
  70  (context-spec-music (music-filter event-filter (unpitch music)) 'PseudoVoice))
  71
  72 pl =
  73 #(define-music-function (parser location one two) (ly:music? ly:music?)
  74 #{ << { \voiceTwo $one } \\ { \voiceOne $two } >> #})
  75
  76 %%% Piano implementation
  77
  78 showAnyway = %not needed
  79 #(define-music-function (parser location music) (ly:music?)
  80 #{
  81   \unset Score.keepAliveInterfaces
  82   $music
  83   \set Score.keepAliveInterfaces = #'(rhythmic-grob-interface
  84   lyric-interface percent-repeat-item-interface
  85   percent-repeat-interface stanza-number-interface)
  86 #})
  87
  88 PianoDeuxMains=
  89 #(define-music-function (parser location droite gauche) (ly:music? ly:music?)
  90 #{
  91   \new PianoStaff <<
  92     \new Staff = "md"
  93     <<
  94      \new Voice { \clef treble $droite }
  95      \new Voice { \makeGhost $gauche }
  96     >>
  97     \new Staff = "mg"
  98     <<
  99      \new Voice { \clef bass $gauche }
 100      \new Voice { \makeGhost $droite }
 101     >>
 102   >>
 103 #})
 104
 105 md = { \change Staff = "md" }
 106
 107 mg = { \change Staff = "mg" }
 108
 109 %%% The same, for percussions.
 110
 111 PercuDeuxMains=
 112 #(define-music-function (parser location droite gauche) (ly:music? ly:music?)
 113 #{
 114   \new PianoStaff <<
 115     \new Staff = "percuDroite"
 116     <<
 117      \new Voice { \clef treble $droite }
 118      \new Voice { \makeGhost $gauche }
 119     >>
 120     \new Staff = "percuGauche"
 121     <<
 122      \new Voice { \clef bass $gauche }
 123      \new Voice { \makeGhost $droite }
 124     >>
 125   >>
 126 #})
 127
 128 droite = { \change Staff = "percuDroite" }
 129
 130 gauche = { \change Staff = "percuGauche" }
 131
 132 plperc =
 133 #(define-music-function (parser location one two) (ly:music? ly:music?)
 134 #{ <<  { \stemDown $one \stemNeutral } \new DrumVoice { \stemUp $two } >> #})
 135
 136
 137 %% Music formatting -----------------------------------------------%
 138
 139 graceNotes =
 140 #(define-music-function (parser location notes) (ly:music?)
 141 #{ \tiny $notes \normalsize #})
 142
 143 parlato =
 144 #(define-music-function (parser location notes) (ly:music?)
 145 #{ \override NoteHead #'style = #'cross
 146   $notes
 147 \revert NoteHead #'style #})
 148
 149 longHairpins =
 150 #(define-music-function (parser location music) (ly:music?)
 151 #{ \override Hairpin #'to-barline = ##f
 152 $music \revert Hairpin #'to-barline #})
 153
 154 slap =
 155 #(define-music-function (parser location music) (ly:music?)
 156 #{\override NoteHead #'stencil = #ly:text-interface::print
 157   \override NoteHead #'text = \markup \musicglyph #"scripts.sforzato"
 158   \override NoteHead #'extra-offset = #'(0.1 . 0.0 )
 159   $music
 160   \revert NoteHead #'stencil
 161   \revert NoteHead #'text
 162   \revert NoteHead #'extra-offset #})
 163
 164 hideNote = {
 165 \once \override NoteHead  #'transparent = ##t
 166 \once \override NoteHead  #'no-ledgers = ##t
 167 \once \override Stem  #'transparent = ##t
 168 \once \override Beam  #'transparent = ##t
 169 \once \override Accidental  #'transparent = ##t
 170 }
 171
 172 noTuplet = {
 173 \once \override TupletBracket #'transparent = ##t
 174 \once \override TupletNumber #'transparent = ##t
 175 }
 176
 177 oneStemDown = {
 178 \once \override Stem #'direction = #DOWN
 179 }
 180
 181 oneStemUp = {
 182 \once \override Stem #'direction = #UP
 183 }
 184
 185 %% Music shortcuts ------------------------------------------------%
 186
 187 sk = \set Score.skipTypesetting = ##t
 188
 189 unsk = \set Score.skipTypesetting = ##f
 190
 191 % This might not be needed
 192 #(define (octave-up noteevent)
 193  (let* ((pitch (ly:music-property noteevent 'pitch))
 194         (octave (ly:pitch-octave pitch))
 195         (note (ly:pitch-notename pitch))
 196         (alteration (ly:pitch-alteration pitch))
 197         (duration (ly:music-property noteevent 'duration))
 198         (newnoteevent
 199           (make-music 'NoteEvent
 200             'duration duration
 201             'pitch (ly:make-pitch (1- octave) note alteration))))
 202    newnoteevent))
 203
 204 #(define (octavize-chord elements)
 205  (cond ((null? elements) elements)
 206        ((eq? (ly:music-property (car elements) 'name) 'NoteEvent)
 207          (cons (car elements)
 208                (cons (octave-up (car elements))
 209                      (octavize-chord (cdr elements)))))
 210        (else (cons (car elements) (octavize-chord (cdr elements))))))
 211
 212 #(define (octavize music)
 213  (let* ((es (ly:music-property music 'elements))
 214         (e (ly:music-property music 'element))
 215         (name (ly:music-property music 'name)))
 216    (cond ((eq? name 'EventChord)
 217           (ly:music-set-property! music 'elements (octavize-chord es)))
 218          ((pair? es)
 219           (for-each (lambda(x) (octavize x)) es))
 220          ((ly:music? e)
 221           (octavize e))))
 222  music)
 223
 224 oct = #(define-music-function (parser location mus) (ly:music?)
 225  (octavize mus))
 226
 227
 228 %%%%%%%%%%%%%%%%%%%%%%%%% Music Decoration %%%%%%%%%%%%%%%%%%%%%%%%%
 229
 230 %% Articulation marks ---------------------------------------------%
 231
 232 #(define (make-script x)
 233    (make-music 'ArticulationEvent
 234                'articulation-type x))
 235
 236 #(define (add-script m x)
 237  (let ( (eventname (ly:music-property m 'name)))
 238   (if (equal? eventname 'EventChord)
 239     (let ( (elements (ly:music-property m 'elements)) )
 240       (if (not (equal? (ly:music-property (car elements)
 241                 'name) 'RestEvent))
 242         (set! (ly:music-property m 'elements)
 243           (append elements (list
 244           (make-script x)))))))
 245           m))
 246
 247 #(define (double-script m t tt)
 248        (add-script (add-script m t) tt))
 249
 250 st =
 251 #(define-music-function (parser location music)
 252           (ly:music?)
 253           (define (make-script-music m)
 254    (add-script m "staccato"))
 255     (music-map make-script-music music))
 256
 257 acc =
 258 #(define-music-function (parser location music)
 259           (ly:music?)
 260           (define (make-script-music m)
 261    (add-script m "accent"))
 262     (music-map make-script-music music))
 263
 264 det = % I call these "det" as in "détaché".
 265 #(define-music-function (parser location music)
 266           (ly:music?)
 267           (define (make-script-music m)
 268    (add-script m "tenuto"))
 269     (music-map make-script-music music))
 270
 271 stdet =
 272 #(define-music-function (parser location music)
 273           (ly:music?)
 274           (define (make-script-music m)
 275    (add-script m "portato"))
 276     (music-map make-script-music music))
 277
 278 accdet =
 279 #(define-music-function (parser location music)
 280           (ly:music?)
 281           (define (make-script-music m)
 282    (double-script m "tenuto" "accent"))
 283     (music-map make-script-music music))
 284
 285 accst =
 286 #(define-music-function (parser location music)
 287           (ly:music?)
 288           (define (make-script-music m)
 289    (double-script m "accent" "staccato"))
 290     (music-map make-script-music music))
 291
 292 dwnb =
 293 #(define-music-function (parser location music)
 294           (ly:music?)
 295           (define (make-script-music m)
 296    (add-script m "downbow"))
 297     (music-map make-script-music music))
 298
 299 CaV=
 300 #(let ((m (make-music 'ArticulationEvent
 301         'articulation-type "flageolet")))
 302        (set! (ly:music-property m 'tweaks)
 303              (acons 'font-size -3
 304                     (ly:music-property m 'tweaks)))
 305                                        m)
 306 harmo =
 307 #(define-music-function (parser location chord result) (ly:music? ly:music?)
 308  #{ << \oneStemDown $chord \\ { \stemUp %FIXME: ties could look better.
 309    \override NoteHead #'stencil = #ly:text-interface::print
 310    \override NoteHead #'text = \markup { \null \musicglyph #"noteheads.s2"}
 311    \once \override NoteHead #'text = \markup {\null \override #'(direction . 1)
 312       \dir-column {\musicglyph #"noteheads.s2" \teeny \musicglyph #"eight"}}
 313     \override Stem #'stencil = ##f $result
 314     \revert Stem #'stencil \revert NoteHead #'stencil \stemNeutral } >> #})
 315
 316 harmonics =
 317 #(define-music-function (parser location music) (ly:music?)
 318 #{
 319 \override Dots #'transparent = ##t
 320 \override Stem #'transparent = ##t
 321 \override Beam #'transparent = ##t
 322 \override NoteHead #'style = #'harmonic
 323 $music
 324 \revert NoteHead #'style
 325 \revert Beam #'transparent
 326 \revert Stem #'transparent
 327 \revert Dots #'transparent #})
 328
 329 thumbpizz =
 330 #(let* ((m (make-music 'ArticulationEvent
 331                        'articulation-type "stopped"
 332                        'direction 1)))
 333    (ly:music-set-property! m 'tweaks
 334      (acons 'font-size 3
 335        (acons 'text (markup
 336                    #:hspace 0
 337                    #:rotate 45
 338                    #:musicglyph "scripts.stopped")
 339          (acons 'stencil ly:text-interface::print
 340            (ly:music-property m 'tweaks)))))
 341    m)
 342
 343 leftpizz =
 344 #(let* ((m (make-music 'ArticulationEvent
 345                        'articulation-type "stopped"
 346                        'direction 1)))
 347    (ly:music-set-property! m 'tweaks
 348      (acons 'font-size 3
 349            (ly:music-property m 'tweaks)))
 350    m)
 351
 352 arpeggUp =
 353 #(let* ((m (make-music 'ArpeggioEvent)))
 354    (ly:music-set-property! m 'tweaks
 355     (acons 'arpeggio-direction 1
 356      (ly:music-property m 'tweaks)))
 357    m)
 358
 359 arpeggDown =
 360 #(let* ((m (make-music 'ArpeggioEvent)))
 361    (ly:music-set-property! m 'tweaks
 362     (acons 'arpeggio-direction -1
 363      (ly:music-property m 'tweaks)))
 364    m)
 365
 366 plak =
 367 #(let* ((m (make-music 'ArpeggioEvent)))
 368    (ly:music-set-property! m 'tweaks
 369     (acons 'stencil ly:arpeggio::brew-chord-bracket
 370      (ly:music-property m 'tweaks)))
 371    m)
 372
 373 %%% TODO: custom scripts priority.
 374 #(define modern-scripts default-script-alist)
 375
 376 %%%%%%%%%%%%%%%%%%%%%%%% Layout Functions %%%%%%%%%%%%%%%%%%%%%%%%%%
 377
 378 %% Music layout ---------------------------------------------------%
 379
 380 #(define modern-auto-beam-settings
 381   (append default-auto-beam-settings
 382   `(
 383     ((end * * 3 4) . ,(ly:make-moment 1 4))
 384     ((end * * 3 4) . ,(ly:make-moment 1 2))
 385     ((end * * 4 4) . ,(ly:make-moment 1 4))
 386     ((end * * 4 4) . ,(ly:make-moment 3 4))
 387     ((end * * 2 2) . ,(ly:make-moment 1 4))
 388     ((end * * 2 2) . ,(ly:make-moment 1 2))
 389     ((end * * 2 2) . ,(ly:make-moment 3 4))
 390     ((end * * 2 8) . ,(ly:make-moment 1 4))
 391     ((be  * * 5 8) . ,(ly:make-moment 1 8))
 392     ((end * * 5 8) . ,(ly:make-moment 5 8))
 393     )))
 394
 395 #(define modern-accidentals-style
 396      `(Staff ,(make-accidental-rule 'same-octave 0)
 397              ,(make-accidental-rule 'any-octave 0)
 398              ,(make-accidental-rule 'same-octave 1)
 399                    ,neo-modern-accidental-rule))
 400 #(define modern-cautionaries-style
 401      `(Staff ,(make-accidental-rule 'same-octave 1)
 402              ,(make-accidental-rule 'any-octave 1)))
 403
 404 %%%%%%%%%%%%%%%%%%%%%%%%%%%% Editorial %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 405
 406 %% Individual parts -----------------------------------------------%
 407
 408 makePart =
 409 #(define-music-function (parser location part ref)
 410                         (ly:music? ly:music?)
 411 #{\context Staff << $part \new GhostVoice $ref >> #})
 412
 413 makeSection = % two parts
 414 #(define-music-function (parser location part-one part-two ref)
 415                         (ly:music? ly:music? ly:music?)
 416 #{\new StaffGroup <<
 417     \new Staff << $part-one \new GhostVoice $ref >>
 418     \new Staff $part-two
 419 >> #})
 420
 421 makeExtraSection = % three parts, e.g. for violins
 422 #(define-music-function (parser location part-one part-two part-three ref)
 423                         (ly:music? ly:music? ly:music? ly:music?)
 424 #{\new StaffGroup <<
 425     \new Staff << $part-one \new GhostVoice $ref >>
 426     \new Staff $part-two
 427     \new Staff $part-three
 428 >> #})
 429
 430 makePianoPart =
 431 #(define-music-function (parser location part-one ref)
 432                         (ly:music? ly:music?)
 433 #{<< $part-one \new GhostVoice $ref >> #})
 434
 435 %%-----------------------------------------------------------------%
 436
 437
 438 #(define  (naturalize-pitch p)
 439   (let* ((o (ly:pitch-octave p))
 440          (a (* 4 (ly:pitch-alteration p)))
 441     ; alteration, a, in quarter tone steps, for historical reasons
 442          (n (ly:pitch-notename p)))
 443     (cond
 444      ((and (> a 1) (or (eq? n 6) (eq? n 2)))
 445       (set! a (- a 2))
 446       (set! n (+ n 1)))
 447      ((and (< a -1) (or (eq? n 0) (eq? n 3)))
 448       (set! a (+ a 2))
 449       (set! n (- n 1))))
 450     (cond
 451      ((> a 2) (set! a (- a 4)) (set! n (+ n 1)))
 452      ((< a -2) (set! a (+ a 4)) (set! n (- n 1))))
 453     (if (< n 0) (begin (set! o (- o 1)) (set! n (+ n 7))))
 454     (if (> n 6) (begin (set! o (+ o 1)) (set! n (- n 7))))
 455     (ly:make-pitch o n (/ a 4))))
 456
 457 #(define (naturalize music)
 458   (let* ((es (ly:music-property music 'elements))
 459          (e (ly:music-property music 'element))
 460          (p (ly:music-property music 'pitch)))
 461     (if (pair? es)
 462         (ly:music-set-property!
 463          music 'elements
 464          (map (lambda (x) (naturalize x)) es)))
 465     (if (ly:music? e)
 466         (ly:music-set-property!
 467          music 'element
 468          (naturalize e)))
 469     (if (ly:pitch? p)
 470         (begin
 471           (set! p (naturalize-pitch p))
 472           (ly:music-set-property! music 'pitch p)))
 473     music))
 474
 475
 476 smart =
 477 #(define-music-function (parser location m)
 478           (ly:music?)
 479       (naturalize m))
 480