extern "C" {
  #include "modkandinsky.h"
  }
  #include <kandinsky.h>
  
  mp_obj_t kandinsky_color(mp_obj_t red, mp_obj_t green, mp_obj_t blue) {
    return
      MP_OBJ_NEW_SMALL_INT(
        KDColor::RGB888(
          mp_obj_get_int(red),
          mp_obj_get_int(green),
          mp_obj_get_int(blue)
        )
      );
  }
  
  mp_obj_t kandinsky_get_pixel(mp_obj_t x, mp_obj_t y) {
    KDColor c = KDIonContext::sharedContext()->getPixel(
      KDPoint(mp_obj_get_int(x), mp_obj_get_int(y))
    );
    return MP_OBJ_NEW_SMALL_INT(c);
  }
  mp_obj_t kandinsky_set_pixel(mp_obj_t x, mp_obj_t y, mp_obj_t color) {
    KDIonContext::sharedContext()->setPixel(
      KDPoint(mp_obj_get_int(x), mp_obj_get_int(y)),
      KDColor::RGB16(mp_obj_get_int(color))
    );
    return mp_const_none;
  }
  
  mp_obj_t kandinsky_draw_string(mp_obj_t text, mp_obj_t x, mp_obj_t y) {
    KDIonContext::sharedContext()->drawString(
      mp_obj_str_get_str(text),
      KDPoint(mp_obj_get_int(x), mp_obj_get_int(y))
    );
    return mp_const_none;
  }