anchor.diff:              if d then
                   return location |> Mod.step (fun p delta (cam : CameraView) ->
   
  -                    let step = 0.06 * speed.Value * (cam.Down * float delta.Y + cam.Right * float delta.X)
  +                    let step = 0.006 * speed.Value * (cam.Down * float delta.Y + cam.Right * float delta.X)
   
                       cam.WithLocation(cam.Location + step)
   
  
positive.code:                 return AdaptiveFunc.Identity
          }
          
      let controllScrollWithSpeed (speed : ModRef<float>) (m : IMouse) (time : IMod<DateTime>) =
          let active = Mod.initMod false
  
          let speed = ref 0.0
  
negative.code:             if d then
                  return location |> Mod.step (fun p delta (cam : CameraView) ->
  
                      let step = -0.006 * speed.Value * (cam.Forward * float delta.Y)
                      cam.WithLocation(cam.Location + step)
  
                  )
  