Re: Circled numbers for live electronics

[Thomas Morley]

2016-12-14 14:04 GMT+01:00 Gilberto Agostinho <address@hidden>:
> SoundsFromSound wrote
>> Thank you for this very useful code! I can use this in my electro-acoustic
>> works for sure.
>
> I am glad to hear you found this useful! And because the function has a
> markup section, it should also be easily hackable depending on how you want
> your scores with live electronics to look like (e.g. some people prefer to
> use dashed lines instead of arrows for this sort of notation).
>
> By the way, I also added it to the LSR.



Hi Gilberto,

I had a look into your code here:
http://lsr.di.unimi.it/LSR/Item?u=1&id=1047
and now come up with the shortened version below.
What do you think?

\version "2.18.2"

LEtext = #(define-event-function
     (parser location N vlength description)
     (number? number? string?)
      #{
        -\markup {
          \hspace #-1.2
          \center-column {
            \raise #1
            \combine
            \arrow-head #Y #UP ##t
            \draw-line #(cons 0 (- vlength))
            \combine
            \halign #0 \circle \transparent "888"
            \halign #0 #(number->string N)
          }
          \raise #(+ -2 (- vlength)) $description
        }
      #})

LE = #(define-event-function (parser location N vlength)(number? number?)
     #{ \LEtext $N $vlength "" #})

{
  \textLengthOn
  c'1\LE #1 #3
  g1\LE #2 #1.5
  c''1\LE #37 #4.4
  f'1\LE #123 #2
  c'1\LEtext #3 #8 "harmonizer"
  f1\LEtext #20 #6 "frozen reverb"
  c'1\LEtext #300 #3 "EQ -3.7 A +1.2"
}

Cheers,
  Harm