let init_drawings ~simulation_time =
    open_graph (Printf.sprintf " %ix%i"
                  ((simulation_time +1) * scale)
                  (length * scale))