1;;;NewSpacing
2(let* ((tag "NewSpacing")(params NewSpacing::params)(count (d-DirectiveGet-standalone-data tag)))
3
4    (if (and params (d-Directive-standalone? tag))
5        (begin
6            (d-InfoDialog (_ (string-append "Spacing of notes from this point is based on spacing-increment " count))))
7        (begin
8
9            (if (not count)
10                (set! count "4"))
11            (set! count (d-GetUserInput (_ "Spacing") (_ "Give new spacing: ") count))
12            (if (and (string? count) (string->number count))
13                    (begin
14                    	(d-SetSaved #f)
15                        (StandAloneDirectiveProto (cons tag (string-append "\\newSpacingSection\n\\override Score.SpacingSpanner.spacing-increment = #"  count "\n"))  #f "\n<-\nDenemo\n48")
16                        (d-DirectivePut-standalone-data tag count))
17                    (begin
18                      (if (d-Directive-standalone? tag)
19                        (d-InfoDialog (_ "To restore the prevailing music spacing delete this directive object."))
20                         (d-InfoDialog (_ "Note spacing unaltered."))))))))
21
22