From 692a9d37e6b827e5df1f6eed9c93854b774bc46d Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Tue, 6 Dec 2005 23:09:11 +0000 Subject: [PATCH] set bar-size, so bar-lines aren't collapsed. --- ChangeLog | 5 +++++ ly/engraver-init.ly | 6 ++++++ scm/define-markup-commands.scm | 8 +++++++- 3 files changed, 18 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 3c508926f6..984add0693 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2005-12-07 Han-Wen Nienhuys + + * ly/engraver-init.ly: set bar-size, so bar-lines aren't + collapsed. + 2005-12-06 Erik Sandberg * scm/music-functions.scm: Make phrasing slurs follow voice direction diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly index 90bfa08c87..8e332495ef 100644 --- a/ly/engraver-init.ly +++ b/ly/engraver-init.ly @@ -350,6 +350,12 @@ printing of a single line of lyrics. " \override VerticalAxisGroup #'remove-first = ##t \override VerticalAxisGroup #'remove-empty = ##t \override SeparationItem #'padding = #0.2 + + + %% make sure that barlines aren't collapsed, when + %% Bar_engraver is there. + \override BarLine #'bar-size = #0.1 + } \context { diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm index 6f1cf2b256..4e8e408db0 100644 --- a/scm/define-markup-commands.scm +++ b/scm/define-markup-commands.scm @@ -1274,7 +1274,13 @@ that. (def-markup-command (bracketed-y-column layout props indices args) (list? markup-list?) "Make a column of the markups in @var{args}, putting brackets around -the elements marked in @var{indices}, which is a list of numbers." +the elements marked in @var{indices}, which is a list of numbers. + +" +;; +;; DROPME? This command is a relic from the old figured bass implementation. +;; + (define (sublist lst start stop) (take (drop lst start) (- (1+ stop) start))) -- 2.39.2