Copyright	(c) Henning Thielemann 2007-2010
Maintainer	haskell@henning-thielemann.de
Stability	stable
Portability	Haskell 98
Safe Haskell	Safe
Language	Haskell98

Data.EventList.Relative.TimeTime

Description

Event lists starting with a time difference and ending with a time difference.

Synopsis

data T time body
mapBody :: (body0 -> body1) -> T time body0 -> T time body1
mapTime :: (time0 -> time1) -> T time0 body -> T time1 body
zipWithBody :: (body0 -> body1 -> body2) -> [body0] -> T time body1 -> T time body2
zipWithTime :: (time0 -> time1 -> time2) -> (time0, [time0]) -> T time1 body -> T time2 body
unzip :: T time (body0, body1) -> (T time body0, T time body1)
concatMapMonoid :: Monoid m => (time -> m) -> (body -> m) -> T time body -> m
traverse :: Applicative m => (time0 -> m time1) -> (body0 -> m body1) -> T time0 body0 -> m (T time1 body1)
traverse_ :: Applicative m => (time -> m ()) -> (body -> m ()) -> T time body -> m ()
traverseBody :: Applicative m => (body0 -> m body1) -> T time body0 -> m (T time body1)
traverseTime :: Applicative m => (time0 -> m time1) -> T time0 body -> m (T time1 body)
mapM :: Monad m => (time0 -> m time1) -> (body0 -> m body1) -> T time0 body0 -> m (T time1 body1)
mapM_ :: Monad m => (time -> m ()) -> (body -> m ()) -> T time body -> m ()
mapBodyM :: Monad m => (body0 -> m body1) -> T time body0 -> m (T time body1)
mapTimeM :: Monad m => (time0 -> m time1) -> T time0 body -> m (T time1 body)
getTimes :: T time body -> [time]
getBodies :: T time body -> [body]
duration :: C time => T time body -> time
merge :: (C time, Ord body) => T time body -> T time body -> T time body
mergeBy :: C time => (body -> body -> Bool) -> T time body -> T time body -> T time body
insert :: (C time, Ord body) => time -> body -> T time body -> T time body
pad :: C time => time -> T time body -> T time body
moveForward :: (Ord time, Num time) => T time (time, body) -> T time body
moveForwardRestricted :: (Ord body, C time) => time -> T time (time, body) -> T time body
moveBackward :: C time => T time (time, body) -> T time body
arrange :: (Ord body, C time) => T time (T time body) -> T time body
arrangeBy :: C time => (body -> body -> Bool) -> T time (T time body) -> T time body
moveForwardRestrictedBy :: C time => (body -> body -> Bool) -> time -> T time (time, body) -> T time body
moveForwardRestrictedByQueue :: (C time, Num time) => (body -> body -> Bool) -> time -> T time (time, body) -> T time body
moveForwardRestrictedByStrict :: C time => (body -> body -> Bool) -> time -> T time (time, body) -> T time body
decreaseStart :: C time => time -> T time body -> T time body
delay :: C time => time -> T time body -> T time body
filter :: C time => (body -> Bool) -> T time body -> T time body
partition :: C time => (body -> Bool) -> T time body -> (T time body, T time body)
partitionMaybe :: C time => (body0 -> Maybe body1) -> T time body0 -> (T time body1, T time body0)
partitionMaybeR :: C time => (body0 -> Maybe body1) -> T time body0 -> (T time body1, T time body0)
slice :: (Eq a, C time) => (body -> a) -> T time body -> [(a, T time body)]
foldr :: (time -> a -> b) -> (body -> b -> a) -> a -> T time body -> b
foldl :: (a -> time -> b) -> (b -> body -> a) -> a -> T time body -> b
pause :: time -> T time body
isPause :: T time body -> Bool
cons :: time -> body -> T time body -> T time body
snoc :: T time body -> body -> time -> T time body
viewL :: T time body -> (time, Maybe (body, T time body))
viewR :: T time body -> (Maybe (T time body, body), time)
switchL :: (time -> a) -> ((time, body) -> T time body -> a) -> T time body -> a
switchR :: (time -> a) -> (T time body -> body -> time -> a) -> T time body -> a
mapMaybe :: C time => (body0 -> Maybe body1) -> T time body0 -> T time body1
catMaybes :: C time => T time (Maybe body) -> T time body
catMaybesR :: C time => T time (Maybe body) -> T time body
append :: C time => T time body -> T time body -> T time body
concat :: C time => [T time body] -> T time body
concatNaive :: C time => [T time body] -> T time body
cycle :: C time => T time body -> T time body
cycleNaive :: C time => T time body -> T time body
reverse :: T time body -> T time body
splitAtTime :: C time => time -> T time body -> (T time body, T time body)
takeTime :: C time => time -> T time body -> T time body
dropTime :: C time => time -> T time body -> T time body
forceTimeHead :: C time => T time body -> T time body
discretize :: (C time, RealFrac time, C i, Integral i) => T time body -> T i body
resample :: (C time, RealFrac time, C i, Integral i) => time -> T time body -> T i body
collectCoincident :: C time => T time body -> T time [body]
flatten :: C time => T time [body] -> T time body
mapCoincident :: C time => ([a] -> [b]) -> T time a -> T time b
normalize :: (Ord body, C time) => T time body -> T time body
isNormalized :: (C time, Ord body) => T time body -> Bool
toAbsoluteEventList :: Num time => time -> T time body -> T time body
fromAbsoluteEventList :: Num time => T time body -> T time body

