-- | Constants names for ascending 'Interval' values.
module Music.Theory.Interval.Name where

import Music.Theory.Interval

perfect_fourth,perfect_fifth,major_seventh :: Interval
perfect_fourth :: Interval
perfect_fourth = Interval_Type -> Interval_Quality -> Ordering -> Octave -> Interval
Interval Interval_Type
Fourth Interval_Quality
Perfect Ordering
LT Octave
0
perfect_fifth :: Interval
perfect_fifth = Interval_Type -> Interval_Quality -> Ordering -> Octave -> Interval
Interval Interval_Type
Fifth Interval_Quality
Perfect Ordering
LT Octave
0
major_seventh :: Interval
major_seventh = Interval_Type -> Interval_Quality -> Ordering -> Octave -> Interval
Interval Interval_Type
Seventh Interval_Quality
Major Ordering
LT Octave
0