method get_random_led_light =
    let x, y = (Random.int columns, Random.int rows) in
    try
      self#get_led_light x y
    with Non_existing_led_light(_) ->
      self#get_random_led_light