Subject: Re: Choix des fontes et Staff Size

From: Loïc Chahine <[email-masked]>
Date: Sun, 8 Apr 2012 11:46:47 +0200

Bonjour à tous,
Je pense que quelque chose m’a échappé là-dedans. Quand je modifier la 
global-staff-size, c’est bien pris en compte pour la portée, *mais* les 
notes restent de la même taille, et ce que j’écrive à la fin du code 
ci-dessous (/ 18 18)) (au lieu de (/ 20 20)) )
ou bien que je mette #(set-global-staff-size 18)

Bien à vous,
L.C.

Le 14/03/12 23:06, Xavier Scheuer a écrit :
> 2012/3/10 Loïc Chahine<[email-masked]>:
>> Bonsoir à tous !
>> En cherchant un peu, il y a une ‘issue’ qui se rapporte à ça.
>> http://code.google.com/p/lilypond/issues/detail?id=1129
>> Mais je ne sais pas voir si ça a été corrigé !
> Bonsoir,
>
> Ce n'est pas corrigé mais Neil a donné un workaround ici :
> http://www.mail-archive.com/[email-masked]/msg16599.html
>
> %%%% LilyPond code
>
> #(define-public (layout-set-staff-size staff-size)
>
>    (define (calc-line-thickness staff-space pt)
>      (let* ((x1 (* 4.125 pt))
>             (x0 (* 5 pt))
>             (f1 (* 0.47 pt))
>             (f0 (* 0.50 pt)))
>
>        (/
>         (+
>          (* f1 (- staff-space x0))
>          (* f0 (- x1 staff-space)))
>         (- x1 x0))))
>
>    (let* ((module (current-module))
>           (pt (eval 'pt module))
>           (staff-height (* pt staff-size))
>           (ss (/ staff-height 4))
>           (factor (/ staff-height (* 20 pt)))
>           (setm! (lambda (sym val)
>                    (module-define! module sym val)))
>           (parser (eval 'parser module))
>           (pap (ly:parser-lookup parser '$defaultpaper))
>           (pango-fonts (ly:output-def-lookup pap 'pango-font-list #f)))
>
>      (setm! 'text-font-size (* 12 factor))
>      (setm! 'output-scale ss)
>      (setm! 'fonts (if pango-fonts
>                        (make-pango-font-tree (car pango-fonts)
>                                              (cadr pango-fonts)
>                                              (caddr pango-fonts)
>                                              factor)
>                        (make-century-schoolbook-tree factor)))
>      (setm! 'staff-height staff-height)
>      (setm! 'staff-space ss)
>      (setm! 'line-thickness (calc-line-thickness ss pt))
>      (setm! 'ledger-line-thickness (+ (* 0.5 pt) (/ ss 10)))
>      (setm! 'blot-diameter (* 0.4 pt))))
>
> #(define-public (pango-font-tree-wrapper roman sans typewriter factor)
>    "Call make-pango-font-tree, binding the result to 'fonts
> and cache the font names in a paper variable (pango-font-list)."
>    (let ((parser (eval 'parser (current-module))))
>
>      (ly:parser-define! parser 'pango-font-list (list roman sans typewriter))
>      (ly:parser-define! parser 'fonts
>                         (make-pango-font-tree roman sans typewriter factor))))
>
> \paper {
>    #(pango-font-tree-wrapper "Adobe Garamond Pro"
>                              "Nimbus Sans"
>                              "Luxi Mono"
>                               (/ 20 20))
> }
>
> %%%% End of LilyPond code
>
> Cordialement,
> Xavier
>