-- Copyright 2015 Evan Laforge
-- This program is distributed under the terms of the GNU General Public
-- License 3.0, see COPYING or http://www.gnu.org/licenses/gpl-3.0.txt

-- | TODO convert this to the "Derive.Solkattu.Solkattu" framework.
module Derive.C.India.PakhawajScore where
import Data.Text (Text)
import qualified Data.Text as Text


bats :: [Text]
bats :: [Text]
bats =
    [ [Text] -> Text
Text.unlines
    [ Text
"ga di ge ne na ge tet te"
    , Text
"ga di ge ne na ge tet te"
    , Text
"ka ta ka ta ga di ga di"
    , Text
"ga di ge ne na ge tet te"
    --
    , Text
"ta ki tet ta - tet ta"
    , Text
"ta ki tet dhet tet te dha ge"
    , Text
"te re ki ta ta ka ta -"
    , Text
"tetekata"
    ]

    , [Text] -> Text
Text.unlines
    [ Text
"dha ge tet te   | Ta ge tet te    | kre dhet tet te | dha ge tet te"
    , Text
"tet te kre dhet | tet te dha ge   | tet te ka Ta    | ga di ge ne"
    , Text
"ta ki te Ta     | - te Ta -       | ga - di -       | ge re na ge"
    , Text
"te re ki ta     | ta ka Ta -      | tetekata"
    ]

    , [Text] -> Text
Text.unlines
    [ Text
"dha ge tet te   | Ta ge tet te    | dha ge tet te   | Ta ge tet te"
    , Text
"kre dhet tet te | dha ge tet te   | kre dhet tet te | dha ge tet te"
    , Text
"kre dhet tet te | kre dhet tet te | dha ge tet te   | kre dhet tet te"
    , Text
"kre dhet tet te | dha ge tet te   | ga di ge ne     | na ge tet te"
    , Text
"kat tet te kat  | tet te kat Ta   | kat tr kt tk    | Ta ge tet te"
    , Text
"kre dhet - dhet | tet te dha ge   | tet te ka Ta    | ga di ge ne"
    , Text
"dha - ki ta     | ta ka dhu ma    | ki ta ta ka     | dhet - Ta -"
    , Text
"te re ki ta     | ta ka Ta -      | tetekata"
    ]

    , [Text] -> Text
Text.unlines
    [ Text
"ge ge tet te    | ga di ge ne     | na ge te re     | ki ta ta ka"
    , Text
"Ta ge tet te    | ge ge tet te    | ga di ge ne     | na ge tet te"
    , Text
"gre dhin - Ta   | - ne Ta -       | ge ge tet te    | ga di ge ne"
    , Text
"Ta ge tet te    | ge ge tet te    | ga di ge ne     | na ge tet te"
    ]

    , [Text] -> Text
Text.unlines
    [ Text
"dhet te dhet te | dha ge tet te   | kre dhet tet te | dha ge tet te"
    , Text
"kre dhet tet te | kre dhet tet te | kre dhet tet te | dha ge tet te"
    , Text
"kre dhet - Ta   | ge ne dha -     | tetekata"
    , Text
"na ge tet te    | ka Ta ka Ta     | ka tr kt dhet   | tet te ka ta"
    , Text
"ge - te ran     | - ne dha -      | di - ge -       | - - Ta -"
    , Text
"dha - - ne      | ka ta ka ta     | ge - te ran     | - ne dha -"
    , Text
"di - ge -       | - - Ta -        | dha - - ne      | ka ta ka ta"
    , Text
"ge - te ran     | - ne dha -      | di - ge -       | - - Ta -"
    ]

    ]