2016-09-17 21:50 GMT+02:00 Simon Albrecht <simon.albre...@mail.de>:

> Only one glitch: Is make-cross-stencil a private function of yours?

Aaarrrgh, forgot to include. Sorry for that.

#(define (make-cross-stencil coord)
  "Draw a cross-stencil at coord."
  (let ((thick 0.1)
        (sz 0.2))
  (stencil-with-color
    (ly:stencil-add
      (make-line-stencil
        thick
        (- (car coord) sz)
        (- (cdr coord) sz)
        (+ (car coord) sz)
        (+ (cdr coord) sz))
      (make-line-stencil
        thick
        (- (car coord) sz)
        (+ (cdr coord) sz)
        (+ (car coord) sz)
        (- (cdr coord) sz)))

  cyan)
  ))

Cheers,
  Harm

_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to