definitions/music-functions.ly

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