[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Denemo-devel] Need help with file
From: |
Richard Shann |
Subject: |
Re: [Denemo-devel] Need help with file |
Date: |
Sun, 07 Feb 2016 15:42:46 +0000 |
On Sun, 2016-02-07 at 09:03 +0000, Richard Shann wrote:
>
> Let me know if you don't find a quick solution to the clef size
> problem.
I found them both next to each other
http://lsr.di.unimi.it/LSR/Item?id=673
http://lsr.di.unimi.it/LSR/Item?id=717
So I put all this together into a single command script:
(let ((tag1 "StartBreak")(tag2 "StopBreak"))
(d-InsertMeasureBefore)
(d-DirectivePut-standalone tag1)
(d-DirectivePut-standalone-minpixels tag1 30)
(d-DirectivePut-standalone-graphic tag1 "\nX\nDenemo\n48")
(d-DirectivePut-standalone-postfix tag1 "\\hideNotes \\stopStaff ")
(d-WholeMeasureSpacer)
(d-DirectivePut-standalone tag2)
(d-DirectivePut-standalone-postfix tag2 (string-append
"\\unHideNotes \\startStaff \\set Staff.forceClef = ##t \\bar "" \\set
Staff.forceClef = ##t \\once \\override Staff.Clef.full-size-change = ##t
\\clef " (d-GetPrevailingClef) " "))
(d-DirectivePut-standalone-minpixels tag2 30)
(d-DirectivePut-standalone-graphic tag1 "\nY\nDenemo\n48")
(d-RefreshDisplay)
(d-SetSaved #f))
This creates a break before the current measure and re-starts the clef that is
prevailing.
Richard