From: John Mandereau <john.mandereau@gmail.com>
Date: Mon, 21 Apr 2008 22:13:09 +0000 (+0200)
Subject: Merge branch 'master' of ssh://jomand@git.sv.gnu.org/srv/git/lilypond
X-Git-Tag: release/2.11.45-1~25
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=faf6ab963326ed29cb9bf6b363f708c807f10ce7;hp=26223457423318073a5dd9d5112c3ae9e3d8b4d9;p=lilypond.git

Merge branch 'master' of ssh://jomand@git.sv.gnu.org/srv/git/lilypond

* 'master' of ssh://jomand@git.sv.gnu.org/srv/git/lilypond:
  GDP: NR 2 Reorganisation: Ancient comments
  \rounded-box, final take
  GDP: NR 2 Reorganisation: Chords comments
  GDP: NR 2 Reorganisation: Fretted-string comments
  \rounded-box corrections
  GDP: NR 2 Reorganisation: Keyboard comments
  Do not scale the size of open and mute symbols ("X", "O") twice with the "size" property. Thanks to Frank.
---

diff --git a/Documentation/user/ancient.itely b/Documentation/user/ancient.itely
index cc8de79d4b..bda9e15e12 100644
--- a/Documentation/user/ancient.itely
+++ b/Documentation/user/ancient.itely
@@ -2035,6 +2035,8 @@ TBC
 
 @c TODO Add text
 @c clefs, mensuration signs etc from lsr and -user
+@c use snippet Transcription-of-ancient-music-with-incipit
+
 TBC
 
 
@@ -2107,4 +2109,16 @@ the @internalsref{AccidentalSuggestion} object.
 
 @c TODO Add text
 @c try Till Rettig
+@c Add example of white noteheads:
+@c In the french baroque some composers used white noteheads in slow pieces,
+@c mainly in 3/2-time.  A quarter looks there like a eighth with a white 
+@c notehead.  (Franz-Rudolf Kuhnen)
+
+@c TODO Add example of this:
+@c I was referring to e.g. notated a8. a16, which should, if I
+@c remember correctly, be interpreted more like a8.. a32 (in the french
+@c style). The editor might want to show that rythmic figure above the
+@c staff as an hint to performers. (Karl Hammer)
+
+
 TBC
\ No newline at end of file
diff --git a/Documentation/user/chords.itely b/Documentation/user/chords.itely
index 7954d6c379..c1f956dae6 100644
--- a/Documentation/user/chords.itely
+++ b/Documentation/user/chords.itely
@@ -128,6 +128,37 @@ Note that the duration of chords must be specified outside the
 <c e g>2
 @end example
 
