From eb22037fdec0b2004e51c01ff2d498b851d580e8 Mon Sep 17 00:00:00 2001
From: Maximilian Albert <address@hidden>
Date: Sat, 20 Dec 2008 19:34:59 +0100
Subject: [PATCH] Documentation for arrowed accidentals

---
 Documentation/notation/pitches.itely |   50 ++++++++++++++++++++++++++++++++++
 1 files changed, 50 insertions(+), 0 deletions(-)

diff --git a/Documentation/notation/pitches.itely b/Documentation/notation/pitches.itely
index fce608a..7a3b83e 100644
--- a/Documentation/notation/pitches.itely
+++ b/Documentation/notation/pitches.itely
@@ -345,6 +345,56 @@ increasing pitches:
 ceseh1 ces ceh c cih cis cisih
 @end lilypond
 
address@hidden microtones
address@hidden arrowed accidental
address@hidden accidental, arrowed
+
+LilyPond supports arrowed accidentals which can be used to indicate
+microtonal alterations.  For English note names, simply add
address@hidden/@code{-up}, @code{-d}/@code{-down} or @code{-b}/@code{-both}
+to the regular note name (accidentals with bidirectional arrows exist
+for completeness, even though they do not correspond to any microtonal
+alteration).
+
address@hidden,quote]
+\include "english.ly"
+
+\relative c'' {
+  \set Staff.extraNatural = ##f
+  \time 3/4
+
+  csu csd csb cfu cfd cfb
+  csharpup csharpdown csharpboth cflatup cflatdown cflatboth
+}
address@hidden lilypond
+
+For other languages, no special note names have been defined yet, but
+it is possible to redefine the @code{glyph-name-alist} property of
address@hidden so that quartertones are automatically typeset using
+arrowed accidentals (alternatively, you can define your own note names
+within the @code{.ly} file itself; see @code{makam.ly} for boilerplate
+code).
+
address@hidden,quote]
+microAccs = #'((0 . "accidentals.natural")
+               (-1/2 . "accidentals.flat")
+               (1/2 . "accidentals.sharp")
+
+               (1 . "accidentals.doublesharp")
+               (-1 . "accidentals.flatflat")
+
+               (3/4 . "accidentals.sharp.arrowup")
+               (1/4 . "accidentals.sharp.arrowdown")
+               (-1/4 . "accidentals.flat.arrowup")
+               (-3/4 . "accidentals.flat.arrowdown"))
+
+\relative c'' {
+  #(set-accidental-style 'modern)
+  \override Accidental #'glyph-name-alist = #microAccs
+  cisih cih ceh ceseh
+}
address@hidden lilypond
+
 
 
 @cindex accidental, reminder
-- 
1.6.0.4