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