% from AutoTrack by Stefan Ratschan

\begin{haskelllisting}

> module Haskore.Interface.AutoTrack.ScaleChart(T(Cons)) where

> import qualified Haskore.Basic.Scale  as Scale

\end{haskelllisting}


A certain type of event chart is a scale chart.

\begin{haskelllisting}

> newtype T = Cons Scale.T

\end{haskelllisting}

Conversion from chord chart to ScaleChart. This needs to be improved into a
sophisticated scale analyzer.

\begin{haskelllisting}

  fromChord :: (EventChart.T ChordSym) -> T
  fromChord (EventChart.C c) =
     let f d ch = (d, chordToScale ch)
     in  Cons (map f c)

\end{haskelllisting}