denemo-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Incipit


From: Andreas Schneider
Subject: Re: Incipit
Date: Sat, 16 Dec 2023 21:25:25 +0100
User-agent: Mozilla Thunderbird

Thank you very much for your help. One more question: how can I get the
current indent so that I can compare to the incipit length and increase
it if necessary? I'm trying the following after looking at Indent.scm,
but I always get #f

;;;StaffIncipit
(let ((tag  "StaffIncipit") (current "") (incipitLength 10) (indent
"15.0") )
(set! current (d-GetUserInput (_ "Incipit") (_ "Give incipit for
current staff:") current))
(if (string? current)
  (begin
  (d-DirectivePut-voice-prefix tag  (string-append "\\incipit { "
current " }"))
  (d-DirectivePut-layout-postfix tag (string-append "  incipit-width =
" (number->string incipitLength) "\n"))
  (set! indent (d-DirectiveGet-layout-data "Indent"))
  (disp (number? indent) (string? indent) indent)
  (if (and (string? indent) (string->number indent))
    (if (> incipitLength (string->number indent))
      (d-Indent incipitLength))))))

Andreas



reply via email to

[Prev in Thread] Current Thread [Next in Thread]