-;;;; grob-description.scm -- part of generated backend documentation
+;;;; define-grobs.scm --
;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
;;;; Jan Nieuwenhuizen <janneke@gnu.org>
;;;; distances are given in linethickness (thicknesses) and
(AccidentalPlacement
. (
(X-extent-callback . ,Axis_group_interface::group_extent_callback)
- (left-padding . 0.3)
+ (left-padding . 0.2)
;; this is quite small, but it is very ugly to have
;; accs closer to the previous note than to the next one.
- (right-padding . 0.25)
+ (right-padding . 0.15)
(meta . ((interfaces . (item-interface accidental-placement-interface))))
))
(print-function . ,Ambitus::print)
(font-family . music)
(note-head-style . "noteheads-2")
- (visibility-lambda . ,begin-of-line-visible)
+ (break-visibility . ,begin-of-line-visible)
(join-heads . #t)
(space-alist . (
(clef . (extra-space . 0.0))
(Y-offset-callbacks . (,Staff_symbol_referencer::callback))
(X-offset-callbacks . (,Side_position_interface::aligned_side))
(direction . -1)
+ (padding . 0.5)
(staff-position . 0.0)
(meta . ((interfaces . (arpeggio-interface staff-symbol-referencer-interface side-position-interface item-interface font-interface))))
))
(Y-offset-callbacks . (,Side_position_interface::aligned_side))
(X-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
(self-alignment-X . 1)
+
+ ;; hmm. why did we do this: ?
(extra-offset . (1.3 . 0))
(meta .
((interfaces . (side-position-interface
;; We must do this, other BFs in
;; paper16 become too small.
(font-size . -4)
- (font-magnification . 0.8)
(kern . 0.2)
(meta . ((interfaces . (text-interface rhythmic-grob-interface
bass-figure-interface item-interface
;; todo: clean this up a bit: the list is getting
;; rather long.
(print-function . ,Beam::print)
- (concaveness-gap . 2.0)
- (concaveness-threshold . 0.08)
+ (concaveness-gap . 1.85)
+ (concaveness-threshold . 0.26)
(gap . 0.8)
(positions . (#f . #f))
(position-callbacks . (,Beam::least_squares
;; sadly possibly breaking patterns with high order beams.
(beamed-stem-shorten . (1.0 0.5 0.25))
- (outer-stem-length-limit . 0.2)
(slope-limit . 0.2)
(flag-width-function . ,beam-flag-width-function)
(damping . 1)
(spacing-procedure . ,Spanner::set_spacing_rods)
(minimum-length . 2.0)
(if-text-padding . 1.0)
- (dash-length . 4.0)
(self-alignment-Y . 0)
(Y-offset-callbacks . (,Self_alignment_interface::aligned_on_self))
(meta . ((interfaces . (hairpin-interface line-interface self-alignment-interface dynamic-interface spanner-interface))))
(NoteCollision
. (
(axes . (0 1))
- ;; Ugh, should not be hard-coded.
- (note-width . 1.321)
(X-extent-callback . ,Axis_group_interface::group_extent_callback)
(Y-extent-callback . ,Axis_group_interface::group_extent_callback)
(meta . ((interfaces . (note-collision-interface axis-group-interface item-interface ))))
. (
(print-function . ,Text_item::print)
(font-family . roman)
- (meta . ((interfaces . (note-name-interface text-interface font-interface item-interface ))))
+ (meta . ((interfaces . (note-name-interface
+ text-interface font-interface item-interface ))))
))
(OctavateEight
(spacing-procedure . ,Spanner::set_spacing_rods)
(minimum-length . 1.5)
(after-line-breaking-callback . ,Slur::after_line_breaking)
- (extremity-rules . ,default-slur-extremity-rules)
+ (extremity-function . ,calc-slur-extremity)
(extremity-offset-alist . ,default-phrasing-slur-extremity-offset-alist)
(de-uglify-parameters . (1.5 0.8 -2.0))
(Y-extent-callback . ,Slur::height)
(axes . (0))
(X-extent-callback . ,Axis_group_interface::group_extent_callback)
(before-line-breaking-callback . ,Paper_column::before_line_breaking)
+ (breakable . #t)
;; debugging stuff: print column number.
; (print-function . ,Paper_column::print) (font-name . "cmr8") (Y-extent-callback . #f)
(print-function . ,Multi_measure_rest::percent)
(slope . 1.0)
(thickness . 0.48)
- (minimum-width . 12.5) ; staffspace
(font-family . music)
(meta . ((interfaces . (multi-measure-rest-interface spanner-interface font-interface percent-repeat-interface))))
))
(meta . (
(interfaces . (font-interface
rhythmic-head-interface
- rhythmic-grob-interface
-
+ rhythmic-grob-interface
staff-symbol-referencer-interface
rest-interface item-interface ))
))))
(spacing-procedure . ,Spanner::set_spacing_rods)
(minimum-length . 1.5)
(after-line-breaking-callback . ,Slur::after_line_breaking)
- (extremity-rules . ,default-slur-extremity-rules)
+ (extremity-function . ,calc-slur-extremity)
(extremity-offset-alist . ,default-slur-extremity-offset-alist)
(de-uglify-parameters . (1.5 0.8 -2.0))
(Y-extent-callback . ,Slur::height)
(X-extent-callback . ,Span_bar::width_callback)
(Y-extent-callback . ())
(breakable . #t)
- (glyph . "|")
(before-line-breaking-callback . ,Span_bar::before_line_breaking)
;; ugh duplication!
(arch-angle . 50.0)
(arch-thick . 0.25)
(arch-width . 1.5)
- (bracket-collapse-height . 1)
+ (collapse-height . 1)
(thickness . 0.25)
(meta . ((interfaces . (system-start-delimiter-interface spanner-interface))))
))
. (
(print-function . ,Text_spanner::print)
(font-family . roman)
+ (font-shape . italic)
(style . dashed-line)
(staff-padding . 0.1)
(print-function . ,Ottava_bracket::print)
(font-shape . italic)
(font-family . roman)
- (text-repeat-if-broken . #t)
(shorten-pair . (0.0 . -0.6))
(staff-padding . 1.0)
(padding . 0.5)