[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: undefined
From: |
Paul Morris |
Subject: |
Re: undefined |
Date: |
Fri, 17 Apr 2015 10:38:57 -0400 |
> On Apr 17, 2015, at 5:05 AM, Calixte Faure <address@hidden> wrote:
>
> and a magic command (say \beamToSlur) would switch [ ] to ( ).
Hi Calixte, Here’s a music function for this. Seems to do the trick, but
untested on actual music.
HTH,
-Paul
%%%%%%%%%%%%%
\version "2.18.2"
beamsToSlurs =
#(define-music-function (parser location music)
(ly:music?)
(music-map
(lambda (m)
(if (ly:music-property m 'articulations)
(let ((arts (ly:music-property m 'articulations)))
(for-each
(lambda (a)
(if (music-is-of-type? a 'beam-event)
(ly:music-set-property! a 'name 'SlurEvent)))
arts)))
m)
music))
%%%%%%%%%
% uncomment both \displayMusic lines to see before and after
% \displayMusic
\beamsToSlurs
% \displayMusic
{
c8 [ d ]
}