let draw_configuration () =
    let pred_scale = pred scale in
    let draw_cell =
      if scale <> 1
      then fun x y -> fill_rect (x*scale) (y*scale) pred_scale pred_scale
      else fun x y -> plot x y in
  fun color_of_state configuration time ->
    Femtolib.Array_simulate_2d.iteri height
      (fun x y state ->
         set_color (color_of_state state);
         draw_cell x y)
      configuration