Re: [Denemo-devel] Script to add transpose Clarinet staff to existing music

[Joe Wilkinson]

Just for the record - it looks prettier in Scheme window, and Notepad++

This is now working. It saves a lot of effort, and was more interesting 
than doing it all by hand!

Joe

;; Start at top Chord Staff.

  ;;Set  chord size for Harmony Chords
(let ((tag "88c2e076f462ad24ce0e7c293a40c9f0"))
(d-Directive-standalone tag)
(d-DirectivePut-standalone-postfix tag "\\override ChordName.font-size = 
#-1   ")
(d-DirectivePut-standalone-display tag "\\override ChordName.font-size = 
#-1   ")
(d-DirectivePut-standalone-minpixels tag 30)
(d-SetSaved #f)(d-RefreshDisplay))
;;Move to NPOriginal - Staff2
(d-MoveToStaffDown)
  ;;Set  chord size for clarinet notes mirrored in Staff 7
(let ((tag "88c2e076f462ad24ce0e7c293a40c9f0"))
(d-Directive-standalone tag)
(d-DirectivePut-standalone-postfix tag "\\override ChordName.font-size = 
#-2   ")
(d-DirectivePut-standalone-display tag "\\override ChordName.font-size = 
#-2   ")
(d-DirectivePut-standalone-minpixels tag 30)
(d-SetSaved #f)(d-RefreshDisplay))
;;Move to Mirrored EbSax Staff
(d-MoveToStaffDown)
(d-MoveToStaffDown)
;;Set ShortInstrumentName to Sax
(let ((tag "ShortInstrumentName"))
(d-DirectivePut-staff-prefix tag " shortInstrumentName = \"Sax\"")
(d-DirectivePut-staff-display tag "Clt")
rrored(d-DirectivePut-staff-override tag 22)
(d-SetSaved #f))
(let ((tag "InstrumentName"))
(d-DirectivePut-staff-prefix tag " instrumentName = \"EbSax\"")
(d-DirectivePut-staff-display tag "Clarinet")
(d-DirectivePut-staff-override tag 22)
(d-SetSaved #f))
 ;move to last staff (second mirrored EbSax showing chords)
(d-MoveToStaffDown)
;; add clarinet Staff for music
(d-AddMirrorStaff)
;(d-TransposeStaffPrint)
(let ((tag "TransposeStaffPrint"))
(d-DirectivePut-staff-postfix tag "\\transpose c d ")
(d-DirectivePut-staff-display tag "Print transposed:  c d ")
(d-DirectivePut-staff-override tag 4)
(d-SetSaved #f))
(let ((tag "ShortInstrumentName"))
(d-DirectivePut-staff-prefix tag " shortInstrumentName = \"Clt\"")
(d-DirectivePut-staff-display tag "Clt")
(d-DirectivePut-staff-override tag 22)
(d-SetSaved #f))
(let ((tag "InstrumentName"))
(d-DirectivePut-staff-prefix tag " instrumentName = \"Clarinet\"")
(d-DirectivePut-staff-display tag "Clarinet")
(d-DirectivePut-staff-override tag 22)
(d-SetSaved #f))
(d-AddMirrorStaff)
;(d-TransposeStaffPrint)
(let ((tag "TransposeStaffPrint"))
(d-DirectivePut-staff-postfix tag "\\transpose c d ")
(d-DirectivePut-staff-display tag "Print transposed:  c d ")
(d-DirectivePut-staff-override tag 4)
(d-SetSaved #f))
(d-ChordStaff)
;;Edit Titles Which will have changed
(if (d-Directive-header? "MovementTitle")
    (begin
        (SetHeaderField "subtitle")
        (d-DirectivePut-header-postfix "SuppressTitleRepeats" "title = 
##f\ninstrument = ##f\n")
        (DenemoPrintAllHeaders)
        (d-SetSaved #f))
    (DenemoSetTitles "MovementTitles" 'title #f))
(if (d-Directive-header? "MovementSubtitle")
    (begin
        (SetHeaderField "subsubtitle")
        (DenemoPrintAllHeaders)
        (d-RefreshDisplay))
    (DenemoSetTitles "MovementTitles" 'subtitle #f))
(if (d-Directive-header? "MovementComposer")
    (begin
        (SetHeaderField "composer")
        (DenemoPrintAllHeaders)
        (d-SetSaved #f))
    (DenemoSetTitles "MovementTitles" 'composer #f))
(if (d-Directive-header? "MovementPoet")
    (begin
        (SetHeaderField "poet")
        (DenemoPrintAllHeaders)
        (d-SetSaved #f))
    (DenemoSetTitles "MovementTitles" 'poet #f))