From 753921afc9481c191b9f6b20f06637477c81b03f Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 27 Oct 2006 15:33:56 +0000
Subject: [PATCH] * Documentation/topdocs/NEWS.tely (Top): add FretBoards
 example.

* input/regression/fret-boards.ly: new file.
---
 ChangeLog                       |  4 ++++
 Documentation/topdocs/NEWS.tely |  9 +++++++++
 input/regression/fret-boards.ly | 32 ++++++++++++++++++++++++++++++++
 ly/engraver-init.ly             |  2 ++
 4 files changed, 47 insertions(+)
 create mode 100644 input/regression/fret-boards.ly

diff --git a/ChangeLog b/ChangeLog
index 910e258a92..9ca4ca90a4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2006-10-27  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
+	* Documentation/topdocs/NEWS.tely (Top): add FretBoards example. 
+
+	* input/regression/fret-boards.ly: new file.
+
 	* po/de.po: new po courtesy translation team.
 
 	* scripts/lilypond-book.py (get_option_parser): add newline to doc string.
diff --git a/Documentation/topdocs/NEWS.tely b/Documentation/topdocs/NEWS.tely
index 23d05e5ac6..33f3510055 100644
--- a/Documentation/topdocs/NEWS.tely
+++ b/Documentation/topdocs/NEWS.tely
@@ -66,6 +66,15 @@ which scares away people.
 
 @end ignore
 
+@item The @code{FretBoards} context will generate guitar frettings
+automatically,
+
+@lilypond[fragment,relative=0,verbatim,ragged-right]
+\new FretBoards { <d\5 fis a d fis> }
+@end lilypond
+
+This feature was sponsored by Rick Hansen. 
+
 @item Horizontal and vertical spacing are now done at the same time
 so that pages are filled more evenly.
 
diff --git a/input/regression/fret-boards.ly b/input/regression/fret-boards.ly
new file mode 100644
index 0000000000..5c381b5b0f
--- /dev/null
+++ b/input/regression/fret-boards.ly
@@ -0,0 +1,32 @@
+
+\header {
+
+  texidoc = "Frets can be assigned automatically. The results will be
+best when one string number is indicated in advance "
+  
+}
+
+\version "2.9.27"
+
+foo = \relative c {
+  <d\5 fis a d fis>_\markup {
+    \fret-diagram-terse #"x;5;4;2;3;2;"
+  }
+}
+
+<<
+  \new FretBoards {
+    \set instrumentName = "autofrets"
+    \foo
+
+  }
+  \new Staff {
+    \clef "G_8"
+    \set stringNumberOrientations = #'(left)
+    \set fingeringOrientations = #'(right)
+    \foo
+  }
+
+>>
+
+
diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index b80ae738a3..1f4df05b1b 100644
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -21,7 +21,9 @@
   \consists "Fretboard_engraver"
   \consists "Separating_line_group_engraver"
   \consists "Font_size_engraver"
+  \consists "Instrument_name_engraver"
 }
+
 \context {
   \type "Engraver_group"
   \name "Staff"
-- 
2.39.5