Thank you David, that's brilliant! It works. On Sun, Jun 24, 2012 at 8:20 AM, David Nalesnik <[email protected]> wrote: > Hi again, > >> >> Here's a Scheme engraver which should hopefully do what you want: > > > The logic of that last engraver seemed a little convoluted to me, so not > wanting to leave well enough alone:) I came up with this: > > \version "2.14.2" > > suppressExtraTimeSig = > #(lambda (ctx) > (let ((time-sig '())) > > `((acknowledgers > (time-signature-interface > . ,(lambda (engraver grob source-engraver) > (set! time-sig (cons grob time-sig))))) > > (finalize > . ,(lambda (trans) > (reduce > (lambda (elem prev) > (if (equal? (ly:grob-property elem 'fraction) > (ly:grob-property prev 'fraction)) > (begin > (ly:grob-suicide! elem) > prev) > elem)) > '() > (reverse time-sig)) > (set! time-sig '())))))) > > > -David >
-- Neil Thornock, D.M. The recent premiere of ...and a bunch of other stuff: http://www.youtube.com/watch?v=LQtvPet3k8c Assistant Professor of Music Composition/Theory Brigham Young University _______________________________________________ lilypond-user mailing list [email protected] https://lists.gnu.org/mailman/listinfo/lilypond-user
