OLD | NEW |
1 % property-init.ly | 1 % property-init.ly |
2 | 2 |
3 \version "2.12.0" | 3 \version "2.12.0" |
4 | 4 |
5 stemUp = \override Stem #'direction = #UP | 5 stemUp = \override Stem #'direction = #UP |
6 stemDown = \override Stem #'direction = #DOWN· | 6 stemDown = \override Stem #'direction = #DOWN· |
7 stemNeutral = \revert Stem #'direction | 7 stemNeutral = \revert Stem #'direction |
8 | 8 |
9 slurUp = \override Slur #'direction = #UP | 9 slurUp = \override Slur #'direction = #UP |
10 slurDown = \override Slur #'direction = #DOWN | 10 slurDown = \override Slur #'direction = #DOWN |
(...skipping 398 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
409 \set FretBoards.predefinedDiagramTable = #fretboard-table | 409 \set FretBoards.predefinedDiagramTable = #fretboard-table |
410 } | 410 } |
411 | 411 |
412 pointAndClickOff = #(define-music-function (parser location) () | 412 pointAndClickOff = #(define-music-function (parser location) () |
413 (ly:set-option 'point-and-click #f) | 413 (ly:set-option 'point-and-click #f) |
414 (make-music 'SequentialMusic 'void #t)) | 414 (make-music 'SequentialMusic 'void #t)) |
415 | 415 |
416 pointAndClickOn = #(define-music-function (parser location) () | 416 pointAndClickOn = #(define-music-function (parser location) () |
417 (ly:set-option 'point-and-click #t) | 417 (ly:set-option 'point-and-click #t) |
418 (make-music 'SequentialMusic 'void #t)) | 418 (make-music 'SequentialMusic 'void #t)) |
| 419 |
| 420 palmMuteOn = { |
| 421 \override NoteHead #'style = #'do |
| 422 } |
| 423 |
| 424 palmMuteOff = { |
| 425 \revert NoteHead #'style |
| 426 } |
| 427 |
| 428 palmMute = |
| 429 #(define-music-function (parser location note) (ly:music?) |
| 430 ;; are we inside a <...>? |
| 431 (if (eq? (ly:music-property note 'name) 'NoteEvent) |
| 432 ;; yes -> add a tweak |
| 433 (begin (set! (ly:music-property note 'tweaks) |
| 434 (acons 'style 'do (ly:music-property note 'tweaks))) |
| 435 note) |
| 436 ;; no -> use predefined commands to switch to triangle-shaped note heads |
| 437 #{ |
| 438 \palmMuteOn |
| 439 $note |
| 440 \palmMuteOff |
| 441 #})) |
| 442 |
| 443 deadNotesOn = { |
| 444 \override TabNoteHead #'style = #'cross |
| 445 \override NoteHead #'style = #'cross |
| 446 } |
| 447 |
| 448 deadNotesOff = { |
| 449 \revert TabNoteHead #'style |
| 450 \revert NoteHead #'style |
| 451 } |
| 452 |
| 453 deadNote = |
| 454 #(define-music-function (parser location note) (ly:music?) |
| 455 ;; are we inside a <...>? |
| 456 (if (eq? (ly:music-property note 'name) 'NoteEvent) |
| 457 ;; yes -> add a tweak |
| 458 (begin (set! (ly:music-property note 'tweaks) |
| 459 (acons 'style 'cross (ly:music-property note 'tweaks))) |
| 460 note) |
| 461 ;; no -> use predefined commmands for changing |
| 462 ;; note head and tablature fret signs |
| 463 #{ |
| 464 \deadNotesOn |
| 465 $note |
| 466 \deadNotesOff |
| 467 #})) |
| 468 |
| 469 tabFullNotation = { |
| 470 % time signature |
| 471 \revert TabStaff.TimeSignature #'stencil |
| 472 % stems (the half note gets a double stem) |
| 473 \override TabVoice.Stem #'stencil = #tabvoice::draw-double-stem-for-half-notes |
| 474 % beams, dots |
| 475 \revert TabVoice.Beam #'stencil |
| 476 \revert TabVoice.Dots #'stencil |
| 477 \revert TabVoice.Tie #'stencil |
| 478 \revert TabVoice.Tie #'after-line-breaking |
| 479 \revert TabVoice.RepeatTie #'stencil |
| 480 \revert TabVoice.RepeatTie #'after-line-braking |
| 481 \revert TabVoice.LaissezVibrerTie #'stencil |
| 482 \revert TabVoice.Slur #'stencil |
| 483 \revert PhrasingSlur #'stencil |
| 484 % tuplet stuff |
| 485 \revert TabVoice.TupletBracket #'stencil |
| 486 \revert TabVoice.TupletNumber #'stencil |
| 487 % dynamic signs |
| 488 \revert DynamicText #'transparent |
| 489 \revert DynamicTextSpanner #'stencil |
| 490 \revert TabVoice.DynamicTextSpanner #'stencil |
| 491 \revert TabVoice.Hairpin #'transparent |
| 492 % rests |
| 493 \revert TabVoice.Rest #'stencil |
| 494 \revert TabVoice.MultiMeasureRest #'stencil |
| 495 % markups etc. |
| 496 \revert TabVoice.Script #'stencil |
| 497 \revert TabVoice.TextScript #'stencil |
| 498 \revert TabStaff.Arpeggio #'stencil |
| 499 } |
OLD | NEW |