From: Keith OHara <k-ohara5a5a@oco.net>
Date: Sat, 30 Nov 2013 01:12:19 +0000 (-0800)
Subject: Reduce offsets of \super and \sub
X-Git-Tag: release/2.19.0-1~100
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=efe4591faf2f5c9353c742d9fe696476f042f2ef;p=lilypond.git

Reduce offsets of \super and \sub

This brings chordNames and text superscripts into better agreement
with the shifts in user-provided scans.
---

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index ee2671a963..fe1cff509a 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -3970,7 +3970,7 @@ Set @var{arg} in superscript with a normal font size.
 @end lilypond"
   (ly:stencil-translate-axis
    (interpret-markup layout props arg)
-   (* 0.5 baseline-skip) Y))
+   (* 0.33 baseline-skip) Y))
 
 (define-markup-command (super layout props arg)
   (markup?)
@@ -3997,7 +3997,7 @@ Set @var{arg} in superscript.
     layout
     (cons `((font-size . ,(- font-size 3))) props)
     arg)
-   (* 0.5 baseline-skip)
+   (* 0.33 baseline-skip)
    Y))
 
 (define-markup-command (translate layout props offset arg)
@@ -4045,7 +4045,7 @@ Set @var{arg} in subscript.
     layout
     (cons `((font-size . ,(- font-size 3))) props)
     arg)
-   (* -0.5 baseline-skip)
+   (* -0.25 baseline-skip)
    Y))
 
 (define-markup-command (normal-size-sub layout props arg)
@@ -4067,7 +4067,7 @@ Set @var{arg} in subscript with a normal font size.
 @end lilypond"
   (ly:stencil-translate-axis
    (interpret-markup layout props arg)
-   (* -0.5 baseline-skip)
+   (* -0.25 baseline-skip)
    Y))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;