diff --git a/reflex-animation.cabal b/reflex-animation.cabal
--- a/reflex-animation.cabal
+++ b/reflex-animation.cabal
@@ -1,5 +1,5 @@
 name:                reflex-animation
-version:             0.1.4
+version:             0.1.5
 synopsis:            Continuous animations support for reflex
 description:         This package provides a set of functions for creating and playing continuous animations of the form Time -> a.
                      Finite animations (with a length) and infinite animations complement one another, we chose a representation of 
diff --git a/src/Reflex/Animation.hs b/src/Reflex/Animation.hs
--- a/src/Reflex/Animation.hs
+++ b/src/Reflex/Animation.hs
@@ -34,6 +34,9 @@
   , sine
   , cosine
   
+  , clamp
+  , fmod
+  
   )
   
   where
@@ -221,8 +224,6 @@
          | otherwise          = (frac + 1) * d
   where (_::Int, frac) = properFraction (x / d)
         
-        
-       
   
 clamp :: Ord a => (a, a) -> a -> a
 clamp (lower, upper) a = max lower (min upper a)
diff --git a/src/Reflex/Monad/Time.hs b/src/Reflex/Monad/Time.hs
--- a/src/Reflex/Monad/Time.hs
+++ b/src/Reflex/Monad/Time.hs
@@ -1,14 +1,13 @@
 module Reflex.Monad.Time 
   ( MonadTime (..)
 
-  , observeChanges
   , delay_
    
   , animate
   , animateClip
   , animateOn
-
   
+  
   , play
   , playClip
   , playClamp
@@ -40,15 +39,7 @@
  
   
 class (MonadReflex t m, RealFrac time) => MonadTime t time m | m -> t time where
-
-  -- | Integrate a behavior with respect to time, at a sampling rate determined by the implementor
-  -- uses VectorSpace to allow for monomorphic vectors, e.g. gloss
-  integrate :: (VectorSpace v, Scalar v ~ time) => v -> Behavior t v -> m (Behavior t v)
   
-  -- | Observe an event by sampling it at a rate determined by the implementing framework
-  -- e.g. reflex-gloss-scene uses a fixed sampling rate.
-  observe :: Behavior t a -> m (Event t a)
-  
   -- | A behavior for time, must be up to date 
   -- (i.e. represents current time not previous time)
   getTime :: m (Behavior t time)
@@ -84,6 +75,7 @@
   
 
 
+  
 -- | Create a Behavior from an infinite animation on the occurance of the event   
 animateOn :: (Reflex t, RealFrac time) => Event t (Animation time a) -> Behavior t time -> Event t (Behavior t a)
 animateOn e = sampleOn (sampleAt <$> e)
@@ -133,12 +125,6 @@
   return (join b, done)
   
 
--- | Observe changes in a 'Behavior a' it's Eq a instance
-observeChanges :: (Eq a, MonadTime t time m) => Behavior t a -> m (Event t a)
-observeChanges b = do
-  initial <- sample b
-  d <- holdDyn initial =<< observe b
-  return (updated $ nubDyn d)  
 
 
 -- | Helper functions using filter with Eq