Feature request: 15-transposed clefs (fwd)

[Heikki Johannes Junes]

> Subject: Feature request: 15-transposed clefs

There was an easy workaround:

Index: VERSION
===================================================================
RCS  /cvsroot/lilypond/lilypond/VERSION,v
retrieving revision 1.483
diff -r1.483 VERSION
5c5
< MY_PATCH_LEVEL=cvs1
---
> MY_PATCH_LEVEL=hjj1
Index: ChangeLog
===================================================================
RCS  /cvsroot/lilypond/lilypond/ChangeLog,v
retrieving revision 1.1250
diff -r1.1250 ChangeLog
0a1,5
> 2003-08-18  Heikki Junes <address@hidden>
>
>       * lily/clef.cc, lily/clef-engraver.cc, scm/clef.scm,
>       scm/define-grobs.scm: add clefs with double octavation: G^15.
>
Index: lily/clef-engraver.cc
===================================================================
RCS  /cvsroot/lilypond/lilypond/lily/clef-engraver.cc,v
retrieving revision 1.86
diff -r1.86 clef-engraver.cc
102c102
<         Item * g = new Item (get_property ("OctavateEight"));
---
>         Item * g = new Item (get_property (abs (gh_scm2int (oct)) ==
>         14 ? "OctavateFifteen" : "OctavateEight"));
197c197
< /* creats*/       "Clef OctavateEight",
---
> /* creats*/       "Clef OctavateEight OctavateFifteen",
Index: scm/clef.scm
===================================================================
RCS  /cvsroot/lilypond/lilypond/scm/clef.scm,v
retrieving revision 1.19
diff -r1.19 clef.scm
112,114c112,114
<       (if (equal? "^" (substring cl (- l 2) (- l 1)))
<           (set! oct -7)
<           (set! oct 7))
---
>           (if (equal? "^" (substring cl (- l 2) (- l 1)))
>               (set! oct -7)
>               (set! oct 7))
116c116
<       (set! cl (substring cl 0 (- l 2)))))
---
>           (set! cl (substring cl 0 (- l 2))))
117a118,126
>         ;; ugh. cleanme
>         (if (equal? "5" (substring cl (- l 1) l))
>             (if (equal? "1" (substring cl (- l 2) (- l 1)))
>               (begin
>                   (if (equal? "^" (substring cl (- l 3) (- l 2)))
>                       (set! oct -14)
>                       (set! oct 14))
>
>                   (set! cl (substring cl 0 (- l 3)))))))
Index: scm/define-grobs.scm
===================================================================
RCS  /cvsroot/lilypond/lilypond/scm/define-grobs.scm,v
retrieving revision 1.22
diff -r1.22 define-grobs.scm
665a666,680
>     (OctavateFifteen
>      . (
>       (self-alignment-X . 0)
>       (text . "15")
>       (break-visibility . ,begin-of-line-visible)
>       (X-offset-callbacks .
>       (,Self_alignment_interface::centered_on_parent
>       ,Self_alignment_interface::aligned_on_self))
>       (Y-offset-callbacks . (,Side_position_interface::aligned_side))
>       (molecule-callback . ,brew-new-markup-molecule)
>       (font-shape . italic)
>       (padding . 0.4)
>       (font-relative-size . -2)
>       (font-family . roman)
>       (meta . ((interfaces . (text-interface self-alignment-interface
>       side-position-interface font-interface item-interface ))))
>       ))
>

Is it ok to apply this patch? It has already been tested to work.

  Heikki Junes