+#(define-markup-command (diagonal-stroke layout props arg)
+ (markup?)
+ #:category font
+ #:properties ((font-size 0) (thickness 1.5) (extension 0.07))
+ (let*
+ ((thick (* (magstep font-size)
+ (ly:output-def-lookup layout 'line-thickness)))
+ (underline-thick (* thickness thick))
+ (m (interpret-markup layout props arg))
+ (x1 (car (ly:stencil-extent m X)))
+ (x2 (cdr (ly:stencil-extent m X)))
+ (y1 (car (ly:stencil-extent m Y)))
+ (y2 (cdr (ly:stencil-extent m Y)))
+ (dx (* extension (- x2 x1)))
+ (dy (* extension (- y2 y1)))
+ (line (make-line-stencil underline-thick
+ (- x1 dx) (- y1 dy)
+ (+ x2 dx) (+ y2 dy))))
+ (ly:stencil-add m line)))