-(define-public (placebox x y s)
- (format "at ~a ~a ~a\n" x y s))
-
-(define-public (round-filled-box breapth width depth height blot-diameter)
- (format "draw_round_box ~a ~a ~a ~a ~a"
- breapth width depth height blot-diameter
- ))
-
-(define (music-cause grob)
- (let*
- ((cause (ly:grob-property grob 'cause)))
-
- (cond
- ((ly:music? cause) cause)
- ((ly:grob? cause) (music-cause cause))
- (else
- #f))))
-
-(define (grob-bbox grob offset)
- (let*
- ((x-ext (ly:grob-extent grob grob X))
- (y-ext (ly:grob-extent grob grob Y))
- (x (car offset))
- (y (cdr offset))
- )
-
- (map (lambda (x)
- (if (inf? x) 0.0 x))
-
- (list (+ x (car x-ext))
- (+ y (car y-ext))
- (+ x (cdr x-ext))
- (+ y (cdr y-ext)))
- )))
-
-(define-public (no-origin)