Setting up each tie in chord

\version "2.24.3"
\language "deutsch"

tieColumnShapes =
  #(define-music-function
    (offsets-list)
    (list?)
    #{
    \once \override TieColumn.ties =
        #(lambda (grob)
           (for-each (lambda (tie clr offsets)
                       (ly:grob-set-property! tie 'control-points offsets)
                       (ly:grob-set-property! tie 'color clr)
                     )
           (ly:grob-array->list (ly:grob-object grob 'ties))
           (circular-list red green)
           offsets-list
           )
         )
    #}
    )

\header {
  % Usuń domyślną stopkę LilyPonda
  tagline = ##f
}

\paper {
  #(set-paper-size "a4")
}

\layout {

}


\score {
\relative c {
  \clef bass
  \key c \major
  \time 4/4

   r16
   \tieColumnShapes #'(
        ((0 . 0) (0 . 1) (0 . 0) (0 . 0))
        ((0 . 0) (0 . 0) (5 . 0) (0 . 0))
        ((0 . 0) (0 . 0) (0 . 0) (0 . 0))
        )
    <es ~ ges ~ f' ~>8.
    <es ges f'>4

    ~ ~ ~
    <es ges f'>2
}
}