(define-markup-command (hspace layout props amount)
(number?)
#:category align
+ #:properties ((word-space))
"
@cindex creating horizontal spaces in text
three
}
@end lilypond"
- (if (> amount 0)
- (ly:make-stencil "" (cons 0 amount) '(0 . 0))
- (ly:make-stencil "" (cons amount amount) '(0 . 0))))
+ (let ((corrected-space (- amount word-space)))
+ (if (> corrected-space 0)
+ (ly:make-stencil "" (cons 0 corrected-space) '(0 . 0))
+ (ly:make-stencil "" (cons corrected-space corrected-space) '(0 . 0)))))
;; todo: fix negative space
(define-markup-command (vspace layout props amount)
@end lilypond"
(let ((amount (* amount 3.0)))
(if (> amount 0)
- (ly:make-stencil "" (cons -1 1) (cons 0 amount))
- (ly:make-stencil "" (cons -1 1) (cons amount amount)))))
+ (ly:make-stencil "" (cons 0 0) (cons 0 amount))
+ (ly:make-stencil "" (cons 0 0) (cons amount amount)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
}
@end lilypond"
(interpret-markup layout
- (cons '((font-size . -5) (font-encoding . fetaNumber)) props)
+ (cons '((font-size . -5) (font-encoding . fetaText)) props)
arg))
(define-markup-command (abs-fontsize layout props size arg)
}
}
@end lilypond"
- (interpret-markup layout (prepend-alist-chain 'font-encoding 'fetaNumber props) arg))
+ (interpret-markup layout (prepend-alist-chain 'font-encoding 'fetaText props) arg))
(define-markup-command (roman layout props arg)
(markup?)
}
@end lilypond"
(interpret-markup
- layout (prepend-alist-chain 'font-encoding 'fetaDynamic props) arg))
+ layout (prepend-alist-chain 'font-encoding 'fetaText props) arg))
(define-markup-command (text layout props arg)
(markup?)
; backward slashes might use slope and point in the other direction!
(dy (* mag (if forward 0.4 -0.4)))
(number-stencil (interpret-markup layout
- (prepend-alist-chain 'font-encoding 'fetaNumber props)
+ (prepend-alist-chain 'font-encoding 'fetaText props)
(number->string num)))
(num-x (horizontal-slash-interval num forward (ly:stencil-extent number-stencil X) mag))
(center (interval-center (ly:stencil-extent number-stencil Y)))