\version "2.19.81"

ts = 
\markup
\scale #'(-4 . -4)
\override #'(filled . #t) 
\path #0.01 
#'((moveto  0.000 -0.180)
   (lineto  0.142 -0.142)
   (lineto  0.142 -0.402)
   (lineto  0.156 -0.582)
   (lineto  0.270 -0.296)
   (lineto  0.170 -0.402)
   (lineto  0.170  0.174)
   (lineto  0.028  0.136)
   (lineto  0.028  0.346)
   (lineto  0.000  0.346)
   (lineto  0.000 -0.180)
   (moveto  0.028 -0.074)
   (lineto  0.028  0.048)
   (lineto  0.142  0.078)
   (lineto  0.142 -0.046)
   (lineto  0.028 -0.074))

\markup{
  \hspace #5
  \ts
}

%{

Define 1/12 alterations.

%}

#(define-public TWELFTHSHARP 1/12)
#(define-public SIXTHSHARP 1/6)
#(define-public QUARTERSHARP 1/4)

twelfthTonePitchNames = #`(
  (c    . ,(ly:make-pitch -1 0 NATURAL))
  (cts  . ,(ly:make-pitch -1 0 TWELFTHSHARP))  
  (css  . ,(ly:make-pitch -1 0 SIXTHSHARP))  
  (cqs  . ,(ly:make-pitch -1 0 QUARTERSHARP)))

%% set pitch names.
pitchnames = \twelfthTonePitchNames
#(ly:parser-set-note-names twelfthTonePitchNames)

%{

Define missing glyphs

%}

#(define tsGlyph
  (make-path-stencil
   '(moveto  0.000 -0.180
     lineto  0.142 -0.142
     lineto  0.142 -0.402
     lineto  0.156 -0.582
     lineto  0.270 -0.296
     lineto  0.170 -0.402
     lineto  0.170  0.174
     lineto  0.028  0.136
     lineto  0.028  0.346
     lineto  0.000  0.346
     lineto  0.000 -0.180
     moveto  0.028 -0.074
     lineto  0.028  0.048
     lineto  0.142  0.078
     lineto  0.142 -0.046
     lineto  0.028 -0.074
     closepath)
   0.01
   -2
   -2
   #t))

twelfthToneGlyphs = #`((1/4  . "accidentals.sharp.slashslash.stem")
		       (1/6  . "accidentals.natural.arrowup")
		       (1/12 . "tsGlyph ")
		       (0 . "accidentals.natural"))

\layout {
  \context {
    \Score
    \override KeySignature.glyph-name-alist = \twelfthToneGlyphs
    \override Accidental.glyph-name-alist = \twelfthToneGlyphs
    \override AccidentalCautionary.glyph-name-alist = \twelfthToneGlyphs
    \override TrillPitchAccidental.glyph-name-alist = \twelfthToneGlyphs
    \override AmbitusAccidental.glyph-name-alist = \twelfthToneGlyphs
  }
}

\score {
  \relative c' { 
    \accidentalStyle dodecaphonic
    c cts css cqs} 
}