Hans and everyone,
This is about as much as I can do for a new Turkish Makam .ly file,
see attached: turkish-makam.ly Hans it's very similar to what I sent you
privately, took out some unwanted pitch definitions.
I can see this replacing the current makam.ly file since it uses the same
pitch names and glyphs etc.
One thing to work on and it should be spelled out in the file is the use of
2.5 koma...I haven't yet figured that one out. Any thoughts?
Attached is also a file showing all of the key signatures
defined, turkish-makam-KEYSIGNATURE-DEMO.ly
Adam
%\version "2.19.82"
\version "2.18.2"
%{
% 53-ET alterations in terms of 12-ET whole tones.
%}
#(define-public KOMA 1/10)
#(define-public BAKIYE 4/10)
#(define-public KUCUK 5/10)
#(define-public BUYUKMUCENNEB 8/10)
%%% WORK ON EKSIKMIRROREDSLASHED. Need 2.5k, not 2k
#(define-public EKSIK-IKI 2/10)
#(define-public EKSIK-UC 3/10)
%{
Define pitch names
%}
makamPitchNames = #`(
(cfbm . ,(ly:make-pitch -1 0 (- BUYUKMUCENNEB)))
(cfk . ,(ly:make-pitch -1 0 (- KUCUK)))
(cfb . ,(ly:make-pitch -1 0 (- BAKIYE)))
(cfu . ,(ly:make-pitch -1 0 (- EKSIK-UC)))
(cfi . ,(ly:make-pitch -1 0 (- EKSIK-IKI)))
(cfc . ,(ly:make-pitch -1 0 (- KOMA)))
(c . ,(ly:make-pitch -1 0 NATURAL))
(cc . ,(ly:make-pitch -1 0 KOMA))
(cb . ,(ly:make-pitch -1 0 BAKIYE))
(ck . ,(ly:make-pitch -1 0 KUCUK))
(cbm . ,(ly:make-pitch -1 0 BUYUKMUCENNEB))
(dfbm . ,(ly:make-pitch -1 1 (- BUYUKMUCENNEB)))
(dfk . ,(ly:make-pitch -1 1 (- KUCUK)))
(dfb . ,(ly:make-pitch -1 1 (- BAKIYE)))
(dfu . ,(ly:make-pitch -1 1 (- EKSIK-UC)))
(dfi . ,(ly:make-pitch -1 1 (- EKSIK-IKI)))
(dfc . ,(ly:make-pitch -1 1 (- KOMA)))
(d . ,(ly:make-pitch -1 1 NATURAL))
(dc . ,(ly:make-pitch -1 1 KOMA))
(db . ,(ly:make-pitch -1 1 BAKIYE))
(dk . ,(ly:make-pitch -1 1 KUCUK))
(dbm . ,(ly:make-pitch -1 1 BUYUKMUCENNEB))
(efbm . ,(ly:make-pitch -1 2 (- BUYUKMUCENNEB)))
(efk . ,(ly:make-pitch -1 2 (- KUCUK)))
(efb . ,(ly:make-pitch -1 2 (- BAKIYE)))
(efu . ,(ly:make-pitch -1 2 (- EKSIK-UC)))
(efi . ,(ly:make-pitch -1 2 (- EKSIK-IKI)))
(efc . ,(ly:make-pitch -1 2 (- KOMA)))
(e . ,(ly:make-pitch -1 2 NATURAL))
(ec . ,(ly:make-pitch -1 2 KOMA))
(eb . ,(ly:make-pitch -1 2 BAKIYE))
(ek . ,(ly:make-pitch -1 2 KUCUK))
(ebm . ,(ly:make-pitch -1 2 BUYUKMUCENNEB))
(ffbm . ,(ly:make-pitch -1 3 (- BUYUKMUCENNEB)))
(ffk . ,(ly:make-pitch -1 3 (- KUCUK)))
(ffb . ,(ly:make-pitch -1 3 (- BAKIYE)))
(ffu . ,(ly:make-pitch -1 3 (- EKSIK-UC)))
(ffi . ,(ly:make-pitch -1 3 (- EKSIK-IKI)))
(ffc . ,(ly:make-pitch -1 3 (- KOMA)))
(f . ,(ly:make-pitch -1 3 NATURAL))
(fc . ,(ly:make-pitch -1 3 KOMA))
(fb . ,(ly:make-pitch -1 3 BAKIYE))
(fk . ,(ly:make-pitch -1 3 KUCUK))
(fbm . ,(ly:make-pitch -1 3 BUYUKMUCENNEB))
(gfbm . ,(ly:make-pitch -1 4 (- BUYUKMUCENNEB)))
(gfk . ,(ly:make-pitch -1 4 (- KUCUK)))
(gfb . ,(ly:make-pitch -1 4 (- BAKIYE)))
(gfu . ,(ly:make-pitch -1 4 (- EKSIK-UC)))
(gfi . ,(ly:make-pitch -1 4 (- EKSIK-IKI)))
(gfc . ,(ly:make-pitch -1 4 (- KOMA)))
(g . ,(ly:make-pitch -1 4 NATURAL))
(gc . ,(ly:make-pitch -1 4 KOMA))
(gb . ,(ly:make-pitch -1 4 BAKIYE))
(gk . ,(ly:make-pitch -1 4 KUCUK))
(gbm . ,(ly:make-pitch -1 4 BUYUKMUCENNEB))
(afbm . ,(ly:make-pitch -1 5 (- BUYUKMUCENNEB)))
(afk . ,(ly:make-pitch -1 5 (- KUCUK)))
(afb . ,(ly:make-pitch -1 5 (- BAKIYE)))
(afu . ,(ly:make-pitch -1 5 (- EKSIK-UC)))
(afi . ,(ly:make-pitch -1 5 (- EKSIK-IKI)))
(afc . ,(ly:make-pitch -1 5 (- KOMA)))
(a . ,(ly:make-pitch -1 5 NATURAL))
(ac . ,(ly:make-pitch -1 5 KOMA))
(ab . ,(ly:make-pitch -1 5 BAKIYE))
(ak . ,(ly:make-pitch -1 5 KUCUK))
(abm . ,(ly:make-pitch -1 5 BUYUKMUCENNEB))
(bfbm . ,(ly:make-pitch -1 6 (- BUYUKMUCENNEB)))
(bfk . ,(ly:make-pitch -1 6 (- KUCUK)))
(bfb . ,(ly:make-pitch -1 6 (- BAKIYE)))
(bfu . ,(ly:make-pitch -1 6 (- EKSIK-UC)))
(bfi . ,(ly:make-pitch -1 6 (- EKSIK-IKI)))
(bfc . ,(ly:make-pitch -1 6 (- KOMA)))
(b . ,(ly:make-pitch -1 6 NATURAL))
(bc . ,(ly:make-pitch -1 6 KOMA))
(bb . ,(ly:make-pitch -1 6 BAKIYE))
(bk . ,(ly:make-pitch -1 6 KUCUK))
(bbm . ,(ly:make-pitch -1 6 BUYUKMUCENNEB))
)
%% Set pitch names.
pitchnames = \makamPitchNames
#(ly:parser-set-note-names parser makamPitchNames)
tuning = #53
\include "regular.ly"
%%% WORK ON EKSIKMIRROREDSLASHED
#(define eksikMirroredSlashedFlat
(if (defined? 'eksikMirroredSlashedFlat)
eksikMirroredSlashedFlat #f))
%%% For Turkish Makam, need 6/53, 18/53, 24/53, 30/53, 48/53
makamGlyphs = #`(
(-48/53 . "accidentals.flat.slashslash")
(-30/53 . "accidentals.flat")
(-24/53 . "accidentals.flat.slash")
(-18/53 . "accidentals.flat.slash")
(-12/53 . ,(if eksikMirroredSlashedFlat "accidentals.mirroredflat.backslash" "accidentals.mirroredflat"))
(-6/53 . "accidentals.mirroredflat")
(0 . "accidentals.natural")
(6/53 . "accidentals.sharp.slashslash.stem")
(18/53 . "accidentals.sharp")
(24/53 . "accidentals.sharp")
(30/53 . "accidentals.sharp.slashslashslash.stem")
(48/53 . "accidentals.sharp.slashslashslash.stemstem")
)
%%% WORK ON EKSIKMIRROREDSLASHED
%{
(-3/10 . ,(if eksikMirroredSlashedFlat
"accidentals.mirroredflat.backslash"
"accidentals.mirroredflat"))
%}
%% Set Makam Key Signatures
%%% Cargah and transpositions
Cargah = #'((0 . 0)(1 . 0)(2 . 0)(3 . 0)(4 . 0)(5 . 0)(6 . 0))
AcemAsiran=\Cargah
Mahur=\Cargah
Suzidilara=\Cargah
Zavil=\Cargah
Tarzicedid=\Cargah
%%% Rast and similar
Rast = #'((0 . 0)(1 . 0)(2 . -6/53)(3 . 0)(4 . 0)(5 . 0)(6 . -6/53))
Pencgah=\Rast
Pesendide=\Rast
Rehavi=\Rast
Sazkar=\Rast
Sevkedil=\Rast
Suznak = #'((0 . 0)(1 . 0)(2 . -6/53)(3 . 0)(4 . 0)(5 . -24/53)(6 . -6/53))
Serefnuma=\Suznak
%%% Ussak and similar
Ussak = #'((0 . 0)(1 . -6/53)(2 . -30/53)(3 . 0)(4 . 0)(5 . -30/53)(6 . -30/53))
Acem=\Ussak
Beyati=\Ussak
Hisar=\Ussak
Isfahan=\Ussak
Isfahanek=\Ussak
YeniSipihr=\Ussak
%%% Buselik and transpositions and similar
Buselik = #'((0 . 0)(1 . 0)(2 . -30/53)(3 . 0)(4 . 0)(5 . -30/53)(6 . -30/53))
Ferahfeza=\Buselik
HisarBuselik=\Buselik
Nihavend=\Buselik
Ruhnuvaz=\Buselik
SehnazBuselik=\Buselik
Zirefkend=\Buselik
%%% Neva and similar
Neva = #'((0 . 0)(1 . -6/53)(2 . -30/53)(3 . 0)(4 . 0)(5 . -6/53)(6 . -30/53))
Gerdaniye=\Neva
Gulizar=\Neva
Huseyni=\Neva
Muhayyer=\Neva
SultaniIrak=\Neva
Tahir=\Neva
TahirBuselik=\Neva
%%% Kurdi and similar and transpositions
Kurdi = #'((0 . 0)(1 . -30/53)(2 . -30/53)(3 . 0)(4 . 0)(5 . -30/53)(6 . -30/53))
AcemKurdi=\Kurdi
Askevza=\Kurdi
MuhayyerKurdi=\Kurdi
KurdiliHicazkar=\Kurdi
Ferahnuma=\Kurdi
%%% Hicaz and similar
Hicaz = #'((0 . 0)(1 . -24/53)(2 . -6/53)(3 . 0)(4 . 0)(5 . -6/53)(6 . -30/53))
HicazHumayun = #'((0 . 0)(1 . -24/53)(2 . -6/53)(3 . 0)(4 . 0)(5 . -30/53)(6 . -30/53))
HicazZirgule = #'((0 . 0)(1 . -24/53)(2 . -6/53)(3 . 0)(4 . 0)(5 . -24/53)(6 . -6/53))
Hicazkar=\HicazZirgule
SedAraban=\HicazZirgule
HicazUzzal=\Hicaz
Sehnaz=\HicazHumayun
%%% cc is printed because of transposition of zirgule. Keep?
Suzidil=\HicazZirgule
%%% Karcigar and similar
Karcigar = #'((0 . 0)(1 . -6/53)(2 . -30/53)(3 . 0)(4 . -24/53)(5 . -6/53)(6 . -30/53))
BeyatiAraban=\Karcigar
%%% Saba and similar
Saba = #'((0 . 0)(1 . -6/53)(2 . -30/53)(3 . -24/53)(4 . 0)(5 . -30/53)(6 . -30/53))
Dugah=\Saba
MuhayyerSunbule=\Saba
SabaZemzeme=\Saba
Eskisipihr=\Saba
Kucek=\Saba
%%% HuseyniAsiran and similar
HuseyniAsiran = #'((0 . 0)(1 . -6/53)(2 . -30/53)(3 . 0)(4 . -6/53)(5 . -30/53)(6 . -30/53))
Nuhuft=\HuseyniAsiran
%%% Yegah and similar
Yegah = #'((0 . 0)(1 . 0)(2 . -6/53)(3 . 0)(4 . 0)(5 . -6/53)(6 . -30/53))
Dilkeside=\Yegah
%%% Segah and similar
Segah = #'((0 . 0)(1 . -24/53)(2 . -24/53)(3 . 0)(4 . 0)(5 . -24/53)(6 . -24/53))
Mustear=\Segah
VechiArazbar=\Segah
%%% Huzzam uses -18/53 at 3
Huzzam = #'((0 . 0)(1 . -24/53)(2 . -24/53)(3 . -18/53)(4 . 0)(5 . -24/53)(6 . -24/53))
%%% Arazbar and similar
Arazbar = #'((0 . 0)(1 . -6/53)(2 . -30/53)(3 . 0)(4 . -6/53)(5 . -30/53)(6 . -30/53))
%%% SultaniYegah and similar
SultaniYegah = #'((0 . 0)(1 . 0)(2 . -30/53)(3 . 0)(4 . 0)(5 . -30/53)(6 . -6/53))
%%% BuselikAsiran and similar
BuselikAsiran = #'((0 . 0)(1 . -6/53)(2 . -30/53)(3 . 0)(4 . 0)(5 . -30/53)(6 . -30/53))
Canfeza = #'((0 . 0)(1 . -30/53)(2 . -30/53)(3 . 0)(4 . -6/53)(5 . -30/53)(6 . -54/53))
%%% Irak and similar
Irak = #'((0 . 0)(1 . -24/53)(2 . -24/53)(3 . 0)(4 . -24/53)(5 . -24/53)(6 . -24/53))
Evcara = #'((0 . 0)(1 . -24/53)(2 . 0)(3 . 0)(4 . 0)(5 . -24/53)(6 . 0))
Evic = #'((0 . 0)(1 . -24/53)(2 . -24/53)(3 . 0)(4 . -24/53)(5 . -24/53)(6 . -24/53))
Ferahnak = #'((0 . 0)(1 . -24/53)(2 . -24/53)(3 . 6/53)(4 . 0)(5 . -24/53)(6 . -24/53))
Dilkeshaveran=\Evic
%%% Rahatulervah uses -18/53 at 3
Rahatulervah = #'((0 . 0)(1 . -24/53)(2 . -24/53)(3 . -18/53)(4 . 0)(5 . -24/53)(6 . -24/53))
%%% Nisabur and similar
Nisabur = #'((0 . 0)(1 . -6/53)(2 . -30/53)(3 . 0)(4 . -30/53)(5 . -30/53)(6 . -30/53))
%%% CargahEski and similar
CargahEski = #'((0 . 0)(1 . -24/53)(2 . 0)(4 . 0)(5 . 0)(6 . -6/53))
%%% Guldeste and similar
Guldeste = #'((0 . 0)(1 . 0)(2 . 0)(3 . 0)(4 . 24/53)(5 . 0)(6 . 0))
%%% Buzurk and similar
Buzurk = #'((0 . 0)(1 . 0)(2 . 0)(3 . 0)(4 . 0)(5 . 0)(6 . -6/53))
%%% Nisaburek and similar
Nisaburek = #'((0 . 0)(1 . 0)(2 . -6/53)(3 . 0)(4 . 0)(5 . 0)(6 . -30/53))
%%% Neveser and similar
Neveser = #'((0 . 0)(1 . 0)(2 . -24/53)(3 . 24/53)(4 . 0)(5 . -24/53)(6 . -6/53))
%%% Nikriz and similar
Nikriz = #'((0 . 0)(1 . 0)(2 . -24/53)(3 . 24/53)(4 . 0)(5 . 0)(6 . -30/53))
%%% SultaniSegah and similar
SultaniSegah = #'((0 . 0)(1 . -6/53)(2 . -6/53)(3 . 0)(4 . 0)(5 . -6/53)(6 . -30/53))
%%% Sevkefza and similar
Sevkefza = #'((0 . 0)(1 . 0)(2 . 0)(3 . 0)(4 . 0)(5 . -24/53)(6 . 0))
%%%FLIP D AND A ORDER
Rengidil = #'((0 . 0)(1 . 0)(2 . -24/53)(3 . 24/53)(4 . 0)(5 . -24/53)(6 . 0))
Sevkitarab = #'((0 . 0)(1 . 0)(2 . 0)(3 . 24/53)(4 . 0)(5 . -24/53)(6 . 0))
Sevkaver = #'((0 . 0)(1 . 0)(2 . 0)(3 . 24/53)(4 . 0)(5 . 0)(6 . -6/53))
%%% TEST BIG TIME
Sivenuma = #'((0 . 0)(1 . 0)(2 . -30/53)(3 . 0)(4 . 0)(5 . -6/53)(6 . -30/53)(7 . -24/53))
%%%% FIGURE OUT HOW TO NOT PRINT FB IN KEY SIG
%%% BesteNigar uses -48/53 at 5
BesteNigar = #'((7 . 0)(0 . 0)(1 . -24/53)(2 . -24/53)(3 . 0)(4 . -24/53)(5 . -48/53)(6 . -24/53))
Revnaknuma = #'((0 . 0)(1 . -24/53)(2 . 0)(3 . 0)(4 . 0)(5 . -24/53)(6 . -24/53))
\layout {
\context {
\Score
%%% key alteration order
keyAlterationOrder = #`(
(6 . ,-6/53) (6 . ,-24/53) (6 . ,-30/53) (6 . ,-48/53)
(2 . ,-6/53) (2 . ,-24/53) (2 . ,-30/53) (2 . ,-48/53)
(5 . ,-6/53) (5 . ,-24/53) (5 . ,-30/53) (5 . ,-48/53)
(1 . ,-6/53) (1 . ,-24/53) (1 . ,-30/53) (1 . ,-48/53)
(4 . ,-6/53) (4 . ,-24/53) (4 . ,-30/53) (4 . ,-48/53)
(0 . ,-6/53) (0 . ,-24/53) (0 . ,-30/53) (0 . ,-48/53)
(3 . ,-6/53) (3 . ,-24/53) (3 . ,-30/53) (3 . ,-48/53)
(3 . ,6/53) (3 . ,24/53) (3 . ,30/53) (3 . ,48/53)
(0 . ,6/53) (0 . ,24/53) (0 . ,30/53) (0 . ,48/53)
(4 . ,6/53) (4 . ,24/53) (4 . ,30/53) (4 . ,48/53)
(1 . ,6/53) (1 . ,24/53) (1 . ,30/53) (1 . ,48/53)
(5 . ,6/53) (5 . ,24/53) (5 . ,30/53) (5 . ,48/53)
(2 . ,6/53) (2 . ,24/53) (2 . ,30/53) (2 . ,48/53)
(6 . ,6/53) (6 . ,24/53) (6 . ,30/53) (6 . ,48/53)
)
\override KeySignature #'padding-pairs = #'(
(("accidentals.natural" . "accidentals.natural") . 0.2)
(("accidentals.flat" . "accidentals.flat") . 0.1)
(("accidentals.flat" . "accidentals.flat.slash") . 0.0)
(("accidentals.flat" . "accidentals.mirroredflat") . 0.2)
(("accidentals.flat" . "accidentals.flat.slashslash") . 0.0)
(("accidentals.flat.slash" . "accidentals.flat") . 0.0)
(("accidentals.flat.slash" . "accidentals.flat.slash") . -0.1)
(("accidentals.flat.slash" . "accidentals.mirroredflat") . 0.0)
(("accidentals.flat.slash" . "accidentals.flat.slashslash") . 0.0)
(("accidentals.mirroredflat" . "accidentals.flat") . 0.0)
(("accidentals.mirroredflat" . "accidentals.flat.slash") . 0.4)
(("accidentals.mirroredflat" . "accidentals.mirroredflat") . 0.3)
(("accidentals.mirroredflat" . "accidentals.flat.slashslash") . 0.0)
(("accidentals.flat.slashslash" . "accidentals.flat") . 0.0)
(("accidentals.flat.slashslash" . "accidentals.flat.slash") . 0.3)
(("accidentals.flat.slashslash" . "accidentals.mirroredflat") . 0.3)
(("accidentals.flat.slashslash" . "accidentals.flat.slashslash") . -0.2)
(("accidentals.sharp" . "accidentals.sharp") . 0.1)
(("accidentals.sharp" . "accidentals.sharp.slashslash.stem") . 0.0)
(("accidentals.sharp" . "accidentals.sharp.slashslashslash.stem") . 0.0)
(("accidentals.sharp" . "accidentals.slashslashslash.stemstem") . 0.0)
(("accidentals.sharp.slashslash.stem" . "accidentals.sharp") . 0.2)
(("accidentals.sharp.slashslash.stem" . "accidentals.sharp.slashslash.stem") . 0.2)
(("accidentals.sharp.slashslash.stem" . "accidentals.sharp.slashslashslash.stem") . 0.0)
(("accidentals.sharp.slashslash.stem" . "accidentals.slashslashslash.stemstem") . 0.0)
(("accidentals.sharp.slashslashslash.stem" . "accidentals.sharp") . 0.2)
(("accidentals.sharp.slashslashslash.stem" . "accidentals.sharp.slashslash.stem") . 0.2)
(("accidentals.sharp.slashslashslash.stem" . "accidentals.sharp.slashslashslash.stem") . 0.0)
(("accidentals.sharp.slashslashslash.stem" . "accidentals.slashslashslash.stemstem") . 0.0)
(("accidentals.sharp.slashslashslash.stemstem" . "accidentals.sharp") . 0.1)
(("accidentals.sharp.slashslashslash.stemstem" . "accidentals.sharp.slashslash.stem") . 0.0)
(("accidentals.sharp.slashslashslash.stemstem" . "accidentals.sharp.slashslashslash.stem") . 0.0)
(("accidentals.sharp.slashslashslash.stemstem" . "accidentals.slashslashslash.stemstem") . 0.0)
(("accidentals.flat" . "accidentals.sharp") . 0.3)
(("accidentals.flat" . "accidentals.sharp.slashslash.stem") . 0.0)
(("accidentals.flat" . "accidentals.sharp.slashslashslash.stem") . 0.0)
(("accidentals.flat" . "accidentals.slashslashslash.stemstem") . 0.0)
(("accidentals.flat.slash" . "accidentals.sharp") . 0.3)
(("accidentals.flat.slash" . "accidentals.sharp.slashslash.stem") . 0.1)
(("accidentals.flat.slash" . "accidentals.sharp.slashslashslash.stem") . 0.3)
(("accidentals.flat.slash" . "accidentals.slashslashslash.stemstem") . 0.0)
(("accidentals.mirroredflat" . "accidentals.sharp") . 0.3)
(("accidentals.mirroredflat" . "accidentals.sharp.slashslash.stem") . 0.0)
(("accidentals.mirroredflat" . "accidentals.sharp.slashslashslash.stem") . 0.0)
(("accidentals.mirroredflat" . "accidentals.slashslashslash.stemstem") . 0.0)
(("accidentals.flat.slashslash" . "accidentals.sharp") . 0.0)
(("accidentals.flat.slashslash" . "accidentals.sharp.slashslash.stem") . 0.0)
(("accidentals.flat.slashslash" . "accidentals.sharp.slashslashslash.stem") . 0.0)
(("accidentals.flat.slashslash" . "accidentals.slashslashslash.stemstem") . 0.0)
(("accidentals.sharp" . "accidentals.flat") . 0.0)
(("accidentals.sharp" . "accidentals.flat.slash") . 0.0)
(("accidentals.sharp" . "accidentals.mirroredflat") . 0.0)
(("accidentals.sharp" . "accidentals.flat.slashslash") . 0.0)
(("accidentals.sharp.slashslash.stem" . "accidentals.flat") . 0.0)
(("accidentals.sharp.slashslash.stem" . "accidentals.flat.slash") . 0.0)
(("accidentals.sharp.slashslash.stem" . "accidentals.mirroredflat") . 0.0)
(("accidentals.sharp.slashslash.stem" . "accidentals.flat.slashslash") . 0.0)
(("accidentals.sharp.slashslashslash.stem" . "accidentals.flat") . 0.0)
(("accidentals.sharp.slashslashslash.stem" . "accidentals.flat.slash") . 0.0)
(("accidentals.sharp.slashslashslash.stem" . "accidentals.mirroredflat") . 0.0)
(("accidentals.sharp.slashslashslash.stem" . "accidentals.flat.slashslash") . 0.0)
(("accidentals.sharp.slashslashslash.stemstem" . "accidentals.flat") . 0.0)
(("accidentals.sharp.slashslashslash.stemstem" . "accidentals.flat.slash") . 0.0)
(("accidentals.sharp.slashslashslash.stemstem" . "accidentals.mirroredflat") . 0.0)
(("accidentals.sharp.slashslashslash.stemstem" . "accidentals.flat.slashslash") . 0.0)
)
\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
}
}
%\version "2.19.82"
\version "2.18.2"
\include "turkish-makam-ADAM.ly"
music = \relative c' {
\key c \Cargah c'1^"Cargah"
\key g \Rast g8^"Rast" a bfc c d e fb g
\key f \AcemAsiran f,1^"AcemAsiran"
\key g \Mahur g'^"Mahur"
\key g \Zavil g^"Zavil"
\key g \Suzidilara g^"Suzidilara"
\key f \Tarzicedid f,^"Tarzicedid"
%%% Rast and similar
\key g \Rast g^"Rast"
\key g \Pencgah g^"Pencgah"
\key g \Pesendide g^"Pesendide"
\key g \Rehavi g^"Rehavi"
\key g \Sazkar g^"Sazkar"
\key g \Sevkedil g^"Sevkedil"
\key g \Suznak g^"Suznak"
\key g \Serefnuma g^"Serefnuma"
%%% Ussak and similar
\key a \Ussak a^"Ussak"
\key a \Acem a^"Acem"
\key a \Beyati a^"Beyati"
\key a \Hisar a^"Hisar"
\key a \Isfahan a^"Isfahan"
\key a \Isfahanek a^"Isfahanek"
\key a \YeniSipihr a^"YeniSipihr"
%%% Buselik and transpositions and similar
\key a \Buselik a^"Buselik"
\key d \Ferahfeza d,^"Ferahfeza"
\key a \HisarBuselik a'^"HisarBuselik"
\key a \SehnazBuselik a^"SehnazBuselik"
\key g \Nihavend g^"Nihavend"
\key e \Ruhnuvaz e^"Ruhnuvaz"
\key e \Zirefkend e^"Zirefkend"
%%% Neva and similar
\key a \Neva a^"Neva"
\key a \Gerdaniye a^"Gerdaniye"
\key a \Gulizar a^"Gulizar"
\key a \Huseyni a^"Huseyni"
\key a \Muhayyer a^"Muhayyer"
\key a \SultaniIrak a^"SultaniIrak"
\key a \Tahir a^"Tahir"
\key a \TahirBuselik a^"TahirBuselik"
%%% Kurdi and similar and transpositions
\key a \Kurdi a^"Kurdi"
\key a \AcemKurdi a^"AcemKurdi"
\key e \Askevza e^"Askevza"
\key a \MuhayyerKurdi a^"MuhayyerKurdi"
\key g \KurdiliHicazkar g^"KurdiliHicazkar"
\key d \Ferahnuma d^"Ferahnuma"
%%% Hicaz and similar
\key a \Hicaz a'^"Hicaz"
\key a \HicazHumayun a^"HicazHumayun"
\key a \Sehnaz a^"Sehnaz"
\key a \HicazZirgule a^"HicazZirgule"
\key g \Hicazkar g^"Hicazkar"
%%% cc is printed because of transposition of zirgule. Keep?
\key e \Suzidil e^"Suzidil"
\key d \SedAraban d^"SedAraban"
\key a \HicazUzzal a'^"HicazUzzal"
%%% Karcigar and similar
\key a \Karcigar a^"Karcigar"
\key a \BeyatiAraban a^"BeyatiAraban"
%%% Saba and similar
\key a \Saba a^"Saba"
\key a \Dugah a^"Dugah"
\key a \MuhayyerSunbule a^"MuhayyerSunbule"
\key a \SabaZemzeme a^"SabaZemzeme"
\key a \Eskisipihr a^"Eskisipihr"
\key a \Kucek a^"Kucek"
%%% HuseyniAsiran and similar
\key e \HuseyniAsiran e^"HuseyniAsiran"
\key e \Nuhuft e^"Nuhuft"
%%% Yegah and similar
\key d \Yegah d^"Yegah"
\key d \Dilkeside d^"Dilkeside"
%%% Segah and similar
\key bfc \Segah bfc'^"Segah"
\key bfc \Mustear bfc^"Mustear"
\key bfc \VechiArazbar bfc^"VechiArazbar"
%%% Huzzam uses -18/53 at 3
\key bfc \Huzzam bfc^"Huzzam"
%%% Arazbar and similar
\key a \Arazbar a^"Arazbar"
%%% SultaniYegah and similar
\key d \SultaniYegah d,^"SultaniYegah"
%%% BuselikAsiran and similar
\key e \BuselikAsiran e^"BuselikAsiran"
\key e \Canfeza e^"Canfeza"
%%% Irak and similar
\key fb \Irak fb^"Irak"
\key fb \Evcara fb^"Evcara"
\key fb \Evic fb^"Evic"
\key fb \Ferahnak fb^"Ferahnak"
\key fb \Dilkeshaveran fb^"Dilkeshaveran"
%%% Rahatulervah uses -18/53 at 3
\key fb \Rahatulervah fb^"Rahatulervah"
%%% Nisabur and similar
\key b \Nisabur b^"Nisabur"
%%% CargahEski and similar
\key c \CargahEski c^"CargahEski"
%%% Guldeste and similar
\key g \Guldeste g^"Guldeste"
%%% Buzurk and similar
\key g \Buzurk g^"Buzurk"
%%% Nisaburek and similar
\key a \Nisaburek a^"Nisaburek"
%%% Neveser and similar
\key g \Neveser g^"Neveser"
%%% Nikriz and similar
\key g \Nikriz g^"Nikriz"
%%% SultaniSegah and similar
\key d \SultaniSegah d^"SultaniSegah"
%%% Sevkefza and similar
\key f \Sevkefza f^"Sevkefza"
%%%FLIP D AND A ORDER
\key f \Rengidil f^"Rengidil"
\key f \Sevkitarab f^"Sevkitarab"
\key f \Sevkaver f^"Sevkaver"
%%% TEST BIG TIME
\key d \Sivenuma d^"Sivenuma"
%%%% FIGURE OUT HOW TO NOT PRINT FB IN KEY SIG
%%% BesteNigar uses -48/53 at 5
\key fb \BesteNigar fb^"BesteNigar"
\key fb \Revnaknuma fb^"Revnaknuma"
}
BarlinesForm = {
%\repeat unfold 8 { \DevriKebirBars }
}
TheBreaks = {
\repeat unfold 6 {s1} \break
\repeat unfold 6 {s1} \break
\repeat unfold 2 {s1} \break
\repeat unfold 7 {s1} \break
\repeat unfold 7 {s1} \break
\repeat unfold 8 {s1} \break
\repeat unfold 6 {s1} \break
\repeat unfold 4 {s1} \break
\repeat unfold 4 {s1} \break
\repeat unfold 2 {s1} \break
\repeat unfold 6 {s1} \break
\repeat unfold 4 {s1} \break
\repeat unfold 4 {s1} \break
\repeat unfold 5 {s1} \break
\repeat unfold 5 {s1} \break
\repeat unfold 5 {s1} \break
}
MelodyForm = {
\time 4/4
\music
}
LyricsOne={\new Lyrics \lyricsto "MelodyForm" { _ }}
LyricsTwo={\new Lyrics \lyricsto "MelodyForm" { _ }}
LyricsThree={\new Lyrics \lyricsto "MelodyForm" { _ }}
LyricsPrint = \markup { }
usulcreate = {
}
MelodyFormMidi = {
}
UsulFormMidi = \repeat unfold 8 {
}
%%%%%%%%%%%%%%%%%%%% HEADER %%%%%%%%%%%%%%%%%%%%
\header {
titleUC = \markup {"TURKISH MAKAM KEY SIGNATURES"}
titleLC = \markup {""}
subtitleText = \markup {""}
composername = \markup {""}
poetname = \markup {""}
usulname = \markup {""}
tempopiece = \markup {""}
musicsource = \markup {""}
dedication = \markup {""}
subsubtitle = \markup {""}
datecreated = \markup {""}
tagline = \markup {""}
}
\paper {
ragged-last-bottom = ##t %t is default
%between-system-padding = 4\mm %4\mm is default
%between-system-space = 20\mm %20\mm is default
%%%%%%%%%%system-system-spacing #'basic-distance = #14
score-system-spacing =
#'((basic-distance . 12)
(minimum-distance . 6)
(padding . 1)
(stretchability . 12))
}
%}
\book {
\score {
<<
\new Staff <<
\new Voice = "BarlinesForm" <<
\BarlinesForm
>>
\new Voice = "BreaksForm" <<
\TheBreaks
>>
\new Voice = "MelodyForm" \transpose g g <<
\MelodyForm
>>
\new Lyrics \lyricsto "MelodyForm" \LyricsOne \LyricsTwo \LyricsThree
>>
%\new DrumStaff << \kudumstaff \UsulForm >>
>>
\layout {
ragged-right=##f
\context { \Score \remove "Bar_number_engraver" }
\context { \Lyrics \override LyricText #'font-size = #-0.5 }
}
%\midi {}
}
%{ \LyricsPrint %}
}
%%%%%%%%%%%%%%%%%%%%% END %%%%%%%%%%%%%%%%%%%%%%%_______________________________________________
lilypond-devel mailing list
lilypond-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-devel
