my friend assist me to defined those Lilybin lines, in order to add additional grafical to wood-wind diagram:

    \version "2.22.1"

% LilyBin
#(define-markup-command
  (woodwind-diagram-x layout props 
    instrument user-draw-commands)
  (symbol? list?)
  #:properties ((upper-hole1 #f)
                (size 1)
                (thickness 0.1)
                (graphical #t))
  (let* ((ww-diagram
          (interpret-markup layout props
            (make-woodwind-diagram-markup
             instrument user-draw-commands)))
         (hole-circle
          (make-circle-stencil size thickness upper-hole1))
         (midline
          (make-line-stencil (* thickness 2) (* -0.80 size) 0 (* 0.80 size) 0))
         (upper-circle-and-midline
          (ly:stencil-combine-at-edge hole-circle Y DOWN midline (* 0.80 size))))
    (ly:stencil-combine-at-edge
     upper-circle-and-midline Y DOWN ww-diagram (* 0.80 size))
    ))

\markup {
  \center-column {
  \override #'(upper-hole1 . #f)
    \override #'(size . 0.7) {
      \woodwind-diagram-x #'flute
      #'((cc . (oneF two three four five six))
         (lh . ())
         (rh . ()))
    }
  }
}

That works. Thanks a lot guys

My friend assist me to defined those Lilybin lines, in order to add additional grafical to wood-wind diagram:

    \version "2.22.1"

% LilyBin
#(define-markup-command
  (woodwind-diagram-x layout props 
    instrument user-draw-commands)
  (symbol? list?)
  #:properties ((upper-hole1 #f)
                (size 1)
                (thickness 0.1)
                (graphical #t))
  (let* ((ww-diagram
          (interpret-markup layout props
            (make-woodwind-diagram-markup
             instrument user-draw-commands)))
         (hole-circle
          (make-circle-stencil size thickness upper-hole1))
         (midline
          (make-line-stencil (* thickness 2) (* -0.80 size) 0 (* 0.80 size) 0))
         (upper-circle-and-midline
          (ly:stencil-combine-at-edge hole-circle Y DOWN midline (* 0.80 size))))
    (ly:stencil-combine-at-edge
     upper-circle-and-midline Y DOWN ww-diagram (* 0.80 size))
    ))

\markup {
  \center-column {
  \override #'(upper-hole1 . #f)
    \override #'(size . 0.7) {
      \woodwind-diagram-x #'flute
      #'((cc . (oneF two three four five six))
         (lh . ())
         (rh . ()))
    }
  }
}

That works. Thanks a lot guys