[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: anonymous
Subject: [Denemo-devel] [bug #28352] Voice Commands, basic script
Date: Sun, 20 Dec 2009 02:56:08 +0000
User-agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv: Gecko/20091201 Firefox/3.5.6


                 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



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


  Message sent via/by Savannah

reply via email to

[Prev in Thread] Current Thread [Next in Thread]