\version "2.18.2"

\include "turkish-makam.ly"

%%%%% rast needs to be transposable to any pitch level
%%%%% if to any accidental, 
RASTmusic = \relative c' {
  \key g \rast
  g'8 a bfc c d e fb e
  d c bfc a g2
}

{ \mark \markup {"rast-TR" }
  \RASTmusic }

{ \mark \markup {"rast-from bfc=good" }
  \transpose g bfc \RASTmusic }

{ \mark \markup {"rast-from fb=good" }
  \transpose g fb \RASTmusic }

%%%%% 
SEGAHmusic = \relative c' {
  \key bfc \segah
  bfc'8 c d efc f g f efc
  d c bfc ab bfc2
}

{ \mark \markup {"segah-TR from bfc=good" }
  \SEGAHmusic }

{ \mark \markup {"segah-TR from fb=good" }
  \transpose bfc fb \SEGAHmusic }

%%%%% 
BESTENIGARmusic = \relative c' {
  \key fb \bestenigar
  c'8 dfb e f g f e dfb c bfc a g fb2
}

{ \mark \markup {"bestenigar-TR from fb=bad" }
  \BESTENIGARmusic }

%%%%% 
SABABESTENIGARmusic = \relative c' {
  \key a \saba
  c'8 dfb e f g f e dfb c bfc a g fb2
}

{ \mark \markup {"bestenigar should look like this" }
  \SABABESTENIGARmusic }

%%%%% 
REVNAKNUMAmusic = \relative c' {
  \key fb \revnaknuma
  bfc'8 ab bfc cb d cb bfc a a g g fb fb2
}

{ \mark \markup {"revnaknuma from fb=bad" }
  \REVNAKNUMAmusic }

%%%%% 
fakerevnaknuma = #'((0 . 0)(1 . 0)(2 . -24/53)(3 . 6/53)(4 . -24/53)(5 . -24/53)(6 . 0))
FAKEREVNAKNUMAmusic = \relative c' {
  \key bfc \fakerevnaknuma
  bfc'8 ab bfc cb d cb bfc a a g g fb fb2
}

{ \mark \markup {"revnaknuma needs this" }
  \FAKEREVNAKNUMAmusic }