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:                     speed := v
  
                      let df = v * dt.TotalSeconds
                      let direction = 0.12 * speed.Value * (cam.Forward * df)
  
                      if abs v < 0.5 then
                          transact (fun () -> Mod.change active false)
  
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)
  
                  )
  