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))
_______________________________________________
Denemo-devel mailing list
Denemo-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/denemo-devel
