[Denemo-devel] [bug #31238] Tested the 0.8.20 candidate for windows, crash

[anonymous]

Follow-up Comment #3, bug #31238 (project denemo):

This is an improvement of the DesignateVoice script.
It now cancels when you hit Cancel, rather than insert a useless blob, and
gives more information when run.
The documentation is better too, but does it need to be put somewhere else as
well, in a commands file?
-Dan W.


<tooltip>These commands are used when entering several voices per staff.
        VoiceOne is for the upper voice-it sets the direction of slurs,
beams, etc. up to avoid clashes.
        VoiceTwo is for the lower voice, and it sets the directions down.
        Additional voices beyond two are offset slightly to the
right.</tooltip>

;;;DesignateVoice
(let ((choice #f)(label #f)
        (OneVoice "OneVoice:  Default-For a single voice on a staff") (VoiceOne
"VoiceOne:  Designate as upper voice")
        (VoiceTwo "VoiceTwo:  Designate as lower voice")(VoiceThree 
"VoiceThree: 
Horizontally offset upper voice")
        (VoiceFour "VoiceFour:  Horizontally offset lower voice") 
        )
(set! choice (d-GetOption (string-append OneVoice stop VoiceOne stop VoiceTwo
stop VoiceThree stop VoiceFour stop) ) )
(cond
        ( (equal? choice VoiceOne ) (begin (set! choice "voiceOne") (set! label
"Voice1") ))
        ( (equal? choice VoiceTwo ) (begin (set! choice "voiceTwo") (set! label
"Voice2") ))
        ( (equal? choice VoiceThree ) (begin (set! choice "voiceThree") (set! 
label
"Voice3") ))
        ( (equal? choice VoiceFour ) (begin (set! choice "voiceFour") (set! 
label
"Voice4") ))
        ( (equal? choice OneVoice ) (begin (set! choice "oneVoice") (set! label
"1Voice") ) )
)
(if  choice
        (begin
                (d-DirectivePut-standalone "Voice" )
                (d-DirectivePut-standalone-display "Voice" label )
                (d-DirectivePut-standalone-ty "Voice" 60 )
                (d-DirectivePut-standalone-postfix "Voice" (string-append "\" 
choice ) )
                (d-DirectivePut-standalone-minpixels "Voice" 10 )
        )
)
)

(file #21798)
    _______________________________________________________

Additional Item Attachment:

File name: DesignateVoice                 Size:1 KB


    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?31238>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/