new function map_foldl_while in module Parseq
photon map integrator: use photon map only