Documentation

data T time body #

Instances

Functor (T time) #
Methods fmap :: (a -> b) -> T time a -> T time b # (<$) :: a -> T time b -> T time a #
Foldable (T time) #
Methods fold :: Monoid m => T time m -> m # foldMap :: Monoid m => (a -> m) -> T time a -> m # foldr :: (a -> b -> b) -> b -> T time a -> b # foldr' :: (a -> b -> b) -> b -> T time a -> b # foldl :: (b -> a -> b) -> b -> T time a -> b # foldl' :: (b -> a -> b) -> b -> T time a -> b # foldr1 :: (a -> a -> a) -> T time a -> a # foldl1 :: (a -> a -> a) -> T time a -> a # toList :: T time a -> [a] # null :: T time a -> Bool # length :: T time a -> Int # elem :: Eq a => a -> T time a -> Bool # maximum :: Ord a => T time a -> a # minimum :: Ord a => T time a -> a # sum :: Num a => T time a -> a # product :: Num a => T time a -> a #
Traversable (T time) #
Methods traverse :: Applicative f => (a -> f b) -> T time a -> f (T time b) # sequenceA :: Applicative f => T time (f a) -> f (T time a) # mapM :: Monad m => (a -> m b) -> T time a -> m (T time b) # sequence :: Monad m => T time (m a) -> m (T time a) #
(Eq time, Eq body) => Eq (T time body) #
Methods (==) :: T time body -> T time body -> Bool # (/=) :: T time body -> T time body -> Bool #
(Ord time, Ord body) => Ord (T time body) #
Methods compare :: T time body -> T time body -> Ordering # (<) :: T time body -> T time body -> Bool # (<=) :: T time body -> T time body -> Bool # (>) :: T time body -> T time body -> Bool # (>=) :: T time body -> T time body -> Bool # max :: T time body -> T time body -> T time body # min :: T time body -> T time body -> T time body #
(Show time, Show body) => Show (T time body) #
Methods showsPrec :: Int -> T time body -> ShowS # show :: T time body -> String # showList :: [T time body] -> ShowS #
C time => Semigroup (T time body) #
Methods (<>) :: T time body -> T time body -> T time body # sconcat :: NonEmpty (T time body) -> T time body # stimes :: Integral b => b -> T time body -> T time body #
C time => Monoid (T time body) #
Methods mempty :: T time body # mappend :: T time body -> T time body -> T time body # mconcat :: [T time body] -> T time body #
(Arbitrary time, Arbitrary body) => Arbitrary (T time body) #
Methods arbitrary :: Gen (T time body) # shrink :: T time body -> [T time body] #

mapBody :: (body0 -> body1) -> T time body0 -> T time body1 #

mapTime :: (time0 -> time1) -> T time0 body -> T time1 body #

zipWithBody :: (body0 -> body1 -> body2) -> [body0] -> T time body1 -> T time body2 #

zipWithTime :: (time0 -> time1 -> time2) -> (time0, [time0]) -> T time1 body -> T time2 body #

unzip :: T time (body0, body1) -> (T time body0, T time body1) #

concatMapMonoid :: Monoid m => (time -> m) -> (body -> m) -> T time body -> m #

traverse :: Applicative m => (time0 -> m time1) -> (body0 -> m body1) -> T time0 body0 -> m (T time1 body1) #

traverse_ :: Applicative m => (time -> m ()) -> (body -> m ()) -> T time body -> m () #

traverseBody :: Applicative m => (body0 -> m body1) -> T time body0 -> m (T time body1) #

traverseTime :: Applicative m => (time0 -> m time1) -> T time0 body -> m (T time1 body) #

mapM :: Monad m => (time0 -> m time1) -> (body0 -> m body1) -> T time0 body0 -> m (T time1 body1) #

mapM_ :: Monad m => (time -> m ()) -> (body -> m ()) -> T time body -> m () #

mapBodyM :: Monad m => (body0 -> m body1) -> T time body0 -> m (T time body1) #

mapTimeM :: Monad m => (time0 -> m time1) -> T time0 body -> m (T time1 body) #

getTimes :: T time body -> [time] #

getBodies :: T time body -> [body] #

duration :: C time => T time body -> time #

merge :: (C time, Ord body) => T time body -> T time body -> T time body #

The first important function is merge which merges the events of two lists into a new time order list.

mergeBy :: C time => (body -> body -> Bool) -> T time body -> T time body -> T time body #

insert :: (C time, Ord body) => time -> body -> T time body -> T time body #

