[Denemo-devel] [bug #27931] Clef chooser lacks bass?

[anonymous]

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/