X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-woodwind-diagrams.scm;h=f60ba5a43b10a26ae4a9833492fe5e88c9ae83bd;hb=bdff8baf5bce0c4c456ebbf292ba8fc771e4bd31;hp=501e63779a103d7be8a18b797da2941488b1c7c0;hpb=adc6cbf9a271370c1453bfca918f810d9f2906f1;p=lilypond.git diff --git a/scm/define-woodwind-diagrams.scm b/scm/define-woodwind-diagrams.scm index 501e63779a..f60ba5a43b 100644 --- a/scm/define-woodwind-diagrams.scm +++ b/scm/define-woodwind-diagrams.scm @@ -1,6 +1,6 @@ ;;;; This file is part of LilyPond, the GNU music typesetter. ;;;; -;;;; Copyright (C) 2010--2011 Mike Solomon +;;;; Copyright (C) 2010--2012 Mike Solomon ;;;; Clarinet drawings copied from diagrams created by ;;;; Gilles Thibault ;;;; @@ -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