Reduce offsets of \super and \sub

[lilypond.git] / scm / define-markup-commands.scm

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index ee2671a963f13ca7ea8c8c428ed5fde192324d37..fe1cff509adc59f346ce02286f825f56147024db 100644 (file)
--- 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))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;