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

[anonymous]

Follow-up Comment #3, bug #27931 (project denemo):

The attached script fixes a few problems with ClefChooser.
First it puts the Bass clef as the second choice, whereas before it was
absent.
It eliminates the unnecessary "Operation Cancelled" dialog box.
It fixes a slight problem with the drum clef.  Suppose you had mistakenly
entered a drum clef as initial and then tried to put the initial clef to
treble.  The drum clef directive would still be there, and you'd see the same
drum clef there.  It wouldn't go away.  This fixes that by deleting the
directive when it finds it.
Hope it helps.
-Dan W.
Here it is pasted:


;;;;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" ) 
(d-DirectiveDelete-clef
"DrumClef") )
            (d-InitialClef choice)   
            )))))
(d-RefreshDisplay)

(file #19479)
    _______________________________________________________

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/