module type Experiment =An experiment is a way to run the CA, measure something on it and display or print it; they are implemented in folder rule, like the simplesig..end
Experiment.Statesval do_next_step : unit -> unitval at_first_measurement : unit -> unitval at_last_measurement : unit -> unitval do_measurement : time:int -> (int -> unit) * (int -> unit)time are different,
the time given to the drawing_function doesn't take time_transient into account.
This is used to let the user watch the output of the previous measurement
while computing the current one, and thus reduce the time before displaying
the result of the current measurement when he presses a key.