New treble clef defs

Ein leicht veränderter G-Schlüssel für Lilypond

• custom close-to-Score-look treble clef

Lilypond Score

%% New treble clef defs:
#(define-markup-command (G_Score layout props thk mlt) (number? number?)
  (interpret-markup layout props
   (markup 
    (#:stencil 
     (make-path-stencil
      '(M  1.117 -2.778 
        C  0.730 -2.782  0.363 -2.364 0.484 -1.981 
        C  0.566 -1.641  1.043 -1.540 1.285 -1.786 
        C  1.504 -1.997  1.418 -2.395 1.141 -2.513 
        C  0.996 -2.567  0.836 -2.583 1.090 -2.614 
        C  1.379 -2.673  1.703 -2.559 1.828 -2.278 
        C  1.969 -1.911  1.820 -1.395 1.766 -1.024 
        C  1.031 -1.169  0.277 -0.903 0.031 -0.196 
        C -0.129  0.323 -0.043  0.917 0.250  1.366 
        C  0.492  1.737  0.832  1.999 1.152  2.300 
        C  1.070  2.886  1.000  3.468 1.203  4.034 
        C  1.297  4.292  1.484  4.503 1.680  4.687 
        C  1.898  4.886  2.117  4.335 2.211  4.062 
        C  2.398  3.601  2.227  2.839 1.934  2.323 
        C  1.816  2.105  1.637  1.929 1.457  1.757 
        C  1.500  1.523  1.539  1.288 1.586  1.054 
        C  2.117  1.077  2.477  0.792 2.602  0.359 
        C  2.766 -0.134  2.516 -0.766 1.953 -0.977 
        C  2.004 -1.423  2.160 -1.927 2.004 -2.313 
        C  1.902 -2.567  1.656 -2.766 1.379 -2.778 
        C  1.293 -2.798  1.203 -2.790 1.117 -2.782 
        M  1.734 -0.919 
        C  1.621 -0.306  1.574  0.026 1.500  0.464 
        C  1.164  0.433  0.973  0.066 1.090 -0.220 
        C  1.141 -0.345  1.223 -0.407 1.359 -0.485 
        C  1.492 -0.563  1.387 -0.657 1.297 -0.618 
        C  1.031 -0.509  0.664 -0.188 0.758  0.269 
        C  0.816  0.569  1.059  0.917 1.398  1.023 
        C  1.359  1.261  1.332  1.378 1.297  1.612 
        C  0.887  1.234  0.332  0.753 0.348  0.155 
        C  0.363 -0.532  0.746 -1.071 1.734 -0.919 
        M  1.688  0.480 
        C  1.762  0.105  1.844 -0.509 1.926 -0.880 
        C  2.656 -0.462  2.438  0.534 1.688  0.480 
        M  2.016  3.776 
        C  1.984  4.378  1.691  4.058 1.500  3.706 
        C  1.313  3.366  1.273  2.894 1.352  2.468 
        C  1.945  3.066  2.031  3.409 2.016  3.776
        Z)
       thk mlt mlt #t)))))

clefGScore = \layout {
        \context {
          \Score 
          \override Clef.stencil = 
            #(lambda (grob) 
               (let* ((sz (ly:grob-property grob 'font-size 0)) 
                      (mlt (magstep sz))
                      (glyph (ly:grob-property grob 'glyph-name))) 
                     (cond
                      ((equal? glyph "clefs.G") 
                       (grob-interpret-markup grob 
                        (markup #:scale(cons mlt mlt)#:G_Score 0 1)))
                      ((equal? glyph "clefs.G_change") 
                       (grob-interpret-markup grob 
                        (markup #:scale(cons mlt mlt)#:G_Score .01 .8)))
                      (else (ly:clef::print grob)))))
           \override ClefModifier.clef-alignments = #'((G 0 . .4))
           % Optional:
           %\override ClefModifier.font-series = #'bold
        }
      }
%% defs end.      
	  
%% Test:
\clefGScore

\new PianoStaff << \new Staff{ c' } \new Staff { \clef F c } >>
{ \clef "G_8" c }
{ \clef "G^8" c'' }
{ \clef "G_15" c, }
{ \clef "G^15" c'''

}