(define-public (rhythmic-location->file-string a)
- (format "~a.~a.~a"
+ (ly:format "~a.~a.~a"
(car a)
(ly:moment-main-numerator (cdr a))
(ly:moment-main-denominator (cdr a))))
(define-public (rhythmic-location->string a)
- (format "bar ~a ~a"
+ (ly:format "bar ~a ~a"
(car a)
(ly:moment->string (cdr a))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Actual clipping logic.
+;;
+;; the total of this will be
+;; O(#systems * #regions)
+;;
+;; we can actually do better by sorting the regions as well,
+;; but let's leave that for future extensions.
+;;
(define-public (system-clipped-x-extent system-grob clip-region)
"Return the X-extent of the SYSTEM-GROB when clipped with
CLIP-REGION. Return #f if not appropriate."