[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Denemo-devel] [bug #27931] Clef chooser lacks bass?
From: |
anonymous |
Subject: |
[Denemo-devel] [bug #27931] Clef chooser lacks bass? |
Date: |
Wed, 13 Jan 2010 03:44:25 +0000 |
User-agent: |
Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.1.7) Gecko/20091221 Firefox/3.5.7 |
Follow-up Comment #4, bug #27931 (project denemo):
The script I just sent didn't delete the drum clef middlec position
directive. This one does. I hope it's sound.
-Dan
;;;;ClefChooser
(let ((choice "Bass"))
(set! choice (d-GetOption (string-append "Treble" stop "Bass" stop "Alto"
stop "Tenor" stop "Octava bassa" stop "Soprano" stop "Drum" stop)))
(cond
((boolean? choice) () )
((equal? choice "Drum")
(begin
;(d-CursorRight)
(d-InitialClef "Bass")
(d-DirectivePut-clef-override "DrumClef" DENEMO_OVERRIDE_LILYPOND)
(d-DirectivePut-clef-postfix "DrumClef" "\clef percussionn ")
(d-DirectivePut-clef-graphic "DrumClef" "DrumClef")
(d-StaffProperties "midi_channel=9")
(d-PushPosition)
(d-GoToBeginning)
(d-DirectivePut-standalone-postfix "MiddleCPosition" "\set
Staff.middleCPosition = #6")
(d-PopPosition)
;; (d-DirectivePut-voice-postfix "DrumClef" "\drummode ")
;; (d-DirectivePut-voice-override "DrumClef" DENEMO_OVERRIDE_LILYPOND)
;; (d-DirectivePut-staff-postfix "DrumClef" "<< { \new DrumStaffn")
;; (d-DirectivePut-staff-override "DrumClef" DENEMO_OVERRIDE_LILYPOND)
))
(#t
(if (d-CursorLeft)
(begin
(d-CursorRight)
(d-InsertClef choice))
(begin
(if (equal? (d-DirectiveGetTag-clef ) "DrumClef" )
(begin (d-DirectiveDelete-clef "DrumClef")
(if (equal? (d-DirectiveGetTag-standalone )
"MiddleCPosition")
(d-DeleteObject) )
)
)
(d-InitialClef choice)
)))))
(d-RefreshDisplay)
(file #19480)
_______________________________________________________
Additional Item Attachment:
File name: ClefChooser2 Size:1 KB
_______________________________________________________
Reply to this item at:
<http://savannah.gnu.org/bugs/?27931>
_______________________________________________
Message sent via/by Savannah
http://savannah.gnu.org/