method private port_to_led_lights port = let positions = self#port_to_positions port in List.map (function x, y -> super#get x y) positions