Re: Scheme predicative types

[Aaron Hill]

On 2020-09-17 4:01 am, Martín Rincón Botero wrote:
> Dear Aaron,
>
> thank you very much for your help! After using ly:duration->string for 
> the
> tempo-unit, I'm still missing a way to have the new string tempo-unit
> string in "", so that I can display it as a \note in a \markup. How can 
> I
> achieve that? Sorry for taking so much of your time!

Should just be as simple as: \markup \note #(ly:duration->string dur) 
#UP

Modifying my code once again...

%%%%
\version "2.20.0"

#(define (tempo? arg)
  (and (ly:music? arg)
       (not (null? (extract-typed-music arg 'tempo-change-event)))))

describeTempo =
#(define-scheme-function
  (tempo)
  (tempo?)
  (set! tempo (first (extract-typed-music tempo 'tempo-change-event)))
  (let ((tempo-unit (ly:prob-property tempo 'tempo-unit #f))
        (metronome-count (ly:prob-property tempo 'metronome-count #f))
        (text (ly:prob-property tempo 'text #f)))
    (format #t "\nTempo:~{\t~s=~s~^\n~}"
      (list 'tempo-unit tempo-unit
            'metronome-count metronome-count
            'text text))
    (set! tempo-unit
      (if (ly:duration? tempo-unit)
          #{ \markup \box \concat {
            \note #(ly:duration->string tempo-unit) #UP
            \hspace #1 ( #(ly:duration->string tempo-unit) ) } #}
          #{ \markup unspecified #}))
    (set! metronome-count
      (cond ((number-pair? metronome-count)
             #{ \markup { between
               \box #(format #f "~d" (car metronome-count)) and
               \box #(format #f "~d" (cdr metronome-count)) } #})
            ((number? metronome-count)
             #{ \markup { exactly
               \box #(format #f "~d" metronome-count) } #})
            (else #{ \markup unspecified #})))
    (set! text
      (if (markup? text)
          #{ \markup \box #text #}
          #{ \markup unspecified #}))
    #{
      \markup \pad-around #1 \column {
        \line { \italic tempo-unit is #tempo-unit }
        \line { \italic metronome-count is #metronome-count }
        \line { \italic text is #text }
      }
    #}))

\describeTempo \tempo 4 = 50
\describeTempo \tempo "Text" 8. = 60-70
\describeTempo \tempo \markup \bold "Text"
%%%%


-- Aaron Hill

tempo-function.cropped.png
Description: PNG image