music-preludes-1.7.1: examples/time_signatures.hs

{-# LANGUAGE OverloadedStrings #-}

import Music.Prelude

main = open music

music = id
  $ title "Time signatures"
  $ fmap (over dynamics (! 0)) 
  -- $ timeSignature (2/4)
  -- $ timeSignature (3/4)
  $ timeSignature (6/8)
  -- $ timeSignature ((4+3)/8)
  $ level (ff*stretch (2*14/8) sine)
  $ scat [c,c',b,bb,a,as,g^*2,scat [f,e,d,b_]^/2,d^*2,c^*2]^/8