Very nice workaround! For Cental Europe languages it's better to replace "fp" with, let's say, "Śp".
> 2014-03-30 0:35 GMT+01:00 Karol Majewski <karo...@wp.pl>: > > According to: > > > > http://www.lilypond.org/doc/v2.19/Documentation/notation/other > > > > "\strut Create a box of the same height as the space in the current font." > > > > So > > > > \markup { \strut \box "." } > > \markup { \strut \box "bp" } > > > > should draw a box with constant height. But it doesn't. Maybe I'm doing > something wrong? > > > > -Karol > > > > Hi, > > according to it's description \strut works as expected, imho: > \strut creates a (invisible) box of the same _height_ (Y-direction!) > as the _space_ (X-direction!) in the current font. > > Look at the output of: > > \markup > \box \vcenter { > %% current default \strut: > \strut > %% sort of rebuilding it: > \rotate #90 " " > %% another markup to compare: > \concat { \strut "." } > } > > > I think the request is another: > 2014-03-30 10:24 GMT+02:00 Karol Majewski <karo...@wp.pl>: > > OK, so the question is: Is there a way to create box that has _height_ > of total font _height_? > > By "total font height" I mean the distance between bottom bearing line > and top bearing line > > As sort of workaround you may use the coding below. > Please note, it's a _workaround_ ! Thinking of other non-european > languages it might easily be broken. > > > \version "2.18.0" > > #(define-markup-command (vstrut layout props) > () > #:category other > " > @cindex creating vertical space in text > > Create a box of the same height as the current font." > (let ((ref-mrkp (interpret-markup layout props "fp"))) > (ly:make-stencil (ly:stencil-expr empty-stencil) > empty-interval > (ly:stencil-extent ref-mrkp Y)))) > > %%%%%%%%%%%%%%% > %% EXAMPLE > %%%%%%%%%%%%%%% > > ln-mrkp = \markup \draw-line #'(2 . 0) > > \markup > \override #'(baseline-skip . 1) { > \column \box { > \ln-mrkp > \ln-mrkp > \ln-mrkp > } > \column \box { > "x" > "x" > "x" > } > "opposed to: " > \column \box { > \line { \vstrut \ln-mrkp } > \line { \vstrut \ln-mrkp } > \line { \vstrut \ln-mrkp } > } > \column \box { > \line { \vstrut "x" } > \line { \vstrut "x" } > \line { \vstrut "x" } > } > } > > Cheers, > Harm _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user