boernel/lilypond-common-includes
10
0
Fork 0
Code Issues 12 Pull Requests Packages Projects Releases Wiki Activity

verbesserte Spaltenumbruchmethode #2

Browse Source
This commit is contained in:
Christoph Wagner 2023-08-10 10:14:01 +02:00
parent 973d72301c
commit 5c6fde06cc
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
toc_include.ly
View File

@ -25,15 +25,14 @@
(let* ((line-to-stencil (lambda (line) (interpret-markup layout (cons (list (cons 'line-width line-width) (cons 'baseline-skip 1)) props) (markup line)))) (let* ((line-to-stencil (lambda (line) (interpret-markup layout (cons (list (cons 'line-width line-width) (cons 'baseline-skip 1)) props) (markup line))))
(stencil-height (lambda (stencil) (interval-length (ly:stencil-extent stencil Y)))) (stencil-height (lambda (stencil) (interval-length (ly:stencil-extent stencil Y))))
(linestencil (line-to-stencil (car lines))) (linestencil (line-to-stencil (car lines)))
(calc-height (- height-left (stencil-height linestencil))) (current-line-height (stencil-height linestencil))
(calc-width (interval-length (ly:stencil-extent linestencil X))) (new-height-left (- height-left current-line-height))
(is-less-than-half-line-width (< calc-width (/ line-width 2.0))) (next-line-height (if (null? (cdr lines)) current-line-height (stencil-height (line-to-stencil (cadr lines)))))
(next-line-height (if (null? (cdr lines)) 0 (stencil-height (line-to-stencil (cadr lines))))) (no-space-for-next-line (and (< next-line-height current-line-height) (< new-height-left next-line-height)))
(no-space-for-next-line (and is-less-than-half-line-width (< (- calc-height next-line-height) 0)))
) )
(if (or (< calc-height 0) no-space-for-next-line) (if (or (< new-height-left 0) no-space-for-next-line)
'() '()
(cons (markup #:stencil linestencil) (add-to-col (cdr lines) calc-height)))))))))) (cons (markup #:stencil linestencil) (add-to-col (cdr lines) new-height-left))))))))))
(make-list cols)))) (make-list cols))))
(if (null? restlines) (if (null? restlines)
(list) (list)