On Sat, 2015-03-07 at 11:13 -0500, Ellen Schwindt wrote:
> Hello Richard and other Denemo friends,
>
> > I'm using Denemo 1.2.1 downloaded from Jeremiah's directory on
> January
> > 25th. The file is actually called denemo-0.0.0-0.mingw. And I have
> > Richard's new install cue script.
>
>
> I've used both the crescendo function and the start crescendo function
> under Notes/Rests/ Markings/ Dynamics and I seem to get mixed results.
> Sometimes lilypond typesets a begin and end crescendo as "cresc." and
> sometimes with a hairpin.
>
>
> In this case--measure 54 in the attached file-- I want a hairpin, but
> I keep getting a"cresc." even though I think I'm using the process
> that usually results in a hairpin. Can anybody enlighten me?
Yes, the current scripts setting up text for cresc. and dim. carry on
applying to further crescendi and dimuendi, which leads to bafflement.
I've created new versions (attached) to fix this bug. The same method
for installing them as you used for the InstallCue.scm script applies -
in this case they are in the Notes/Rests->Markings->Dynamics menu (and
hence folder).
Oh, and I got a look at the unzipped portable version - the thing to
double click on *is* called Denemo.bat it is located
in the folder denemo-1.2.2 alongside the folders usr and license.
The scripts to replace in this case are at
denemo-1.2.2\usr\share\denemo\actions\menus\ObjectMenu\NotesRests\Markings\Dynamics
(The files are called DecrescendoTextSpanner.scm and CrescendoTextSpanner.scm )
Once more, thank you for reporting this bug.
Richard
>
> thank you,
>
> -Ellen
>
> _______________________________________________
> Denemo-devel mailing list
> [email protected]
> https://lists.gnu.org/mailman/listinfo/denemo-devel
;;;DecrescendoTextSpanner
(if (Music?)
(let ((tag "DecrescendoTextSpanner")(params DecrescendoTextSpanner::params)(text "poco"))
(if (equal? params "edit")
(set! params (RadioBoxMenu (cons (_ "Edit") 'edit) (cons (_ "Delete") 'delete) (cons (_ "Advanced") 'advanced))))
(if (d-Directive-chord? tag)
(cond
((not params)
(set! params 'delete))
((list? params)
(begin
(d-WarningDialog (_ "Sorry, this operation needs to be applied to the start of the Decrescendo."))
(set! params 'abandon)))
((string? params)
(set! text params))
((eq? params 'advanced)
(if (not (d-DirectiveTextEdit-chord tag))
(set! params 'delete)))
(else
(set! text (d-DirectiveGet-chord-display tag)))))
(if (not (eq? params 'abandon))
(begin
(if (eq? params 'delete)
(begin
(d-DirectiveDelete-chord tag)
(d-InfoDialog (_ "Deleted")))
(begin
(if (and (string? params) (not (equal? params "edit")))
(set! text params)
(set! text (d-GetUserInput (_ "Decrescendo Text Spanner") (_ "Give text ") text)))
(if text
(begin
(d-DirectivePut-chord-prefix tag (string-append
"\\once\\set decrescendoText = \\markup {\\italic { " text "}}\\once\\set decrescendoSpanner = #'text "))
(d-DirectivePut-chord-postfix tag "\\>")
(d-DirectivePut-chord-override tag DENEMO_OVERRIDE_AFFIX)
(d-DirectivePut-chord-display tag text)))))
(d-SetSaved #f)))))
;;;CrescendoTextSpanner
(if (Music?)
(let ((tag "CrescendoTextSpanner")(params CrescendoTextSpanner::params)(text "poco"))
(if (equal? params "edit")
(set! params (RadioBoxMenu (cons (_ "Edit") 'edit) (cons (_ "Delete") 'delete) (cons (_ "Advanced") 'advanced))))
(if (d-Directive-chord? tag)
(cond
((not params)
(set! params 'delete))
((list? params)
(begin
(d-WarningDialog (_ "Sorry, this operation needs to be applied to the start of the crescendo."))
(set! params 'abandon)))
((string? params)
(set! text params))
((eq? params 'advanced)
(if (not (d-DirectiveTextEdit-chord tag))
(set! params 'delete)))
(else
(set! text (d-DirectiveGet-chord-display tag)))))
(if (not (eq? params 'abandon))
(begin
(if (eq? params 'delete)
(begin
(d-DirectiveDelete-chord tag)
(d-InfoDialog (_ "Deleted")))
(begin
(if (and (string? params) (not (equal? params "edit")))
(set! text params)
(set! text (d-GetUserInput (_ "Crescendo Text Spanner") (_ "Give text ") text)))
(if text
(begin
(d-DirectivePut-chord-prefix tag (string-append
"\\once\\set crescendoText = \\markup {\\italic { " text "}}\\once\\set crescendoSpanner = #'text "))
(d-DirectivePut-chord-postfix tag "\\<")
(d-DirectivePut-chord-override tag DENEMO_OVERRIDE_AFFIX)
(d-DirectivePut-chord-display tag text)))))
(d-SetSaved #f)))))
;;;End of scheme script
_______________________________________________
Denemo-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/denemo-devel
