-- | Scala DB meta-data.
module Music.Theory.Tuning.Scala.Meta where

-- | Just-intonation (ie. all rational) scales, collected by author.
scl_ji_au :: [(String,[String])]
scl_ji_au :: [(String, [String])]
scl_ji_au =
  [(String
"Alves, Bill",String -> [String]
words String
"alves_12 alves_22 alves_pelog alves alves_slendro")
  ,(String
"Archytas"
   ,[String
"arch_chrom",String
"arch_chromc2" -- "archchro" NON-JI
    ,String
"arch_dor"
    ,String
"arch_enh",String
"arch_enh2",String
"arch_enh3",String
"arch_enhp"
    ,String
"arch_enht",String
"arch_enht2",String
"arch_enht3",String
"arch_enht4",String
"arch_enht5",String
"arch_enht6",String
"arch_enht7"
    ,String
"arch_mult"
    ,String
"arch_ptol",String
"arch_ptol2"
    ,String
"arch_sept"
    -- "archytas7" "archytas12","archytas12sync" NON-JI
    ])
  ,(String
"Barlow, Clarence",String -> [String]
words String
"barlow_13 barlow_17")
  ,(String
"Boethius",String -> [String]
words String
"boeth_chrom boeth_enh")
  ,(String
"Burt, Warren",
     forall (t :: * -> *) a. Foldable t => t [a] -> [a]
concat [forall a b. (a -> b) -> [a] -> [b]
map (\Int
n -> String
"burt" forall a. [a] -> [a] -> [a]
++ forall a. Show a => a -> String
show Int
n) [Int
1::Int .. Int
20]
            ,String -> [String]
words String
"burt_fibo burt_fibo23 burt_forks burt_primes"])
  ,(String
"Chalmers, John"
   ,[String
"chalmers"
    ,String
"chalmers_17"
    ,String
"chalmers_19"
    ,String
"chalmers_ji1"
    ,String
"chalmers_ji2"
    ,String
"chalmers_ji3"
    ,String
"chalmers_ji4"
    ,String
"corner7"
    ,String
"corner11"
    ,String
"corner13"
    ,String
"corners7"
    ,String
"corners11"
    ,String
"corners13"
    ,String
"finnamore_jc"
    ,String
"hamilton_jc"
    ,String
"major_clus"
    ,String
"major_wing"
    ,String
"minor_clus"
    ,String
"minor_wing"
    ,String
"pelog_jc"
    ,String
"prod7d"
    ,String
"prodq13"
    ,String
"slen_pel_jc"])
  ,(String
"Didymus", String -> [String]
words String
"didy_chrom didy_chrom1 didy_chrom2 didy_chrom3 didy_diat didy_enh didy_enh2")
  ,(String
"Eratosthenes",String -> [String]
words String
"eratos_chrom eratos_diat eratos_enh")
  ,(String
"Euler, Leonhard",String -> [String]
words String
"euler euler_diat euler_enh euler_gm")
  ,(String
"Gann, Kyle",String -> [String]
words String
"gann_arcana gann_charingcross gann_cinderella gann_custer gann_fractured gann_fugitive gann_ghost gann_love gann_new_aunts gann_revisited gann_sitting gann_solitaire gann_suntune gann_super gann_things gann_wolfe hulen_33")
  ,(String
"Grady, Kraig"
   ,[String
"dekany-cs"
    ,String
"grady11"
    ,String
"grady_14"
    ,String
"grady_centaur"
    ,String
"grady_centaur17"
    ,String
"grady_centaur19"])
  ,(String
"Hahn, Paul",String -> [String]
words String
"duohex hahn_7 hahn9 hahnmaxr indian-hahn") -- hahn_g mean14a
  ,(String
"Harrison, Lou"
   ,[String
"dudon_slendro_matrix" -- NON-UNIQ
    ,String
"harrison_5"
    ,String
"harrison_5_1"
    ,String
"harrison_5_3" -- NON-STEP
    ,String
"harrison_5_4" -- NON-STEP
    ,String
"harrison_8" -- NON-STEP
    ,String
"harrison_15"
    ,String
"harrison_16"
    ,String
"harrison_bill"
    ,String
"harrison_cinna"
    ,String
"harrison_diat"
    ,String
"harrison_handel"
    ,String
"harrison_kyai" -- NON-STEP
    ,String
"harrison_mid"
    ,String
"harrison_mid2"
    ,String
"harrison_mix2"
    ,String
"harrison_mix3" -- NON-STEP
    ,String
"harrison_mix4"
    ,String
"harrison_slye"
    ,String
"harrison_songs"
    ,String
"hexany10"
    ,String
"hirajoshi2"
    ,String
"korea_5"
    ,String
"olympos"
    ,String
"pelog_jc" -- STRICT SONGS
    ,String
"pelog_laras" -- NON-STEP
    ,String
"prime_5"
    ,String
"slendro5_1",String
"slendro5_2"
    ,String
"slendro_7_1",String
"slendro_7_2",String
"slendro_7_3",String
"slendro_7_4"
    -- "slendro_laras" -- NON-OCT
    ,String
"tranh"])
  ,(String
"Johnston, Ben"
   ,[String
"johnston"
    ,String
"johnston_21"
    ,String
"johnston_22"
    ,String
"johnston_25"
    ,String
"johnston_81"
    ,String
"johnston_6-qt"
    ,String
"johnston_6-qt_row"])
  ,(String
"Kepler, Johannes",String -> [String]
words String
"kepler1 kepler2 kepler3")
  ,(String
"Partch, Harry"
   ,[String
"kring1"
    ,String
"diamond7"
    ,String
"diamond9"
    ,String
"diamond17b"
    ,String
"novaro15"
    ,String
"partch_29-av"
    ,String
"partch_29"
    ,String
"partch_37"
    ,String
"partch_39"
    ,String
"partch_41"
    ,String
"partch_43"
    ,String
"partch-barstow"])
  ,(String
"Ptolemy"
   ,[String
"ptolemy_chrom"
    ,String
"ptolemy_ddiat"
    ,String
"ptolemy_diat",String
"ptolemy_diat2",String
"ptolemy_diat3",String
"ptolemy_diat4",String
"ptolemy_diat5"
    ,String
"ptolemy_diff"
    ,String
"ptolemy_enh"
    ,String
"ptolemy_exp"
    ,String
"ptolemy_ext"
    ,String
"ptolemy_hominv",String
"ptolemy_hominv2"
    ,String
"ptolemy_hom"
    ,String
"ptolemy_iastaiol",String
"ptolemy_iast"
    ,String
"ptolemy_ichrom"
    ,String
"ptolemy_idiat"
    ,String
"ptolemy_imix"
    ,String
"ptolemy_malak",String
"ptolemy_malak2"
    ,String
"ptolemy_mdiat",String
"ptolemy_mdiat2",String
"ptolemy_mdiat3"
    ,String
"ptolemy_meta"
    ,String
"ptolemy_mix"
    ,String
"ptolemy_perm"
    ,String
"ptolemy_prod"
    ,String
"ptolemy"
    ,String
"ptolemy_tree"])
  ,(String
"Pythagoras"
   ,[String
"pyth_7a",String
"pyth_12",String
"pyth_12s",String
"pyth_17",String
"pyth_17s",String
"pyth_22",String
"pyth_27",String
"pyth_chrom"
    -- "pyth_31" "pyth_sev" "pyth_third" NOT-JI
    ])
  ,(String
"Riley, Terry",String -> [String]
words String
"riley_albion riley_rosary")
  ,(String
"Smith, Gene Ward",[String
"smithgw_15highschool1",String
"smithgw_15highschool2",String
"smithgw_18",String
"smithgw_19highschool1",String
"smithgw_19highschool2",String
"smithgw_21",String
"smithgw_22highschool",String
"smithgw_58",String
"smithgw_9",String
"smithgw_ball",String
"smithgw_ball2",String
"smithgw_circu",String
"smithgw_decab",String
"smithgw_decac",String
"smithgw_decad",String
"smithgw_diff13",String
"smithgw_dwarf6_7",String
"smithgw_ennon13",String
"smithgw_ennon15",String
"smithgw_ennon28",String
"smithgw_ennon43",String
"smithgw_euclid3",String
"smithgw_glamma",String
"smithgw_glumma",String
"smithgw_gm",String
"smithgw_hahn12",String
"smithgw_hahn15",String
"smithgw_hahn16",String
"smithgw_hahn19",String
"smithgw_hahn22",String
"smithgw_indianred",String
"smithgw_majraj1",String
"smithgw_majraj2",String
"smithgw_majraj3",String
"smithgw_majsyn1",String
"smithgw_majsyn2",String
"smithgw_majsyn3",String
"smithgw_meandin",String
"smithgw_meanred",String
"smithgw_mir22",String
"smithgw_monzoblock37",String
"smithgw_orw18r",String
"smithgw_pel1",String
"smithgw_pel3",String
"smithgw_pris",String
"smithgw_prisa",String
"smithgw_ragasyn1",String
"smithgw_ratwell",String
"smithgw_rectoo",String
"smithgw_red72_11geo",String
"smithgw_red72_11pro",String
"smithgw_sc19",String
"smithgw_scj22a",String
"smithgw_scj22b",String
"smithgw_scj22c",String
"smithgw_smalldi11",String
"smithgw_smalldi19a",String
"smithgw_smalldi19b",String
"smithgw_smalldi19c",String
"smithgw_star",String
"smithgw_star2",String
"smithgw_syndia2",String
"smithgw_syndia3",String
"smithgw_syndia4",String
"smithgw_syndia6",String
"smithgw_well1",String
"smithgw_wiz28",String
"smithgw_wiz34",String
"smithgw_wiz38"])
  ,(String
"Tenney, James",String -> [String]
words String
"mund45 tenney_8 tenney_11 tenn41a tenn41b tenn41c")
  ,(String
"Wilson, Erv"
   ,[String
"chin_7"
    ,String
"ckring9"
    ,String
"diamond7-13"
    ,String
"dodeceny",String
"dorian_diat2inv",String
"hypol_diatinv"
    ,String
"dkring3"
    ,String
"efg33357",String
"efg3335711",String
"efg35711"
    ,String
"eikosany"
    ,String
"erlich9"
    ,String
"harm6",String
"harm8",String
"harm9",String
"harm14",String
"harm15"
    ,String
"hexany_union"
    ,String
"indian-magrama"
    ,String
"malkauns"
    ,String
"malcolme"
    ,String
"novaro15"
    ,String
"partch_29"
    ,String
"ptolemy",String
"ptolemy_diat2",String
"ptolemy_idiat"
    ,String
"slendro5_1",String
"slendro5_2",String
"slendro_7_4"
    ,String
"steldek1",String
"steldek1s",String
"steldek2",String
"steldek2s"
    ,String
"steldia"
    ,String
"steleik1",String
"steleik1s",String
"steleik2",String
"steleik2s"
    ,String
"stelhex1",String
"stelhex2",String
"stelhex5",String
"stelhex6" -- stelhex3 stelhex4
    ,String
"stelpd1",String
"stelpd1s"
    ,String
"stelpent1",String
"stelpent1s"
    ,String
"steltet1",String
"steltet1s",String
"steltet2"
    ,String
"steltri1",String
"steltri2"
    ,String
"tritriad14"
    ,String
"wilson1",String
"wilson2",String
"wilson3",String
"wilson5",String
"wilson7",String
"wilson11"
    ,String
"wilson7_2",String
"wilson7_3",String
"wilson7_4"
    ,String
"wilson_17",String
"wilson_31",String
"wilson_41"
    ,String
"wilcent17"
    ,String
"wilson_alessandro"
    ,String
"wilson_bag"
    ,String
"wilson_class"
    ,String
"wilson_dia1",String
"wilson_dia2",String
"wilson_dia3",String
"wilson_dia4"
    ,String
"wilson_duo"
    ,String
"wilson_enh",String
"wilson_enh2"
    ,String
"wilson_facet"
    -- ,"wilson_gh1","wilson_gh2","wilson_gh11","wilson_gh50" -- NON-JI
    ,String
"wilson_hebdome1"
    ,String
"wilson_hexflank"
    ,String
"wilson_hypenh"
    ,String
"wilson-rastbayyati24"
    ,String
"wilson_l1",String
"wilson_l2",String
"wilson_l3",String
"wilson_l4",String
"wilson_l5",String
"wilson_l6"])
  ,(String
"Young, La Monte",[String
"young-lm_guitar",String
"young-lm_piano"])
  ]

{-
import Music.Theory.Tuning.Scala
db <- scl_load_db
nm = concatMap snd scl_ji_au
scl = filter (\x -> scale_name x `elem` nm) db
non_ji = filter (not . scl_is_ji) scl
map scale_name non_ji
-}