]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/tuplet-nest.ly
* scripts/lilypond-book.py (do_file): do not overwrite input file.
[lilypond.git] / input / regression / tuplet-nest.ly
1
2 \version "2.1.26"
3 \header {
4   texidoc="By a manual hack for nested tuplets, an outer tuplet can be moved up."
5 }
6
7 #(define (make-text-checker-once text)
8   (lambda (grob) (and text-checker-once
9                       (if (equal? text (ly:grob-property grob 'text))
10                           (begin
11                             (set! text-checker-once #f) #t)
12                           #f))))
13
14 #(define text-checker-once #t)
15
16 \score {
17   \notes\relative c'' {
18
19     \set tupletNumberFormatFunction = #fraction-tuplet-formatter
20
21     \applyoutput #(outputproperty-compatibility (make-text-checker-once "2:3")
22                    'extra-offset '(0 . 1.5))
23     \times 2/3 {
24       \times 2/3 {
25         a a a
26       }
27       \times 3/5 {
28         a a a a a
29       }
30     }
31   }
32   \paper { raggedright = ##t}
33 }
34