anchor.diff:              else
                   return AdaptiveFunc.Identity
           }  
  +
       /// <summary> Gives a camera an option to move towards or away from the facing direction.
       /// middle mouse wheel controls the functionality.</summary>
       /// <param name="mouse"> the mouse inputs (this is often pulled from the parent window)</param>
       /// <param name="time"> the time to use as reference (this is often pulled from the parent window)</param>
       /// <returns>An incremental function that takes a CameraView</returns> 
  -    let controllScroll (m : IMouse) (time : IMod<DateTime>) =
  +    let controllScroll (mouse : IMouse) (time : IMod<DateTime>) =
           let active = Mod.init false
   
           let speed = ref 0.0
  -        let s = m.Scroll.Values.Subscribe(fun d ->
  +        let s = mouse.Scroll.Values.Subscribe(fun d ->
               speed := !speed + d
               if not <| active.GetValue() then
                   transact (fun () -> Mod.change active true)
  
positive.code:                 )
              else
                  return AdaptiveFunc.Identity
          }      
      /// <summary> Implement common control functions for movement, looking, panning, and zooming 
      /// for a given camera.</summary>
      /// <param name="moveSpeed"> the rate at which all movement occurs</param>
  
negative.code:                 )
              else
                  return AdaptiveFunc.Identity
          } 
          
      /// <summary> Implement common control functions for movement, looking, panning, and zooming 
      /// for a given camera.</summary>
      /// <param name="mouse"> the mouse inputs (this is often pulled from the parent window)</param>
  