Xrf fit

as in `value *= model_gauss_step(A, sigma, delta_energy, compton_E)`