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

[Joe Wilkinson]

Hi Richard,

I am trying to write a scheme script to automatically add a Clarinet 
line below and to copy existing music. It needs to be transposed on 
print up a tone. I'd rather it did not ask me each time for the interval 
with a dialogue box.

I have played with the script from the Transpose on Print button, but it 
either gives me a dialogue box, if I leave it alone, or nothing happens 
if I change

(set! Transpose::Interval  (d-GetNoteNamesFromUser 2 Transpose::Interval 
(_ "--> Transpose to -->") )))

to

(set! Transpose::Interval  ( "c  d" 2 Transpose::Interval (_ "--> 
Transpose to -->") )))

I assume there is more to it than a simple kludge. Apart from anything 
else when the interval is changed the system remembers. Is 
Transpose::Interval some sort of Global variable?

Best wishes

Joe


;;;;; TransposeStaffPrint
(define-once Transpose::Interval "c ees")
(let ((tag "TransposeStaffPrint")(lily #f) (text #f)(params 
TransposeStaffPrint::params))
    (if (and params  (not (equal? params "edit")))
        (set!  Transpose::Interval params)
        (set! Transpose::Interval  (d-GetNoteNamesFromUser 2 
Transpose::Interval (_ "--> Transpose to -->") )))
    (if Transpose::Interval
        (begin
            (set! lily (string-append  "\\transpose " 
Transpose::Interval " "))
            (set! text (string-append  (_ "Print transposed:  ") 
Transpose::Interval " "))
            (d-DirectivePut-staff-override tag DENEMO_OVERRIDE_GRAPHIC)
            (d-DirectivePut-staff-display  tag text)
            (d-DirectivePut-staff-postfix  tag lily)
            (d-SetSaved #f))
        (d-WarningDialog (_ "Cancelled"))))