Follow-up Comment #4, bug #31238 (project denemo):
This designate voice script lacks one thing. It should cursor right as the
last thing it does so that you can go on entering notes in your new voice
setting without having to move past it first.
Just add the line (d-MoveCursorRight) right after
(d-DirectivePut-standalone-minpixels "Voice" 10 )
so the new script will be as follows. -DW
;;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 )
(d-MoveCursorRight)
)
)
)
_______________________________________________________
Reply to this item at:
<http://savannah.gnu.org/bugs/?31238>
_______________________________________________
Message sent via/by Savannah
http://savannah.gnu.org/
_______________________________________________
Denemo-devel mailing list
Denemo-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/denemo-devel
