> module HSoM.Examples.SelfSimilar where
> import Euterpea
> data Cluster = Cluster SNote [Cluster]
> type SNote = (Dur,AbsPitch)
> selfSim :: [SNote] -> Cluster
> selfSim pat = Cluster (0,0) (map mkCluster pat)
> where mkCluster note =
> Cluster note (map (mkCluster . addMult note) pat)
> addMult :: SNote -> SNote -> SNote
> addMult (d0,p0) (d1,p1) = (d0*d1,p0+p1)
> fringe :: Int -> Cluster -> [SNote]
> fringe 0 (Cluster note cls) = [note]
> fringe n (Cluster note cls) = concatMap (fringe (n1)) cls
> simToMusic :: [SNote] -> Music Pitch
> simToMusic = line . map mkNote
> mkNote :: (Dur,AbsPitch) -> Music Pitch
> mkNote (d,ap) = note d (pitch ap)
> ss pat n tr te =
> transpose tr $ tempo te $ simToMusic $ fringe n $ selfSim pat
> m0 :: [SNote]
> m0 = [(1,2),(1,0),(1,5),(1,7)]
> tm0 = instrument Vibraphone (ss m0 4 50 20)
> ttm0 = tm0 :=: transpose (12) (retro tm0)
> m1 :: [SNote]
> m1 = [(1,0),(0.5,0),(0.5,0)]
> tm1 = instrument Percussion (ss m1 4 43 2)
> m2 :: [SNote]
> m2 = [(dqn,0),(qn,4)]
> tm2 = ss m2 6 50 (1/50)
> m3 :: [SNote]
> m3 = [(hn,3),(qn,4),(qn,0),(hn,6)]
> tm3 = ss m3 4 50 (1/4)
> ttm3 = let l1 = instrument Flute tm3
> l2 = instrument AcousticBass $
> transpose (9) (retro tm3)
> in l1 :=: l2
> m4 :: [SNote]
> m4 = [ (hn,3),(hn,8),(hn,22),(qn,4),(qn,7),(qn,21),
> (qn,0),(qn,5),(qn,15),(wn,6),(wn,9),(wn,19) ]
> tm4 = ss m4 3 50 8
> fringe' :: Int -> Cluster -> [[SNote]]
> fringe' 0 (Cluster note cls) = [[note]]
> fringe' n (Cluster note cls) = map (fringe (n1)) cls
> simToMusic' :: [[SNote]] -> Music Pitch
> simToMusic' = chord . map (line . map mkNote)
> ss' pat n tr te =
> transpose tr $ tempo te $ simToMusic' $ fringe' n $ selfSim pat
> ss1 = ss' m2 4 50 (1/8)
> ss2 = ss' m3 4 50 (1/2)
> ss3 = ss' m4 3 50 2
> m5 = [(en,4),(sn,7),(en,0)]
> ss5 = ss m5 4 45 (1/500)
> ss6 = ss' m5 4 45 (1/1000)