Contents
Index
Haskore.Example.SelfSim
Synopsis
data
Cluster
=
Cl
SNote
[
Cluster
]
type
Pat
= [
SNote
]
type
SNote
= [(
Absolute
,
Dur
)]
sim
::
Pat
-> [
Cluster
]
addmult
:: (
Num
a,
Num
b) => [(a, b)] -> [(a, b)] -> [(a, b)]
simFringe
::
Num
a => a ->
Pat
-> [
SNote
]
fringe
::
Num
a => a ->
Cluster
-> [
SNote
]
simToHask
:: [[(
Absolute
,
Dur
)]] ->
T
sim1
::
Int
->
T
sim2
::
Int
->
T
sim12
::
Int
->
T
sim3
::
Int
->
T
sim4
::
Int
->
T
sim4s
::
Int
->
T
t6
::
T
t7
::
T
t8
::
T
t9
::
T
t10
::
T
ss
::
T
durss
::
Dur
pat1
:: [
SNote
]
pat2
:: [
SNote
]
pat3
:: [
SNote
]
pat4
:: [
SNote
]
pat4'
:: [
SNote
]
Produced by
Haddock
version 0.6