let snapshot_now = match cp_snapshot_interval#get with
    | None -> (=) total_time
    | Some i -> (fun time -> ((time - time_transient) / time_stroboscope) mod i = 0)