From: Mats Bengtsson Date: Mon, 21 Apr 2008 11:02:09 +0000 (+0200) Subject: Do not scale the size of open and mute symbols ("X", "O") twice with the "size" prope... X-Git-Tag: release/2.11.45-1~25^2~6 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=585a04d158c6e16d696ed510d5e7e786df0a43f1;p=lilypond.git Do not scale the size of open and mute symbols ("X", "O") twice with the "size" property. Thanks to Frank. --- 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))