[Denemo-devel] [bug #28352] Voice Commands, basic script

[anonymous]

URL:
  <http://savannah.gnu.org/bugs/?28352>

                 Summary: Voice Commands, basic script
                 Project: GNU Denemo, a gtk+ frontend to GNU Lilypond
            Submitted by: None
            Submitted on: Sun 20 Dec 2009 02:56:07 AM UTC
                Category: Feature request
                Severity: 3 - Normal
              Item Group: None
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open
         Discussion Lock: Any

    _______________________________________________________

Details:

For polyphonic music the commands \voiceOne, \voiceTwo, \oneVoice, etc. are
handy.  I'm including a script that lets you choose these commands.  It would
be good if the denemo view reflected these commands: they affect stem
direction (up for Voice 1 and 3, down for 2 and 4, I believe), as well as
slur/tie direction  (up for 1&3, down for 2&4).  OneVoice is basically return
to neutral.

What would be really fancy is for denemo to do a good job of selecting these
commands as appropriate, automatically, when you have more than one voice on a
staff.  So, when a multi-voice staff has only one active voice, with the
others on non-printing rests, the \oneVoice command would be issued.  When
several voices were active, they would each have their own appropriate
\voiceOne , \voiceTwo, etc.  

Here's the script:


(let ((choice #f)(label #f)) 
(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") ) )

) 
(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 )
)




    _______________________________________________________

Reply to this item at:

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

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