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