module Topo:
val periodic : (int * int -> int * int -> int) -> int array array
Assumes distance x y <= Params.range imply linf x y <= Params.range
val bounded : (int * int -> int * int -> int) -> int array array
Assumes distance x y <= range imply linf x y <= range
val lone : int * int -> int * int -> int
val linf : int * int -> int * int -> int
val neighbourhoods : int array array
val distance_to_boundary : int -> int
val init_drawings : simulation_time:'a -> unit
val draw_configuration : unit -> ('a -> Graphics.color) -> 'a array -> 'b -> unit