Re: Semi-flat insert to one instrument only

[Jean Abou Samra]

Le 12/04/2022 à 02:23, Riad Abdel-Gawad a écrit :
> Dear Jean,
>
> Here is an example of the type of flat with slash I need.
>
> The problem is that the "backward" flat is a Turkish (remnants from 
> the Ottoman time Empire) notation and today Arab musicians prefer the 
> "standard" notation, which is the "forward" flat with a slash through 
> it (see attached pdf and code here pasted for that pic).
>
> \version "2.22.1"
> \include "hel-arabic.ly <http://hel-arabic.ly>"
>
>
> {
> \new Staff \relative
>   \clef treble
> \omit score.TimeSignature
> \relative
> \key c \rast
> \cadenzaOn
> c'1 c'1 edb'1 edb'1 c'1 eb'1 c'1 e'1 c'1 edb'\breve
>
> }

I see. In that case, try:

\version "2.22.1"
\language "english"
\header {
  title = "Quintet"
  subtitle = "for Sout"
  subsubtitle = "for Samir Bendimered and Jan Rzewski"
  instrument = "soprano saxophone, percussion, piano, violin, contrabass"
  composer = "Riad Abdel-Gawad"
  copyright = "2022"
}

\layout {
  \context {
    \Score
    \override Accidental.stencil =
    #(lambda (grob)
       (let ((alteration (ly:grob-property grob 'alteration)))
         (if (eqv? alteration -1/4)
             (begin
               (ly:grob-set-property! grob 'restore-first #f)
               ;; In 2.23, glyph-name-alist becomes 
alteration-glyph-name-alist
               ;; (and you gain alterationGlyphs which is more convenient,
               ;; but not yet available in 2.22).
               (ly:grob-set-property! grob
                                      (if (ly:version? >= '(2 23 3))
'alteration-glyph-name-alist
                                          'glyph-name-alist)
                                      '((-1/4 . "accidentals.flat")))
               (ly:stencil-add
                (ly:accidental-interface::print grob)
                (ly:line-interface::line grob -0.6 0.7 0.7 1.65)))
             (ly:accidental-interface::print grob))))
  }
}


global = {
  \key g \minor
  \time 8/4
  \tempo 4=100
}

sopranoSax = \relative c'' {
  \global
  % Music follows here.
   }

drum = \drummode {
  \global
  % Drums follow here.

}

right = \relative c' {
  \global
  % Music follows here.

   }

left = \relative c' {
  \global
  % Music follows here.
  }
violin =  \relative c''{
  \global
  % Music follows here.
  d1~ d4 c8 d8 ef8 d8 c8 ef8
fs1 ~ fs4 a,8 bf c bf a c bf1~ bf4 fs8 g a g fs8 af |
g'f ef f eqf d eqf  }


contrabass = \relative c {
  \global
  % Music follows here.
 }

sopranoSaxPart = \new Staff \with {
  instrumentName = "Soprano Sax"
  shortInstrumentName = "S. Sax"
  midiInstrument = "soprano sax"
} \sopranoSax

drumsPart = \new DrumStaff \with {
  \consists "Instrument_name_engraver"
  instrumentName = "Drums"
  shortInstrumentName = "Dr."
} \drum

pianoPart = \new PianoStaff \with {
  instrumentName = "Piano"
  shortInstrumentName = "P-no"
} <<
  \new Staff = "right" \with {
    midiInstrument = "acoustic grand"
  } \right
  \new Staff = "left" \with {
    midiInstrument = "acoustic grand"
  } { \clef bass \left }
>>

violinPart = \new Staff \with {
  instrumentName = "Violin"
  shortInstrumentName = "Vln."
  midiInstrument = "violin"
} \violin

contrabassPart = \new Staff \with {
  instrumentName = "Contrabass"
  shortInstrumentName = "Contrabass"
  midiInstrument = "contrabass"
} { \clef bass \contrabass }

\score {
  <<
    \sopranoSaxPart
    \drumsPart
    \pianoPart
    \violinPart
    \contrabassPart
  >>
  \layout { }
  \midi { }
}


The values in (ly:line-interface::line ...) are to be adjusted to your 
liking.

Best,
Jean