Note that merge compares entire events rather than just start times. This is to ensure that it is commutative, a desirable condition for some of the proofs used in Haskore/section equivalence. It is also necessary to assert a unique representation of the event list independent of the structure of the event type. The same function for inserting into a time ordered list with a trailing pause.

pad :: C time => time -> T time body -> T time body #

moveForward :: (Ord time, Num time) => T time (time, body) -> T time body #

Move events towards the front of the event list. You must make sure, that no event is moved before time zero. This works only for finite lists.

moveForwardRestricted :: (Ord body, C time) => time -> T time (time, body) -> T time body #

Like moveForward but restricts the look-ahead time. For moveForwardRestricted maxTimeDiff xs all time differences (aka the moveForward offsets) in xs must be at most maxTimeDiff. With this restriction the function is lazy enough for handling infinite event lists. However the larger maxTimeDiff the more memory and time is consumed.

moveBackward :: C time => T time (time, body) -> T time body #

arrange :: (Ord body, C time) => T time (T time body) -> T time body #

Merge several event lists respecting the start time of the outer event list.

arrangeBy :: C time => (body -> body -> Bool) -> T time (T time body) -> T time body #

moveForwardRestrictedBy :: C time => (body -> body -> Bool) -> time -> T time (time, body) -> T time body #

currently only for testing

moveForwardRestrictedByQueue :: (C time, Num time) => (body -> body -> Bool) -> time -> T time (time, body) -> T time body #

currently only for testing

moveForwardRestrictedByStrict :: C time => (body -> body -> Bool) -> time -> T time (time, body) -> T time body #

currently only for testing

decreaseStart :: C time => time -> T time body -> T time body #

delay :: C time => time -> T time body -> T time body #

filter :: C time => (body -> Bool) -> T time body -> T time body #

Analogously to the concat / concatNaive pair we have to versions of filter, where the clever implementation sums up pauses from the beginning to the end.

partition :: C time => (body -> Bool) -> T time body -> (T time body, T time body) #

partitionMaybe :: C time => (body0 -> Maybe body1) -> T time body0 -> (T time body1, T time body0) #

partitionMaybeR :: C time => (body0 -> Maybe body1) -> T time body0 -> (T time body1, T time body0) #

Cf. catMaybesR

slice :: (Eq a, C time) => (body -> a) -> T time body -> [(a, T time body)] #

Since we need it later for MIDI generation, we will also define a slicing into equivalence classes of events.

foldr :: (time -> a -> b) -> (body -> b -> a) -> a -> T time body -> b #

foldl :: (a -> time -> b) -> (b -> body -> a) -> a -> T time body -> b #

pause :: time -> T time body #

isPause :: T time body -> Bool #

cons :: time -> body -> T time body -> T time body #

snoc :: T time body -> body -> time -> T time body #

viewL :: T time body -> (time, Maybe (body, T time body)) #

viewR :: T time body -> (Maybe (T time body, body), time) #

switchL :: (time -> a) -> ((time, body) -> T time body -> a) -> T time body -> a #

switchR :: (time -> a) -> (T time body -> body -> time -> a) -> T time body -> a #

mapMaybe :: C time => (body0 -> Maybe body1) -> T time body0 -> T time body1 #

catMaybes :: C time => T time (Maybe body) -> T time body #

Adds times in a left-associative fashion. Use this if the time is a strict data type.

catMaybesR :: C time => T time (Maybe body) -> T time body #

Adds times in a right-associative fashion. Use this if the time is a data type like lazy Peano numbers or Numeric.NonNegative.Chunky.

append :: C time => T time body -> T time body -> T time body #

concat :: C time => [T time body] -> T time body #

concatNaive :: C time => [T time body] -> T time body #

concat and concatNaive are essentially the same. concat must use foldr in order to work on infinite lists, however if there are many empty lists, summing of their durations will be done from right to left, which is inefficient. Thus we detect subsequent empty lists and merge them from left to right.

cycle :: C time => T time body -> T time body #

Uses sharing.

cycleNaive :: C time => T time body -> T time body #

reverse :: T time body -> T time body #

splitAtTime :: C time => time -> T time body -> (T time body, T time body) #

If there is an event at the cutting time, this event is returned in the suffix part. That is splitAtTime t0 (t0 . x . t1 ./ empty) == (pause t0, 0 . x . t1 ./ empty)

takeTime :: C time => time -> T time body -> T time body #

dropTime :: C time => time -> T time body -> T time body #

forceTimeHead :: C time => T time body -> T time body #

discretize :: (C time, RealFrac time, C i, Integral i) => T time body -> T i body #

resample :: (C time, RealFrac time, C i, Integral i) => time -> T time body -> T i body #

collectCoincident :: C time => T time body -> T time [body] #

flatten :: C time => T time [body] -> T time body #

mapCoincident :: C time => ([a] -> [b]) -> T time a -> T time b #

normalize :: (Ord body, C time) => T time body -> T time body #

Sort coincident elements.

isNormalized :: (C time, Ord body) => T time body -> Bool #

toAbsoluteEventList :: Num time => time -> T time body -> T time body #

fromAbsoluteEventList :: Num time => T time body -> T time body #