X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-woodwind-diagrams.scm;h=29825fd5a5dc874f100e6f49e2c016d8fc44530b;hb=9780d79af0855706354029509cbb11464a63d901;hp=501e63779a103d7be8a18b797da2941488b1c7c0;hpb=adc6cbf9a271370c1453bfca918f810d9f2906f1;p=lilypond.git

diff --git a/scm/define-woodwind-diagrams.scm b/scm/define-woodwind-diagrams.scm
index 501e63779a..29825fd5a5 100644
--- a/scm/define-woodwind-diagrams.scm
+++ b/scm/define-woodwind-diagrams.scm
@@ -864,13 +864,13 @@ returns @samp{1/3}."
       CL-RH-H-STRETCH
       CL-RH-V-STRETCH))
 
-(define clarinet-rh-e-key-stencil
+(define clarinet-rh-gis-key-stencil
   (standard-path-stencil
     '((0.0 1.0 1.0 1.0 1.0 0.0) (1.0 -1.0 0.0 -1.0 0.0 0.0))
     CL-RH-H-STRETCH
     CL-RH-V-STRETCH))
 
-(define clarinet-rh-ees-key-stencil
+(define clarinet-rh-e-key-stencil
   (standard-path-stencil
     `(,(bezier-head-for-stencil
         '((0.0 .  0.0) (0.0 . -1.0) (1.0 . -1.0) (1.0 . 0.0))
@@ -887,9 +887,9 @@ returns @samp{1/3}."
     CL-RH-H-STRETCH
     CL-RH-V-STRETCH))
 
-(define clarinet-rh-gis-key-stencil clarinet-rh-e-key-stencil)
+(define clarinet-rh-f-key-stencil clarinet-rh-gis-key-stencil)
 
-(define bass-clarinet-rh-f-key-stencil
+(define bass-clarinet-rh-ees-key-stencil
   (standard-path-stencil
     `(,(bezier-head-for-stencil
         '((0.0 . 0.0) (0.0 . -1.0) (1.0 . -1.0) (1.0 . 0.0))
@@ -901,9 +901,9 @@ returns @samp{1/3}."
     CL-RH-H-STRETCH
     (- CL-RH-V-STRETCH)))
 
-(define low-bass-clarinet-rh-f-key-stencil clarinet-rh-ees-key-stencil)
+(define low-bass-clarinet-rh-ees-key-stencil clarinet-rh-e-key-stencil)
 
-(define clarinet-rh-d-key-stencil clarinet-rh-e-key-stencil)
+(define clarinet-rh-d-key-stencil clarinet-rh-gis-key-stencil)
 
 ;;; Saxophone family stencils