Hi Harm,
> how about:
>
> \version "2.14.2"
>
> #(define (make-cross-stencil coords)
> (ly:stencil-add
> (make-line-stencil 0.1 (- (car coords) 0.2) (- (cdr coords) 0.2)
> (+ (car coords) 0.2) (+ (cdr coords) 0.2))
> (make-line-stencil 0.1 (- (car coords) 0.2) (+ (cdr coords) 0.2)
> (+ (car coords) 0.2) (- (cdr coords) 0.2))))
>
> #(define (display-control-points line)
> (lambda (grob)
> (let ((stencil (ly:slur::print grob))
> (cps (ly:grob-property grob 'control-points)))
>
> (ly:stencil-add stencil
> (ly:stencil-in-color
> (make-cross-stencil (second cps))
> 1 0 0)
> (ly:stencil-in-color
> (make-cross-stencil (third cps))
> 1 0 0)
> (if (eq? line #t)
> (make-line-stencil 0.05 (car (second cps)) (cdr (second cps))
> (car (third cps)) (cdr (third cps)))
> empty-stencil)
> )
> )))
>
> \relative c'' {
> \override Slur #'stencil = #(display-control-points #t)
> c2( d e f)
> }
>
Looks great! Makes this even more fun to play around with :)
-David
_______________________________________________
bug-lilypond mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/bug-lilypond
