On Sat 25 Apr 2020 at 21:11:50 (-0400), Freeman Gilmore wrote:
> On Sat, Apr 25, 2020 at 8:20 PM David Wright <[email protected]>
> wrote:
> > On Sat 25 Apr 2020 at 19:40:47 (-0400), Freeman Gilmore wrote:
> > > Is there an app that can search inside LilyPond?
> > >
> > > For example in makam.ly there is: \override
> > KeySignature.glyph-name-alist =
> > > \makamGlyphs .
> > >
> > > I would like to find where, \makamGlyphs, is defined.
> >
> > $ grep -r makamGlyphs lilypond-2.21.0-1.linux-64/
[…]
> > (best piped into less) or
> >
> > $ less $(grep -r -l 'makamGlyphs' lilypond-2.21.0-1.linux-64/)
> > $
> >
> > which will open a set of matching files in less.
> >
>
> This is probably what i am looking for, i use windows.
> $ less $(grep -r -l 'makamGlyphs' lilypond-2.21.0-1.linux-64/) $ Help!
I'm afraid that windows users will have to step up. I haven't used it
since the days of dos6.22 and windows 3.11 in about 1997.
Cheers,
David.
\version "2.19.22"
%{
Define 1/9 alterations.
%}
#(define-public EKSIK-IKI 5/18)
#(define-public EKSIK-UC 6/18)
#(define-public KOMA 1/9)
#(define-public BAKIYE 4/9)
#(define-public KUCUK 5/9)
#(define-public BUYUKMUCENNEB 8/9)
%{
Define pitch names
%}
makamPitchNames = #`(
(c . ,(ly:make-pitch -1 0 NATURAL))
(d . ,(ly:make-pitch -1 1 NATURAL))
(e . ,(ly:make-pitch -1 2 NATURAL))
(f . ,(ly:make-pitch -1 3 NATURAL))
(g . ,(ly:make-pitch -1 4 NATURAL))
(a . ,(ly:make-pitch -1 5 NATURAL))
(b . ,(ly:make-pitch -1 6 NATURAL))
(cc . ,(ly:make-pitch -1 0 KOMA))
(dc . ,(ly:make-pitch -1 1 KOMA))
(ec . ,(ly:make-pitch -1 2 KOMA))
(fc . ,(ly:make-pitch -1 3 KOMA))
(gc . ,(ly:make-pitch -1 4 KOMA))
(ac . ,(ly:make-pitch -1 5 KOMA))
(bc . ,(ly:make-pitch -1 6 KOMA))
(cb . ,(ly:make-pitch -1 0 BAKIYE))
(db . ,(ly:make-pitch -1 1 BAKIYE))
(eb . ,(ly:make-pitch -1 2 BAKIYE))
(fb . ,(ly:make-pitch -1 3 BAKIYE))
(gb . ,(ly:make-pitch -1 4 BAKIYE))
(ab . ,(ly:make-pitch -1 5 BAKIYE))
(bb . ,(ly:make-pitch -1 6 BAKIYE))
(ck . ,(ly:make-pitch -1 0 KUCUK))
(dk . ,(ly:make-pitch -1 1 KUCUK))
(ek . ,(ly:make-pitch -1 2 KUCUK))
(fk . ,(ly:make-pitch -1 3 KUCUK))
(gk . ,(ly:make-pitch -1 4 KUCUK))
(ak . ,(ly:make-pitch -1 5 KUCUK))
(bk . ,(ly:make-pitch -1 6 KUCUK))
(cbm . ,(ly:make-pitch -1 0 BUYUKMUCENNEB))
(dbm . ,(ly:make-pitch -1 1 BUYUKMUCENNEB))
(ebm . ,(ly:make-pitch -1 2 BUYUKMUCENNEB))
(fbm . ,(ly:make-pitch -1 3 BUYUKMUCENNEB))
(gbm . ,(ly:make-pitch -1 4 BUYUKMUCENNEB))
(abm . ,(ly:make-pitch -1 5 BUYUKMUCENNEB))
(bbm . ,(ly:make-pitch -1 6 BUYUKMUCENNEB))
;; f for flat.
(cfc . ,(ly:make-pitch -1 0 (- KOMA)))
(dfc . ,(ly:make-pitch -1 1 (- KOMA)))
(efc . ,(ly:make-pitch -1 2 (- KOMA)))
(ffc . ,(ly:make-pitch -1 3 (- KOMA)))
(gfc . ,(ly:make-pitch -1 4 (- KOMA)))
(afc . ,(ly:make-pitch -1 5 (- KOMA)))
(bfc . ,(ly:make-pitch -1 6 (- KOMA)))
(cfb . ,(ly:make-pitch -1 0 (- BAKIYE)))
(dfb . ,(ly:make-pitch -1 1 (- BAKIYE)))
(efb . ,(ly:make-pitch -1 2 (- BAKIYE)))
(ffb . ,(ly:make-pitch -1 3 (- BAKIYE)))
(gfb . ,(ly:make-pitch -1 4 (- BAKIYE)))
(afb . ,(ly:make-pitch -1 5 (- BAKIYE)))
(bfb . ,(ly:make-pitch -1 6 (- BAKIYE)))
(cfk . ,(ly:make-pitch -1 0 (- KUCUK)))
(dfk . ,(ly:make-pitch -1 1 (- KUCUK)))
(efk . ,(ly:make-pitch -1 2 (- KUCUK)))
(ffk . ,(ly:make-pitch -1 3 (- KUCUK)))
(gfk . ,(ly:make-pitch -1 4 (- KUCUK)))
(afk . ,(ly:make-pitch -1 5 (- KUCUK)))
(bfk . ,(ly:make-pitch -1 6 (- KUCUK)))
(cfi . ,(ly:make-pitch -1 0 (- EKSIK-IKI)))
(dfi . ,(ly:make-pitch -1 1 (- EKSIK-IKI)))
(efi . ,(ly:make-pitch -1 2 (- EKSIK-IKI)))
(ffi . ,(ly:make-pitch -1 3 (- EKSIK-IKI)))
(gfi . ,(ly:make-pitch -1 4 (- EKSIK-IKI)))
(afi . ,(ly:make-pitch -1 5 (- EKSIK-IKI)))
(bfi . ,(ly:make-pitch -1 6 (- EKSIK-IKI)))
(cfu . ,(ly:make-pitch -1 0 (- EKSIK-UC)))
(dfu . ,(ly:make-pitch -1 1 (- EKSIK-UC)))
(efu . ,(ly:make-pitch -1 2 (- EKSIK-UC)))
(ffu . ,(ly:make-pitch -1 3 (- EKSIK-UC)))
(gfu . ,(ly:make-pitch -1 4 (- EKSIK-UC)))
(afu . ,(ly:make-pitch -1 5 (- EKSIK-UC)))
(bfu . ,(ly:make-pitch -1 6 (- EKSIK-UC)))
(cfbm . ,(ly:make-pitch -1 0 (- BUYUKMUCENNEB)))
(dfbm . ,(ly:make-pitch -1 1 (- BUYUKMUCENNEB)))
(efbm . ,(ly:make-pitch -1 2 (- BUYUKMUCENNEB)))
(ffbm . ,(ly:make-pitch -1 3 (- BUYUKMUCENNEB)))
(gfbm . ,(ly:make-pitch -1 4 (- BUYUKMUCENNEB)))
(afbm . ,(ly:make-pitch -1 5 (- BUYUKMUCENNEB)))
(bfbm . ,(ly:make-pitch -1 6 (- BUYUKMUCENNEB)))
)
%% set pitch names.
pitchnames = \makamPitchNames
#(ly:parser-set-note-names makamPitchNames)
#(define eksikMirroredSlashedFlat
(if (defined? 'eksikMirroredSlashedFlat)
eksikMirroredSlashedFlat #f))
makamGlyphs = #`((1 . "accidentals.doublesharp")
(8/9 . "accidentals.sharp.slashslashslash.stemstem")
(5/9 . "accidentals.sharp.slashslashslash.stem")
(4/9 . "accidentals.sharp")
(1/9 . "accidentals.sharp.slashslash.stem")
(0 . "accidentals.natural")
(-1/9 . "accidentals.mirroredflat")
(-5/18 . ,(if eksikMirroredSlashedFlat
"accidentals.mirroredflat.backslash"
"accidentals.mirroredflat"))
(-6/18 . ,(if eksikMirroredSlashedFlat
"accidentals.mirroredflat.backslash"
"accidentals.mirroredflat"))
(-4/9 . "accidentals.flat.slash")
(-5/9 . "accidentals.flat")
(-8/9 . "accidentals.flat.slashslash")
(-1 . "accidentals.flatflat"))
\layout {
\context {
\Score
\override KeySignature.glyph-name-alist = \makamGlyphs
\override Accidental.glyph-name-alist = \makamGlyphs
\override AccidentalCautionary.glyph-name-alist = \makamGlyphs
\override TrillPitchAccidental.glyph-name-alist = \makamGlyphs
\override AmbitusAccidental.glyph-name-alist = \makamGlyphs
}
}
%% This file is part of LilyPond, the GNU music typesetter.
%% This file can replace arabic.ly for people wanting to use c d e f g a b
%% instead of do re mi fa sol la si
%
%
%% Copyright (C) 2014--2019 Hassan EL FATIHI <[email protected]>
%%
%% LilyPond is free software: you can redistribute it and/or modify
%% it under the terms of the GNU General Public License as published by
%% the Free Software Foundation, either version 3 of the License, or
%% (at your option) any later version.
%% LilyPond is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
%% GNU General Public License for more details.
%% You should have received a copy of the GNU General Public License
%% along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
\version "2.21.0"
\language "arabic"
%% set pitch names.
HelmakamGlyphs = #'(
(1 . "accidentals.doublesharp")
(1/4 . "accidentals.sharp.slashslash.stem")
(3/4 . "accidentals.sharp.slashslashslash.stem")
(5/2 . "accidentals.sharp.slashslashslash.stemstem")
(7/2 . "accidentals.sharp.slashslash.stemstemstem")
(1/2 . "accidentals.sharp")
(0 . "accidentals.natural")
(-1/4 . "accidentals.flat.slash")
(-3/4 . "accidentals.mirroredflat.flat")
(-5/2 . "accidentals.flatflat.slash")
(-7/2 . "accidentals.flat.slashslash")
(-1/2 . "accidentals.flat")
(-1 . "accidentals.flatflat")
)
\layout {
\context {
\Score
\override KeySignature #'glyph-name-alist = \HelmakamGlyphs
\override Accidental #'glyph-name-alist = \HelmakamGlyphs
\override AccidentalCautionary #'glyph-name-alist = \HelmakamGlyphs
\override TrillPitchAccidental #'glyph-name-alist = \HelmakamGlyphs
\override AmbitusAccidental #'glyph-name-alist = \HelmakamGlyphs
}
}
%% The keys
%% Rast: c d edb f g a bdb c c bb a g f edb d c
%% This key can also be used for:
%% Irak: bdb c d edb f g a bdb
%% Rahatalarouah: bdb c d edb fd g a bdb
%% Alboustankar: bdb c d edb f gb a bdb
%% Sajakar: c dd edb f g a bdb altering the note d with dd (dis)
rast = #`(
(0 . ,NATURAL)
(1 . ,NATURAL)
(2 . ,SEMI-FLAT)
(3 . ,NATURAL)
(4 . ,NATURAL)
(5 . ,NATURAL)
(6 . ,SEMI-FLAT)
)
%% Souznak: c' d' edb' f' g' ab' b' c'' c'' b' ab' g' f' edb' d' c'
souznak = #`(
(0 . ,NATURAL)
(1 . ,NATURAL)
(2 . ,SEMI-FLAT)
(3 . ,NATURAL)
(4 . ,NATURAL)
(5 . ,FLAT)
(6 . ,NATURAL)
)
%% Alhizazkar: c db e f g ab b c c b ab g f e db c
alhizazkar = #`(
(0 . ,NATURAL)
(1 . ,FLAT)
(2 . ,NATURAL)
(3 . ,NATURAL)
(4 . ,NATURAL)
(5 . ,FLAT)
(6 . ,NATURAL)
)
%% Hizazkarkurdy: c db eb f g ab bb c c bb ab g f eb db c
hizazkarkurdy = #`(
(0 . ,NATURAL)
(1 . ,FLAT)
(2 . ,FLAT)
(3 . ,NATURAL)
(4 . ,NATURAL)
(5 . ,FLAT)
(6 . ,FLAT)
)
%% Nahawande: c d eb f g ab b c c bb ab g f eb d c
nahawande = #`(
(0 . ,NATURAL)
(1 . ,NATURAL)
(2 . ,FLAT)
(3 . ,NATURAL)
(4 . ,NATURAL)
(5 . ,FLAT)
(6 . ,NATURAL)
)
%% Nawaatar: c d eb fd g ab b c c b ab g fd eb d c
nawaatar = #`(
(0 . ,NATURAL)
(1 . ,NATURAL)
(2 . ,FLAT)
(3 . ,SHARP)
(4 . ,NATURAL)
(5 . ,FLAT)
(6 . ,NATURAL)
)
%% Nakriz: c d eb fd g a bb c c bb a g fd eb d c
nakriz = #`(
(0 . ,NATURAL)
(1 . ,NATURAL)
(2 . ,FLAT)
(3 . ,SHARP)
(4 . ,NATURAL)
(5 . ,NATURAL)
(6 . ,FLAT)
)
%% Bayati: d edb f g a bb c d c bb a g f edb d c
%% Bayati: en do: c' ddb' eb' f' g' ab' bb' c'' c'' bb' ab'g' f' eb' ddb' c'
bayati = #`(
(0 . ,NATURAL)
(1 . ,SEMI-FLAT)
(2 . ,FLAT)
(3 . ,NATURAL)
(4 . ,NATURAL)
(5 . ,FLAT)
(6 . ,FLAT)
)
%% Houssaini: d edb f g a bdb c d c bb a g f edb d c
%% Houssaini: en do: c ddb eb f g adb bb c c bb ab g f eb ddb c
houssaini = #`(
(0 . ,NATURAL)
(1 . ,SEMI-FLAT)
(2 . ,FLAT)
(3 . ,NATURAL)
(4 . ,NATURAL)
(5 . ,SEMI-FLAT)
(6 . ,FLAT)
)
%% Karjkhar: d' edb' f' g' ab' b' c'' d'' d'' b' ab' g' f' edb d
%% Karjkhar: en do: c' ddb' eb' f' gb' a' bb' c''bb' a' gb' f' eb' dbd' c'
karjkhar = #`(
(0 . ,NATURAL)
(1 . ,SEMI-FLAT)
(2 . ,FLAT)
(3 . ,NATURAL)
(4 . ,FLAT)
(5 . ,NATURAL)
(6 . ,FLAT)
)
%% Saba: d edb f gb a bb c d c bb a gb f edb d
%% Saba en do: c ddb eb fb g ab bb c c bb ab g fb eb ddb c
saba = #`(
(0 . ,NATURAL)
(1 . ,SEMI-FLAT)
(2 . ,FLAT)
(3 . ,FLAT)
(4 . ,NATURAL)
(5 . ,FLAT)
(6 . ,FLAT)
)
%% Kurd: d eb f g a bb c d c bb a g f eb d
%% Kurd: en do: c db eb f g ab bb c c bb ab g f eb db c
kurd = #`(
(0 . ,NATURAL)
(1 . ,FLAT)
(2 . ,FLAT)
(3 . ,NATURAL)
(4 . ,NATURAL)
(5 . ,FLAT)
(6 . ,FLAT)
)
%% Sahnaz: d' eb' fd' g' a' bb' cd'' d''
%% Sahnaz: eb do: c' db' e' f' g' ab' b' c''
sahnaz = #`(
(0 . ,NATURAL)
(1 . ,FLAT)
(2 . ,NATURAL)
(3 . ,NATURAL)
(4 . ,NATURAL)
(5 . ,FLAT)
(6 . ,NATURAL)
)
%% Gammes commençant par midb
%% Huzam: edb f g ab b c d edb edb d c b ab f ebd: mi et la altérées
%% Huzam: en do: c ddb edb fdb gdd adb bdb c c bdb adb gdd fdb edb ddb c
huzam = #`(
(0 . ,NATURAL)
(1 . ,SEMI-FLAT)
(2 . ,SEMI-FLAT)
(3 . ,SEMI-FLAT)
(4 . ,SEMI-SHARP)
(5 . ,SEMI-FLAT)
(6 . ,SEMI-FLAT)
)
%% Sikah: edb f g a bdb d edb edb d a bb a g f edb
%% Sikah: en do: c ddb edb fdd g adb bdb c c bdb adb gdb fdd edb ddb c
sikah = #`(
(0 . ,NATURAL)
(1 . ,SEMI-FLAT)
(2 . ,SEMI-FLAT)
(3 . ,SEMI-SHARP)
(4 . ,NATURAL)
(5 . ,SEMI-FLAT)
(6 . ,SEMI-FLAT)
)
%% Yakah: g a bdb c d e fdd g g f edb d c bdb a g
%% Yakah: en do: c' ddb' edb' f' gdb' adb' bdb' c'' cdb'' bdb' adb' gdb' f'
edb' ddb' c
yakah = #`(
(0 . ,NATURAL)
(1 . ,NATURAL)
(2 . ,SEMI-FLAT)
(3 . ,NATURAL)
(4 . ,NATURAL)
(5 . ,NATURAL)
(6 . ,SEMI-FLAT)
)
%% Hizaz Avec sib et mib: d' eb' fd' g' a' bdb' c'' d'' d'' c''bb' a' g' fd'
eb' d'
%% Hizaz: en do: c db e f g adb bb c c bb ab g f e db c
hizaz = #`(
(0 . ,NATURAL)
(1 . ,FLAT)
(2 . ,NATURAL)
(3 . ,NATURAL)
(4 . ,NATURAL)
(5 . ,SEMI-FLAT)
(6 . ,FLAT)
)
%% Jaharkah: f g a bb c d edb f f eb d c bb a g f
%% Jaharkah: en do : c d e f g a bdb c c bb a g f e d c
jaharkah = #`(
(0 . ,NATURAL)
(1 . ,NATURAL)
(2 . ,NATURAL)
(3 . ,NATURAL)
(4 . ,NATURAL)
(5 . ,NATURAL)
(6 . ,SEMI-FLAT)
)
%% Chatarabane: g ab b c d eb fd g f eb d c bb ab g
%% Chatarabane: en do : c db e f g ab b
chatarabane = #`(
(0 . ,NATURAL)
(1 . ,FLAT)
(2 . ,NATURAL)
(3 . ,NATURAL)
(4 . ,NATURAL)
(5 . ,FLAT)
(6 . ,NATURAL)
)
%% Farahfaza: g a bb c d eb f g f eb d c bb a g
%% Farahfaza: en do: c d eb f g ab bb
farahfaza = #`(
(0 . ,NATURAL)
(1 . ,NATURAL)
(2 . ,FLAT)
(3 . ,NATURAL)
(4 . ,NATURAL)
(5 . ,FLAT)
(6 . ,FLAT)
)
\layout {
indent = #0
\context {
\Score
keyAlterationOrder = #`(
(6 . ,FLAT) (2 . ,FLAT) (5 . ,FLAT) (1 . ,FLAT)
(4 . ,FLAT) (0 . ,FLAT) (3 . ,FLAT)
(6 . ,SEMI-FLAT) (2 . ,SEMI-FLAT) (5 . ,SEMI-FLAT) (1 . ,SEMI-FLAT)
(4 . ,SEMI-FLAT) (0 . ,SEMI-FLAT) (3 . ,SEMI-FLAT)
(3 . ,SHARP) (0 . ,SHARP) (4 . ,SHARP) (1 . ,SHARP)
(5 . ,SHARP) (2 . ,SHARP) (6 . ,SHARP)
(3 . ,SEMI-SHARP) (0 . ,SEMI-SHARP) (4 . ,SEMI-SHARP) (1 . ,SEMI-SHARP)
(5 . ,SEMI-SHARP) (2 . ,SEMI-SHARP) (6 . ,SEMI-SHARP)
(6 . ,DOUBLE-FLAT) (2 . ,DOUBLE-FLAT) (5 . ,DOUBLE-FLAT) (1 .
,DOUBLE-FLAT)
(4 . ,DOUBLE-FLAT) (0 . ,DOUBLE-FLAT) (3 . ,DOUBLE-FLAT)
(3 . ,DOUBLE-SHARP) (0 . ,DOUBLE-SHARP) (4 . ,DOUBLE-SHARP) (1 .
,DOUBLE-SHARP)
(5 . ,DOUBLE-SHARP) (2 . ,DOUBLE-SHARP) (6 . ,DOUBLE-SHARP)
)
}
}
