/usr/share/denemo/actions/lilypond/control-points.ly is in denemo-data 2.0.2-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | #(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* ((grob-name (lambda (x) (assq-ref (ly:grob-property x 'meta) 'name)))
(name (grob-name grob))
(stil (cond ((or (eq? name 'Slur)(eq? name
'PhrasingSlur))(ly:slur::print grob))
((eq? name 'Tie)(ly:tie::print grob))))
(cps (ly:grob-property grob 'control-points)))
(ly:stencil-add stil
(ly:stencil-in-color
(ly:stencil-add
(make-cross-stencil (first cps))
(make-cross-stencil (second cps))
(make-cross-stencil (third cps))
(make-cross-stencil (fourth cps))
)
1 0 0)
(if (eq? line #t)
(begin
(ly:stencil-add
(make-line-stencil 0.05 (car (first cps)) (cdr (first cps))
(car (second cps)) (cdr (second cps)))
(make-line-stencil 0.05 (car (second cps)) (cdr (second
cps)) (car (third cps)) (cdr (third cps)))
(make-line-stencil 0.05 (car (third cps)) (cdr (third cps))
(car (fourth cps)) (cdr (fourth cps)))
))
empty-stencil)
)
)))
|