Re: [Denemo-devel] New script

[Andreas Schneider]

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