On Sun, 2019-08-04 at 21:18 +0000, Bill Goodman wrote:
> Hi Richard,
>
> To access the new features, do I need to re-download-and-install the
> programs? Or can just a 'patch' of code be downloaded?
It depends on what operating system you are using and how happy you are
with copying files/patching etc.
The complete patch is at
http://git.savannah.gnu.org/gitweb/?p=denemo.git;a=commitdiff;h=e2bb84c
dcff7dc3258501e72e67cd177e8fbb6dc
But it is just a script which is stored at
http://git.savannah.gnu.org/gitweb/?p=denemo.git;a=blob;f=actions/menus/ObjectMenu/Score/Typesetter/PrintLayout/VerticalSpacing/Staff-Spacing/StaffToStaffSpacing.scm;h=1bfcc294147517245286b185e29c90da6a4b6087;hb=e2bb84cdcff7dc3258501e72e67cd177e8fbb6dc
and which I've attached to this email. The complete patch puts the
script into the installation as a command in the menu system, and help
text etc.
So you could just install the version 3.1.1 which is built overnight or
you could take the script attached and paste it into the Scheme window
(View->Scheme) and execute it (or create a palette button for it -
click "Create Button", or indeed, put it into your local version of the
menu system - right click on a menu item where you want it to be
inserted).
HTH
Richard
By the way, please use the "Reply to All" or "Group Reply" buttons when
replying to a mailing list posting, as others will benefit from the
reply.
;StaffSpacing
(let ((choice (RadioBoxMenu (cons (_ "Spacing for Un-grouped staffs (no braces)") "UngroupedStaffSpacing")
(cons (_ "Spacing for Piano Staff") "PianoStaff")
(cons (_ "Spacing for Group Staff") "GroupStaff")
(cons (_ "Spacing for Choir Staff") "ChoirStaff")
(cons (_ "Spacing for Grand Staff") "GrandStaff")))
(tag #f)(context #f))
(define (choose-parameter)
(RadioBoxMenu (cons (_ "Basic Distance Apart") "basic-distance")
(cons (_ "Minimum Distance Apart") "minimum-distance")
(cons (_ "Padding") "padding")
(cons (_ "Stretchabilty") "stretchabilty")))
(define (get-value tag parameter)
(let ((current (d-DirectiveGet-score-data tag)))
(if (not current)
(set! current "10"))
(set! current (d-GetUserInput (_ "Staff Spacing") (string-append (_ "Give ") parameter) current))
(if (and current (string->number current))
current
#f)))
(if choice
(begin
(set! context choice)
(set! tag (string-append context "Spacing"))
(if (equal? choice "UngroupedStaffSpacing")
(let ((parameter (choose-parameter)))
(set! tag (string-append tag "-" choice "-" parameter))
(let ((current (get-value tag parameter)))
(if current
(begin
(d-DirectivePut-score-prefix tag (string-append
"\\layout {\\context {\\Staff \\override VerticalAxisGroup.default-staff-staff-spacing." parameter " = " current "}\n }\n"))
(d-DirectivePut-score-data tag current)))))
(begin ;grouped staff spacing
(set! choice (RadioBoxMenu (cons (_ "Spacing between group and other") "staffgroup")
(cons (_ "Spacing within group") "staff")))
(if choice
(let ((parameter (choose-parameter)))
(if parameter
(begin
(set! tag (string-append tag "-" choice "-" parameter))
(let ((current (get-value tag parameter)))
(if current
(begin
(d-DirectivePut-score-prefix tag (string-append
"\\layout {\\context {\\" context " \\override StaffGrouper." choice "-staff-spacing." parameter " = " current "}\n }\n"))
(d-DirectivePut-score-data tag current)))))))))))))
(d-SetSaved #f)
_______________________________________________
Denemo-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/denemo-devel
