Thanks for the hint. I have adapted my script, and it works fine.
;;;Ficta
(let ((tag "Ficta"))
(if (d-Directive-chord? tag)
(d-DirectiveDelete-chord tag)
(begin
(d-DirectivePut-chord-prefix tag "\\once \\set suggestAccidentals =
##t")
(d-DirectivePut-chord-override tag DENEMO_OVERRIDE_AFFIX)
(d-DirectivePut-chord-minpixels "Ficta" 20)
(d-DirectivePut-chord-display tag "Ficta")))
(d-RefreshDisplay)
(d-SetSaved #f))
Andreas
Am 06.11.2012 10:07, schrieb Richard Shann:
> I have committed scripts for controlling the beaming more closely, these
> serve as a better model for such simple scripts as the Ficta one you
> want. Here is an example:
> 8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<
> ;;; BeamRightOne
> (let ((tag "BeamRight"))
> (if (d-Directive-chord? tag)
> (d-DirectiveDelete-chord tag)
> (begin
> (d-DirectivePut-chord-prefix tag "\\set stemRightBeamCount = #1 ")
> (d-DirectivePut-chord-override tag DENEMO_OVERRIDE_AFFIX)
> (d-DirectivePut-chord-display tag "[1")))
> (d-RefreshDisplay)
> (d-SetSaved #f))
>
> 8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<8-<
>
> The (let ((tag "BeamRight"))
> at the beginning defines the tag locally
> and the (if ...
> checks if the note already has been set, in which case it unsets it,
> making the command a toggle.
> Also - something I should have mentioned - it is important to put a
> space at the end of these \\set things, else it can run into the next
> note in the LilyPond.
>
> HTH
>
> Richard
_______________________________________________
Denemo-devel mailing list
Denemo-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/denemo-devel
