From: fred <fred>
Date: Wed, 27 Mar 2002 02:03:08 +0000 (+0000)
Subject: lilypond-1.5.14
X-Git-Tag: release/1.5.59~457
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6d92cb62685bb87505f41e6594fba1e168eb1b09;p=lilypond.git
lilypond-1.5.14
---
diff --git a/Documentation/user/refman.itely b/Documentation/user/refman.itely
index 10a69dcbfc..e9ba808c3c 100644
--- a/Documentation/user/refman.itely
+++ b/Documentation/user/refman.itely
@@ -1004,7 +1004,6 @@ beams) can be tweaked through grob-properties @code{height} and
span. Both are measured in half staff-spaces, @code{staff-position=0}
corresponds to the middle staff line.
-
Set @code{height} to zero, to get horizontal beams:
@lilypond[fragment,relative,verbatim]
@@ -1021,7 +1020,9 @@ horizontal, falls two staff spaces:
\property Voice.Beam \set #'height = #-4
[c8 c]
@end lilypond
-@cindex @code{default-neutral-direction}
+
+@c TODO -> why this ref? Document?
+@cindex @code{neutral-direction}
@node Expressive marks
@section Expressive marks
diff --git a/input/regression/stem-direction-down.ly b/input/regression/stem-direction-down.ly
index 857dea910d..74ecc47b3a 100644
--- a/input/regression/stem-direction-down.ly
+++ b/input/regression/stem-direction-down.ly
@@ -8,7 +8,7 @@ texidoc="Similarly, if @code{'neutral-direction} is set to @code{-1}. "
\score{
\notes\relative c{
- \property Voice.Stem \override #'default-neutral-direction = #-1
+ \property Voice.Stem \override #'neutral-direction = #-1
b''4 ~ b8()b8 e4 e,
}
diff --git a/input/test/beam-neutral-direction.ly b/input/test/beam-neutral-direction.ly
index 2e41028339..422b54bc66 100644
--- a/input/test/beam-neutral-direction.ly
+++ b/input/test/beam-neutral-direction.ly
@@ -3,7 +3,7 @@
fragment = \notes {
[b''8 b]
- \property Voice.Beam \set #'default-neutral-direction = #-1
+ \property Voice.Beam \set #'neutral-direction = #-1
[b b]
}
diff --git a/input/test/default-neutral-dir.ly b/input/test/default-neutral-dir.ly
index 2bbfff601a..11e51df31c 100644
--- a/input/test/default-neutral-dir.ly
+++ b/input/test/default-neutral-dir.ly
@@ -2,12 +2,12 @@
\header { texidoc = "
The direction of a perfectly centred beams can be
controlled through @code{Voice.Beam}'s grob-property
-@code{default-neutral-direction}
+directly@code{neutral-direction}
"}
\paper { linewidth = -1.}
\score {\notes \relative c {
[b''8 b]
- \property Voice.Beam \set #'default-neutral-direction = #-1
+ \property Voice.Beam \set #'neutral-direction = #-1
[b b]
}}
diff --git a/scm/backend-documentation-lib.scm b/scm/backend-documentation-lib.scm
index 63d2937e15..3ea5632c0b 100644
--- a/scm/backend-documentation-lib.scm
+++ b/scm/backend-documentation-lib.scm
@@ -11,6 +11,10 @@
;; alist of property descriptions
+;;;;;; TODO: sort out symbol vs. string stuff.
+;;;;;; TODO: use flatten write iso. string-append; might be possible to fold
+;;;;;; in symbol->string integrally.
+
(define (backend-property->texi sym)
(let* ((name (symbol->string sym))
(type (object-property sym 'backend-type?))
@@ -84,21 +88,21 @@
(node (grob-name name))
(texi-section 2 (grob-name name) #f)
"\n"
- (let* ((grob (string->symbol name))
+ (let* ((grob name)
(engravers (filter-list
(lambda (x) (engraver-makes-grob? name x)) all-engravers-list))
(engraver-names (map Translator::name engravers))
)
(string-append
- name " grobs are created by: "
+ (symbol->string name) " grobs are created by: "
(human-listify (map ref-ify
(map engraver-name engraver-names)))))
(apply string-append ifacedoc))))
-(define (engraver-makes-grob? name grav)
- (memq name (assoc 'grobs-created (Translator::description grav)))
+(define (engraver-makes-grob? name-symbol grav)
+ (memq name-symbol (assoc 'grobs-created (Translator::description grav)))
)
(define (document-all-grobs name)
diff --git a/scm/engraver-documentation-lib.scm b/scm/engraver-documentation-lib.scm
index 6183686e0c..e19bce865b 100644
--- a/scm/engraver-documentation-lib.scm
+++ b/scm/engraver-documentation-lib.scm
@@ -28,7 +28,7 @@
(name (Translator::name engraver))
(name-sym (string->symbol name))
(desc (cdr (assoc 'description (Translator::description engraver))))
- (grobs (cdr (assoc 'grobs-created (Translator::description engraver))))
+ (grobs (engraver-grobs engraver))
)
(string-append
@@ -141,14 +141,17 @@
(apply string-append
(map document-engraver-by-name consists))))))
-(define (engraver-grobs name)
+(define (engraver-grobs grav)
(let* (
- (eg (find-engraver-by-name name all-engravers-list))
- )
+ (eg (if (string? grav)
+ (find-engraver-by-name grav all-engravers-list)
+ grav))
+
+ )
(if (eq? eg #f)
'()
- (cdr (assoc 'grobs-created (Translator::description eg)))
+ (map symbol->string (cdr (assoc 'grobs-created (Translator::description eg))))
)
))
diff --git a/scm/generate-documentation.scm b/scm/generate-documentation.scm
index 5e3f8f805f..9dad6f22f9 100644
--- a/scm/generate-documentation.scm
+++ b/scm/generate-documentation.scm
@@ -1,4 +1,3 @@
-
;;; generate-documentation.scm -- Generate documentation
;;;
;;; source file of the GNU LilyPond music typesetter
@@ -30,7 +29,7 @@
(document-music "LilyPond music properties")
(document-paper "LilyPond interpretation contexts")
(document-all-engravers "LilyPond engravers")
- (document-all-engraver-properties "LilyPond context properties")
+ (document-all-engraver-properties "LilyPond context properties")
(document-all-grobs "LilyPond backend")
(document-all-interfaces "LilyPond interfaces")
(document-all-backend-properties "LilyPond backend properties")