\version "2.22.1"

glis-su-acc = {
  \once \override Accidental.stencil =
  #(lambda (grob)
     (let* (
             (acc (ly:accidental-interface::print grob))
             (arr (ly:stencil-add
                             (make-line-stencil 0.1 (- X 0.3) (- Y 1.25) (- X 0.9) (- Y 1.85));tratto principale 0.6
                             (make-line-stencil 0.1 (- X 0.15) (- Y 1.4) (- X 0.75) (- Y 2));tratto principale 0.6
                             (make-line-stencil 0.15 (- X 0.15) (- Y 1.25) (- X 0.55) (- Y 1.25));tratto orizzontale 0.4
                             (make-line-stencil 0.15 (- X 0.15) (- Y 1.25) (- X 0.15) (- Y 1.65));tratto verticale 0.4
                             )
               )
             )
       (ly:stencil-combine-at-edge arr X RIGHT acc 0.2)
       )
     )
}

glis-giu-acc = {
  \once \override Accidental.stencil =
  #(lambda (grob)
     (let* (
             (acc (ly:accidental-interface::print grob))
             (arr (ly:stencil-add
                             (make-line-stencil 0.1 (- X 0.3) (- Y 0.75) (- X 0.9) (- Y 0.15));tratto principale 0.6
                             (make-line-stencil 0.1 (- X 0.15) (- Y 0.6) (- X 0.75) (+ Y 0));tratto principale 0.6
                             (make-line-stencil 0.15 (- X 0.15) (- Y 0.75) (- X 0.55) (- Y 0.75));tratto orizzontale 0.4
                             (make-line-stencil 0.15 (- X 0.15) (- Y 0.75) (- X 0.15) (- Y 0.35));tratto orizzontale 0.4
                             )
               )
             )
       (ly:stencil-combine-at-edge arr X RIGHT acc 0.2)
       )
     )
}

glis-su-nat = {
  \once \override Stem.X-offset = #(lambda (grob)
    (if (= UP (ly:grob-property grob 'direction))
        1.43
        0.19))
  
  \once \override NoteHead.stencil =
  #(lambda (grob)
     (let* (
             (note (ly:note-head::print grob))
             (arr (ly:stencil-add
                             (make-line-stencil 0.1 (- X 0.3) (- Y 1.25) (- X 0.9) (- Y 1.85));tratto principale 0.6
                             (make-line-stencil 0.1 (- X 0.15) (- Y 1.4) (- X 0.75) (- Y 2));tratto principale 0.6
                             (make-line-stencil 0.15 (- X 0.15) (- Y 1.25) (- X 0.55) (- Y 1.25));tratto orizzontale 0.4
                             (make-line-stencil 0.15 (- X 0.15) (- Y 1.25) (- X 0.15) (- Y 1.65));tratto verticale 0.4
                             )
               )
             )
       (ly:stencil-combine-at-edge arr X RIGHT note 0.2)
       )
     )
}

glis-giu-nat = {
    \once \override Stem.X-offset = #(lambda (grob)
    (if (= UP (ly:grob-property grob 'direction))
        1.23
        0))
  \once \override NoteHead.stencil =
  #(lambda (grob)
     (let* (
             (note (ly:note-head::print grob))
             (arr (ly:stencil-add
                             (make-line-stencil 0.1 (- X 0.3) (- Y 0.75) (- X 0.9) (- Y 0.15));tratto principale 0.6
                             (make-line-stencil 0.1 (- X 0.15) (- Y 0.6) (- X 0.75) (+ Y 0));tratto principale 0.6
                             (make-line-stencil 0.15 (- X 0.15) (- Y 0.75) (- X 0.55) (- Y 0.75));tratto orizzontale 0.4
                             (make-line-stencil 0.15 (- X 0.15) (- Y 0.75) (- X 0.15) (- Y 0.35));tratto orizzontale 0.4
                             )
               )
             )
       (ly:stencil-combine-at-edge arr X RIGHT note 0)
       )
     )
}

#(set-global-staff-size 20)

\header {
  title = \markup {\column { "About stencils" \vspace #2 }}
  tagline = ##f
}



\new Staff {
  \relative c' {
    \once \override Score.FootnoteItem.annotation-line = ##f
    \footnote "*" #'(-0.2 . -1) "* glissando at the end of previous note" NoteHead
    \stemDown \glis-giu-nat f2 \glis-su-nat b2 |
    \glis-giu-acc fis4 \glis-su-acc bes2.
    \glis-giu-nat c32 \glis-su-nat c c c c c c c \glis-giu-nat c \stemUp \glis-giu-nat c
  }
}



\paper {
  top-margin = 2 \cm
  bottom-margin = 2 \cm
  left-margin = 2 \cm
  right-margin = 2 \cm

  indent = 0\mm
}