anchor.diff:                  return AdaptiveFunc.Identity
           }
           
  -    let controllScrollWithSpeed (speed : ModRef<float>) (m : IMouse) (time : IMod<DateTime>) =
  +    let controllScrollWithSpeed (moveSpeed : ModRef<float>) (m : IMouse) (time : IMod<DateTime>) =
           let active = Mod.initMod false
   
           let speed = ref 0.0
  
positive.code:             if d then
                  return location |> Mod.step (fun p delta (cam : CameraView) ->
  
                      let step = -0.06 * speed.Value * (cam.Forward * float delta.Y)
                      cam.WithLocation(cam.Location + step)
  
                  )
  
negative.code:                     speed := v
  
                      let df = v * dt.TotalSeconds
                      let direction = (0.012 * moveSpeed.Value) * (cam.Forward * df)
  
                      if abs v < 0.5 then
                          transact (fun () -> Mod.change active false)
  