[bug #61965] Indent of Instrument name not automatic

[Richard Shann]

Update of bug #61965 (project denemo):

                  Status:                    None => In Progress            

    _______________________________________________________

Follow-up Comment #1:

The following script sets the indent based on the longest instrument name and
the current font size:

8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><

(let ((size (/ (string->number (d-ScoreProperties "query=fontsize")) 10.0))) 
                (define (doit)
                        (while (d-MoveToStaffUp))
                        (let ((longest 0)(name (d-DirectiveGet-staff-display 
"InstrumentName")))
                                (if name
                                                (set! longest (max longest 
(string-length name))))
                                (while (d-MoveToStaffDown)
                                          (set! name 
(d-DirectiveGet-staff-display "InstrumentName"))
                                          (if name
                                                (set! longest (max longest 
(string-length name)))))
                longest))
        (d-ScoreIndent (* size (doit))))

8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><

It would be good perhaps to call this on each invocation of Instrument Name...

    _______________________________________________________

Reply to this item at:

  <https://savannah.gnu.org/bugs/?61965>

_______________________________________________
  Message sent via Savannah
  https://savannah.gnu.org/