Subject: Visibilité des «+»

From: Bernard Meylan <[email-masked]>
Date: Mon, 16 Feb 2015 06:26:49 -0700 (MST)

Bonjour à tous,

je cherche à augmenter la visibilité des «+» utilisés dans des motets
français; non pas en augmentant leur taille de fonte, mais en les
«grassifiant» ou épaississant.

Le code pour obtenir le signe se trouve dans un fichier concocté par notre
ami Nicolas:

plus =
#(make-music 'HeadOrnamentationEvent
   'shift-when-on-line #t
   'left-text #{ \markup \fontsize #-3 \musicglyph #"scripts.stopped" #})

J'ai introduit un \bold après le \fontsize pensant que ça devrait suffire...
des clous!
têtu, je remplace la dernière ligne par celle-ci:

'left-text #{ \markup { \override #'(font-name . "Garamond Premier Pro
Bold") \fontsize #1 "+" }})

mais rien à fiche, ça ne marche pas...

Avant de revenir à la bonne vieille plume, papier et pigeon voyageur, qqun
aurait-il un bout de solution?

Bernard

-----
Cordialement

Bernard
--
View this message in context: http://lilypond-french-users.1298960.n2.nabble.com/Visibilite-des-tp7582258.html
Sent from the LilyPond French Users mailing list archive at Nabble.com.

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Mon, 16 Feb 2015 16:20:37 +0100

Bonjour Bernard,

> J'ai introduit un \bold après le \fontsize pensant que ça devrait

Non, ça ne peut marcher puisqu'il n'existe pas de glyphes '\bold'

> aurait-il un bout de solution?

Deux propositions :
- Une en superposant le glyphe avec un léger décalage.
- Une en redessinant le glyphe.

Soit :

plus =

plusBold =
#(make-music 'HeadOrnamentationEvent
   'shift-when-on-line #t
   'left-text #{
            \markup\concat\fontsize #-3 {
              \musicglyph #"scripts.stopped"
              \hspace #-.84
              \raise #.03 \musicglyph #"scripts.stopped"
              \hspace #.1
            }
         #})

plusBoldAlter =
#(make-music 'HeadOrnamentationEvent
   'shift-when-on-line #t
   'left-text #{
            \markup\concat {
              \override #'(thickness . 2.6)
              \draw-line #'(-.6 . 0)
              \hspace #-.55
              \raise #.29
              \override #'(thickness . 2.6)
              \draw-line #'(0 . -.6)
              \hspace #-.2
            }
         #})

%% tests :

{
  c''\plus c'' \plusBold c'' \plusBoldAlter
}

Cordialement,
Pierre

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Mon, 16 Feb 2015 17:36:22 +0100

Edit :

>               \override #'(thickness . 2.6)

Je reviens sur ce que j'ai écrit : pas une bonne idée car 'plusBoldAlter'
ne s'adapte pas aux changement de tailles globales.
Donc il vaut mieux écrire :

plusBoldAlter =
#(make-music 'HeadOrnamentationEvent
   'shift-when-on-line #t
   'left-text #{
            \markup\concat {
              \combine
              \override #'(thickness . 2.6)
              \draw-line #'(-.64 . 0)
              \translate-scaled #'(-.32 . .32)
              \override #'(thickness . 2.6)
              \draw-line #'(0 . -.64)
              \hspace #-.5
            }
         #})

%% Test :
%#(set-global-staff-size 60)

{
  c''\plusBoldAlter
}

Cordialement,
Pierre