Re: Big letters in note names.

[Heikki Johannes Junes]

On Fri, 2 Aug 2002, Han-Wen Nienhuys wrote:
> > \pitchnames #`(
> >     ...
> >         (c . ,(make-pitch -1 0 0 ))
> >     ...
> >         (C . ,(make-pitch -1 -7 0 )) % a Big Letter note
> >     ...
>
> Try (make-pitch -2 0 0)

It worked, see patch below. Now I will test to write some polyphonics.
Now my notes read: C, C c c' c'' etc.

Index: ChangeLog
===================================================================
RCS file: /cvsroot/lilypond/lilypond/ChangeLog,v
retrieving revision 1.368
diff -p -u -r1.368 ChangeLog
--- ChangeLog   2 Aug 2002 12:46:48 -0000       1.368
+++ ChangeLog   2 Aug 2002 15:17:59 -0000
@@ -1,3 +1,8 @@
+2002-08-02  Heikki Junes  <address@hidden>
+       * ly/suomi.cc: Add big note names.
+
+       * lilypond-font-lock.el: Fontify big note names, e.g., 'Fis'.
+
 2002-08-02  Han-Wen Nienhuys  <address@hidden>

        * lily/scm-option.cc: excorcise iostream.
Index: lilypond-font-lock.el
===================================================================
RCS file: /cvsroot/lilypond/lilypond/lilypond-font-lock.el,v
retrieving revision 1.20
diff -p -u -r1.20 lilypond-font-lock.el
--- lilypond-font-lock.el       3 Jun 2002 12:11:40 -0000       1.20
+++ lilypond-font-lock.el       2 Aug 2002 15:17:59 -0000
@@ -2,15 +2,15 @@

 ;; Copyright (C) 1992,1993,1994  Tim Peters

-;; Author: 2001: Heikki Junes
+;; Author: 2001-2002: Heikki Junes
 ;;  * Emacs-mode: new keywords, reserved words, identifiers, notenames,
 ;;    some dynamics and brackets are font-lock-keywords
 ;; Author: 1997: Han-Wen Nienhuys
 ;; Author: 1995-1996 Barry A. Warsaw
 ;;         1992-1994 Tim Peters
 ;; Created:       Feb 1992
-;; Version:       1.5.52
-;; Last Modified: 13APR2002
+;; Version:       1.5.70
+;; Last Modified: 2AUG2002
 ;; Keywords: lilypond languages music notation

 ;; This software is provided as-is, without express or implied
