common/music-commands.ily

   1 \version "2.11.57"
   2
   3 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   4 %%%
   5 %%% Tagging commands
   6 %%%
   7
   8 #(use-modules (srfi srfi-1))
   9 #(define* (has-some-member? list1 list2 #:key (test eqv?))
  10    "Return a true value iif there exists an element of list1 that also
  11 belongs to list2 under test."
  12    (if (null? list1)
  13        #f
  14        (or (member (car list1) list2 test)
  15            (has-some-member? (cdr list1) list2 #:test test))))
  16
  17 #(define (symbol-or-symbols? x)
  18    (or (null? x)
  19        (not x)
  20        (symbol? x)
  21        (and (list? x) (every symbol? x))))
  22
  23 keepWithTag =
  24 #(define-music-function (parser location tags music)
  25                         (symbol-or-symbols? ly:music?)
  26    (if tags
  27        (music-filter
  28         (lambda (m)
  29           (let ((m.tags (ly:music-property m 'tags)))
  30             (cond ((symbol? tags)
  31                    (or (null? m.tags) (memq tags m.tags)))
  32                   ((null? tags)
  33                    (null? m.tags))
  34                   ((list? tags)
  35                    (or (null? m.tags) (has-some-member? tags m.tags)))
  36                   (else #t))))
  37         music)
  38        music))
  39
  40 tag =
  41 #(define-music-function (parser location tags arg)
  42                         (symbol-or-symbols? ly:music?)
  43    "Add @var{tags} (a single tag or a list of tags) to the @code{tags}
  44 property of @var{arg}."
  45    (set! (ly:music-property arg 'tags)
  46          (if (symbol? tags)
  47              (cons tags (ly:music-property arg 'tags))
  48              (append tags (ly:music-property arg 'tags))))
  49    arg)
  50
  51 %%% Music binding construct
  52
  53 setMusic =
  54 #(define-music-function (parser location sym music) (symbol? ly:music?)
  55    (ly:parser-define! parser sym music)
  56    (make-music 'Music 'void #t))
  57
  58 %% Force clef printing, with full size
  59 forceFullClef = {
  60   \set Staff.forceClef = ##t
  61   \override Staff.Clef #'full-size-change = ##t
  62 }
  63
  64 %% Print clef in full size
  65 fullClef = \override Staff.Clef #'full-size-change = ##t
  66
  67 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  68 %%%
  69 %%% Repeat with alternatives
  70 %%%
  71
  72 forceCloseVoltaBracket = {
  73   \once \override Score.VoltaBracket #'stencil =
  74   #(lambda (grob)
  75      (let* ((volta (ly:volta-bracket-interface::print grob))
  76             (edge-heights (ly:grob-property grob 'edge-height))
  77             (height (if (pair? edge-heights)
  78                         (car edge-heights)
  79                         1.5))
  80             (thickness (* (ly:grob-property grob 'thickness 1.6)
  81                           (ly:staff-symbol-line-thickness grob))))
  82        (ly:stencil-combine-at-edge
  83         volta X RIGHT
  84         (make-line-stencil thickness 0 0 0 (- height))
  85         0)))
  86   \once \override Score.VoltaBracket #'edge-height = #'(1.5 . 1.5)
  87 }
  88
  89 alternatives =
  90 #(define-music-function (parser location first second) (ly:music? ly:music?)
  91    (if (eqv? #t (ly:get-option 'baroque-repeats))
  92        (let ((repeat-bar (if (string? (ly:get-option 'baroque-repeat-bar))
  93                              (ly:get-option 'baroque-repeat-bar)
  94                              "|;|")))
  95          #{ \forceCloseVoltaBracket
  96             \set Score.repeatCommands = #'((volta " "))
  97             $first \bar $repeat-bar \noBreak
  98             << $second >> <<{ s4*0 \set Score.repeatCommands = #'((volta #f)) } >> #})
  99        #{ \set Score.repeatCommands = #'((volta "1."))
 100           $first
 101           \set Score.repeatCommands = #'((volta #f) (volta "2.") end-repeat)
 102           $second
 103           \set Score.repeatCommands = #'((volta #f)) #}))
 104
 105 origAlternatives =
 106 #(define-music-function (parser location first second) (ly:music? ly:music?)
 107    (let ((repeat-bar (if (string? (ly:get-option 'baroque-repeat-bar))
 108                          (ly:get-option 'baroque-repeat-bar)
 109                          "|;|")))
 110      #{ \forceCloseVoltaBracket
 111         \set Score.repeatCommands = #'((volta " "))
 112         $first \bar $repeat-bar \noBreak
 113         << $second >> <<{ s4*0 \set Score.repeatCommands = #'((volta #f)) } >> #}))
 114
 115 modAlternatives =
 116 #(define-music-function (parser location first second) (ly:music? ly:music?)
 117    #{ \set Score.repeatCommands = #'((volta "1."))
 118       $first
 119       \bar ":|"
 120       \set Score.repeatCommands = #'((volta #f) (volta "2."))
 121       $second
 122       \set Score.repeatCommands = #'((volta #f)) #})
 123
 124 %% Alternatives only on one staff
 125 %% Example:
 126 %{
 127 \new Voice \with { \alternativeLayout } {
 128   re'2.*1/2\startGroup fad'4*1/2 \fakeBar
 129   re'1*1/2\stopGroup |
 130 }
 131 %}
 132 alternativeLayout = \with {
 133   \consists "Horizontal_bracket_engraver"
 134   \override HorizontalBracket #'bracket-flare = #'(0 . 0)
 135   \override HorizontalBracket #'direction = #UP
 136 }
 137 fakeBar = {
 138   \once\override BreathingSign #'text = \markup \draw-line #'(0 . 4)
 139   \once\override BreathingSign #'Y-offset = #-2
 140   \breathe
 141 }
 142
 143 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 144 hideVoice = {
 145   \hideNotes
 146   \override Script #'transparent = ##t
 147   \override TextScript #'transparent = ##t
 148   \override Tie #'transparent = ##t
 149   \override Slur #'transparent = ##t
 150   \override MultiMeasureRest #'transparent = ##t
 151   \override AccidentalCautionary #'transparent = ##t
 152   \override AccidentalSuggestion #'transparent = ##t
 153 }
 154
 155 unHideVoice = {
 156   \unHideNotes
 157   \revert Script #'transparent
 158   \revert TextScript #'transparent
 159   \revert Tie #'transparent
 160   \revert Slur #'transparent
 161   \revert MultiMeasureRest #'transparent
 162   \revert AccidentalCautionary #'transparent
 163   \revert AccidentalSuggestion #'transparent
 164 }
 165
 166 %%%
 167 %%% smaller notes
 168 %%%
 169
 170 smallNotes =
 171 #(define-music-function (parser location music) (ly:music?)
 172   (let ((first-note #f)
 173         (last-note #f)
 174         (note-count 0))
 175     ;; count the notes, and get first and last ones.
 176     (music-map
 177      (lambda (event)
 178        (if (eqv? (ly:music-property event 'name) 'NoteEvent)
 179            (begin
 180              (if first-note
 181                  (set! last-note event)
 182                  (set! first-note event))
 183              (set! note-count (1+ note-count))))
 184        event)
 185      music)
 186     ;; Add [ and ] beaming directive to the first and last note
 187     (if (> note-count 1)
 188         (begin
 189           (set! (ly:music-property first-note 'articulations)
 190                 (cons (make-music 'BeamEvent 'span-direction -1)
 191                       (ly:music-property first-note 'articulations)))
 192           (set! (ly:music-property last-note 'articulations)
 193                 (cons (make-music 'BeamEvent 'span-direction 1)
 194                       (ly:music-property last-note 'articulations)))))
 195     ;; If there are 3 notes, add a *2/3 duration factor
 196     (if (= note-count 3)
 197         (music-map
 198          (lambda (event)
 199            (if (eqv? (ly:music-property event 'name) 'NoteEvent)
 200                (let* ((duration (ly:music-property event 'duration))
 201                       (dot-count (ly:duration-dot-count duration))
 202                       (log (ly:duration-log duration)))
 203                  (set! (ly:music-property event 'duration)
 204                        (ly:make-duration log dot-count 2 3))))
 205            event)
 206          music)))
 207   #{
 208   \override Voice.NoteHead.font-size = #-3
 209   \override Voice.Flag.font-size = #-3
 210   \override Voice.Dots.font-size = #-3
 211   \override Voice.Stem.font-size = #-3
 212   \override Voice.Stem.length-fraction = #0.8
 213   \override Voice.Beam.beam-thickness = #0.384
 214   \override Voice.Beam.length-fraction = #0.8
 215   \override Voice.Accidental.font-size = #-4
 216   \override Voice.AccidentalCautionary.font-size = #-4
 217   $music
 218   \revert Voice.NoteHead.font-size
 219   \revert Voice.Flag.font-size
 220   \revert Voice.Dots.font-size
 221   \revert Voice.Stem.font-size
 222   \revert Voice.Stem.length-fraction
 223   \revert Voice.Beam.beam-thickness
 224   \revert Voice.Beam.length-fraction
 225   \revert Voice.Accidental.font-size
 226   \revert Voice.AccidentalCautionary.font-size
 227   #})
 228
 229 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 230 %%%
 231 %%% Custos note heads
 232 %%%
 233
 234 custosNote =
 235 #(define-music-function (parser location note) (ly:music?)
 236   (make-music 'SequentialMusic
 237    'elements (list #{
 238               \once \override Voice.NoteHead #'stencil = #ly:text-interface::print
 239               \once \override Voice.NoteHead #'text =
 240               #(markup #:null #:raise 0.0 #:musicglyph "custodes.mensural.u0")
 241               \once \override Voice.Flag #'stencil = ##f
 242               \once \override Voice.Stem #'stencil = ##f #}
 243               note)))
 244
 245 %%%
 246 %%% Note formatting tweaks
 247 %%%
 248
 249 forceStemLength =
 250 #(define-music-function (parser location length music) (number? ly:music?)
 251   #{
 252   \override Voice.Stem #'details = #`((lengths . (,length))
 253                                       (beamed-lengths . (,(- length 1.0)))
 254                                       (beamed-minimum-free-lengths . (,(- length 1.0)))
 255                                       (beamed-extreme-minimum-free-lengths . (,(- length 1.0)))
 256                                       (stem-shorten . (1.0 0.5)))
 257   $music
 258   \revert Voice.Stem #'details
 259   #})
 260
 261 shiftOnce = { \once \override NoteColumn #'horizontal-shift = #1 }
 262
 263 shiftNote =
 264 #(define-music-function (parser location amount) (number?)
 265    #{ \once \override NoteHead #'X-offset = #amount
 266       \once \override Stem #'X-offset = #amount
 267       \once \override Beam #'X-offset = #amount #})
 268
 269 shiftRest =
 270 #(define-music-function (parser location amount) (number?)
 271    #{ \once \override Rest #'X-offset = #amount #})
 272
 273 %%%
 274 %%% Misc utilities
 275 %%%
 276
 277 altKeys =
 278 #(define-music-function (parser location fractions) (list?)
 279    (define (make-time-sig-markup num den . rest)
 280      (if den
 281          (make-center-column-markup
 282           (list (number->string num)
 283                 (number->string den)))
 284          (make-raise-markup -1 (number->string num))))
 285
 286    (let ((time1 (apply make-time-sig-markup fractions))
 287          (time2 (apply make-time-sig-markup (cddr fractions))))
 288      #{
 289        \once \override Staff.TimeSignature #'stencil = #ly:text-interface::print
 290        \once \override Staff.TimeSignature #'text =
 291        \markup \override #'(baseline-skip . 0)
 292        \number \line { $time1 $time2 }
 293      #}))
 294
 295 fractionTime = \once \override Staff.TimeSignature #'style = #'numbered
 296 cTime = \once \override Staff.TimeSignature #'style = #'C
 297 digitTime = \once \override Staff.TimeSignature #'style = #'single-digit
 298
 299 instrumentName =
 300 #(define-music-function (parser location name) (markup?)
 301    #{ \set Staff.instrumentName = \markup \large $name #})
 302
 303 characterName =
 304 #(define-music-function (parser location name) (markup?)
 305   #{ \set Staff . instrumentName = \markup \large \smallCaps $name #})
 306
 307 midiTempo =
 308 #(define-music-function (parser location quater-nb-par-min) (number?)
 309    #{ \set Score . tempoWholesPerMinute =
 310       #(ly:make-moment (/ quater-nb-par-min 4) 1 0 1) #})
 311
 312 %% figure extenders
 313 figExtOn = \bassFigureExtendersOn
 314 figExtOff = \bassFigureExtendersOff
 315
 316 figPosOn = {
 317   \bassFigureExtendersOn
 318   \override BassFigureContinuation #'stencil = ##f
 319   \override Staff.BassFigureContinuation #'stencil = ##f
 320 }
 321 figPosOff = {
 322   \bassFigureExtendersOff
 323   \revert BassFigureContinuation #'stencil
 324   \revert Staff.BassFigureContinuation #'stencil
 325 }
 326
 327 %% geometric figures
 328
 329 #(define-markup-command (triangle-up layout props a b c) (markup? markup? markup?)
 330    (let ((base (interpret-markup layout props (markup #:tiny #:line (#:number b #:number c))))
 331          (top (interpret-markup layout props (markup #:tiny #:number a))))
 332      (let* ((base-width (interval-length (ly:stencil-extent base X)))
 333             (top-width (interval-length (ly:stencil-extent top X)))
 334             (top-left-padding (/ (- base-width top-width) 2.0)))
 335        (stack-lines DOWN 0.0 2
 336                     (list
 337                      (stack-stencil-line 0 (list (ly:make-stencil "" `(0 . ,top-left-padding) '(0 . 0))
 338                                                  top))
 339                      base)))))
 340
 341 #(define-markup-command (triangle-down layout props a b c) (markup? markup? markup?)
 342    (let ((base (interpret-markup layout props (markup #:tiny #:line (#:number a #:number b))))
 343          (bottom (interpret-markup layout props (markup #:tiny #:number c))))
 344      (let* ((base-width (interval-length (ly:stencil-extent base X)))
 345             (bottom-width (interval-length (ly:stencil-extent bottom X)))
 346             (bottom-left-padding (/ (- base-width bottom-width) 2.0)))
 347        (stack-lines DOWN 0.0 2
 348                     (list
 349                      base
 350                      (stack-stencil-line
 351                       0 (list (ly:make-stencil ""
 352                                                `(0 . ,bottom-left-padding)
 353                                                '(0 . 0))
 354                               bottom)))))))
 355
 356 #(define-markup-command (triangle-down-down layout props a b c d) (markup? markup? markup? markup?)
 357    (let ((base (interpret-markup layout props (markup #:tiny #:line (#:number a #:number b))))
 358          (bottom (interpret-markup layout props (markup #:tiny #:number c)))
 359          (bottom2 (interpret-markup layout props (markup #:tiny #:number d))))
 360      (let* ((base-width (interval-length (ly:stencil-extent base X)))
 361             (bottom-width (interval-length (ly:stencil-extent bottom X)))
 362             (bottom-left-padding (/ (- base-width bottom-width) 2.0))
 363             (bottom2-width (interval-length (ly:stencil-extent bottom2 X)))
 364             (bottom2-left-padding (/ (- base-width bottom2-width) 2.0)))
 365        (stack-lines DOWN 0.0 2
 366                     (list
 367                      base
 368                      (stack-stencil-line
 369                       0 (list (ly:make-stencil ""
 370                                                `(0 . ,bottom-left-padding)
 371                                                '(0 . 0))
 372                               bottom))
 373                      (stack-stencil-line
 374                       0 (list (ly:make-stencil ""
 375                                                `(0 . ,bottom2-left-padding)
 376                                                '(0 . 0))
 377                               bottom2)))))))
 378
 379 #(define-markup-command (parallelogram-up-left layout props a b c d) (markup? markup? markup? markup?)
 380    "figure:
 381 a b
 382  c d"
 383    (let ((top (interpret-markup layout props (markup #:tiny #:line (#:number a #:number b))))
 384          (bottom (interpret-markup layout props (markup #:tiny #:line (#:number c #:number d)))))
 385      (let* ((top-width (interval-length (ly:stencil-extent top X)))
 386             (bottom-left-padding (/ (- top-width
 387                                        (interval-length
 388                                         (ly:stencil-extent
 389                                          (interpret-markup layout props (markup #:tiny #:number c)) X)))
 390                                     2.0)))
 391        (stack-lines DOWN 0.0 2
 392                     (list
 393                      top
 394                      (stack-stencil-line
 395                       0
 396                       (list (ly:make-stencil ""
 397                                              `(0 . ,bottom-left-padding)
 398                                              '(0 . 0))))
 399                      bottom)))))
 400
 401 #(define-markup-command (square layout props a b c d) (markup? markup? markup? markup?)
 402    "figure:
 403 a b
 404 c d"
 405    (let ((top (interpret-markup layout props (markup #:tiny #:line (#:number a #:number b))))
 406          (bottom (interpret-markup layout props (markup #:tiny #:line (#:number c #:number d)))))
 407      (stack-lines DOWN 0.0 2 (list top bottom))))
 408
 409 #(define-markup-command (fig-five layout props a b c d e)
 410      (markup? markup? markup? markup? markup?)
 411    "figure:
 412 a b
 413  c
 414 d e"
 415    (let ((top (interpret-markup layout props
 416                                 (markup #:tiny #:line (#:number a #:number b))))
 417          (center (interpret-markup layout props
 418                                    (markup #:tiny #:number c)))
 419          (bottom (interpret-markup layout props
 420                                    (markup #:tiny #:line (#:number d #:number e)))))
 421      (let* ((top-width (interval-length (ly:stencil-extent top X)))
 422             (center-width (interval-length (ly:stencil-extent center X)))
 423             (center-left-padding (/ (- top-width center-width) 2.0)))
 424        (stack-lines DOWN 0.0 2
 425                     (list
 426                      top
 427                      (stack-stencil-line
 428                       0 (list (ly:make-stencil ""
 429                                                `(0 . ,center-left-padding)
 430                                                '(0 . 0))
 431                               center))
 432                      bottom)))))
 433
 434 #(define-markup-command (figure-sharp layout props) ()
 435    (interpret-markup
 436     layout props
 437     (markup #:tiny #:concat (#:null #:raise 0.7 #:fontsize -2 #:sharp))))
 438
 439 #(define-markup-command (figure-flat layout props) ()
 440    (interpret-markup
 441     layout props
 442     (markup #:tiny #:concat (#:null #:raise 0.7 #:fontsize -2 #:flat))))
 443
 444 #(define-markup-command (figure-natural layout props) ()
 445    (interpret-markup
 446     layout props
 447     (markup #:tiny #:concat (#:null #:raise 0.7 #:fontsize -2 #:natural))))
 448
 449 #(define-markup-command (paren-sharp layout props num) (markup?)
 450    (interpret-markup
 451     layout props
 452     (markup #:tiny #:concat (#:null #:raise 0.2 #:line ("(" #:figure-sharp ")")
 453                                     #:number num ))))
 454
 455 #(define-markup-command (paren-flat layout props num) (markup?)
 456    (interpret-markup
 457     layout props
 458     (markup #:tiny #:concat (#:null #:raise 0.2 #:line ("(" #:figure-flat ")")
 459                                     #:number num ))))
 460
 461 %%%
 462 %%% On-demand hara-kiri
 463 %%%
 464 startHaraKiri = \set Staff.keepAliveInterfaces = #'()
 465 stopHaraKiri = \unset Staff.keepAliveInterfaces
 466
 467 noHaraKiri = \set Staff.keepAliveInterfaces =
 468 #'(multi-measure-interface
 469    rhythmic-grob-interface
 470    lyric-interface
 471    percent-repeat-item-interface
 472    percent-repeat-interface
 473    stanza-number-interface)
 474 revertNoHaraKiri = \unset Staff.keepAliveInterfaces
 475
 476 %%%
 477 ifLetter =
 478 #(define-music-function (parser location music) (ly:music?)
 479    (if (eqv? #t (ly:get-option 'letter))
 480        music
 481        (make-music 'Music 'void #t)))
 482 unlessLetter =
 483 #(define-music-function (parser location music) (ly:music?)
 484    (if (not (eqv? #t (ly:get-option 'letter)))
 485        music
 486        (make-music 'Music 'void #t)))
 487
 488 %%%
 489 applyDurations =
 490 #(define-music-function (parser location pattern music) (ly:music? ly:music?)
 491   "\\applyDurations { c'16. c32 } { c d e f }
 492 ==>
 493 { c16. d32 e16. f32 }"
 494    (let ((durations (apply circular-list
 495                       (let ((result (list)))
 496                         (music-map (lambda (event)
 497                                      (if (eqv? (ly:music-property event 'name) 'NoteEvent)
 498                                          (set! result (cons (ly:music-property event 'duration) result)))
 499                                      event)
 500                                   pattern)
 501                         (reverse! result)))))
 502     (music-map (lambda (event)
 503                  (cond ((eqv? (ly:music-property event 'name) 'NoteEvent)
 504                         (set! (ly:music-property event 'duration) (car durations))
 505                         (set! durations (cdr durations))))
 506                  event)
 507                music)))
 508
 509 %%%
 510 %% double pointée triple x2
 511 dpts =
 512 #(define-music-function (parser location chords) (ly:music?)
 513    (define (make-16.-32-16.-32 chord)
 514      (let ((pitches '()))
 515        (music-map (lambda (m)
 516                     (if (eqv? (ly:music-property m 'name) 'NoteEvent)
 517                         (set! pitches (cons (ly:music-property m 'pitch) pitches))))
 518                   chord)
 519        (let ((chord16. (make-music 'EventChord
 520                          'elements (map (lambda (pitch)
 521                                           (make-music 'NoteEvent
 522                                            'duration (ly:make-duration 4 1 1 1)
 523                                            'pitch pitch))
 524                                         pitches)))
 525              (chord32  (make-music 'EventChord
 526                          'elements (map (lambda (pitch)
 527                                           (make-music 'NoteEvent
 528                                            'duration (ly:make-duration 5 0 1 1)
 529                                            'pitch pitch))
 530                                         pitches))))
 531          (make-music 'SequentialMusic 'elements (list chord16. chord32 chord16. chord32)))))
 532    (make-music 'SequentialMusic 'elements (map make-16.-32-16.-32 (ly:music-property chords 'elements))))
 533
 534 %% Staff change
 535
 536 updown = { \change Staff = "down" \voiceOne }
 537 upup = { \change Staff = "up" \oneVoice }
 538 downup = { \change Staff = "up" \voiceTwo }
 539 downdown = { \change Staff = "down" \oneVoice }
 540
 541 %% repeats
 542
 543 ru =
 544 #(define-music-function (parser location times music) (number? ly:music?)
 545    (if (eqv? #t (ly:get-option 'use-tremolo-repeat))
 546        (make-repeat "tremolo" times music '())
 547        (make-repeat "unfold" times music '())))
 548 rt =
 549 #(define-music-function (parser location times music) (number? ly:music?)
 550    (make-repeat "tremolo" times music '()))
 551
 552 rp =
 553 #(define-music-function (parser location times music) (number? ly:music?)
 554    (if (eqv? #t (ly:get-option 'use-tremolo-repeat))
 555        (make-repeat "percent" times music '())
 556        (make-repeat "unfold" times music '())))
 557
 558 %% Tweak on articulations
 559
 560 tweakArticulation =
 561 #(define-music-function (parser location property value music)
 562      (symbol? scheme? ly:music?)
 563    "Like \\tweak, but apply the tweak to articulation event found
 564 found inside @var{music}."
 565    (if (equal? (object-property property 'backend-type?) #f)
 566        (begin
 567          (ly:warning (_ "cannot find property type-check for ~a") property)
 568          (ly:warning (_ "doing assignment anyway"))))
 569    (for-each (lambda (event)
 570                (set! (ly:music-property event 'tweaks)
 571                      (acons property value (ly:music-property event 'tweaks))))
 572              (ly:music-property music 'articulations))
 573    music)
 574
 575 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 576 %%% Selection of version: urtext or modified
 577 origVersion =
 578 #(define-music-function (parser location music) (ly:music?)
 579    (if (eqv? #t (ly:get-option 'ancient-style))
 580        music
 581        (let ((type (ly:music-property music 'name)))
 582          (if (memq type '(TextScriptEvent ArticulationEvent TieEvent SlurEvent))
 583              (make-music 'TextScriptEvent 'text "")
 584              (make-music 'Music 'void #t)))))
 585
 586 modVersion =
 587 #(define-music-function (parser location music) (ly:music?)
 588    (if (not (eqv? #t (ly:get-option 'ancient-style)))
 589        music
 590        (let ((type (ly:music-property music 'name)))
 591          (if (memq type '(TextScriptEvent ArticulationEvent TieEvent SlurEvent))
 592              (make-music 'TextScriptEvent 'text "")
 593              (make-music 'Music 'void #t)))))
 594
 595 #(define-markup-command (orig-version layout props markp) (markup?)
 596    (if (eqv? #t (ly:get-option 'ancient-style))
 597        (interpret-markup layout props markp)
 598        empty-stencil))
 599
 600 #(define-markup-command (mod-version layout props markp) (markup?)
 601    (if (not (eqv? #t (ly:get-option 'ancient-style)))
 602        (interpret-markup layout props markp)
 603        empty-stencil))
 604
 605 origLayout =
 606 #(define-music-function (parser location music) (ly:music?)
 607    (if (eqv? #t (ly:get-option 'original-layout))
 608        music
 609        (make-music 'Music)))
 610
 611 \layout {
 612   \context {
 613     \Score
 614     \override NonMusicalPaperColumn #'line-break-permission =
 615     #(if (eqv? #t (ly:get-option 'original-layout))
 616          #f
 617          'allow)
 618     \override NonMusicalPaperColumn #'page-break-permission =
 619     #(if (eqv? #t (ly:get-option 'original-layout))
 620          #f
 621          'allow)
 622   }
 623 }
 624
 625 #(define-markup-command (annotation layout props markp) (markup?)
 626    (if (eqv? #t (ly:get-option 'ancient-style))
 627        (interpret-markup layout props (markup #:with-color red markp))
 628        empty-stencil))
 629
 630 verticalTweak =
 631 #(define-music-function (parser location tweak) (list?)
 632    "Specify hard coded vertical spacing.  setting lilypond option
 633 `apply-vertical-tweaks' to #f get rid off these tweaks."
 634    (if (eqv? #t (ly:get-option 'apply-vertical-tweaks))
 635        #{ \overrideProperty
 636 Score.NonMusicalPaperColumn.line-break-system-details #tweak #}
 637        (make-music 'Music 'void #t)))
 638
 639
 640
 641 %%% conditional music
 642 whenCondition =
 643 #(define-music-function (parser location condition music) (boolean? ly:music?)
 644    (if condition
 645        music
 646        (make-music 'Music 'void #t)))
 647
 648 unlessCondition =
 649 #(define-music-function (parser location condition music) (boolean? ly:music?)
 650    (if condition
 651        (make-music 'Music 'void #t)
 652        music))
 653
 654 %%% dessine une croix à l'emplacement de la note
 655 #(define (make-erased-note-print print-procedure)
 656    (lambda (grob)
 657      (let ((note-head (print-procedure grob))
 658            (x-offset 1)
 659            (y-offset (if (number? (ly:grob-property grob 'staff-position))
 660                          (/ (ly:grob-property grob
 661                                               'staff-position)
 662                             2)
 663                          0))
 664            (thickness 0.4)
 665            (radius 2))
 666        (ly:stencil-add
 667         note-head
 668         (ly:stencil-add
 669          (ly:make-stencil
 670           `(draw-line ,thickness
 671                       ,(+ radius x-offset)
 672                       ,(- 0 radius y-offset)
 673                       ,(- x-offset radius)
 674                       ,(- radius y-offset))
 675           '(0 . 0)
 676           '(0 . 0))
 677          (ly:make-stencil
 678           `(draw-line ,thickness
 679                       ,(+ radius x-offset)
 680                       ,(- radius y-offset)
 681                       ,(- x-offset radius)
 682                       ,(- 0 radius y-offset))
 683           '(0 . 0)
 684           '(0 . 0)))))))
 685
 686 ratureNote = {
 687   \once\override NoteHead #'stencil =
 688   #(make-erased-note-print ly:note-head::print)
 689   \once\override Rest #'stencil =
 690   #(make-erased-note-print ly:rest::print)
 691 }
 692
 693 #(define (make-erased-mmrest-print print-procedure)
 694    (lambda (grob)
 695      (let ((note-head (print-procedure grob))
 696            (x-offset 1)
 697            (y-offset (if (number? (ly:grob-property grob 'staff-position))
 698                          (/ (ly:grob-property grob
 699                                               'staff-position)
 700                             2)
 701                          0))
 702            (thickness 0.4)
 703            (radius 2))
 704        (ly:stencil-add
 705         note-head
 706         (ly:stencil-translate
 707          (ly:stencil-add
 708           (ly:make-stencil
 709            `(draw-line ,thickness
 710                        ,(+ radius x-offset)
 711                        ,(- 0 radius y-offset)
 712                        ,(- x-offset radius)
 713                        ,(- radius y-offset))
 714            '(0 . 0)
 715            '(0 . 0))
 716           (ly:make-stencil
 717            `(draw-line ,thickness
 718                        ,(+ radius x-offset)
 719                        ,(- radius y-offset)
 720                        ,(- x-offset radius)
 721                        ,(- 0 radius y-offset))
 722            '(0 . 0)
 723            '(0 . 0)))
 724          ;; translate the X so that it is on the bar center,
 725          ;; like the mm rest.
 726          (cons (car (ly:stencil-extent note-head X)) 0)
 727          )))))
 728
 729 ratureMmRest = {
 730   \once\override MultiMeasureRest #'stencil =
 731   #(make-erased-mmrest-print ly:multi-measure-rest::print)
 732 }