Am 18.09.2016 um 16:01 schrieb Urs Liska:
> (cps (ly:slur::calc-control-points grob))
> (cps1 (first contr-pts))
> (cps2 (second contr-pts))
> (cp2-2 (mirror-point (fourth cps1) (third cps1)))
> (cps2 `(,(fourth cps1) ,cp2-2 ,@cps2))
This should actually read
(cps (ly:slur::calc-control-points grob))
(cps1 (first contr-pts))
(cp2-2 (mirror-point (fourth cps1) (third cps1)))
(cps2 `(,(fourth cps1) ,cp2-2 ,@(second
contr-pts)))
Urs
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
