music-preludes-1.7.1: examples/tuplet.hs

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Prelude
import System.Process (runCommand)
import Music.Prelude.Basic

main = do
    -- writeMidi "test.mid" music
    -- writeXml "test.xml" $ music^/4
    -- openXml music
    openLilypond music
    -- playMidiIO "Graphic MIDI" $ music^/10


-- infixr 7 //
-- (//) = flip times

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

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)