method private for_each_led_light (f : led_light -> 'a) (port : int) : 'a list
      = List.map (function x, y -> f (super#get x y))
                 (self#port_to_positions port);