-- | Z12 set class database.
module Music.Theory.Z.Literature where

-- | Set class database with descriptors for historically and
-- theoretically significant set classes, indexed by Forte name.
--
-- > lookup "6-Z17" sc_db == Just "All-Trichord Hexachord"
-- > lookup "7-35" sc_db == Just "diatonic collection (d)"
sc_db :: [(String,String)]
sc_db :: [(String, String)]
sc_db =
    [(String
"4-Z15",String
"All-Interval Tetrachord (see also 4-Z29)")
    ,(String
"4-Z29",String
"All-Interval Tetrachord (see also 4-Z15)")
    ,(String
"6-Z17",String
"All-Trichord Hexachord")
    ,(String
"8-Z15",String
"All-Tetrachord Octochord (see also 8-Z29)")
    ,(String
"8-Z29",String
"All-Tetrachord Octochord (see also 8-Z15)")
    ,(String
"6-1",String
"A-Type All-Combinatorial Hexachord")
    ,(String
"6-8",String
"B-Type All-Combinatorial Hexachord")
    ,(String
"6-32",String
"C-Type All-Combinatorial Hexachord")
    ,(String
"6-7",String
"D-Type All-Combinatorial Hexachord")
    ,(String
"6-20",String
"E-Type All-Combinatorial Hexachord")
    ,(String
"6-35",String
"F-Type All-Combinatorial Hexachord")
    ,(String
"7-35",String
"diatonic collection (d)")
    ,(String
"7-34",String
"ascending melodic minor collection")
    ,(String
"8-28",String
"octotonic collection (Messiaen Mode II)")
    ,(String
"6-35",String
"wholetone collection")
    ,(String
"3-10",String
"diminished triad")
    ,(String
"3-11",String
"major/minor triad")
    ,(String
"3-12",String
"augmented triad")
    ,(String
"4-19",String
"minor major-seventh chord")
    ,(String
"4-20",String
"major-seventh chord")
    ,(String
"4-25",String
"french augmented sixth chord")
    ,(String
"4-28",String
"dimished-seventh chord")
    ,(String
"4-26",String
"minor-seventh chord")
    ,(String
"4-27",String
"half-dimished seventh(P)/dominant-seventh(I) chord")
    ,(String
"6-30",String
"Petrushka Chord {0476a1},3-11 at T6")
    ,(String
"6-34",String
"Mystic Chord {06a492}")
    ,(String
"6-Z44",String
"Schoenberg Signature Set,3-3 at T5 or T7")
    ,(String
"6-Z19",String
"complement of 6-Z44,3-11 at T1 or TB")
    ,(String
"9-12",String
"Messiaen Mode III (nontonic collection)")
    ,(String
"8-9",String
"Messian Mode IV")
    ,(String
"7-31",String
"The only seven-element subset of 8-28. ")
    ,(String
"5-31",String
"The only five-element superset of 4-28.")
    ,(String
"5-33",String
"The only five-element subset of 6-35.")
    ,(String
"7-33",String
"The only seven-element superset of 6-35.")
    ,(String
"5-21",String
"The only five-element subset of 6-20.")
    ,(String
"7-21",String
"The only seven-element superset of 6-20.")
    ,(String
"5-25",String
"The only five-element subset of both 7-35 and 8-28.")
    ,(String
"6-14",String
"Any non-intersecting union of 3-6 and 3-12.") ]