content: -- Copyright 2017 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
  
  module Solkattu.Score.Mridangam2017 where
  import Prelude hiding ((.), repeat)
  
  import Solkattu.Dsl.Mridangam
  
  
  t_17_02_13 :: Korvai
  t_17_02_13 = date 2017 2 13 $ ganesh $ sarvalaghu $ korvaiV adi $ map (nadai 6)
      [ takitadin.kadin . takitadin.kadin . takitatin.katin
          . takitatin.k.takitatin.k
      , takitadin.kadin . __ . dropM 1 takitadin . kadin . takitatin.katin
          . __ . p.k.od.__ . p.k.od.__ . p.k.od
      ]
      where
      takitadin   = k.p.k.od.__
      takitatin   = k.p.k. d.__
      kadin = k.od.__.o&n.__.k.__
      katin = k. d.__.  n.__.k.__
  
  c_17_07_10 :: Korvai
  c_17_07_10 = exercise $ date 2017 7 10 $ ganesh $ korvaiS1 adi $ su $
      o.__.k.o.k.o.o.k . r4 (o.o.k.o.k.o.o.k) . r4 (o.k.k.o.o.k)
  
  e_1 :: Korvai
  e_1 = ganesh $ date 2017 9 18 $ exercise $ korvaiS adi
      [ pkt . t.k.t.k . d.n.pk . t.k.t.k . r3 (d.n.pk)
      , pkt . r3 (t.k.t.k . d.n.pk)
      , su (r6 pkt) . nakatiku
      ]
      where
      pkt = p.kt.p.kt.pk
  
  e_2 :: Korvai
  e_2 = ganesh $ date 2017 11 13 $ exercise $ korvaiS adi $
      [ cmap pattern [s1, s2, s3, s4, s5]
      , cmap fast [p, k, o, n]
      , mconcatMap pattern [t1, t2]
      , t_sarva
      ]
      where
      pattern s = cmap s [p, k, o, n]
      s1 x = x.__.ktkt.pk.kt.pk.kt.pk
      s2 x = x.__.ktkt.pk.n.n.pk.kt.pk
      s3 x = x.x .ktkt.pk.n.n.pk.kt.pk
      s4 x = x.x .ktkt.pk.n.n.pk.d.d.pk
      s5 x = x.__.ktkt.pk.tk.tk.d.n.pk
      fast x = x.__.ktkt.pk.n.__.pk.d.__.pk
  
      t1 x = x.__.ktkt.pk.pk.n.pk.d.pk
      t2 x = x.__.ktkt.pk . r3 (pk.n.pk.d.pk)
  
      t_sarva = o.k.n.o.k.d.o.k . r3 (pk.n.pk.d.pk)
      tk = t.k
  