- (set! annotation (interpret-markup
- layout text-props
- (make-simple-markup (format "~a: NaN/inf" name))))
- (let ((text-stencil (interpret-markup
- layout text-props
- (markup #:whiteout #:simple name)))
- (dim-stencil (interpret-markup
- layout text-props
- (markup #:whiteout
- #:simple (cond
- ((interval-empty? extent)
- (format "empty"))
- (is-length
- (format "~$" (interval-length extent)))
- (else
- (format "(~$,~$)"
- (car extent) (cdr extent)))))))
- (arrows (ly:stencil-translate-axis
- (dimension-arrows (cons 0 (interval-length extent)))
- (interval-start extent) Y)))
+ (set! annotation (interpret-markup layout text-props
+ (make-simple-markup (format "~a: NaN/inf" name))))
+ (let*
+ ((text-stencil (interpret-markup
+ layout text-props
+ (make-column-markup
+ (list
+ (make-whiteout-markup (make-simple-markup name))
+ (make-whiteout-markup
+ (make-simple-markup
+ (cond
+ ((interval-empty? extent) "empty")
+ (is-length (format "~$" (interval-length extent)))
+ (else
+ (format "(~$,~$)" (car extent)
+ (cdr extent))))))))))
+ (arrows
+ (ly:stencil-translate-axis
+ (dimension-arrows (cons 0 (interval-length extent)))
+ (interval-start extent) Y)))
+