;;;StaffSize
(let ((tag "StaffSize") (size #f))
  (set! size (exact->inexact (/ (d-DirectiveGet-staff-minpixels tag) 10)))
  (set! size (d-GetUserInput (_ "Setting Staff Size") (_ "Give Staff Size (for printing), 0 for default") (if size (number->string size) "0")))

  (if (and size (string->number size))
    (begin
      (if (d-Directive-staff? tag)
        (d-DirectiveDelete-staff tag))
      (ToggleDirective "staff" "prefix" tag (string-append "\\with {
     		   fontSize = #" size "
     		   \\override VerticalAxisGroup #'minimum-Y-extent = #'(0 . 0)
     		   \\override StaffSymbol #'staff-space = #(magstep " size ")\n}\n "))
      (set! size (inexact->exact (* (string->number size) 10)))
           
      (d-DirectivePut-staff-minpixels tag size))))
      