Function zoom 

fn zoom(
    camera: Single<'_, '_, &mut Projection, With<Camera>>,
    mouse_wheel_input: Res<'_, AccumulatedMouseScroll>,
)