(mult (/ (* times (ash 1 dots)) (1- (ash 2 dots))))
(shift (- (ly:intlog2 (floor mult)))))
(if (not (integer? mult))
(mult (/ (* times (ash 1 dots)) (1- (ash 2 dots))))
(shift (- (ly:intlog2 (floor mult)))))
(if (not (integer? mult))
(if (memq 'sequential-music (ly:music-property main 'types))
;; \repeat "tremolo" { c4 d4 }
(let ((children (length (ly:music-property main 'elements))))
(if (memq 'sequential-music (ly:music-property main 'types))
;; \repeat "tremolo" { c4 d4 }
(let ((children (length (ly:music-property main 'elements))))