From 498d0148b2c2611a8d96549527a3c14fa6e9de04 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 12 Apr 2002 17:43:34 +0000
Subject: [PATCH] add some undocced properties. scm/grob-description.scm: idem.
---
ChangeLog | 5 +++++
Documentation/regression-test.tely | 4 ++--
Documentation/user/refman.itely | 6 ++++++
VERSION | 4 ++--
lily/bass-figure.cc | 7 -------
lily/chord-name.cc | 2 +-
lily/paper-column.cc | 2 +-
lily/rest.cc | 2 +-
lily/spacing-engraver.cc | 2 +-
ly/engraver-init.ly | 2 --
scm/bass-figure.scm | 8 +++++++-
scm/grob-description.scm | 5 ++---
scm/grob-property-description.scm | 3 +++
13 files changed, 31 insertions(+), 21 deletions(-)
delete mode 100644 lily/bass-figure.cc
diff --git a/ChangeLog b/ChangeLog
index 7e15defe40..e63be88edd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-12 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+
+ * lily/*.cc: add some undocced properties.
+ scm/grob-description.scm: idem.
+
2002-04-12 Heikki Junes <hjunes@cc.hut.fi>
* lilypond-font-lock.el: Handle slurs \( and \), numbers,
diff --git a/Documentation/regression-test.tely b/Documentation/regression-test.tely
index dfb26c99f1..3960ac9306 100644
--- a/Documentation/regression-test.tely
+++ b/Documentation/regression-test.tely
@@ -84,7 +84,7 @@ Accidentals are currently in a development stage.
@lilypondfile[printfilename]{glissando.ly}
-@lilypondfile[printfilename]{fingering.ly}
+@c @l ilypondfile[printfilename]{fingering.ly}
@section Dynamics
@@ -265,7 +265,7 @@ Grace note do weird things with timing. Fragile.
@lilypondfile[printfilename]{spacing-stem-same-direction.ly}
-@lilypondfile[printfilename]{spacing-individual-tuning.ly}
+@c @l ilypondfile[printfilename]{spacing-individual-tuning.ly}
@lilypondfile[printfilename]{spacing-note-flags.ly}
diff --git a/Documentation/user/refman.itely b/Documentation/user/refman.itely
index d0a5b015b6..01b9b8b1e9 100644
--- a/Documentation/user/refman.itely
+++ b/Documentation/user/refman.itely
@@ -1109,12 +1109,18 @@ Set @code{height} to zero, to get horizontal beams:
Here's how you'd specify a weird looking beam that instead of being
horizontal, falls two staff spaces:
+
+[FIXME]
+
+
@lilypond[fragment,relative,verbatim]
\property Voice.Beam \set #'staff-position = #4
\property Voice.Beam \set #'height = #-4
[c8 c]
@end lilypond
+[TODO: doc autokneeing ? ]
+
@c TODO -> why this ref? Document?
@cindex @code{neutral-direction}
diff --git a/VERSION b/VERSION
index 038f0d61bb..9917c63e22 100644
--- a/VERSION
+++ b/VERSION
@@ -1,8 +1,8 @@
PACKAGE_NAME=LilyPond
MAJOR_VERSION=1
MINOR_VERSION=5
-PATCH_LEVEL=51
-MY_PATCH_LEVEL=hjj4
+PATCH_LEVEL=52
+MY_PATCH_LEVEL=
# use the above to send patches: MY_PATCH_LEVEL is always empty for a
diff --git a/lily/bass-figure.cc b/lily/bass-figure.cc
deleted file mode 100644
index 7a6d962d81..0000000000
--- a/lily/bass-figure.cc
+++ /dev/null
@@ -1,7 +0,0 @@
-/*
- bass-figure.cc
- */
-
-
-
-
diff --git a/lily/chord-name.cc b/lily/chord-name.cc
index 1180eea826..620075396f 100644
--- a/lily/chord-name.cc
+++ b/lily/chord-name.cc
@@ -65,5 +65,5 @@ Chord_name::brew_molecule (SCM smob)
ADD_INTERFACE (Chord_name, "chord-name-interface",
"generate a chord name",
- "pitches chord inversion bass begin-of-line-visible");
+ "pitches chord chord-name-function inversion bass begin-of-line-visible");
diff --git a/lily/paper-column.cc b/lily/paper-column.cc
index c474e92af5..248af8cabf 100644
--- a/lily/paper-column.cc
+++ b/lily/paper-column.cc
@@ -128,4 +128,4 @@ Paper_column::brew_molecule (SCM p)
ADD_INTERFACE (Paper_column, "paper-column-interface",
"",
- "between-cols when bounded-by-me shortest-playing-duration shortest-starter-duration");
+ "between-cols between-system-string when bounded-by-me shortest-playing-duration shortest-starter-duration");
diff --git a/lily/rest.cc b/lily/rest.cc
index c0bd01d93f..efd28765da 100644
--- a/lily/rest.cc
+++ b/lily/rest.cc
@@ -119,5 +119,5 @@ Rest::extent_callback (SCM smob, SCM ax)
ADD_INTERFACE (Rest,"rest-interface",
"a rest",
- "style");
+ "style minimum-beam-collision-distance");
diff --git a/lily/spacing-engraver.cc b/lily/spacing-engraver.cc
index 1da3613a1f..9aa5e5421d 100644
--- a/lily/spacing-engraver.cc
+++ b/lily/spacing-engraver.cc
@@ -98,7 +98,7 @@ Spacing_engraver::acknowledge_grob (Grob_info i)
Pointer_group_interface::add_grob (spacing_p_, ly_symbol2scm ("wishes"), i.grob_l_);
}
- if (to_boolean (i.grob_l_->get_grob_property ("non-rhythmic")))
+ if (i.grob_l_->internal_has_interface (ly_symbol2scm ("lyric-syllable-interface")))
return;
/*
diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index 2f27452f13..08bc3fd780 100644
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -297,8 +297,6 @@ ChordNamesContext = \translator {
MinimumVerticalExtent = ##f
ExtraVerticalExtent = ##f
VerticalExtent = ##f
-
- VerticalAxisGroup \override #'invisible-staff = ##t
}
diff --git a/scm/bass-figure.scm b/scm/bass-figure.scm
index 63001abca2..3b84c6d7c9 100644
--- a/scm/bass-figure.scm
+++ b/scm/bass-figure.scm
@@ -31,6 +31,7 @@
+
(define (brew-bass-figure grob)
"Make a molecule for a Figured Bass grob"
(let* (
@@ -39,7 +40,7 @@
(padding (ly-get-grob-property grob 'padding))
(kerning (ly-get-grob-property grob 'kern))
(thickness (*
- (ly-get-paper-variable grob 'stafflinethickness)
+ (ly-get-paper-variable grob 'linethickness)
(ly-get-grob-property grob 'thickness))
)
)
@@ -83,3 +84,8 @@
mol
))
+
+(ly-add-interface
+'bass-figure-interface
+ "A bass figure, including bracket"
+ '(padding thickness ))
diff --git a/scm/grob-description.scm b/scm/grob-description.scm
index 7e4101ea20..2e848c7cdc 100644
--- a/scm/grob-description.scm
+++ b/scm/grob-description.scm
@@ -94,7 +94,7 @@
(padding . 0.1)
(kern . 0.2)
(thickness . 1.0)
- (meta . ((interfaces . (text-interface self-alignment-interface font-interface))))
+ (meta . ((interfaces . (text-interface bass-figure-interface self-alignment-interface font-interface))))
))
(Beam
. (
@@ -384,7 +384,6 @@
(molecule-callback . ,Text_item::brew_molecule)
(X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
(self-alignment-X . 0)
- (non-rhythmic . #t)
(word-space . 0.6)
(ignore-length-mismatch . #f)
(begin-alignment . 4)
@@ -574,7 +573,7 @@
(edge-height . (1.0 . 1.0))
(shorten-pair . (0.0 . 0.0))
(thickness . 1.0)
- (meta . ((interfaces . (piano-pedal-interface))))
+ (meta . ((interfaces . (text-spanner-interface piano-pedal-interface))))
))
(RepeatSlash
diff --git a/scm/grob-property-description.scm b/scm/grob-property-description.scm
index 4d00c8a28a..b44ba232d5 100644
--- a/scm/grob-property-description.scm
+++ b/scm/grob-property-description.scm
@@ -453,3 +453,6 @@ columns.
(grob-property-description 'grace-space-factor number? "space grace at this fraction of the increment.")
(grob-property-description 'position-callbacks list? "list of
functions set spanner positions.")
+(grob-property-description 'chord-name-function procedure? "DOCME")
+(grob-property-description 'minimum-beam-collision-distance number?
+"Minimum distance to beam for a rest collision.")
--
2.39.5