+@c TODO Generate snippet based on the following
+@c      and add explanation -td
+
+Custom chord names may be generated:
+
+@lilypond[quote,ragged-right,verbatim,ragged-right]
+FGGChordNames = {
+  <c e g b d'>1-\markup { \super "maj9" }
+  <c e g a d'>1-\markup { \super "6(add9)" }
+}
+chExceptions = #(append
+(sequential-music-to-chord-exceptions
+FGGChordNames #t) ignatzekExceptions)
+
+chordStuff = \chordmode
+{
+% standard names
+g1:maj9
+g1:6.9
+% names with FGG's custom exceptions
+\set chordNameExceptions = #chExceptions
+g1:maj9
+g1:6.9
+}
+
+\score
+{
+\new ChordNames \chordStuff
+}
+@end lilypond
+
 @node Building chords
 @subsubsection Building chords
 
diff --git a/Documentation/user/fretted-strings.itely b/Documentation/user/fretted-strings.itely
index c7bc91148d..0543cad7bc 100644
--- a/Documentation/user/fretted-strings.itely
+++ b/Documentation/user/fretted-strings.itely
@@ -300,6 +300,10 @@ Internals Reference: @internalsref{StrokeFinger}
 @node Guitar
 @subsection Guitar
 
+@c TODO Make a snippet based on
+@c http://www.nabble.com/Creating-a-nice-formatted-Chords-%2B-Lyrics-layout-for-guitar-players-to13829430.html
+@c and include it somewhere -td
+
 @menu
 * Guitar tablatures::
 * Indicating position and barring::
diff --git a/Documentation/user/keyboards.itely b/Documentation/user/keyboards.itely
index a9dccb2fe5..d31b67a552 100644
--- a/Documentation/user/keyboards.itely
+++ b/Documentation/user/keyboards.itely
@@ -287,6 +287,14 @@ of the note head
 c\sostenutoDown d e c, f g a\sostenutoUp
 @end lilypond
 
+@noindent
+Note that overrides must be placed before the note at which the 
+pedal bracket starts.
+
+@c TODO Check relative positions of the sustain pedal and
+@c      dynamics are correct (they collided in 2.11.44).
+@c      Give example showing this.
+
 @seealso
 
 Notation Reference: @ref{Ties} (laissez vibrer).
diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index 3fb91c199e..c767e09a71 100644
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -152,6 +152,10 @@ this grob looks as a continued break.")
      (control-points ,list? "List of offsets (number pairs) that form
 control points for the tie, slur, or bracket shape.  For B@'eziers,
 this should list the control points of a third-order B@'ezier curve.")
+     (corner-radius ,number? "The diameter of a blot, in rounded
+boxes. If set to #0, the corners will we completely sharp; default is
+#1. If set to a too big value, it will be ignored and the shortest
+edges of the box will be drawn as semicircles."
 
      (damping ,number? "Amount of beam slope damping.")
      (dash-fraction ,number? "Size of the dashes, relative to
diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 9ddfa49820..3ec32d7335 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -206,7 +206,12 @@ circle of diameter@tie{}0 (i.e. sharp corners)."
 Draw a box with rounded corners around @var{arg}.  Looks at @code{thickness},
 @code{box-padding} and @code{font-size} properties to determine line
 thickness and padding around the markup; the @code{corner-radius} property
-makes possible to define another shape for the corners (default is 1)." 
+makes possible to define another shape for the corners (default is 1).
+
+@lilypond[quote,verbatim,fragment,relative=2]
+c^\\markup{ \\rounded-box Overtura }
+c,8. c16 c4 r
+@end lilypond" 
   (let* ((th (*
 	      (ly:output-def-lookup layout 'line-thickness)
 	      (chain-assoc-get 'thickness props 1)))
diff --git a/scm/fret-diagrams.scm b/scm/fret-diagrams.scm
index 2fe8f33605..a133d189af 100644
--- a/scm/fret-diagrams.scm
+++ b/scm/fret-diagrams.scm
@@ -256,8 +256,8 @@ Line thickness is given by @var{th}, fret & string spacing by
 (define (draw-xo layout props string-count fret-range size xo-list orientation)
 "Put open and mute string indications on diagram, as contained in @var{xo-list}."
     (let* ((fret-count (+ (- (cadr fret-range) (car fret-range) 1)))
-           (xo-font-mag (* size (chain-assoc-get 'xo-font-magnification props 0.5)))
-;           (xo-font-mag (* size 0.5))
+           (xo-font-mag (chain-assoc-get 'xo-font-magnification props 0.5))
+;           (xo-font-mag 0.5)
 ;           (xo-horizontal-offset (* size (chain-assoc-get 'xo-horizontal-offset props -0.35)))
            (xo-horizontal-offset (* size -0.35))
            (mypair (car xo-list))
diff --git a/scm/stencil.scm b/scm/stencil.scm
index baa8fe8ccd..536425b9c6 100644
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -134,11 +134,16 @@ encloses the contents.
 
   (let* ((xext (interval-widen (ly:stencil-extent stencil 0) padding))
 	 (yext (interval-widen (ly:stencil-extent stencil 1) padding))
+   (min-ext (min (-(cdr xext) (car xext)) (-(cdr yext) (car yext))))
+   (ideal-blot (min blot (/ min-ext 2)))
+   (ideal-thickness (min thickness (/ min-ext 2)))
 	 (outer (ly:round-filled-box
-		  (interval-widen xext thickness) (interval-widen yext thickness) blot))
-	 (inner (ly:make-stencil (list 'color (x11-color 'white) (ly:stencil-expr (ly:round-filled-box 
-       (cons (+ (car xext) thickness) (- (cdr xext) thickness)) 
-       (cons (+ (car yext) thickness) (- (cdr yext) thickness)) (* blot 0.8)))))))
+            (interval-widen xext ideal-thickness) 
+            (interval-widen yext ideal-thickness) 
+               ideal-blot))
+	 (inner (ly:make-stencil (list 'color (x11-color 'white) 
+            (ly:stencil-expr (ly:round-filled-box 
+               xext yext (- ideal-blot ideal-thickness)))))))
     (set! stencil (ly:stencil-add outer inner))
     stencil))