{-# LANGUAGE OverloadedStrings #-}

module Main where

import Music.Prelude.Basic

test 1  = group 5 g |> g^*3                  
test 2  = group 3 fs |> fs^*3                  
test 3  = group 3 f |> group 5 f |> group 3 f |> group 7 f
test 4  = group 3 e |> group 5 e |> c |> group 7 e
test 5  = ds |> group 5 ds |> ds |> group 7 ds
-- all above ok
test 8 = times 5 d^/5 |> times 3 d^/3 -- ok
test 9 = times 4 cs^/5 |> cs^*(1/5+1/3)    -- not ok, needs to be bound from last quintuplet note

test 99 = group 5 c |> group 3 c |> c^*2

group n = times n^/(fromIntegral n)

music :: Score BasicNote
music = {-fadeIn 1 $-} {-fadeOut 1 $-} rcat $ map test [1..5]

main :: IO ()
main = open music