@@ -153,7 +153,7 @@
       (cons (concat "\\(" rwregex "\\)") 'font-lock-variable-name-face)

 ;; ... notes and rests, accidentals and duration (multiplied), e.g., b,?16.*3/4
-      '("\\(^\\|[ 
<\{[~(!)\t\\\|]\\)\\(\\(\\(\\(bb\\|as[ae]s\\|eses\\|\\(do\\|re\\|[ms]i\\|[fl]a\\|sol\\)\\(bb?\\|dd?\\|ss?\\)?\\)\\|\\([a-h]\\(\\(flat\\)+\\|\\(sharp\\)+\\|is\\(siss\\|i?s\\)?\\|es\\(sess\\|e?s\\)?\\|ff?\\|ss?\\)?\\)\\)[,']*[?!]?\\|[srR]\\)\\([
 \t]*\\(128\\|6?4\\|3?2\\|16?\\|8\\|\\\\breve\\)[.]*\\([ \t]*[*][ 
\t]*[0-9]+\\(/[1-9][0-9]*\\)?\\)?\\)?\\)" 2 font-lock-type-face)
+      '("\\(^\\|[ 
<\{[~(!)\t\\\|]\\)\\(\\(\\(\\([Bb]b\\|[Aa]s[ae]s\\|[Ee]ses\\|\\([Dd]o\\|[Rr]e\\|[MmSs]i\\|[FfLl]a\\|[Ss]ol\\)\\(bb?\\|dd?\\|ss?\\)?\\)\\|\\([a-hA-H]\\(\\(flat\\)+\\|\\(sharp\\)+\\|is\\(siss\\|i?s\\)?\\|es\\(sess\\|e?s\\)?\\|ff?\\|ss?\\)?\\)\\)[,']*[?!]?\\|[srR]\\)\\([
 \t]*\\(128\\|6?4\\|3?2\\|16?\\|8\\|\\\\breve\\)[.]*\\([ \t]*[*][ 
\t]*[0-9]+\\(/[1-9][0-9]*\\)?\\)?\\)?\\)" 2 font-lock-type-face)

 ;; "on top", ... '{[]}'-brackets
       '("\\([][}{]\\)" 0 font-lock-warning-face t)
Index: ly/suomi.ly
===================================================================
RCS file: /cvsroot/lilypond/lilypond/ly/suomi.ly,v
retrieving revision 1.2
diff -p -u -r1.2 suomi.ly
--- ly/suomi.ly 15 May 2002 11:47:38 -0000      1.2
+++ ly/suomi.ly 2 Aug 2002 15:17:59 -0000
@@ -5,6 +5,7 @@

 % 2001/08/28 Heikki Junes <address@hidden>
 %            added bb and marked heses as `unusual'
+% 2002/08/02 added big note names

 \pitchnames #`(
        (ceses . ,(make-pitch -1 0 -2 ))
@@ -44,5 +45,42 @@
        (h . ,(make-pitch -1 6 0 ))
        (his . ,(make-pitch -1 6 1 ))
        (hisis . ,(make-pitch -1 6 2 ))
+       (Ceses . ,(make-pitch -2 0 -2 ))
+       (Ces . ,(make-pitch -2 0 -1 ))
+       (C . ,(make-pitch -2 0 0 ))
+       (Cis . ,(make-pitch -2 0 1 ))
+       (Cisis . ,(make-pitch -2 0 2 ))
+       (Deses . ,(make-pitch -2 1 -2 ))
+       (Des . ,(make-pitch -2 1 -1 ))
+       (D . ,(make-pitch -2 1 0 ))
+       (Dis . ,(make-pitch -2 1 1 ))
+       (Disis . ,(make-pitch -2 1 2 ))
+       (Eses . ,(make-pitch -2 2 -2 ))
+       (Es . ,(make-pitch -2 2 -1 ))
+       (E . ,(make-pitch -2 2 0 ))
+       (Eis . ,(make-pitch -2 2 1 ))
+       (Eisis . ,(make-pitch -2 2 2 ))
+       (Feses . ,(make-pitch -2 3 -2 ))
+       (Fes . ,(make-pitch -2 3 -1 ))
+       (F . ,(make-pitch -2 3 0 ))
+       (Fis . ,(make-pitch -2 3 1 ))
+       (Fisis . ,(make-pitch -2 3 2 ))
+       (Geses . ,(make-pitch -2 4 -2 ))
+       (Ges . ,(make-pitch -2 4 -1 ))
+       (G . ,(make-pitch -2 4 0 ))
+       (Gis . ,(make-pitch -2 4 1 ))
+       (Gisis . ,(make-pitch -2 4 2 ))
+       (Asas . ,(make-pitch -2 5 -2 ))
+       (Ases . ,(make-pitch -2 5 -2 ))   ;;non-standard name for asas
+       (As . ,(make-pitch -2 5 -1 ))
+       (A . ,(make-pitch -2 5 0 ))
+       (Ais . ,(make-pitch -2 5 1 ))
+       (Aisis . ,(make-pitch -2 5 2 ))
+       (Bb . ,(make-pitch -2 6 -2 ))
+       (Heses . ,(make-pitch -2 6 -2 ))  ;;non-standard name for bb
+       (B . ,(make-pitch -2 6 -1 ))
+       (H . ,(make-pitch -2 6 0 ))
+       (His . ,(make-pitch -2 6 1 ))
+       (Hisis . ,(make-pitch -2 6 2 ))
 )
-\version "1.5.49"
+\version "1.5.70"

--
  Heikki Junes