function l1b_combine_scenes1,timestamp_,data_image_,bboxes_image_,bboxes_scene=bboxes_scene
  timestamp=dereference_single(timestamp_)
  bboxes_image=dereference_single(bboxes_image_)
  data_image=dereference_single(data_image_)
  match=where(logical_and(timestamp gt 0,timestamp eq timestamp[0]),nmatch)
  while nmatch gt 0 do begin
    data=merge(data_image[match],bboxes_image[match,*],bbox=bbox,/replace)
    if n_elements(data_scene) eq 0 then begin
      data_scene=ptr_new(data)
      bboxes_scene=transpose(bbox)
    end else begin
      data_scene=[data_scene,ptr_new(data)]
      bboxes_scene=[[bboxes_scene],transpose(bbox)]
    end
    timestamp[match]=-1
    lowest_no_match=where(timestamp gt 0,nlowest)
    if nlowest eq 0 then begin
      nmatch=0 
    end else begin
      lowest_no_match=lowest_no_match[0]
      match=where(logical_and(timestamp gt 0,timestamp eq timestamp[lowest_no_match]),nmatch)
    end
  end
  bboxes_scene=ptr_new(bboxes_scene)
  return,ptr_new(data_scene)
end