opmo Posted May 30, 2017 Share Posted May 30, 2017 Fix: TIE-BARS and FILTER-TIE TIE-BARS: (setf mat '((e c3 g2 fs2 cs2 c2) (e c2 stacc cs2 fs2 g2 c3) (e c3 stacc g2 fs2 cs2 c2) (e c2 ten cs2 fs2 g2 c3) (e c3 g2 fs2 cs2 c2))) (tie-bars mat) => ((e c3 g2 fs2 cs2 c2 tie+stacc) (e c2 cs2 fs2 g2 c3 tie+stacc) (e c3 g2 fs2 cs2 c2 tie+ten) (e c2 cs2 fs2 g2 c3 tie) (e c3 g2 fs2 cs2 c2)) In the following example we tie bars 2 and 3: (tie-bars mat :section '(2 3)) => ((e c3 g2 fs2 cs2 c2) (e c2 stacc cs2 fs2 g2 c3) (e c3 stacc g2 fs2 cs2 c2 tie+ten) (e c2 cs2 fs2 g2 c3) (e c3 g2 fs2 cs2 c2)) FILTER-TIE: (filter-tie '(-q c4 f c4 p gliss d4 p e4 e4 e4 fermata)) => (-q h c4 p gliss q d4 h. e4 fermata) (filter-tie '((-q c4 d4 f4 e4) (q e4 f4 g4 a4) (e a4 a4 stacc g4 f4 = = q a4) (q a4 d4 f4 e4))) => ((-q c4 mf d4 f4 e4 tie) (q e4 mf f4 g4 a4 tie+stacc) (q a4 mf e g4 q. f4 q a4 tie) (q a4 mf d4 f4 e4)) Best wishes, JP hujairi 1 Link to comment Share on other sites More sharing options...
Recommended Posts