Re: What to do wanting a 4th order Bézier?

[Thomas Morley]

2016-09-17 21:50 GMT+02:00 Simon Albrecht <address@hidden>:

> 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