\version "2.12.0"

#(define (circSlashStil grob)
  (let* ((line-thickness (ly:staff-symbol-line-thickness grob))
         (width (+ line-thickness 1))
         (stem-thickness (* line-thickness 1.3))
         (radius (/ (- width stem-thickness) 2)))
    (ly:grob-set-property! grob 'stencil
      (ly:make-stencil (list 'embedded-ps
        (string-append "
          /line-thickness " (number->string line-thickness) " def
          /stem-thickness " (number->string stem-thickness) " def
          /radius " (number->string radius) " def
          /width " (number->string width) " def
          /half-width width 2 div def
          /x0 half-width def
          /y0 0 def
          /x1 width stem-thickness 2 div sub def
          /y1 half-width stem-thickness 2 div sub def
          /x2 stem-thickness 2 div def
          /y2 half-width neg stem-thickness 2 div add def

          gsave
          currentpoint translate
          stem-thickness setlinewidth
          newpath
          x0 y0 radius 0 360 arc
          stroke

          newpath
          1 setlinecap
          x1 y1 moveto
          x2 y2 lineto
          stroke
          grestore"))
    (cons 0 width)
    (cons 0 0)))))

tomNoteHeads = \override NoteHead #'stencil = #circSlashStil
normalNoteHeads = \revert NoteHead #'stencil

\header { tagline=##f }
\relative c'' {
  \stemUp
  c16 c c \tomNoteHeads c
  c \normalNoteHeads c c \tomNoteHeads a \normalNoteHeads
  <\tweak #'stencil #circSlashStil a> c c <\tweak #'stencil #circSlashStil f,>
}