input/regression/tuplet-nest.ly

   1
   2 \version "2.3.16"
   3
   4
   5 \header {
   6
   7     texidoc=" Nested tuplets can be printed, using a manual hack to
   8   move the outer bracket up."
   9
  10 }
  11
  12 #(define (make-text-checker-once text)
  13   (lambda (grob) (and text-checker-once
  14                       (if (equal? text (ly:grob-property grob 'text))
  15                           (begin
  16                             (set! text-checker-once #f) #t)
  17                           #f))))
  18
  19 #(define text-checker-once #t)
  20
  21 \score {
  22     \relative c'' {
  23
  24     \set tupletNumberFormatFunction = #fraction-tuplet-formatter
  25
  26     \applyoutput #(lambda (gr org cur)
  27                    (if (equal? (ly:grob-property gr 'text) "6:4")
  28                     (set! (ly:grob-property gr 'extra-offset) '(0 . 1.5))))
  29     \times 4/6 {
  30       \times 2/3 {
  31         a a a
  32       }
  33       \times 3/5 {
  34         a a a a a
  35       }
  36     }
  37   }
  38   \paper { raggedright = ##t}
  39 }
  40