---- ../lilypond-1.3.115.jcn1/CHANGES Thu Dec 7 22:22:26 2000
-++ b/CHANGES Fri Dec 8 14:26:00 2000
-@@ -1,3 +1,16 @@
1.3.115.jcn2
============
* Fixes to dynamic placement and crescendo spanners. Incomprehensible
``width-correct'' hack remains.
- 1.3.115.jcn1
- ============
- --- ../lilypond-1.3.115/CHANGES Mon Dec 4 17:42:18 2000
-++ b/CHANGES Thu Dec 7 22:22:26 2000
-@@ -1,3 +1,9 @@
-1.3.115.jcn1
-============
-
* Bugfix: auto-beamer beaming over bar lines.
* Bugfix: consecutive and non-consecutive glissandi.
-
-
- 1.3.114.mb1
+
1.3.115.hwn1
============
* Bugfix: multi-measure rest ends, chords.
+* Some back end documentation
+
+* Rename element to grob in .scm files.
+
1.3.114.mb1
===========
* Allow for instrument names with multiple lines and font selection,
see input/test/coriolan-margin.ly
-* Added example for figured bass: input/test/figbass.ly
+* Added example for figured bass: input/test/figured-bass.ly
1.3.114.lec1
============
- fix repeat bar behavior.
+1.3.115.hwn1
+============
+
+* documentation
+
+*
* cleaned up Directional_element_interface
* LilyPond internals::
* Overview::
* Request_engraver::
-* Backend::
* Coding standards::
* Making patches::
* Localisation::
To decide on merging, several engravers have been grouped. Please
check @file{init/engraver.ly}.
-@node Backend, , , Top
-
-
-
-@section The backend of LilyPond
-
-
-
-blah blah blah
-
-@menu
-* Graphic elements:: blah
-* Position and width Callbacks:: blah
-* Score_element properties:: blah
-* Score elements:: blah
-* Items:: blah
-* Spanners:: blah
-* Future work:: blah
-@end menu
-
-
-@node Graphic elements, , , Backend
-@unnumberedsubsec
-
-Music notation is composed of a sets of interrelated glyphs. In
-Lilypond every glyph usually is represented by one object, a so-called
-Graphic Object. The primary relations between graphic objects involve
-positions:
-
-@itemize @asis
-@item consecutive notes are printed left to right, grouped in a staff
-@item simultaneous notes are horizontally aligned (internally grouped in
-a paper column).
-@item the staccato mark is horizontally centered on the note it applies
-to.
-@end itemize
-
-The abstract encoding of such relations is done with the concept
-@dfn{reference point}. The reference point (in X direction) of the
-staccato mark is the note it applies to. The (X) position of the
-staccato mark is stored relative to the position of the note head. This
-means that the staccato will always maintain a fixed offset wrt to the
-note head, whereever the head is moved to.
-
-In the same vein, all notes on a staff have their Y positions stored
-relative to an object that groups the staff. If that object is moved,
-the absolute Y positions of all objects in that spanner change along, in
-effect causing the staff and all its contents to move as a whole.
-
-Each graphic object stores a pointer and an relative offset for each
-direction: one for the X-axis, one for the Y-axis. For example, the X
-parent of a Note_head usually is a Note_column. The X parent of a
-Note_column usually is either a Collision or a Paper_column. The X
-parent of a Collision usually is a Paper_column. If the Collision
-moves, all Note_heads that have that Collision as parent also move, but
-the absolute position of the Paper_column does not change.
-
-To build a graphical score with Graphic_elements, conceptually, one
-needs to have one Root object (in Lilypond: Line_of_score), and
-recursively attach objects to the Root. However, due to the nature
-of the context selection mechanisms, it turns out to be more
-advantageous to construct the tree the other way around: first small
-trees (note heads, barlines etc.) are created, and these are
-subsequently composed into larger trees, which are finally hung on a
-Paper_column (in X direction) or Line_of_score (in Y direction).
-
-The structure of the X,Y parent relations are determined by the
-engravers and notation contexts:
-
-The most important X-axis parent relation depends on the timing: notes
-that come earlier are attached to Paper_column that will be positioned
-more to the left.
-
-The most important Y-axis relation depends on containment of contexts:
-notes (created in a Thread or Voice context) are put in the staff where
-the originating context lives in.
-
-Graphical_axis_groups are special graphic objects, that are designed to
-function as a parent. The size of a Graphical_axis_groups group is the
-union of its children.
-
-@node Position and width Callbacks, , , Backend
-@unnumberedsubsec
-
-The positions are, as explained relative to a parent reference
-point. Most positions are not known when an object is created, so these
-are calculated as needed. This is done by adding a callback for a
-specific direction, eg
-
-@example
- Real
- my_translate (Score_element * ptr, Axis a)
- @{
- return 5.0 PT;
- @}
-
- [..]
- my_element->add_offset_callback (my_translate, Y_AXIS)
-@end example
-
-When a call is made to @code{my_element->relative_position (obj,
-Y_AXIS)}, @code{my_translate} will be called. The result is that
-my_element will be translated up by 5 pt. There are numerous callbacks,
-for example
-@itemize @bullet
-@item to offset element by staff-spaces (See class
-@code{Staff_symbol_referencer}).
-@item to align elements next to other groups of elements (See class
-@code{Side_position_interface})
-@item to
-@end itemize
-
-Offset callbacks can be stacked. The callbacks will be executed in the
-order that they were added.
-
-Width and height are similarly implemented using extent callbacks. There
-can be only one callback for each axis. No callback (the 0 ptr) means:
-"empty in this direction".
-
-@node Score_element properties, , , Backend
-@unnumberedsubsec
-
-Score elements can have other properties besides positioning, for
-example, text strings (for text objects) style settings, glyphs, padding
-settings (for scripts). These settings are stored in element properties.
-
-Properties are stored as GUILE association lists, with symbols as keys.
-Element properties can be accessed using the C++ functions
-
-@example
- SCM get_elt_property (SCM) const;
- void set_elt_property (const char * , SCM val);
- void set_immutable_elt_property (const char * , SCM val);
- void set_immutable_elt_property (SCM key, SCM val);
- void set_elt_property (SCM , SCM val);
- void set_elt_pointer (const char*, SCM val);
- SCM remove_elt_property (const char* nm);
-@end example
-
-All lookup functions identify undefined properties with GUILE
-end-of-list (ie. @code{'()} in Scheme or @code{SCM_EOL} in C)
-
-Implementation wise, there are two kinds of properties:
-
-@itemize @bullet
-@item mutable properties:
-element properties that change from object to object. The storage of
-these are private to a Score element. Typically this is used to store
-lists of pointers to other objects
-
-@item immutable properties:
-element properties that are shared across objects. The storage is
-shared, and hence is read-only. Typically, this is used to store
-function callbacks, and values for shared element properties are read
-from @file{ly/engraver.ly}.
-
-
-
-The following is from lily 1.3.80, and it shows the settings for the bar
-numbers: Bar numbers are breakable, and visible at the beginning of the
-line. The setting for @code{molecule-callback} indicates that Bar_number
-is implemented as a text.
-@example
- basicBarNumberProperties = #`(
- (molecule-callback . ,Text_item::brew_molecule)
- (breakable . #t)
- (visibility-lambda . ,begin-of-line-visible)
- )
-@end example
-@end itemize
-
-
-In 1.3.81 an music expression was added to add to the immutable property
-list, eg. like this:
-
-@example
- \pushproperty #'(basicBarNumberProperties)
- #'visibility-lambda #end-of-line-visible
-@end example
-
-This will add the entry @code{`(visibility-lambda .
-,end-of-line-visible)} to the immutable property list for bar numbers,
-in effect overriding the setting from @file{ly/engraver.ly}. This can be
-undone as follows
-
-@example
- \popproperty #'(basicBarNumberProperties)
- #'visibility-lambda
-@end example
-
-Note that you must accompany these statements with a proper context
-selection in most cases.
-
-
-
-
-
-
-@node Score elements, , , Backend
-@unnumberedsubsec
-
-[FIXME: we want to get rid of dependencies in the implementation.]
-
-Besides relative positions there are lots of other relations between
-elements. Lilypond does not contain other specialized relation
-management (Like the relative positioning code). Instead, objects can
-be connected through dependencies, which sets the order in which objects
-are to be processed.
-
-Example: the direction of a beamed stem should equal the direction of
-the beam. When the stem is a added to the beam, a dependency on the
-beam is set in the stem: this means that @code{Beam::do_pre_processing
-()} (which does various direction related things) will be called before
-@code{Stem::do_pre_processing ()}.
-
-The code that manages dependencies resides in the class
-@code{Score_element}, a derived class of @code{Graphical_element}. The
-bulk of the code handles line breaking related issues.
-
-To sketch the problems with line breaking: suppose a slur spans a line
-break,
-@example
-
-c4( c'''' c | \break d d )d
-
-@end example
-In this case, the slur will appear as two parts, the first part spanning
-the first three notes (the @code{c}s), the second spanning the last
-three (the @code{d}s). Within Lilypond this is modeled as breaking the
-slur in parts: from the Original slur, two new clones of the old slur
-are made. Initially both clones depend on the six notes. After the
-hairy code in Score_element, Spanner and Item which does substitutions
-in sets of dependencies, the first clone depends on the first three
-notes, the second on the last three.
-
-The major derived classes of Score_element are Item and Spanner.
-An item has one horizontal position. A spanner hangs on two items.
-
-@node Items, , , Backend
-@section Items
-
-
-
-An item is a score element that is associated with only one
-Paper_column. Examples are note heads, clefs, super and superscripts, etc.
-Item is a derived class of Score_element.
-
-The shape of an item is known before the break calculations, and line
-spacing depends on the size of items: very wide items need more space
-than very small ones.
-
-An additional complication is the behavior of items at linebreaks. For
-example, when you do a time signature change, you get only one symbol.
-If it occurs at a linebreak, the new time signature must be printed both
-before and after the linebreak. Other `breakable symbols' such as
-clefs, and bar lines also exhibit this behavior.
-
-if a line of music is broken, the next line usually gets a clef. So in
-TeX terms, the clef is a postbreak. The same thing happens with meter
-signs: Normally the meter follows the bar. If a line is broken at that
-bar, the bar along with the meter stays on the "last" line, but the next
-line also gets a meter sign after the clef. To support this,
-breakable items are generated in the three versions: original
-(unbroken), left (before line break) and right (after line break).
-During the line spacing, these versions are used to try how the spacing
-of a line works out.
-
-Once the definitive spacing is determined, dependencies (and various
-other pointers) are substituted such that all dependencies point at the
-active items: either they point at the original, or they point at left
-and right.
-
-@node Spanners, , , Backend
-@section Spanners
-
-Spanners are symbols that are of variable shape, eg. Slurs, beams, etc.
-Spanners is a derived class of Score_element.
-
-The final shape can only be determined after the line breaking process.
-All spanners are spanned on two items, called the left and right
-boundary item. The X reference point is the left boundary item.
-
-
-@node Future work, , , Backend
-@section Future work
-
-There are plans to unify Spanner and Item, so there will no longer be
-such a clear distinction between the two. Right now, Score_elements are
-always either Item or either Spanner.
-
@node Coding standards, , , Top
@chapter CodingStyle - standards while programming for GNU LilyPond
Macros should be written completely in uppercase
-The code should not be compilable if proper macro declarations are not
-included.
-
-Don't laugh. It took us a whole evening/night to figure out one of
-these bugs, because we had a macro that looked like
-@code{DECLARE_VIRTUAL_FUNCTIONS ()}.
-
@unnumberedsubsec Broken code
Broken code (hardwired dependencies, hardwired constants, slow
algorithms and obvious limitations) should be marked as such: either
with a verbose TODO, or with a short "ugh" comment.
-@unnumberedsubsec Comments
-
-The source is commented in the DOC++ style. Check out doc++ at
-@uref{http://www.zib.de/Visual/software/doc++/index.html}
-
-@example
-
- /*
- C style comments for multiline comments.
- They come before the thing to document.
- [...]
- */
-
- /**
- short description.
- Long class documentation.
- (Hungarian postfix)
-
- TODO Fix boring_member ()
- */
- class Class @{
- /**
- short description.
- long description
- */
-
- Data data_member_;
-
- /**
- short memo. long doco of member ()
- @@param description of arguments
- @@return Rettype
- */
- Rettype member (Argtype);
-
- /// memo only
- boring_member () @{
- data_member_ = 121; // ugh
- @}
- @};
-
-@end example
-
-
-Unfortunately most of the code isn't really documented that good.
-
@unnumberedsec Hungarian notation naming convention
Proposed is a naming convention derived from the so-called
* Sound output:: Sound output
* midilist:: midilist
* Grobs:: Graphical objects
-* Molecule:: Molecule
+* Molecule:: Molecules
* Pre-defined Identifiers:: Pre-defined Identifiers
@c May be fragile. Better make single link to generated doco?
* Interpretation contexts:(lilypond-internals)LilyPond interpretation contexts.
@end table
@node Grobs, , , Reference Manual
+@section Grobs
This section is about Grobs (short for Graphical Objects), which are
formatting objects used to create the final output. This material is
them involve Grobs in some form, this section explains some details of
how grobs work.
-Types of grob?
+@menu
+* What is a grob?::
+* Callbacks::
+* Setting grob properties::
+* Items and Spanners::
+* Pointer substitution::
+@end menu
+
+@node What is a grob?, , , Grobs
+
+All grobs have an X and Y-position on the page. These X and Y positions
+are stored in a relative format, so they can easily be combined by
+stacking them, hanging one grob to the side of another, and coupling
+them into a grouping-grob.
+
+Each grob has a reference point, or parent: the position of a grob is
+stored relative to that reference point. For example the X-reference
+point of a staccato dot usually is the note head that it applies
+to. Whenever the note head is moved, the staccato dot moves along
+automatically.
+
+If you keep following offset reference points, you will always end up at
+the root-object. This root object is called @code{Line_of_score}
+@ref{(lilypond-internals)Element Line_of_score}, and it represents a
+system (ie. a line of music).
+
+All grobs carry a set of grob-properties. In the Stem example above,
+the property @code{direction} is set to value @code{1}. The function
+that draws the symbol (@code{Stem::brew_molecule}) uses the value of
+@code{direction} to determine how to print the stem and the flag. The
+appearance of a grob is determined solely by the values of its
+properties.
+
+Often, a grob also is associated with a symbol. On the other hand, Some
+grobs do not print any symbols, but take care of grouping objects. For
+example, there is a separate grob that stacks staffs vertically, so they
+are not printed in overstrike. The NoteCollision @ref{(lilypond-internals)Element
+NoteCollision} is another example of an abstract grob. It only moves
+around chords, but doesn't print anything.
+
+A complete list of grob types is found in @ref{(lilypond-internals)Elements}
+
+Grobs are created in the "Interpreting music" phase, by things in
+LilyPond called engravers. In this phase of the translation, a load of
+grobs are created, and they are linked into a giant network of objects.
+This network of grobs forms the "specification" of the print
+problem. This problem is then solved: configurations, directions,
+dimensions, line breaks, etc. are calculated. Finally, the printing
+description in the form of Molecules (@ref{Molecule}) is extracted from
+the network. These are then dumped into the output file
+
+@node Callbacks, , , Grobs
+
+Offsets of grobs are relative to a parent reference point. Most
+positions are not known when an object is created, so these are
+calculated as needed. This is done by adding a callback for a specific
+direction.
+
+Suppose you have the following code in a .ly file.
+@example
+ #(define (my-callback gr axis)
+ (* 2.0 (get-gr-property grob 'direction))
+ )
+
+....
+
+ \property Voice.Stem \override #'Y-offset-callbacks = #(list
+ my-callback)
+@end example
+
+When the Y-offset of a Stem object is needed, LilyPond will
+automatically execute all callbacks for that object. In this case, it
+will find @code{my-callback}, and execute that. The result is that the
+stem is translated by two staff spaces in its direction.
+
+(note: Y-offset-callbacks is also a property)
+
+
+Offset callbacks can be stacked, ie.
+
+@example
+ \property .... \override #'Y-offset-callbacks = #(list
+ callback1 callback2 callback3)
+
+@end example
+
+The callbacks will be executed in the order callback3 callback2
+callback1. This is used for quantized positioning: the staccato dot is
+above or below a note head, and it must not be on a staff-line.
+
+To achieve this, for the staccato there are two callbacks: one callback
+that positions the grob above or below the note head, and one callback
+that rounds the Y-position of the grob to the nearest open space.
+
+Similarly, the size of a grob are determined through callbacks, settable
+with grob properties @code{X-extent-callback} and @code{Y-extent-callback}.
+There can be only one extent-callback for each axis. No callback (value #f)
+means: "empty in this direction". If you fill in a pair, that pair
+hard-codes the extent in that coordinate.
+
+
+@node Setting grob properties, , , Grobs
+
+Grob properties are stored as GUILE association lists, with symbols as
+keys. From C++, element properties can be accessed using the functions
+
+@example
+ SCM get_grob_property (SCM) const;
+ void set_grob_property (const char * , SCM val);
+ void set_immutable_grob_property (const char * , SCM val);
+ void set_immutable_grob_property (SCM key, SCM val);
+ void set_grob_property (SCM , SCM val);
+ void set_grob_pointer (const char*, SCM val);
+ SCM remove_grob_property (const char* nm);
+@end example
+
+In GUILE, LilyPond provides
+
+@example
+ ly-get-grob-property GROB SYMBOL
+ ly-set-grob-property GROB SYMBOL VALUE
+@end example
+
+All lookup functions identify undefined properties with
+end-of-list (ie. @code{'()} in Scheme or @code{SCM_EOL} in C)
+
+Properties are stored in two ways:
+@itemize @bullet
+@item mutable properties:
+element properties that change from object to object. The storage of
+these are private to a grob. Typically this is used to store lists of
+pointers to other grobs
+
+@item immutable properties:
+element properties that are shared across different grobs of the same
+type. The storage is shared, and hence it is read-only. Typically, this
+is used to store function callbacks, and values for shared element
+properties are read from @file{scm/element-description.scm}.
+@end itemize
+
+There are two ways to manually set grob properties.
+
+You can change immutable grob properties. This is done with the
+\override syntax:
+
+@example
+ \property Voice.Stem \override #'direction = #1
+@end example
+
+This will push the entry @code{'(direction . 1)} on the immutable
+property list for stems, in effect overriding the setting from
+@file{scm/element-description.scm}. This can be undone by
+
+@example
+ \property Voice.stem \revert #'direction
+@end example
+
+If you use this a lot, this gets old quickly. So we also have a
+shorthand,
+
+@example
+ \property Context.GrobType \set #'prop = #VAL
+@end example
+
+this does a @code{\revert} followed by a @code{\override}
+
+The second way is \outputproperty. This construct looks like
+
+@example
+ \context ContextName \outputproperty @var{pred} #@var{sym} = #@var{val}
+@end example
+
+In this case, in every grob that satisfies @var{pred}, the property
+assignment @var{sym} = @var{val} is done. For example
+
+@example
+ \outputproperty
+ #(lambda (gr) (string? (ly-get-grob-property gr
+ 'text)))
+ #'extra-offset = #'(-1.0 . 0.0)
+@end example
+
+This shifts all elements that have a @code{text} property one staff
+space to the left.
+
+@node Items and Spanners, , , Grobs
-What is a grob?
+Grobs can also be distinguished in their role in the horizontal spacing.
+A lot of grobs define constraints on the spacing by their sizes. For
+example, note heads, clefs, stems, and all other symbols with a fixed
+shape. These grobs form a subtype called @code{Item}.
-Where do they come from?
+Other grobs have a shape that depends on the horizontal spacing. For
+example, slur, beam, tie, etc. These grobs form a subtype called
+@code{Spanner}. All spanners have two span-points (these must be
+@code{Item}s), one on the left and one on the right. The left bound is
+also the X-reference point.
-How can you override?
+Some items need special treatment for line breaking. For example, a
+clef is normally only printed at the start of a line (ie. after a line
+break). To model this, `breakable' items (clef, key signature, bar lines,
+etc.) are copied twice. Then we have three versions of each breakable
+item: one version if there is no line break, one version that is printed
+before the line break (at the end of a system), one version that is
+printed after the line break.
-Items and Spanners?
+Whether these versions are visible and take up space, is determined by
+the outcome of the visibility-lambda. This is a function taking a
+direction (-1, 0 or 1) and returns a cons of booleans, signifying wether
+this grob should be transparent and invisible.
-X and Y parents, offsets and extents.
+@node Pointer substitution, , , Grobs
@node Molecule, , , Reference Manual
Internally these instructions are encoded in Molecules:@footnote{At some
point LilyPond also contained Atom-objects, but they have been replaced
by Scheme expressions.}. A molecule is an object that combines
-dimension information (how large is this ?) with what-to-print-where.
+dimension information (how large is this glyph ?) with
+what-to-print-where.
Conceptually, Molecules can be constructed from Scheme code, by
translating a Molecule and by combining two molecules. In BNF notation:
@end example
(refer to the C++ code for more details). All visible,
-ie. non-transparent, grobs have a function to create Molecule.
+ie. non-transparent, grobs have a callback to create a Molecule. The
+name of the property is @code{molecule-callback}, and its value should
+be a Scheme function taking one argument (the grob) and returning a
+Molecule.
PACKAGE_NAME=LilyPond
MAJOR_VERSION=1
MINOR_VERSION=3
-PATCH_LEVEL=115
-MY_PATCH_LEVEL=jcn2
+PATCH_LEVEL=116
+MY_PATCH_LEVEL=
# use the above to send patches: MY_PATCH_LEVEL is always empty for a
# released version.
+++ /dev/null
-\header{
-texidoc="
-Simple glissando lines between notes are supported.
-";
-}
-
-\score{
- <
- \context Staff=one \notes\relative c''{
- a \glissando e' \glissando a, \glissando
- \translator Staff=two
- a,,
- }
- \context Staff=two { \clef bass; \skip 1; }
- >
- \paper{
- linewidth = 70.\mm;
- }
-}
\ No newline at end of file
// FIXME: ecs tells us
width += gh_scm2double (me->get_grob_property ("width-correct"));
/* /Ugh */
-
-
-
-
if (width < 0)
{
protected:
virtual void acknowledge_grob (Grob_info i);
virtual bool try_music (Music*);
+ virtual void process_music ();
virtual void stop_translation_timestep ();
virtual void start_translation_timestep ();
virtual void finalize ();
}
void
-Multi_measure_rest_engraver::create_grobs ()
+Multi_measure_rest_engraver::process_music ()
{
- if (new_req_l_ && stop_req_l_)
+ if (new_req_l_ && stop_req_l_)
stop_req_l_ = 0;
if (new_req_l_)
new_req_l_ =0;
}
+}
+
+void
+Multi_measure_rest_engraver::create_grobs ()
+{
+
if (busy_span_req_l_ && !mmrest_p_)
{
mmrest_p_ = new Spanner (get_property ("MultiMeasureRest"));
{
typeset_grob (mmrest_p_);
/*
- must keep mmrest_p_ around to set measures_i_
+ we must keep mmrest_p_ around to set measure-count.
*/
}
if (lastrest_p_)
return 0;
}
+void
+print_alist (SCM a, SCM port)
+{
+ for (SCM s = a; gh_pair_p (s); s = gh_cdr (s))
+ {
+ scm_display (gh_caar (s), port);
+ scm_puts (" = ", port);
+ scm_write (gh_cdar (s), port);
+ scm_puts ("\n", port);
+ }
+}
+
int
Music::print_smob(SCM s, SCM p, scm_print_state*)
{
scm_puts ("#<Music ", p);
- scm_puts (classname(unsmob_music (s)),p);
+ Music* m = unsmob_music (s);
+ scm_puts (classname(m),p);
+
+ print_alist (m->mutable_property_alist_, p);
+ print_alist (m->immutable_property_alist_, p);
+
scm_puts (">",p);
return 1;
}
)
- \elementdescriptions #all-element-descriptions
+ \elementdescriptions #all-grob-descriptions
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% TODO: uniform naming.;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Begin3
Title: LilyPond
-Version: 1.3.115
-Entered-date: 04DEC00
+Version: 1.3.116
+Entered-date: 08DEC00
Description:
Keywords: music notation typesetting midi fonts engraving
Author: hanwen@cs.uu.nl (Han-Wen Nienhuys)
janneke@gnu.org (Jan Nieuwenhuizen)
Maintained-by: hanwen@stack.nl (Han-Wen Nienhuys)
Primary-site: sunsite.unc.edu /pub/Linux/apps/sound/convert
- 1000k lilypond-1.3.115.tar.gz
+ 1000k lilypond-1.3.116.tar.gz
Original-site: ftp.cs.uu.nl /pub/GNU/LilyPond/development/
- 1000k lilypond-1.3.115.tar.gz
+ 1000k lilypond-1.3.116.tar.gz
Copying-policy: GPL
End
%define info yes
Name: lilypond
-Version: 1.3.115
+Version: 1.3.116
Release: 1
License: GPL
Group: Applications/Publishing
-Source0: ftp.cs.uu.nl:/pub/GNU/LilyPond/development/lilypond-1.3.115.tar.gz
+Source0: ftp.cs.uu.nl:/pub/GNU/LilyPond/development/lilypond-1.3.116.tar.gz
Summary: A program for printing sheet music.
URL: http://www.cs.uu.nl/~hanwen/lilypond
# Icon: lilypond-icon.gif
((end * * 12 8) . ,(make-moment 3 8))
((end 1 16 12 8) . ,(make-moment 3 8))
((end 1 32 12 8) . ,(make-moment 1 8))
- (meta . ,(element-description "autoBeamSettings"))
+ (meta . ,(grob-description "autoBeamSettings"))
))
;;; Users may override in most cases, simply by issuing
desc)
))
-(define (document-element-property sym element-description only-doc-if-set)
+(define (document-grob-property sym grob-description only-doc-if-set)
(let*
(
- (handle (assoc sym element-description))
+ (handle (assoc sym grob-description))
(defval (if (eq? handle #f)
""
(scm->texi (cdr handle))
defval)))
))
-(define (document-interface where interface element-description)
+(define (document-interface where interface grob-description)
"
"
- (let* ((level (if (eq? where 'element) 3 2))
+ (let* ((level (if (eq? where 'grob) 3 2))
(name (car interface))
(desc (cadr interface))
(props (caddr interface))
(docfunc (lambda (x)
- (document-element-property
- x element-description (eq? where 'element))))
+ (document-grob-property
+ x grob-description (eq? where 'grob))))
(docs (map docfunc props))
)
(string-append
- (texi-section level (string-append (interface-name (symbol->string name))) (eq? where 'element)) ;gur.
+ (texi-section level (string-append (interface-name (symbol->string name))) (eq? where 'grob)) ;gur.
desc
(description-list->texi docs)
(node (interface-name name))
(document-interface 'self interface '()))))
-;; First level element description
-(define (document-element iname description)
+;; First level grob description
+(define (document-grob iname description)
(processing iname)
(let* ((metah (assoc 'meta description))
(name (cdr (assoc 'name meta)))
(ifaces (cdr (assoc 'interface-descriptions meta)))
- (ifacedoc (map (lambda (x) (document-interface 'element x description))
+ (ifacedoc (map (lambda (x) (document-interface 'grob x description))
(reverse ifaces))))
(string-append
- (node (element-name name))
- (texi-section 2 (element-name name) #f)
+ (node (grob-name name))
+ (texi-section 2 (grob-name name) #f)
"\n"
- (let* ((element (string->symbol name))
+ (let* ((grob (string->symbol name))
(engravers
(apply append
(map (lambda (x)
(let ((engraver (car x))
(objs (cadddr x)))
- (if (member element objs)
+ (if (member grob objs)
(list engraver)
'())))
engraver-description-alist))))
(string-append
- name " elements are created by: "
+ name " grobs are created by: "
(human-listify (map reffy (map engraver-name engravers)))))
(apply string-append ifacedoc))))
-(define (document-all-elements name)
+(define (document-all-grobs name)
(let* ((doc (apply string-append
- (map (lambda (x) (document-element (car x) (cdr x)))
- all-element-descriptions)))
- (names (map car all-element-descriptions)))
+ (map (lambda (x) (document-grob (car x) (cdr x)))
+ all-grob-descriptions)))
+ (names (map car all-grob-descriptions)))
(string-append
- (texi-node-menu name (map (lambda (x) (cons (element-name x) ""))
+ (texi-node-menu name (map (lambda (x) (cons (grob-name x) ""))
names))
doc)))
;; testin.. -- how to do this
(eval-string (ly-gulp-file "interface.scm"))
(define xinterface-description-alist
- `(
- (general-element . ,general-element-interface)
- (beam . ,beam-interface)
- (clef . ,clef-interface)
- (slur . ,slur-interface)
- ))
+ `(
+ (general-grob . ,general-grob-interface)
+ (beam . ,beam-interface)
+ (clef . ,clef-interface)
+ (slur . ,slur-interface)
+ ))
;; burp, need these for running outside of LilyPond
(if #f
(define all-backend-properties '())
-(define (elt-property-description symbol type? description)
+(define (grob-property-description symbol type? description)
(set-object-property! symbol 'backend-type? type?)
(set-object-property! symbol 'backend-doc description)
(set! all-backend-properties (cons symbol all-backend-properties))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(elt-property-description 'X-extent-callback procedure? "procedure taking an element and axis argument, returning a number-pair. The return value is the extent of the element.")
-(elt-property-description 'X-offset-callbacks list? "list of functions, each taking an element and axis argument. The function determine the position relative to this element's parent. The last one in the list is called first")
-(elt-property-description 'Y-extent-callback procedure? "see @code{X-extent-callback}")
-(elt-property-description 'Y-offset-callbacks list? "see @code{X-offset-callbacks}")
-(elt-property-description 'after-line-breaking-callback procedure? "Procedure taking graphical element as argument.
+(grob-property-description 'X-extent-callback procedure? "procedure taking an grob and axis argument, returning a number-pair. The return value is the extent of the grob.")
+(grob-property-description 'X-offset-callbacks list? "list of functions, each taking an grob and axis argument. The function determine the position relative to this grob's parent. The last one in the list is called first")
+(grob-property-description 'Y-extent-callback procedure? "see @code{X-extent-callback}")
+(grob-property-description 'Y-offset-callbacks list? "see @code{X-offset-callbacks}")
+(grob-property-description 'after-line-breaking-callback procedure? "Procedure taking a grob as argument.
This procedure is called (using dependency resolution) after line breaking. Return value is ignored")
-(elt-property-description 'align number? "the alignment of the text, 0 is horizontal, 1 is vertical")
-(elt-property-description 'align-dir dir? "Which side to align? -1: left side, 0: around center of width, 1: right side")
-(elt-property-description 'alignment-done boolean? "boolean to administrate whether we've done the alignment already (to ensure that the process is done only once)")
-(elt-property-description 'all-elements list? "list of all score elements in this line. Needed for protecting elements from GC.")
-(elt-property-description 'arch-angle number? "")
-(elt-property-description 'arch-height number? "")
-(elt-property-description 'arch-thick number? "")
-(elt-property-description 'arch-width number? "")
-(elt-property-description 'arithmetic-basicspace number? "")
-(elt-property-description 'arithmetic-multiplier number? "see arithmetic-basicspace")
-(elt-property-description 'attachment pair? "cons of symbols, '(LEFT-TYPE . RIGHT-TYPE), where both types may be alongside-stem, stem, head or loose-end")
-(elt-property-description 'attachment-offset pair? "cons of offsets, '(LEFT-offset . RIGHT-offset). This offset is added to the attachments to prevent ugly slurs.")
-(elt-property-description 'axes list? "list of axis numbers. Should contain only one number.")
-(elt-property-description 'axes list? "list of axis (number) in which this group works")
-(elt-property-description 'bar-size number? "")
-(elt-property-description 'bars list? "list of barline ptrs.")
-(elt-property-description 'barsize-procedure procedure? "how to compute the size of a bar line")
-(elt-property-description 'bass list? " musical-pitch, optional")
-(elt-property-description 'beam ly-grob? "pointer to the beam, if applicable")
-(elt-property-description 'beam-space-function procedure? "function returning space given multiplicity")
-(elt-property-description 'beam-space-function procedure? "function returning space given multiplicity")
-(elt-property-description 'beam-thickness number? "thickness, measured in staffspace")
-(elt-property-description 'beam-thickness number? "thickness, measured in staffspace")
-(elt-property-description 'beam-width number? "width of the tremolo sign")
-(elt-property-description 'beam-width number? "width of the tremolo sign")
-(elt-property-description 'beamed-lengths list? "list of stem lengths given beam multiplicity ")
-(elt-property-description 'beamed-minimum-lengths list? "list of minimum stem lengths given beam multiplicity")
-(elt-property-description 'beamed-stem-shorten number? "shorten beamed stems in forced direction")
-(elt-property-description 'beaming number-pair? "number of beams extending to left and right")
-(elt-property-description 'beams list? "list of beam ptrs.")
-(elt-property-description 'beautiful number? "number that dictates when a slur should be de-uglyfied. It correlates with the enclosed area between noteheads and slurs. A value of 0.1 yields only undisturbed slurs, a value of 5 will tolerate quite high blown slurs.")
-(elt-property-description 'before-grace-spacing-factor number? " stretch space this much if there are grace notes before the column")
-(elt-property-description 'before-line-breaking-callback procedure? "Procedure taking graphical element as argument.
+(grob-property-description 'align number? "the alignment of the text, 0 is horizontal, 1 is vertical")
+(grob-property-description 'align-dir dir? "Which side to align? -1: left side, 0: around center of width, 1: right side")
+(grob-property-description 'alignment-done boolean? "boolean to administrate whether we've done the alignment already (to ensure that the process is done only once)")
+(grob-property-description 'all-elements list? "list of all grobs in this line. Needed for protecting grobs from GC.")
+(grob-property-description 'arch-angle number? "")
+(grob-property-description 'arch-height number? "")
+(grob-property-description 'arch-thick number? "")
+(grob-property-description 'arch-width number? "")
+(grob-property-description 'arithmetic-basicspace number? "")
+(grob-property-description 'arithmetic-multiplier number? "see arithmetic-basicspace")
+(grob-property-description 'attachment pair? "cons of symbols, '(LEFT-TYPE . RIGHT-TYPE), where both types may be alongside-stem, stem, head or loose-end")
+(grob-property-description 'attachment-offset pair? "cons of offsets, '(LEFT-offset . RIGHT-offset). This offset is added to the attachments to prevent ugly slurs.")
+(grob-property-description 'axes list? "list of axis numbers. Should contain only one number.")
+(grob-property-description 'axes list? "list of axis (number) in which this group works")
+(grob-property-description 'bar-size number? "")
+(grob-property-description 'bars list? "list of barline ptrs.")
+(grob-property-description 'barsize-procedure procedure? "how to compute the size of a bar line")
+(grob-property-description 'bass list? " musical-pitch, optional")
+(grob-property-description 'beam ly-grob? "pointer to the beam, if applicable")
+(grob-property-description 'beam-space-function procedure? "function returning space given multiplicity")
+(grob-property-description 'beam-space-function procedure? "function returning space given multiplicity")
+(grob-property-description 'beam-thickness number? "thickness, measured in staffspace")
+(grob-property-description 'beam-thickness number? "thickness, measured in staffspace")
+(grob-property-description 'beam-width number? "width of the tremolo sign")
+(grob-property-description 'beam-width number? "width of the tremolo sign")
+(grob-property-description 'beamed-lengths list? "list of stem lengths given beam multiplicity ")
+(grob-property-description 'beamed-minimum-lengths list? "list of minimum stem lengths given beam multiplicity")
+(grob-property-description 'beamed-stem-shorten number? "shorten beamed stems in forced direction")
+(grob-property-description 'beaming number-pair? "number of beams extending to left and right")
+(grob-property-description 'beams list? "list of beam ptrs.")
+(grob-property-description 'beautiful number? "number that dictates when a slur should be de-uglyfied. It correlates with the enclosed area between noteheads and slurs. A value of 0.1 yields only undisturbed slurs, a value of 5 will tolerate quite high blown slurs.")
+(grob-property-description 'before-grace-spacing-factor number? " stretch space this much if there are grace notes before the column")
+(grob-property-description 'before-line-breaking-callback procedure? "Procedure taking grob as argument.
This procedure is called (using dependency resolution) before line breaking, but after generating discretionary items. Return value is ignored")
-(elt-property-description 'before-musical-spacing-factor number? "space before musical columns (eg. taken by accidentals) get this much
+(grob-property-description 'before-musical-spacing-factor number? "space before musical columns (eg. taken by accidentals) get this much
stretched when they follow a musical column, in absence of grace
notes. 0.0 means no extra space (accidentals are ignored)")
-(elt-property-description 'between-system-string string? "string
+(grob-property-description 'between-system-string string? "string
to dump between two systems. Useful for forcing pagebreaks")
-(elt-property-description 'bounded-by-me list? "list of spanners that have this
-column as start/begin point. Only columns that have elements or act as bounds are spaced.")
-(elt-property-description 'bracket-thick number? "")
-(elt-property-description 'bracket-width number? "")
-(elt-property-description 'break-align-symbol symbol? "the index in the spacing table (symbol) of the to be aligned item.")
-(elt-property-description 'break-glyph-function procedure? "function taking glyph and break-direction, returning the glyph at a line break")
-(elt-property-description 'breakable boolean? "boolean indicating if this is a breakable item (clef, barline, key sig, etc.)")
-(elt-property-description 'c0-position integer? "integer indicating the position of central C")
+(grob-property-description 'bounded-by-me list? "list of spanners that have this
+column as start/begin point. Only columns that have grobs or act as bounds are spaced.")
+(grob-property-description 'bracket-thick number? "")
+(grob-property-description 'bracket-width number? "")
+(grob-property-description 'break-align-symbol symbol? "the index in the spacing table (symbol) of the to be aligned item.")
+(grob-property-description 'break-glyph-function procedure? "function taking glyph and break-direction, returning the glyph at a line break")
+(grob-property-description 'breakable boolean? "boolean indicating if this is a breakable item (clef, barline, key sig, etc.)")
+(grob-property-description 'c0-position integer? "integer indicating the position of central C")
-(elt-property-description 'center-element ly-grob? "element which will
+(grob-property-description 'center-element ly-grob? "grob which will
be at the center of the group after aligning (when using
Align_interface::center_on_element). ")
-(elt-property-description 'collapse-height number? "")
-(elt-property-description 'column-space-strength number? "relative strength of space following breakable columns (eg. prefatory matter)")
-(elt-property-description 'columns list? "list of paper-columns")
-(elt-property-description 'columns list? " list of note-columns.")
-(elt-property-description 'columns list? "list of all paper columns")
-(elt-property-description 'contains-grace boolean? "Used to widen entries for grace notes.")
-(elt-property-description 'control-points list? "List of 4 offsets (number-pairs) controlling the tie shape")
-(elt-property-description 'control-points list? "[internal] control points of bezier curve")
-(elt-property-description 'damping integer? "amount of beam slope damping should beam slope be damped? 0: no, 1: yes, 100000: horizontal beams ")
-(elt-property-description 'damping number? "damping factor.")
-(elt-property-description 'dash-length number? "the length of a dash")
-(elt-property-description 'dash-period number? "the length of one dash + white space")
-(elt-property-description 'dashed number? "[FIXME: use dash-period/dash length; see text-spanner] number representing the length of the dashes.")
-(elt-property-description 'de-uglify-parameters list? "list of 3 real constants. They define the valid areas for the middle control points. Used in de_uglyfy. They are a bit empirical.")
-(elt-property-description 'default-neutral-direction dir? "Where to go if we're in the middle of the staff")
-(elt-property-description 'default-neutral-direction dir? "which
+(grob-property-description 'collapse-height number? "")
+(grob-property-description 'column-space-strength number? "relative strength of space following breakable columns (eg. prefatory matter)")
+(grob-property-description 'columns list? "list of paper-columns")
+(grob-property-description 'columns list? " list of note-columns.")
+(grob-property-description 'columns list? "list of all paper columns")
+(grob-property-description 'contains-grace boolean? "Used to widen entries for grace notes.")
+(grob-property-description 'control-points list? "List of 4 offsets (number-pairs) controlling the tie shape")
+(grob-property-description 'control-points list? "[internal] control points of bezier curve")
+(grob-property-description 'damping integer? "amount of beam slope damping should beam slope be damped? 0: no, 1: yes, 100000: horizontal beams ")
+(grob-property-description 'damping number? "damping factor.")
+(grob-property-description 'dash-length number? "the length of a dash")
+(grob-property-description 'dash-period number? "the length of one dash + white space")
+(grob-property-description 'dashed number? "[FIXME: use dash-period/dash length; see text-spanner] number representing the length of the dashes.")
+(grob-property-description 'de-uglify-parameters list? "list of 3 real constants. They define the valid areas for the middle control points. Used in de_uglyfy. They are a bit empirical.")
+(grob-property-description 'default-neutral-direction dir? "Where to go if we're in the middle of the staff")
+(grob-property-description 'default-neutral-direction dir? "which
direction to choose if we're in the middle of the staff ")
-(elt-property-description 'delta-y number? "amount of ascension")
-(elt-property-description 'dependencies list? "list of score-element pointers that indicate who to compute first for certain global passes")
-(elt-property-description 'details list? "alist of parameters for the curve shape")
-(elt-property-description 'details list? "alist containing contaning a few magic constants.")
-(elt-property-description 'dir-forced boolean? "set if direction has been forced; read by Beam.")
-(elt-property-description 'dir-function procedure? "function of type (count total)->direction. Default value: beam-dir-majority, also available: beam-dir-mean, beam-dir-median.")
-(elt-property-description 'dir-list list? "list of stem directions, needed for optical spacing correction.")
-(elt-property-description 'direction dir? "up or down, left or right?")
-(elt-property-description 'direction-source ly-grob? "in case side-relative-direction is set, which element to get the direction from ")
-(elt-property-description 'dot ly-grob? "reference to Dots object.")
-(elt-property-description 'dot-count integer? "number of dots")
-(elt-property-description 'duration-log integer? "2-log of the notehead duration")
-(elt-property-description 'duration-log integer? "log of the duration, ie. 0=whole note, 1 = half note, etc.")
-(elt-property-description 'edge-height pair? "a cons that specifies the heights of the vertical egdes '(LEFT-height . RIGHT-height)")
-(elt-property-description 'edge-text pair? "a cons that specifies the texts to be set at the edges '(LEFT-text . RIGHT-text)")
-(elt-property-description 'elements list? " -- list of items.")
-(elt-property-description 'elements list? "list of elements (NoteColumn,
+(grob-property-description 'delta-y number? "amount of ascension")
+(grob-property-description 'dependencies list? "list of score-grob pointers that indicate who to compute first for certain global passes")
+(grob-property-description 'details list? "alist of parameters for the curve shape")
+(grob-property-description 'details list? "alist containing contaning a few magic constants.")
+(grob-property-description 'dir-forced boolean? "set if direction has been forced; read by Beam.")
+(grob-property-description 'dir-function procedure? "function of type (count total)->direction. Default value: beam-dir-majority, also available: beam-dir-mean, beam-dir-median.")
+(grob-property-description 'dir-list list? "list of stem directions, needed for optical spacing correction.")
+(grob-property-description 'direction dir? "up or down, left or right?")
+(grob-property-description 'direction-source ly-grob? "in case side-relative-direction is set, which grob to get the direction from ")
+(grob-property-description 'dot ly-grob? "reference to Dots object.")
+(grob-property-description 'dot-count integer? "number of dots")
+(grob-property-description 'duration-log integer? "2-log of the notehead duration")
+(grob-property-description 'duration-log integer? "log of the duration, ie. 0=whole note, 1 = half note, etc.")
+(grob-property-description 'edge-height pair? "a cons that specifies the heights of the vertical egdes '(LEFT-height . RIGHT-height)")
+(grob-property-description 'edge-text pair? "a cons that specifies the texts to be set at the edges '(LEFT-text . RIGHT-text)")
+(grob-property-description 'elements list? " -- list of items.")
+(grob-property-description 'elements list? "list of grobs (NoteColumn,
generally) participating in the collision. The
@code{rest-collision} property in @code{elements} is set
to a pointer to the collision")
-(elt-property-description 'elements list? "to be aligned elements ")
-(elt-property-description 'expand-limit integer? "maximum number of measures expanded in church rests")
-(elt-property-description 'extra-extent-X number-pair? "enlarge in X dimension by this much, measured in staff space")
-(elt-property-description 'extra-extent-Y number-pair? "see @code{extra-extent-Y}")
-(elt-property-description 'extra-offset number-pair? "pair of reals (a cons) forcing an extra offset before outputting")
-(elt-property-description 'extra-space number-pair? "pair of distances")
-(elt-property-description 'extra-space number-pair? "(cons LEFT RIGHT)")
-(elt-property-description 'extremity-offset-alist list? "an alist (attachment stem-dir*dir slur-dir*dir) -> offset. The offset adds to the centre of the notehead, or stem.")
+(grob-property-description 'elements list? "to be aligned grobs ")
+(grob-property-description 'expand-limit integer? "maximum number of measures expanded in church rests")
+(grob-property-description 'extra-extent-X number-pair? "enlarge in X dimension by this much, measured in staff space")
+(grob-property-description 'extra-extent-Y number-pair? "see @code{extra-extent-Y}")
+(grob-property-description 'extra-offset number-pair? "pair of reals (a cons) forcing an extra offset before outputting")
+(grob-property-description 'extra-space number-pair? "pair of distances")
+(grob-property-description 'extra-space number-pair? "(cons LEFT RIGHT)")
+(grob-property-description 'extremity-offset-alist list? "an alist (attachment stem-dir*dir slur-dir*dir) -> offset. The offset adds to the centre of the notehead, or stem.")
-(elt-property-description 'extremity-rules list? "an alist (procedure
+(grob-property-description 'extremity-rules list? "an alist (procedure
slur dir) -> attachment to determine the attachment (see above). If
procedure returns #t, attachment is used. Otherwise, the next
procedure is tried.")
-(elt-property-description 'flag-style string? "")
-(elt-property-description 'flag-width-function procedure? "")
-(elt-property-description 'font-family symbol? "partial font
+(grob-property-description 'flag-style string? "")
+(grob-property-description 'flag-width-function procedure? "")
+(grob-property-description 'font-family symbol? "partial font
definition: music roman braces dynamic math ...")
-(elt-property-description 'font-name symbol? "partial font definition:
+(grob-property-description 'font-name symbol? "partial font definition:
base name of font file FIXME: should override other partials")
-(elt-property-description 'font-point-size number? "partial font definition: exact font size in points FIXME: should override font-relative-size")
-(elt-property-description 'font-relative-size number? "partial font definition: the relative size, 0 is style-sheet's normal size, -1 is smaller, +1 is bigger")
-(elt-property-description 'font-relative-size integer? "")
-(elt-property-description 'font-series symbol? "partial font definition: medium, bold")
-(elt-property-description 'font-shape symbol? "partial font definition: upright or italic")
+(grob-property-description 'font-point-size number? "partial font definition: exact font size in points FIXME: should override font-relative-size")
+(grob-property-description 'font-relative-size number? "partial font definition: the relative size, 0 is style-sheet's normal size, -1 is smaller, +1 is bigger")
+(grob-property-description 'font-relative-size integer? "")
+(grob-property-description 'font-series symbol? "partial font definition: medium, bold")
+(grob-property-description 'font-shape symbol? "partial font definition: upright or italic")
-(elt-property-description 'font-style symbol? "a precooked set of font
+(grob-property-description 'font-style symbol? "a precooked set of font
definitions, eg. finger volta timesig mark script large Large
dynamic")
-(elt-property-description 'force-hshift number? "amount of
+(grob-property-description 'force-hshift number? "amount of
collision_note_width that overides automatic collision settings. This
is used by @ref{note-collision-interface}")
-(elt-property-description 'fraction number-pair? "")
-(elt-property-description 'full-size-change boolean? "if set, don't make a change clef smaller.")
+(grob-property-description 'fraction number-pair? "")
+(grob-property-description 'full-size-change boolean? "if set, don't make a change clef smaller.")
-(elt-property-description 'glyph symbol? "a string determining what (style) of glyph is typeset. Valid choices depend on the function that is reading this property. ")
-(elt-property-description 'gap number? "Size of a gap in a variable symbol")
-(elt-property-description 'glyph-name string? "a name of character within font")
+(grob-property-description 'glyph symbol? "a string determining what (style) of glyph is typeset. Valid choices depend on the function that is reading this property. ")
+(grob-property-description 'gap number? "Size of a gap in a variable symbol")
+(grob-property-description 'glyph-name string? "a name of character within font")
-(elt-property-description 'grow-direction dir? "crescendo or decrescendo?")
-(elt-property-description 'hair-thickness number? "thickness, measured in stafflinethickness")
-(elt-property-description 'heads pair? "pair of element pointers, pointing to the two heads of the tie. ")
-(elt-property-description 'heads list? "list of note heads")
-(elt-property-description 'height number? "in staffspace ")
-(elt-property-description 'height-quants procedure? "function of type (beam staff-line-thickness) -> list of quants. Default value: default-beam-dy-quants.
+(grob-property-description 'grow-direction dir? "crescendo or decrescendo?")
+(grob-property-description 'hair-thickness number? "thickness, measured in stafflinethickness")
+(grob-property-description 'heads pair? "pair of grob pointers, pointing to the two heads of the tie. ")
+(grob-property-description 'heads list? "list of note heads")
+(grob-property-description 'height number? "in staffspace ")
+(grob-property-description 'height-quants procedure? "function of type (beam staff-line-thickness) -> list of quants. Default value: default-beam-dy-quants.
")
-(elt-property-description 'horizontal-shift integer? "integer that identifies ranking of note-column for horizontal shifting. This is used by @ref{note-collision-interface}")
-(elt-property-description 'horizontal-space number? "amount of space to add after a note (in staff-space)")
-(elt-property-description 'ideal-distances list? "(OBJ . (DIST . STRENGTH)) pairs")
-(elt-property-description 'interfaces list? "list of symbols indicating the interfaces supported by this object. Is initialized from the @code{meta} field.")
-(elt-property-description 'inversion list? " musical-pitch, optional")
-(elt-property-description 'items-worth-living list? "list of interesting items. If empty in a particular system, clear that system.")
-(elt-property-description 'kern number? "amount of extra white space to add before text. This is `relative'(?) to the current alignment.")
-(elt-property-description 'kern number? "space after a thick line")
-(elt-property-description 'left-padding number? "space left of accs")
-(elt-property-description 'lengths list? "Stem length given multiplicity of flag")
-(elt-property-description 'line-count integer? "Number of staff lines")
-(elt-property-description 'line-thickness number? "the thickness[stafflinethickness] of the line")
-(elt-property-description 'lookup symbol? "lookup method: 'value for plain text, 'name for character-name")
-(elt-property-description 'magnify number? "the magnification factor. FIXME: doesn't work for feta fonts")
-(elt-property-description 'maximum-duration-for-spacing moment? "space as if a duration of this type is available in this measure.")
-(elt-property-description 'maximum-rest-count integer? "kill off rests so we don't more than this number left.")
-(elt-property-description 'merge-differently-dotted boolean? " Merge noteheads in collisions, even if they have a different number of dots. This normal notation for some types of polyphonic music. The value of this setting is used by @ref{note-collision-interface} ")
-(elt-property-description 'minimum-distance number? "minimum distance between notes and rests.")
-(elt-property-description 'minimum-distances list? "list of rods (ie. (OBJ . DIST) pairs)")
-(elt-property-description 'minimum-extent-X number-pair? "minimum size in X dimension, measured in staff space")
-(elt-property-description 'minimum-extent-Y number-pair? "see @code{minimum-extent-Y}")
-(elt-property-description 'minimum-length number? "minimum length in staffspace")
+(grob-property-description 'horizontal-shift integer? "integer that identifies ranking of note-column for horizontal shifting. This is used by @ref{note-collision-interface}")
+(grob-property-description 'horizontal-space number? "amount of space to add after a note (in staff-space)")
+(grob-property-description 'ideal-distances list? "(OBJ . (DIST . STRENGTH)) pairs")
+(grob-property-description 'interfaces list? "list of symbols indicating the interfaces supported by this object. Is initialized from the @code{meta} field.")
+(grob-property-description 'inversion list? " musical-pitch, optional")
+(grob-property-description 'items-worth-living list? "list of interesting items. If empty in a particular system, clear that system.")
+(grob-property-description 'kern number? "amount of extra white space to add before text. This is `relative'(?) to the current alignment.")
+(grob-property-description 'kern number? "space after a thick line")
+(grob-property-description 'left-padding number? "space left of accs")
+(grob-property-description 'lengths list? "Stem length given multiplicity of flag")
+(grob-property-description 'line-count integer? "Number of staff lines")
+(grob-property-description 'line-thickness number? "the thickness[stafflinethickness] of the line")
+(grob-property-description 'lookup symbol? "lookup method: 'value for plain text, 'name for character-name")
+(grob-property-description 'magnify number? "the magnification factor. FIXME: doesn't work for feta fonts")
+(grob-property-description 'maximum-duration-for-spacing moment? "space as if a duration of this type is available in this measure.")
+(grob-property-description 'maximum-rest-count integer? "kill off rests so we don't more than this number left.")
+(grob-property-description 'merge-differently-dotted boolean? " Merge noteheads in collisions, even if they have a different number of dots. This normal notation for some types of polyphonic music. The value of this setting is used by @ref{note-collision-interface} ")
+(grob-property-description 'minimum-distance number? "minimum distance between notes and rests.")
+(grob-property-description 'minimum-distances list? "list of rods (ie. (OBJ . DIST) pairs)")
+(grob-property-description 'minimum-extent-X number-pair? "minimum size in X dimension, measured in staff space")
+(grob-property-description 'minimum-extent-Y number-pair? "see @code{minimum-extent-Y}")
+(grob-property-description 'minimum-length number? "minimum length in staffspace")
-(elt-property-description 'minimum-length number? "try to make the
+(grob-property-description 'minimum-length number? "try to make the
hyphens at least this long. Also works as a scaling parameter for the
length")
;; FIXME.
-(elt-property-description 'minimum-space number-pair? "(cons LEFT RIGHT)")
-(elt-property-description 'minimum-space number? "minimum distance that the victim should move (after padding)")
+(grob-property-description 'minimum-space number-pair? "(cons LEFT RIGHT)")
+(grob-property-description 'minimum-space number? "minimum distance that the victim should move (after padding)")
-(elt-property-description 'minimum-width number? "minimum-width of rest symbol, in staffspace")
-(elt-property-description 'molecule-callback procedure? "Function taking graphical element as argument, returning a Scheme encoded Molecule.")
-(elt-property-description 'new-accidentals list? "list of (pitch, accidental) pairs")
-(elt-property-description 'no-spacing-rods boolean? "read from elements: boolean that makes Separation_item ignore this item (MOVE ME TO ITEM)")
-(elt-property-description 'non-default boolean? "not set because of existence of a bar?")
-(elt-property-description 'note-width 'number? "unit for horizontal translation, measured in staff-space.")
-(elt-property-description 'number-gap number? "")
-(elt-property-description 'old-accidentals list? "list of (pitch, accidental) pairs")
-(elt-property-description 'origin ly-input-location? "location in input file of the definition")
-(elt-property-description 'outer-stem-length-limit number? "catch
+(grob-property-description 'minimum-width number? "minimum-width of rest symbol, in staffspace")
+(grob-property-description 'molecule-callback procedure? "Function taking grob as argument, returning a Scheme encoded Molecule.")
+(grob-property-description 'new-accidentals list? "list of (pitch, accidental) pairs")
+(grob-property-description 'no-spacing-rods boolean? "read from grobs: boolean that makes Separation_item ignore this item (MOVE ME TO ITEM)")
+(grob-property-description 'non-default boolean? "not set because of existence of a bar?")
+(grob-property-description 'note-width 'number? "unit for horizontal translation, measured in staff-space.")
+(grob-property-description 'number-gap number? "")
+(grob-property-description 'old-accidentals list? "list of (pitch, accidental) pairs")
+(grob-property-description 'origin ly-input-location? "location in input file of the definition")
+(grob-property-description 'outer-stem-length-limit number? "catch
suspect beam slopes, set slope to zero if outer stem is lengthened
more than this (in staffspace)")
-(elt-property-description 'padding number? "add this much extra space between objects that are next to each other")
+(grob-property-description 'padding number? "add this much extra space between objects that are next to each other")
-(elt-property-description 'parallel-beam boolean? "internal: true if there is a beam just as wide as the bracket ")
-(elt-property-description 'pitches list? "list of musical-pitch")
-(elt-property-description 'raise number? "height for text to be raised (a negative value lowers the text")
-(elt-property-description 'right-padding number? "space right of accs")
-(elt-property-description 'right-trim-amount number? "")
-(elt-property-description 'script-priority number? "A sorting key that determines in what order a script is within a stack of scripts")
-(elt-property-description 'self-alignment-X number? "real number: -1 =
+(grob-property-description 'parallel-beam boolean? "internal: true if there is a beam just as wide as the bracket ")
+(grob-property-description 'pitches list? "list of musical-pitch")
+(grob-property-description 'raise number? "height for text to be raised (a negative value lowers the text")
+(grob-property-description 'right-padding number? "space right of accs")
+(grob-property-description 'right-trim-amount number? "")
+(grob-property-description 'script-priority number? "A sorting key that determines in what order a script is within a stack of scripts")
+(grob-property-description 'self-alignment-X number? "real number: -1 =
left aligned, 0 = center, 1 right-aligned in X direction.
- Set to an element pointer, if you want that element to be the center.
-In this case, the center element should have this object as a
+ Set to an grob pointer, if you want that grob to be the center.
+In this case, the center grob should have this object as a
reference point.
")
-(elt-property-description 'self-alignment-Y number? "like self-alignment-X but for Y axis")
-(elt-property-description 'shortest-playing-duration moment? "duration of the shortest playing in that column.")
-(elt-property-description 'shortest-starter-duration moment? "duration of the shortest notes that starts exactly in this column.")
-(elt-property-description 'side-relative-direction dir? "if set: get the direction from a different object, and multiply by this.")
-(elt-property-description 'side-support list? "the support, a list of score elements")
-(elt-property-description 'slope-limit number? "set slope to zero if slope is running away steeper than this.")
-(elt-property-description 'space-function procedure? "function of type multiplicity -> real (in staffspace)")
-(elt-property-description 'spacing-procedure procedure? "procedure
-taking graphical element as argument. This is called after
+(grob-property-description 'self-alignment-Y number? "like self-alignment-X but for Y axis")
+(grob-property-description 'shortest-playing-duration moment? "duration of the shortest playing in that column.")
+(grob-property-description 'shortest-starter-duration moment? "duration of the shortest notes that starts exactly in this column.")
+(grob-property-description 'side-relative-direction dir? "if set: get the direction from a different object, and multiply by this.")
+(grob-property-description 'side-support list? "the support, a list of grobs")
+(grob-property-description 'slope-limit number? "set slope to zero if slope is running away steeper than this.")
+(grob-property-description 'space-function procedure? "function of type multiplicity -> real (in staffspace)")
+(grob-property-description 'spacing-procedure procedure? "procedure
+taking grob as argument. This is called after
before-line-breaking-callback, but before the actual line breaking
itself. Return value is ignored")
-(elt-property-description 'stacking-dir dir? "stack contents of elements in which direction ?")
-(elt-property-description 'staff-space number? "Amount of line leading relative to global staffspace")
-(elt-property-description 'staffline-clearance number? "don't get closer than this to stafflines.")
-(elt-property-description 'stem ly-grob? "pointer to the stem object.")
-(elt-property-description 'stem ly-grob? "pointer to Stem object")
-(elt-property-description 'stem-centered boolean? "Center stems on note heads. Useful for mensural notation")
-(elt-property-description 'stem-end-position number? "Where does the stem end (the end is opposite to the support-head")
-(elt-property-description 'stem-length number? "length of stem")
-(elt-property-description 'stem-shorten list? "shorten stems in forced directions given flag multiplicity")
-(elt-property-description 'stem-spacing-correction number? "optical correction amount.")
-(elt-property-description 'stems list? "list of stem objects, corresponding to the notes that the arpeggio has to be before.")
-(elt-property-description 'stretch-distance number-pair? "pair of distances")
-(elt-property-description 'style symbol? "a string determining what style of glyph is typeset. Valid choices depend on the function that is reading this property. ")
-(elt-property-description 'support-head ly-grob? "the note head at
+(grob-property-description 'stacking-dir dir? "stack contents of grobs in which direction ?")
+(grob-property-description 'staff-space number? "Amount of line leading relative to global staffspace")
+(grob-property-description 'staffline-clearance number? "don't get closer than this to stafflines.")
+(grob-property-description 'stem ly-grob? "pointer to the stem object.")
+(grob-property-description 'stem ly-grob? "pointer to Stem object")
+(grob-property-description 'stem-centered boolean? "Center stems on note heads. Useful for mensural notation")
+(grob-property-description 'stem-end-position number? "Where does the stem end (the end is opposite to the support-head")
+(grob-property-description 'stem-length number? "length of stem")
+(grob-property-description 'stem-shorten list? "shorten stems in forced directions given flag multiplicity")
+(grob-property-description 'stem-spacing-correction number? "optical correction amount.")
+(grob-property-description 'stems list? "list of stem objects, corresponding to the notes that the arpeggio has to be before.")
+(grob-property-description 'stretch-distance number-pair? "pair of distances")
+(grob-property-description 'style symbol? "a string determining what style of glyph is typeset. Valid choices depend on the function that is reading this property. ")
+(grob-property-description 'support-head ly-grob? "the note head at
one end of the stem")
-(elt-property-description 'text markup? "
+(grob-property-description 'text markup? "
Scheme markup text. It is defined as follows:
@example
@end example
So, TEXT is either a string, or a list of which the CAR is a MARKUP.
-MARKUP is either a CONS: an element property '(key . value) or a symbol:
-a predefined abbreviation for a list of element properties.
+MARKUP is either a CONS: an grob property '(key . value) or a symbol:
+a predefined abbreviation for a list of grob properties.
The following abbreviations are currently defined:
finger volta timesig mmrest mark script large Large dynamic
@end table
")
-(elt-property-description 'thick number? "thickness, in stafflinethickness")
-(elt-property-description 'thick-thickness number? "thickness, measured in stafflinethickness")
-(elt-property-description 'thickness number? "thickness, measured in stafflinethickness")
-(elt-property-description 'thin-kern number? "space after a hair-line")
-(elt-property-description 'forced-distance number? "forced distance for an alignment")
-(elt-property-description 'threshold number-pair? "(cons MIN MAX), where MIN and MAX are dimensions in staffspace")
-(elt-property-description 'transparent boolean? "This is almost the
+(grob-property-description 'thick number? "thickness, in stafflinethickness")
+(grob-property-description 'thick-thickness number? "thickness, measured in stafflinethickness")
+(grob-property-description 'thickness number? "thickness, measured in stafflinethickness")
+(grob-property-description 'thin-kern number? "space after a hair-line")
+(grob-property-description 'forced-distance number? "forced distance for an alignment")
+(grob-property-description 'threshold number-pair? "(cons MIN MAX), where MIN and MAX are dimensions in staffspace")
+(grob-property-description 'transparent boolean? "This is almost the
same as setting molecule-callback to #f, but this retains the
-dimensions of this element, which means that you can erase elements
+dimensions of this grob, which means that you can erase grobs
individually. ")
-(elt-property-description 'tuplet-bracket-visibility boolean-or-symbol? "
+(grob-property-description 'tuplet-bracket-visibility boolean-or-symbol? "
This controls the visibility of the tuplet bracket.
Setting it to false will prevent printing of the
bracket. Setting the property to #'if-no-beam will make it
print only if there is no beam associated with this tuplet bracket.")
-(elt-property-description 'tuplet-number-visibility boolean-or-symbol? "
+(grob-property-description 'tuplet-number-visibility boolean-or-symbol? "
Like @code{tuplet-bracket-visibility}, but for the number.")
-(elt-property-description 'type symbol? "one of: line, dashed-line or dotted-line")
-(elt-property-description 'vertical-position-quant-function procedure? "
+(grob-property-description 'type symbol? "one of: line, dashed-line or dotted-line")
+(grob-property-description 'vertical-position-quant-function procedure? "
function of type (beam multiplicity dy staff-line-thickness) -> real. Default value: default-beam-y-quants, also available: beam-traditional-y-quants.
")
-(elt-property-description 'visibility-lambda procedure? "a function that takes the break direction and returns a cons of booleans containing (TRANSPARENT . EMPTY)")
-(elt-property-description 'when moment? "when does this column happen?")
-(elt-property-description 'word-space number? "elongate left by this much (FIXME: cumbersome semantics)")
-(elt-property-description 'x-gap number? "horizontal gap between notehead and tie")
-(elt-property-description 'y-free number? "minimal vertical gap between slur and noteheads or stems")
-(elt-property-description 'y-position number? "position of left edge")
+(grob-property-description 'visibility-lambda procedure? "a function that takes the break direction and returns a cons of booleans containing (TRANSPARENT . EMPTY)")
+(grob-property-description 'when moment? "when does this column happen?")
+(grob-property-description 'word-space number? "elongate left by this much (FIXME: cumbersome semantics)")
+(grob-property-description 'x-gap number? "horizontal gap between notehead and tie")
+(grob-property-description 'y-free number? "minimal vertical gap between slur and noteheads or stems")
+(grob-property-description 'y-position number? "position of left edge")
((Key_item begin-of-note) . (extra-space 2.5))
((Staff_bar begin-of-note) . (extra-space 1.0))
((Clef_item begin-of-note) . (minimum-space 5.0))
+ ((Left_edge_item Breathing_sign) . (minimum-space 0.0))
((none Breathing_sign) . (minimum-space 0.0))
((Breathing_sign Key_item) . (minimum-space 1.5))
((Breathing_sign begin-of-note) . (minimum-space 1.0))
(define (engraver-name name)
name)
-(define (element-name name)
- (string-append "Element " name))
+(define (grob-name name)
+ (string-append "Grob " name))
(define (interface-name name)
name)
; distances are given in stafflinethickness (thicknesses) and
; staffspace (distances)
-(define all-element-descriptions
+(define all-grob-descriptions
`((Arpeggio . (
(X-extent-callback . ,Arpeggio::width_callback)
(Y-extent-callback . #f)
(X-offset-callbacks . (,Side_position::aligned_side))
(direction . -1)
(staff-position . 0.0)
- (meta . ,(element-description "Arpeggio" arpeggio-interface side-position-interface font-interface))
+ (meta . ,(grob-description "Arpeggio" arpeggio-interface side-position-interface font-interface))
))
(autoBeamSettings . ,auto-beam-settings)
(thin-kern . 3.0)
(hair-thickness . 1.6)
(thick-thickness . 6.0)
- (meta . ,(element-description "BarLine" bar-line-interface font-interface))
+ (meta . ,(grob-description "BarLine" bar-line-interface font-interface))
))
(BarNumber . (
(direction . 1)
(font-family . roman)
(font-relative-size . -1)
- (meta . ,(element-description "BarNumber"
+ (meta . ,(grob-description "BarNumber"
text-interface font-interface break-aligned-interface))
))
(flag-width-function . ,default-beam-flag-width-function)
(space-function . ,default-beam-space-function)
(damping . 1)
- (meta . ,(element-description "Beam" beam-interface))
+ (meta . ,(grob-description "Beam" beam-interface))
))
(BreakAlignment . (
(axes 0)
(X-offset-callbacks . (,Break_align_interface::self_align_callback))
(space-alist . ,default-break-align-space-alist)
- (meta . ,(element-description "BreakAlignment"
+ (meta . ,(grob-description "BreakAlignment"
axis-group-interface align-interface
)
)
(axes . (0))
(X-offset-callbacks . (,Break_align_interface::alignment_callback))
- (meta . ,(element-description "BreakAlignGroup" axis-group-interface))
+ (meta . ,(grob-description "BreakAlignGroup" axis-group-interface))
))
(BreathingSign . (
(molecule-callback . ,Breathing_sign::brew_molecule)
(Y-offset-callbacks . (,Breathing_sign::offset_callback))
(visibility-lambda . ,begin-of-line-invisible)
- (meta . ,(element-description "BreathingSign" break-aligned-interface))
+ (meta . ,(grob-description "BreathingSign" break-aligned-interface))
))
(Clef . (
(break-align-symbol . Clef_item)
(visibility-lambda . ,begin-of-line-visible)
(Y-offset-callbacks . (,Staff_symbol_referencer::callback))
- (meta . ,(element-description "Clef" clef-interface font-interface break-aligned-interface ))
+ (meta . ,(grob-description "Clef" clef-interface font-interface break-aligned-interface ))
))
(ChordName . (
(after-line-breaking-callback . ,Chord_name::after_line_breaking)
(chord-name-function . ,default-chord-name-function)
(font-family . roman)
- (meta . ,(element-description "ChordName" font-interface text-interface chord-name-interface))
+ (meta . ,(grob-description "ChordName" font-interface text-interface chord-name-interface))
))
(Custos . (
(visibility-lambda . ,end-of-line-visible)
(style . vaticana)
(Y-offset-callbacks . (,Staff_symbol_referencer::callback))
- (meta . ,(element-description "Custos" custos-interface staff-symbol-interface break-aligned-interface) )
+ (meta . ,(grob-description "Custos" custos-interface staff-symbol-interface break-aligned-interface) )
))
(Hairpin . (
(molecule-callback . ,Hairpin::brew_molecule)
(thickness . 1.0)
- (padding . 1.0)
- (width-correct . -1) ;ughr
+ (padding . 1.0)
(height . 0.6666)
+ (width-correct . -1.0)
(dash-thickness . 1.2)
(dash-length . 4.0)
(self-alignment-Y . 0)
(Y-offset-callbacks . (,Side_position::aligned_on_self))
- (meta . ,(element-description "Hairpin" hairpin-interface))
+ (meta . ,(grob-description "Hairpin" hairpin-interface))
))
(DotColumn . (
(axes 0 )
- (meta . ,(element-description "DotColumn" dot-column-interface axis-group-interface))
+ (meta . ,(grob-description "DotColumn" dot-column-interface axis-group-interface))
))
(Dots . (
(dot-count . 1)
(staff-position . 0.0)
(Y-offset-callbacks . (,Dots::quantised_position_callback ,Staff_symbol_referencer::callback))
- (meta . ,(element-description "Dots" font-interface dot-interface ))
+ (meta . ,(grob-description "Dots" font-interface dot-interface ))
))
(DynamicText . (
(font-family . dynamic)
(font-shape . italic)
(self-alignment-Y . 0)
- (meta . ,(element-description "DynamicText" font-interface text-interface ))
+ (meta . ,(grob-description "DynamicText" font-interface text-interface ))
))
(DynamicLineSpanner . (
(axes . ( 1))
(padding . 0.6)
(minimum-space . 1.2)
- (meta . ,(element-description "DynamicLineSpanner" dynamic-interface axis-group-interface side-position-interface))
+ (meta . ,(grob-description "DynamicLineSpanner" dynamic-interface axis-group-interface side-position-interface))
))
(LeftEdge . (
(break-align-symbol . Left_edge_item)
(X-offset-callbacks . (,Break_align_interface::alignment_callback))
(breakable . #t)
- (meta . ,(element-description "LeftEdge" break-aligned-interface))
+ (meta . ,(grob-description "LeftEdge" break-aligned-interface))
))
(Fingering . (
(font-family . number)
(font-relative-size . -3)
(font-shape . upright)
- (meta . ,(element-description "Fingering" finger-interface font-interface text-script-interface text-interface side-position-interface))
+ (meta . ,(grob-description "Fingering" finger-interface font-interface text-script-interface text-interface side-position-interface))
))
(GraceAlignment . (
(horizontal-space . 1.2)
(padding . 1.0)
(before-line-breaking-callback . ,Grace_align_item::before_line_breaking)
- (meta . ,(element-description "GraceAlignment" axis-group-interface align-interface grace-alignment-interface))
+ (meta . ,(grob-description "GraceAlignment" axis-group-interface align-interface grace-alignment-interface))
))
(HaraKiriVerticalGroup . (
(Y-offset-callbacks . (,Hara_kiri_group_spanner::force_hara_kiri_callback))
(Y-extent-callback . ,Hara_kiri_group_spanner::y_extent)
(axes 1)
- (meta . ,(element-description "HaraKiriVerticalGroup" axis-group-interface hara-kiri-group-interface))
+ (meta . ,(grob-description "HaraKiriVerticalGroup" axis-group-interface hara-kiri-group-interface))
))
(LyricHyphen . (
(minimum-length . 0.5)
(molecule-callback . ,Hyphen_spanner::brew_molecule)
(Y-extent-callback . ,Grob::point_dimension_callback)
- (meta . ,(element-description "LyricHyphen" lyric-hyphen-interface ))
+ (meta . ,(grob-description "LyricHyphen" lyric-hyphen-interface ))
))
(InstrumentName . (
(break-align-symbol . Instrument_name)
(visibility-lambda . ,begin-of-line-visible)
(font-family . roman)
- (meta . ,(element-description "InstrumentName" font-interface text-interface break-aligned-interface))
+ (meta . ,(grob-description "InstrumentName" font-interface text-interface break-aligned-interface))
))
(KeySignature . (
(break-align-symbol . Key_item)
(visibility-lambda . ,begin-of-line-visible)
(breakable . #t)
- (meta . ,(element-description "KeySignature" key-signature-interface font-interface break-aligned-interface))
+ (meta . ,(grob-description "KeySignature" key-signature-interface font-interface break-aligned-interface))
))
(Accidentals . (
(direction . -1)
(left-padding . 0.2)
(right-padding . 0.4)
- (meta . ,(element-description "Accidentals" accidentals-interface font-interface side-position-interface))
+ (meta . ,(grob-description "Accidentals" accidentals-interface font-interface side-position-interface))
))
(LineOfScore . (
(axes . (0 1))
- (meta . ,(element-description "LineOfScore" line-of-score-interface axis-group-interface))
+ (meta . ,(grob-description "LineOfScore" line-of-score-interface axis-group-interface))
))
(LyricExtender . (
(height . 0.8) ; stafflinethickness;
(right-trim-amount . 0.5)
(Y-extent-callback . ,Grob::point_dimension_callback)
- (meta . ,(element-description "LyricExtender" lyric-extender-interface))
+ (meta . ,(grob-description "LyricExtender" lyric-extender-interface))
))
(LyricText . (
(word-space . 0.6)
(font-family . roman)
(font-shape . upright)
- (meta . ,(element-description "LyricText" lyric-syllable-interface text-interface font-interface ))
+ (meta . ,(grob-description "LyricText" lyric-syllable-interface text-interface font-interface ))
))
(RehearsalMark . (
(font-relative-size . 1)
(visibility-lambda . ,end-of-line-invisible)
(padding . 0.8)
- (meta . ,(element-description "RehearsalMark" mark-interface side-position-interface))
+ (meta . ,(grob-description "RehearsalMark" mark-interface side-position-interface))
))
(MultiMeasureRest . (
(minimum-width . 12.5) ; staffspace
(font-family . number)
(font-relative-size . 1)
- (meta . ,(element-description "MultiMeasureRest" multi-measure-rest-interface font-interface ))
+ (meta . ,(grob-description "MultiMeasureRest" multi-measure-rest-interface font-interface ))
))
(NoteCollision . (
(axes 0 1)
(note-width . 1.65)
- (meta . ,(element-description "NoteCollision"
+ (meta . ,(grob-description "NoteCollision"
note-collision-interface axis-group-interface
))
))
(NoteColumn . (
(axes . (0 1))
- (meta . ,(element-description "NoteColumn" axis-group-interface note-column-interface))
+ (meta . ,(grob-description "NoteColumn" axis-group-interface note-column-interface))
))
(NoteHead . (
(style . default)
(molecule-callback . ,Note_head::brew_molecule)
(Y-offset-callbacks . (,Staff_symbol_referencer::callback))
- (meta . ,(element-description "NoteHead"
+ (meta . ,(grob-description "NoteHead"
rhythmic-head-interface font-interface
note-head-interface ))
))
(X-extent-callback . #f)
(Y-extent-callback . #f)
(molecule-callback . ,Line_spanner::brew_molecule)
- (meta . ,(element-description "Glissando"
+ (meta . ,(grob-description "Glissando"
line-spanner-interface))
))
(FollowThread . (
(X-extent-callback . #f)
(Y-extent-callback . #f)
(molecule-callback . ,Line_spanner::brew_molecule)
- (meta . ,(element-description "FollowThread"
+ (meta . ,(grob-description "FollowThread"
line-spanner-interface))
))
(NoteName . (
(molecule-callback . ,Text_item::brew_molecule)
(font-family . roman)
- (meta . ,(element-description "NoteName"
+ (meta . ,(grob-description "NoteName"
note-name-interface font-interface
))
))
(molecule-callback . ,Text_item::brew_molecule)
(font-shape . italic)
(font-family . roman)
- (meta . ,(element-description "OctavateEight" text-interface font-interface ))
+ (meta . ,(grob-description "OctavateEight" text-interface font-interface ))
))
(PaperColumn . (
(axes 0)
(before-grace-spacing-factor . 1.2)
(before-musical-spacing-factor . 0.4)
- (meta . ,(element-description "PaperColumn" paper-column-interface axis-group-interface spaceable-element-interface))
+ (meta . ,(grob-description "PaperColumn" paper-column-interface axis-group-interface spaceable-element-interface))
))
(NonMusicalPaperColumn . (
(axes 0)
(before-musical-spacing-factor . 1.0)
(column-space-strength . 2.0)
- (meta . ,(element-description "NonMusicalPaperColumn" paper-column-interface axis-group-interface spaceable-element-interface))
+ (meta . ,(grob-description "NonMusicalPaperColumn" paper-column-interface axis-group-interface spaceable-element-interface))
))
(Rest . (
(Y-extent-callback . ,Rest::extent_callback)
(molecule-callback . ,Rest::brew_molecule)
(minimum-beam-collision-distance . 1.5)
- (meta . ,(element-description "Rest"
+ (meta . ,(grob-description "Rest"
rhythmic-head-interface
rest-interface))
))
(RestCollision . (
(minimum-distance . 0.75)
- (meta . ,(element-description "RestCollision" rest-collision-interface ))
+ (meta . ,(grob-description "RestCollision" rest-collision-interface ))
))
(Script . (
(molecule-callback . ,Script::brew_molecule)
(X-offset-callbacks . (,Side_position::centered_on_parent))
(after-line-breaking-callback . ,Script::after_line_breaking)
- (meta . ,(element-description "Script" script-interface side-position-interface font-interface))
+ (meta . ,(grob-description "Script" script-interface side-position-interface font-interface))
))
(ScriptColumn . (
(before-line-breaking-callback . ,Script_column::before_line_breaking)
- (meta . ,(element-description "ScriptColumn" script-column-interface))
+ (meta . ,(grob-description "ScriptColumn" script-column-interface))
))
(Slur . (
(y-free . 0.75)
(attachment-offset . ((0 . 0) . (0 . 0)))
(slope-limit . 0.8)
- (meta . ,(element-description "Slur" slur-interface))
+ (meta . ,(grob-description "Slur" slur-interface))
))
(SpacingSpanner . (
(arithmetic-multiplier . ,(* 0.9 1.32))
;; assume that notes at least this long are present.
(maximum-duration-for-spacing . ,(make-moment 1 8))
- (meta . ,(element-description "SpacingSpanner" spacing-spanner-interface))
+ (meta . ,(grob-description "SpacingSpanner" spacing-spanner-interface))
))
(SpanBar . (
(break-align-symbol . Staff_bar)
(thin-kern . 3.0)
(hair-thickness . 1.6)
(thick-thickness . 6.0)
- (meta . ,(element-description "SpanBar" span-bar-interface bar-line-interface ))
+ (meta . ,(grob-description "SpanBar" span-bar-interface bar-line-interface ))
))
(StanzaNumber . (
(break-align-symbol . Clef_item)
(visibility-lambda . ,begin-of-line-visible)
(font-family . roman)
- (meta . ,(element-description "StanzaNumber" break-aligned-interface text-interface font-interface))
+ (meta . ,(grob-description "StanzaNumber" break-aligned-interface text-interface font-interface))
))
(StaffSymbol . (
(molecule-callback . ,Staff_symbol::brew_molecule)
(staff-space . 1.0)
(line-count . 5 )
- (meta . ,(element-description "StaffSymbol" staff-symbol-interface ))
+ (meta . ,(grob-description "StaffSymbol" staff-symbol-interface ))
))
(SostenutoPedal . (
(molecule-callback . ,Text_item::brew_molecule)
(no-spacing-rods . #t)
(font-shape . italic)
(self-alignment-X . 0)
- (meta . ,(element-description "SostenutoPedal" text-interface font-interface))
+ (meta . ,(grob-description "SostenutoPedal" text-interface font-interface))
))
(Stem . (
(default-neutral-direction . 1)
(X-offset-callbacks . (,Stem::off_callback))
(X-extent-callback . ,Stem::dim_callback)
- (meta . ,(element-description "Stem" stem-interface font-interface))
+ (meta . ,(grob-description "Stem" stem-interface font-interface))
))
(StemTremolo . (
(beam-width . 2.0) ; staff-space
(beam-thickness . 0.42) ; staff-space
(beam-space-function . ,default-beam-space-function)
- (meta . ,(element-description "StemTremolo" stem-tremolo-interface ))
+ (meta . ,(grob-description "StemTremolo" stem-tremolo-interface ))
))
(SeparationItem . (
- (meta . ,(element-description "SeparationItem" separation-item-interface ))
+ (meta . ,(grob-description "SeparationItem" separation-item-interface ))
))
(SeparatingGroupSpanner . (
(spacing-procedure . ,Separating_group_spanner::set_spacing_rods)
- (meta . ,(element-description "SeparatingGroupSpanner" separation-spanner-interface))
+ (meta . ,(grob-description "SeparatingGroupSpanner" separation-spanner-interface))
))
(SustainPedal . (
(,Side_position::aligned_side
,Side_position::centered_on_parent))
- (meta . ,(element-description "SustainPedal" sustain-pedal-interface side-position-interface font-interface))
+ (meta . ,(grob-description "SustainPedal" sustain-pedal-interface side-position-interface font-interface))
))
; should split in 3
;; sheets than 20
;;(font-point-size . 20)
;;(font-relative-size . #f)
- (meta . ,(element-description "SystemStartDelimiter" system-start-delimiter-interface font-interface))
+ (meta . ,(grob-description "SystemStartDelimiter" system-start-delimiter-interface font-interface))
))
(TextScript . (
(padding . 0.5)
(font-family . roman)
(font-shape . italic)
- (meta . ,(element-description "TextScript" text-script-interface text-interface side-position-interface font-interface ))
+ (meta . ,(grob-description "TextScript" text-script-interface text-interface side-position-interface font-interface ))
))
(TextSpanner . (
(molecule-callback . ,Text_spanner::brew_molecule)
;;;(padding . 1.0)
(width-correct . -1) ;ughr
(direction . 1)
- (meta . ,(element-description "TextSpanner" text-spanner-interface font-interface))
+ (meta . ,(grob-description "TextSpanner" text-spanner-interface font-interface))
))
(Tie . (
(molecule-callback . ,Tie::brew_molecule)
(thickness . 1.2)
(x-gap . 0.2)
(minimum-length . 2.5)
- (meta . ,(element-description "Tie" tie-interface ))
+ (meta . ,(grob-description "Tie" tie-interface ))
))
(TieColumn . (
(after-line-breaking-callback . ,Tie_column::after_line_breaking)
- (meta . ,(element-description "TieColumn" tie-column-interface ))
+ (meta . ,(grob-description "TieColumn" tie-column-interface ))
))
(TimeSignature . (
(visibility-lambda . ,all-visible)
(breakable . #t)
(font-family . number)
- (meta . ,(element-description "TimeSignature" time-signature-interface font-interface))
+ (meta . ,(grob-description "TimeSignature" time-signature-interface font-interface))
))
(TupletBracket . (
(font-family . roman)
(font-shape . italic)
(font-relative-size . -1)
- (meta . ,(element-description "TupletBracket" text-interface
+ (meta . ,(grob-description "TupletBracket" text-interface
tuplet-bracket-interface font-interface))
))
(Y-offset-callbacks .
(,Side_position::aligned_side
,Side_position::centered_on_parent))
- (meta . ,(element-description "UnaChordaPedal" text-interface font-interface))
+ (meta . ,(grob-description "UnaChordaPedal" text-interface font-interface))
))
(VoltaBracket . (
(minimum-space . 5)
(font-family . number)
(font-relative-size . -2)
- (meta . ,(element-description "VoltaBracket" volta-bracket-interface side-position-interface font-interface))
+ (meta . ,(grob-description "VoltaBracket" volta-bracket-interface side-position-interface font-interface))
))
(VerticalAlignment . (
(Y-extent-callback . ,Axis_group_interface::group_extent_callback)
(X-extent-callback . #f)
(stacking-dir . -1)
- (meta . ,(element-description "VerticalAlignment" align-interface axis-group-interface))
+ (meta . ,(grob-description "VerticalAlignment" align-interface axis-group-interface))
))
(VerticalAxisGroup . (
(axes 1)
- (meta . ,(element-description "VerticalAxisGroup" axis-group-interface))
+ (meta . ,(grob-description "VerticalAxisGroup" axis-group-interface))
))
))
-; (display (map pair? all-element-descriptions))
+; (display (map pair? all-grob-descriptions))
""
(string-append
"This engraver creates \n "
- (human-listify (map reffy (map element-name objs)))
- " elements.")
+ (human-listify (map reffy (map grob-name objs)))
+ " grobs.")
)
"\n\n"
(document-paper "LilyPond interpretation contexts")
(document-all-engravers "LilyPond engravers")
(document-all-engraver-properties "LilyPond context properties")
- (document-all-elements "LilyPond backend")
+ (document-all-grobs "LilyPond backend")
(document-all-interfaces "LilyPond interfaces")
(document-all-backend-properties "LilyPond backend properties")
)
;; we can't use (dir) and top if we're included by lilypond.tely
"LilyPond internals" name "(lilypond.info)"
'(("LilyPond interpretation contexts" . "Hierarchy and grouping of Engravers")
- ("LilyPond engravers" . "Engravers create Elements")
+ ("LilyPond engravers" . "Engravers create Grobs")
("LilyPond context properties" . "context properties")
- ("LilyPond backend" . "Detailed description of all Elements")
- ("LilyPond interfaces" . "Element Interfaces")
- ("LilyPond backend properties" . "Element properties")))
+ ("LilyPond backend" . "Detailed description of all Grobs")
+ ("LilyPond interfaces" . "Grob Interfaces")
+ ("LilyPond backend properties" . "Grob properties")))
)
-(define (element-description name . interfaces)
- (let* ((ifs (cons general-element-interface interfaces))
+(define (grob-description name . interfaces)
+ (let* ((ifs (cons general-grob-interface interfaces))
(props (map caddr ifs))
; (prop-typep-pairs (map (lambda (x) (cons (car x) (cadr x)))
; (apply append props)))
(cons 'interfaces syms)
(cons 'interface-descriptions ifs)
; (cons 'interface-descriptions (cadr merged))
- ;; description of the element itself?
+ ;; description of the grob itself?
; (cons 'properties prop-typep-pairs)
)))
-(define general-element-interface
+(define general-grob-interface
(lily-interface
- 'general-element-interface
- "All elements support this"
+ 'general-grob-interface
+ "All grobs support this"
'(
X-offset-callbacks
Y-offset-callbacks
(define axis-group-interface
(lily-interface
'axis-group-interface
- "a group of coupled elements"
+ "a group of coupled grobs"
'(
axes
)))
(define line-of-score-interface
(lily-interface
'line-of-score-interface
- "Super element, parent of all:
+ "Super grob, parent of all:
-The columns of a score that form one line. The toplevel element. Any
-element has a Line_of_score as both X and Y reference point. The
-Paper_score contains one element of this type. Control enters the
+The columns of a score that form one line. The toplevel grob. Any
+grob has a Line_of_score as both X and Y reference point. The
+Paper_score contains one grob of this type. Control enters the
Grob dependency calculation from this single Line_of_score
object."
'(
(define align-interface
(lily-interface
'align-interface
- " Order elements top to bottom/left to right/right to left etc."
+ " Order grobs top to bottom/left to right/right to left etc."
'(
stacking-dir
align-dir
(define separation-spanner-interface
(lily-interface
'separation-spanner-interface
- "Spanner that containing @code{separation-item-interface} elements to calculate rods"
+ "Spanner that containing @code{separation-item-interface} grobs to calculate rods"
'()
))
(define text-script-interface
(define spaceable-element-interface
(lily-interface
'spaceable-element-interface
- "An element (generally a Paper_column) that takes part in the
+ "An grob (generally a Paper_column) that takes part in the
spacing problem. "
'(
minimum-distances
"Item that computes widths to generate spacing rods.
Calc dimensions for the Separating_group_spanner; this has to be
- an item to get dependencies correct. It can't be an element_group
+ an item to get dependencies correct. It can't be an grob_group
since these usually are in a different X_group
"
'(
((dir? obj) "direction")
((number-pair? obj) "pair of numbers")
((ly-input-location? obj) "input location")
- ((ly-grob? obj) "graphic element")
+ ((ly-grob? obj) "grob (GRaphical OBject)")
((pair? obj) "pair")
((integer? obj) "integer")
((list? obj) "list")
((eq? predicate dir?) "direction")
((eq? predicate number-pair?) "pair of numbers")
((eq? predicate ly-input-location?) "input location")
- ((eq? predicate ly-grob?) "graphic element")
+ ((eq? predicate ly-grob?) "Grob")
((eq? predicate pair?) "pair")
((eq? predicate integer?) "integer")
((eq? predicate list?) "list")
'Break_align_engraver
(engraver-description
"Break_align_engraver"
- "Align graphic elements with corresponding break-align-symbols into groups, and order the groups according to breakAlignOrder"
+ "Align grobs with corresponding break-align-symbols into groups, and order the groups according to breakAlignOrder"
'(BreakAlignment BreakAlignGroup LeftEdge)
'(
breakAlignOrder
(engraver-description
"Property_engraver"
"This is a engraver that converts \property settings into
-back-end element-property settings. Example: Voice.stemLength will set
+back-end grob-property settings. Example: Voice.stemLength will set
#'length in all Stem objects.
Due to CPU and memory requirements, the use of this engraver is deprecated."
@end example
")
-(translator-property-description 'slurBeginAttachment symbol? "translates to the car of Slur.element-property 'attachment.")
-(translator-property-description 'slurEndAttachment symbol? "translates to the cdr of Slur.element-property 'attachment.")
+(translator-property-description 'slurBeginAttachment symbol? "translates to the car of grob-property 'attachment.")
+(translator-property-description 'slurEndAttachment symbol? "translates to the cdr of grob-property 'attachment.")
(translator-property-description 'slurMelismaBusy boolean? "")
(translator-property-description 'slurMelismaBusy boolean? "Signal a slur if automaticMelismata is set")
(translator-property-description 'solo boolean? "set if solo is detected")
If set to true, tuplet bracket creation is switched off
entirely. This has the same effect as setting both
@code{tupletNumberVisibility} and @code{tupletBracketVisibility} to
-@code{#f}, but as this does not even create elements, this setting
+@code{#f}, but as this does not even create any grobs, this setting
uses less memory and time.")
(translator-property-description 'tupletSpannerDuration moment? "
Normally a tuplet bracket is as wide as the
if a == 'C':
if not state.common_time:
state.common_time = 1
- voices_append ("\\property Staff.TimeSignature \push #\'style = #\"C\"\n")
+ voices_append ("\\property Staff.TimeSignature \\override #\'style = #'C\n")
a = '4/4'
if a == 'C|':
if not state.common_time:
state.common_time = 1
- voices_append ("\\property Staff.TimeSignature \push #\'style = #\"C\"\n")
+ voices_append ("\\property Staff.TimeSignature \\override #\'style = #'C\n")
a = '2/2'
if not length_specified:
set_default_len_from_time_sig (a)