kaka 1.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 6d9094fb11a54ca37c63cb5c86a0c3bbea3244b9
+  data.tar.gz: 77533c6d07af9f9a2e6c7811c428b310df73c511
+SHA512:
+  metadata.gz: 2b094468bb8b9f02e6e60f2afcdbe9e82d2f74b4ab144041ed42bbb2021d1266b708cfb356ef77363e86821b1b9e9880025f02ab909fd781e710bbe4fa96a06e
+  data.tar.gz: bedb4763af112f5a61a07415f1c51115c29b31bcf022a0d99272731b1ffc520ab81b1ec1338cba3ddde4b3bafe23aebce3c981600bfddd48e355f91a3b5d06b5

data/README.md

@@ -0,0 +1,66 @@
+<pre>
+░█░█░█▀█░█░█░█▀█░░░░█▀▄░█▀▄
+░█▀▄░█▀█░█▀▄░█▀█░░░░█▀▄░█▀▄
+░▀░▀░▀░▀░▀░▀░▀░▀░▀░░▀░▀░▀▀░
+</pre>
+
+* https://github.com/mcfiredrill/kaka.rb
+
+## DESCRIPTION:
+
+fork of libcaca ruby extensions.
+
+## SYNOPSIS:
+
+The API is kind of awkward right now with regards to user input. The original
+docs from the libcaca repo recommending doing something like this:
+
+```
+#Redefine Event::Key#quit? so that q, Q, and Esc become exit keys
+module Caca
+  class Event::Key
+    def quit?
+      "qQ^[".split('').member?(@ch.chr)
+    end
+  end
+end
+```
+
+This didn't scale terribly well when I tried to make a text art editor => 
+https://github.com/mcfiredrill/dirbird/blob/master/lib/events.rb
+
+I'd like to see if there's another way to do this besides just monkeypatching
+the event class in your application.
+
+## REQUIREMENTS:
+
+* libcaca
+
+## INSTALL:
+
+* gem install kaka
+
+## DEVELOPERS:
+
+After checking out the source, run:
+
+  $ rake
+
+This will compile the c extension and run the tests.
+
+## LICENSE:
+
+            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+                    Version 2, December 2004
+
+ Copyright (C) 2004 Sam Hocevar
+
+ Everyone is permitted to copy and distribute verbatim or modified
+ copies of this license document, and changing it is allowed as long
+ as the name is changed.
+
+            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+  0. You just DO WHAT THE FUCK YOU WANT TO.
+

data/ext/caca/caca-canvas.c

@@ -0,0 +1,806 @@
+/*
+ *  libcaca Ruby bindings
+ *  Copyright (c) 2007-2012 Pascal Terjan <pterjan@linuxfr.org>
+ *
+ *  This library is free software. It comes without any warranty, to
+ *  the extent permitted by applicable law. You can redistribute it
+ *  and/or modify it under the terms of the Do What the Fuck You Want
+ *  to Public License, Version 2, as published by Sam Hocevar. See
+ *  http://www.wtfpl.net/ for more details.
+ */
+
+#include <ruby.h>
+#include <caca.h>
+#include <errno.h>
+#include "caca-dither.h"
+#include "caca-font.h"
+#include "common.h"
+
+VALUE cCanvas;
+
+#define simple_func(x)                                  \
+static VALUE x (VALUE self)                             \
+{                                                       \
+    if( caca_##x (_SELF) <0)                            \
+        rb_raise(rb_eRuntimeError, "%s", strerror(errno));    \
+                                                        \
+    return self;                                        \
+}
+
+#define get_int(x)                                      \
+static VALUE get_##x (VALUE self)                       \
+{                                                       \
+    return INT2NUM(caca_get_##x (_SELF));               \
+}
+
+static void canvas_free(void * p)
+{
+    caca_free_canvas((caca_canvas_t *)p);
+}
+
+static VALUE canvas_alloc(VALUE klass)
+{
+    VALUE obj;
+    obj = Data_Wrap_Struct(klass, NULL, canvas_free, NULL);
+    return obj;
+}
+
+VALUE canvas_create(caca_canvas_t *canvas)
+{
+    return Data_Wrap_Struct(cCanvas, NULL, NULL, canvas);
+}
+
+static VALUE canvas_initialize(VALUE self, VALUE width, VALUE height)
+{
+    caca_canvas_t *canvas;
+
+    canvas = caca_create_canvas(NUM2INT(width), NUM2INT(height));
+
+    if(canvas == NULL)
+    {
+        rb_raise(rb_eRuntimeError, "%s", strerror(errno));
+    }
+
+    _SELF = canvas;
+
+    return self;
+}
+
+get_int(canvas_height)
+get_int(canvas_width)
+
+static VALUE set_canvas_width(VALUE self, VALUE width)
+{
+    caca_set_canvas_size(_SELF, NUM2INT(width), caca_get_canvas_height(_SELF));
+    return width;
+}
+
+static VALUE set_canvas_width2(VALUE self, VALUE width)
+{
+    set_canvas_width(self, width);
+    return self;
+}
+
+static VALUE set_canvas_height(VALUE self, VALUE height)
+{
+    caca_set_canvas_size(_SELF, caca_get_canvas_width(_SELF), NUM2INT(height));
+    return height;
+}
+
+static VALUE set_canvas_height2(VALUE self, VALUE height)
+{
+    set_canvas_height(self, height);
+    return self;
+}
+
+static VALUE set_canvas_size(VALUE self, VALUE height, VALUE width)
+{
+    caca_set_canvas_size(_SELF, NUM2INT(width), NUM2INT(height));
+    return self;
+}
+
+/****/
+
+static VALUE gotoxy(VALUE self, VALUE x, VALUE y)
+{
+    if( caca_gotoxy(_SELF, NUM2INT(x), NUM2INT(y)) <0) {
+        rb_raise(rb_eRuntimeError, "%s", strerror(errno));
+    }
+    return self;
+}
+
+static VALUE wherex(VALUE self)
+{
+    return INT2NUM(caca_wherex(_SELF));
+}
+
+static VALUE wherey(VALUE self)
+{
+    return INT2NUM(caca_wherey(_SELF));
+}
+
+simple_func(clear_canvas)
+
+static VALUE put_char(VALUE self, VALUE x, VALUE y, VALUE ch)
+{
+    caca_put_char(_SELF, NUM2INT(x), NUM2INT(y), NUM2ULONG(ch));
+    return self;
+}
+
+static VALUE get_char(VALUE self, VALUE x, VALUE y)
+{
+    unsigned long int ch;
+    ch = caca_get_char(_SELF, NUM2INT(x), NUM2INT(y));
+    return INT2NUM(ch);
+}
+
+static VALUE put_str(VALUE self, VALUE x, VALUE y, VALUE str)
+{
+    caca_put_str(_SELF, NUM2INT(x), NUM2INT(y), StringValuePtr(str));
+    return self;
+}
+
+static VALUE get_attr(VALUE self, VALUE x, VALUE y)
+{
+    unsigned long int ch;
+    ch = caca_get_attr(_SELF, NUM2INT(x), NUM2INT(y));
+    return INT2NUM(ch);
+}
+
+static VALUE set_attr(VALUE self, VALUE attr)
+{
+    if(caca_set_attr(_SELF, NUM2ULONG(attr)) <0)
+        rb_raise(rb_eRuntimeError, "%s", strerror(errno));
+
+    return self;
+}
+
+static VALUE set_attr2(VALUE self, VALUE attr)
+{
+    set_attr(self, attr);
+    return self;
+}
+
+static VALUE put_attr(VALUE self, VALUE x, VALUE y, VALUE attr)
+{
+    if(caca_put_attr(_SELF, NUM2INT(x), NUM2INT(y), NUM2ULONG(attr)) <0)
+        rb_raise(rb_eRuntimeError, "%s", strerror(errno));
+
+    return self;
+}
+
+static VALUE set_color_ansi(VALUE self, VALUE fg, VALUE bg)
+{
+    if(caca_set_color_ansi(_SELF, NUM2INT(fg), NUM2INT(bg)) <0)
+        rb_raise(rb_eRuntimeError, "%s", strerror(errno));
+
+    return self;
+}
+
+static VALUE set_color_argb(VALUE self, VALUE fg, VALUE bg)
+{
+    if(caca_set_color_argb(_SELF, NUM2UINT(fg), NUM2UINT(bg)) <0) {
+        rb_raise(rb_eRuntimeError, "%s", strerror(errno));
+    }
+    return self;
+}
+
+static VALUE cprintf(int argc, VALUE* argv, VALUE self)
+{
+    int x, y;
+    VALUE rx, ry, format, rest, string;
+    rb_scan_args(argc, argv, "3*", &rx, &ry, &format, &rest);
+    x = NUM2INT(rx);
+    y = NUM2INT(ry);
+    string = rb_funcall2(rb_mKernel, rb_intern("sprintf"), argc-2, argv+2);
+    caca_put_str(_SELF, x, y, StringValuePtr(string));
+    return self;
+}
+
+
+get_int(canvas_handle_x)
+get_int(canvas_handle_y)
+
+static VALUE set_canvas_handle(VALUE self, VALUE x, VALUE y)
+{
+    caca_set_canvas_handle(_SELF, NUM2INT(x), NUM2INT(y));
+    return self;
+}
+
+static VALUE blit(int argc, VALUE* argv, VALUE self) {
+    VALUE x, y, src, mask;
+    caca_canvas_t *csrc, *cmask;
+
+    rb_scan_args(argc, argv, "31", &x, &y, &src, &mask);
+
+    Check_Type(x, T_FIXNUM);
+    Check_Type(y, T_FIXNUM);
+
+    if(CLASS_OF(src) != cCanvas)
+    {
+        rb_raise(rb_eArgError, "src is not a Caca::Canvas");
+    }
+    Data_Get_Struct(src, caca_canvas_t, csrc);
+
+    if(!NIL_P(mask))
+    {
+        if(CLASS_OF(mask) != cCanvas)
+        {
+            rb_raise(rb_eArgError, "mask is not a Caca::Canvas");
+        }
+        Data_Get_Struct(mask, caca_canvas_t, cmask);
+    }
+    else
+        cmask = NULL;
+
+    if(caca_blit(_SELF, NUM2INT(x), NUM2INT(y), csrc, cmask)<0)
+        rb_raise(rb_eRuntimeError, "%s", strerror(errno));
+
+    return self;
+}
+
+static VALUE set_canvas_boundaries(VALUE self, VALUE x, VALUE y, VALUE w, VALUE h)
+{
+    if(caca_set_canvas_boundaries(_SELF, NUM2INT(x), NUM2INT(y), NUM2UINT(w), NUM2UINT(h))<0)
+    {
+        rb_raise(rb_eRuntimeError, "%s", strerror(errno));
+    }
+    return self;
+}
+
+/****/
+
+simple_func(invert)
+simple_func(flip)
+simple_func(flop)
+simple_func(rotate_180)
+simple_func(rotate_left)
+simple_func(rotate_right)
+simple_func(stretch_left)
+simple_func(stretch_right)
+
+/****/
+
+static VALUE draw_line(VALUE self, VALUE x1, VALUE y1, VALUE x2, VALUE y2, VALUE ch)
+{
+    caca_draw_line(_SELF, NUM2INT(x1), NUM2INT(y1), NUM2INT(x2), NUM2INT(y2),NUM2ULONG(ch));
+    return self;
+}
+
+static VALUE draw_polyline(VALUE self, VALUE points, VALUE ch)
+{
+    int i, n;
+    int *ax, *ay;
+    int error = 0;
+    VALUE v, x, y;
+
+    n = RARRAY_LEN(points);
+
+    ax = (int*)malloc(n*sizeof(int));
+    if(!ax)
+        rb_raise(rb_eNoMemError,"Out of memory");
+
+    ay = (int*)malloc(n*sizeof(int));
+    if(!ay)
+    {
+        free(ax);
+        rb_raise(rb_eNoMemError,"Out of memory");
+    }
+
+    for(i=0; i<n; i++)
+    {
+        v = rb_ary_entry(points, i);
+        if((TYPE(v) == T_ARRAY) && (RARRAY_LEN(v) == 2))
+        {
+            x = rb_ary_entry(v,0);
+            y = rb_ary_entry(v,1);
+            if(rb_obj_is_kind_of(x, rb_cInteger) &&
+               rb_obj_is_kind_of(y, rb_cInteger))
+            {
+                ax[i] = NUM2INT(x);
+                ay[i] = NUM2INT(y);
+            } else
+                error = 1;
+        }
+        else
+            error = 1;
+    }
+
+    if(error)
+    {
+        free(ax);
+        free(ay);
+        rb_raise(rb_eArgError, "Invalid list of points");
+    }
+
+    n--;
+
+    caca_draw_polyline(_SELF, ax, ay, n, NUM2ULONG(ch));
+
+    free(ax);
+    free(ay);
+
+    return self;
+}
+
+static VALUE draw_thin_line(VALUE self, VALUE x1, VALUE y1, VALUE x2, VALUE y2)
+{
+    caca_draw_thin_line(_SELF, NUM2INT(x1), NUM2INT(y1), NUM2INT(x2), NUM2INT(y2));
+    return self;
+}
+
+static VALUE draw_thin_polyline(VALUE self, VALUE points)
+{
+    int i, n;
+    int *ax, *ay;
+    int error = 0;
+    VALUE v, x, y;
+
+    n = RARRAY_LEN(points);
+
+    ax = (int*)malloc(n*sizeof(int));
+    if(!ax)
+        rb_raise(rb_eNoMemError,"Out of memory");
+
+    ay = (int*)malloc(n*sizeof(int));
+    if(!ay)
+    {
+        free(ax);
+        rb_raise(rb_eNoMemError,"Out of memory");
+    }
+
+    for(i=0; i<n; i++)
+    {
+        v = rb_ary_entry(points, i);
+        if((TYPE(v) == T_ARRAY) && (RARRAY_LEN(v) == 2))
+        {
+            x = rb_ary_entry(v,0);
+            y = rb_ary_entry(v,1);
+            if(rb_obj_is_kind_of(x, rb_cInteger) &&
+               rb_obj_is_kind_of(y, rb_cInteger))
+            {
+                ax[i] = NUM2INT(x);
+                ay[i] = NUM2INT(y);
+            } else
+                error = 1;
+        }
+        else
+            error = 1;
+    }
+
+    if(error)
+    {
+        free(ax);
+        free(ay);
+        rb_raise(rb_eArgError, "Invalid list of points");
+    }
+
+    n--;
+
+    caca_draw_thin_polyline(_SELF, ax, ay, n);
+
+    free(ax);
+    free(ay);
+
+    return self;
+}
+
+static VALUE draw_circle(VALUE self, VALUE x, VALUE y, VALUE r, VALUE ch)
+{
+    caca_draw_circle(_SELF, NUM2INT(x), NUM2INT(y), NUM2INT(r), NUM2ULONG(ch));
+    return self;
+}
+
+static VALUE draw_ellipse(VALUE self, VALUE x, VALUE y, VALUE a, VALUE b, VALUE ch)
+{
+    caca_draw_ellipse(_SELF, NUM2INT(x), NUM2INT(y), NUM2INT(a), NUM2INT(b), NUM2ULONG(ch));
+    return self;
+}
+
+static VALUE draw_thin_ellipse(VALUE self, VALUE x, VALUE y, VALUE a, VALUE b)
+{
+    caca_draw_thin_ellipse(_SELF, NUM2INT(x), NUM2INT(y), NUM2INT(a), NUM2INT(b));
+    return self;
+}
+
+static VALUE fill_ellipse(VALUE self, VALUE x, VALUE y, VALUE a, VALUE b, VALUE ch)
+{
+    caca_fill_ellipse(_SELF, NUM2INT(x), NUM2INT(y), NUM2INT(a), NUM2INT(b), NUM2ULONG(ch));
+    return self;
+}
+
+static VALUE draw_box(VALUE self, VALUE x, VALUE y, VALUE w, VALUE h, VALUE ch)
+{
+    caca_draw_box(_SELF, NUM2INT(x), NUM2INT(y), NUM2INT(w), NUM2INT(h), NUM2ULONG(ch));
+    return self;
+}
+
+static VALUE draw_thin_box(VALUE self, VALUE x, VALUE y, VALUE w, VALUE h)
+{
+    caca_draw_thin_box(_SELF, NUM2INT(x), NUM2INT(y), NUM2INT(w), NUM2INT(h));
+    return self;
+}
+
+static VALUE draw_cp437_box(VALUE self, VALUE x, VALUE y, VALUE w, VALUE h)
+{
+    caca_draw_cp437_box(_SELF, NUM2INT(x), NUM2INT(y), NUM2INT(w), NUM2INT(h));
+    return self;
+}
+
+static VALUE fill_box(VALUE self, VALUE x, VALUE y, VALUE w, VALUE h, VALUE ch)
+{
+    caca_fill_box(_SELF, NUM2INT(x), NUM2INT(y), NUM2INT(w), NUM2INT(h), NUM2ULONG(ch));
+    return self;
+}
+
+static VALUE draw_triangle(VALUE self, VALUE x1, VALUE y1, VALUE x2, VALUE y2, VALUE x3, VALUE y3, VALUE ch)
+{
+    caca_draw_triangle(_SELF, NUM2INT(x1), NUM2INT(y1), NUM2INT(x2), NUM2INT(y2),  NUM2INT(x3), NUM2INT(y3), NUM2ULONG(ch));
+    return self;
+}
+
+static VALUE draw_thin_triangle(VALUE self, VALUE x1, VALUE y1, VALUE x2, VALUE y2, VALUE x3, VALUE y3)
+{
+    caca_draw_thin_triangle(_SELF, NUM2INT(x1), NUM2INT(y1), NUM2INT(x2), NUM2INT(y2),  NUM2INT(x3), NUM2INT(y3));
+    return self;
+}
+
+static VALUE fill_triangle(VALUE self, VALUE x1, VALUE y1, VALUE x2, VALUE y2, VALUE x3, VALUE y3, VALUE ch)
+{
+    caca_fill_triangle(_SELF, NUM2INT(x1), NUM2INT(y1), NUM2INT(x2), NUM2INT(y2),  NUM2INT(x3), NUM2INT(y3), NUM2ULONG(ch));
+    return self;
+}
+
+static VALUE fill_triangle_textured(VALUE self, VALUE coords, VALUE texture, VALUE uv)
+{
+    caca_canvas_t *ctexture;
+    int i, l;
+    int ccoords[6];
+    float cuv[6];
+    VALUE v;
+
+    l = RARRAY_LEN(coords);
+    if(l != 6 && l != 3)
+    {
+        rb_raise(rb_eArgError, "invalid coords list");
+    }
+    for(i=0; i<l; i++)
+    {
+        v = rb_ary_entry(coords, i);
+        if(l==6)
+            ccoords[i] = NUM2INT(v);
+        else
+        {
+            if((TYPE(v) != T_ARRAY) || (RARRAY_LEN(v) != 2))
+                rb_raise(rb_eArgError, "invalid coords list");
+            ccoords[2*i] = NUM2INT(rb_ary_entry(v, 0));
+            ccoords[2*i+1] = NUM2INT(rb_ary_entry(v, 1));
+        }
+    }
+
+    l = RARRAY_LEN(uv);
+    if(l != 6 && l != 3)
+    {
+        rb_raise(rb_eArgError, "invalid uv list");
+    }
+    for(i=0; i<l; i++)
+    {
+        v = rb_ary_entry(uv, i);
+        if(l==6)
+            cuv[i] = NUM2DBL(v);
+        else
+        {
+            if((TYPE(v) != T_ARRAY) || (RARRAY_LEN(v) != 2))
+                rb_raise(rb_eArgError, "invalid uv list");
+            ccoords[2*i] = NUM2DBL(rb_ary_entry(v, 0));
+            ccoords[2*i+1] = NUM2DBL(rb_ary_entry(v, 1));
+        }
+    }
+
+    if(CLASS_OF(texture) != cCanvas)
+    {
+        rb_raise(rb_eArgError, "texture is not a Caca::Canvas");
+    }
+    Data_Get_Struct(texture, caca_canvas_t, ctexture);
+
+    caca_fill_triangle_textured(_SELF, ccoords, ctexture, cuv);
+    return self;
+}
+
+static VALUE dither_bitmap(VALUE self, VALUE x, VALUE y, VALUE w, VALUE h, VALUE d, VALUE pixels)
+{
+    if(CLASS_OF(d) != cDither)
+        rb_raise(rb_eArgError, "d is not a Caca::Dither");
+    Check_Type(pixels, T_STRING);
+
+    caca_dither_bitmap(_SELF, NUM2INT(x), NUM2INT(y), NUM2INT(w), NUM2INT(h), DATA_PTR(d), StringValuePtr(pixels));
+    return self;
+}
+
+/****/
+
+get_int(frame_count)
+
+static VALUE set_frame(VALUE self, VALUE id)
+{
+    if(caca_set_frame(_SELF, NUM2INT(id))<0)
+        rb_raise(rb_eArgError, "%s", strerror(errno));
+
+    return self;
+}
+
+static VALUE set_frame2(VALUE self, VALUE id)
+{
+    set_frame(self, id);
+    return self;
+}
+
+static VALUE get_frame_name(VALUE self)
+{
+    return rb_str_new2(caca_get_frame_name(_SELF));
+}
+
+static VALUE set_frame_name(VALUE self, VALUE name)
+{
+    if(caca_set_frame_name(_SELF, StringValuePtr(name))<0)
+        rb_raise(rb_eRuntimeError, "%s", strerror(errno));
+
+    return self;
+}
+
+static VALUE set_frame_name2(VALUE self, VALUE name)
+{
+    set_frame_name(self, name);
+    return self;
+}
+
+static VALUE create_frame(VALUE self, VALUE id)
+{
+    if(caca_create_frame(_SELF, NUM2INT(id))<0) {
+        rb_raise(rb_eRuntimeError, "%s", strerror(errno));
+    }
+    return self;
+}
+
+static VALUE free_frame(VALUE self, VALUE id)
+{
+    if(caca_free_frame(_SELF, NUM2INT(id))<0) {
+        rb_raise(rb_eArgError, "%s", strerror(errno));
+    }
+    return self;
+}
+
+/****/
+
+static VALUE render_canvas(VALUE self, VALUE font, VALUE width, VALUE height, VALUE pitch)
+{
+    void *buf;
+    caca_font_t *f;
+    VALUE b;
+
+    if(CLASS_OF(font) != cFont)
+    {
+        rb_raise(rb_eArgError, "First argument is not a Caca::Font");
+    }
+
+    buf = malloc(width*height*4);
+    if(buf == NULL)
+    {
+        rb_raise(rb_eNoMemError, "Out of memory");
+    }
+
+    f = DATA_PTR(font);
+    caca_render_canvas(_SELF, f, buf, NUM2UINT(width), NUM2UINT(height), NUM2UINT(pitch));
+
+    b = rb_str_new(buf, width*height*4);
+    free(buf);
+    return b;
+}
+
+static VALUE import_from_memory(VALUE self, VALUE data, VALUE format)
+{
+    long int bytes;
+    bytes = caca_import_canvas_from_memory (_SELF, StringValuePtr(data), RSTRING_LEN(StringValue(data)), StringValuePtr(format));
+    if(bytes <= 0)
+        rb_raise(rb_eRuntimeError, "%s", strerror(errno));
+
+    return self;
+}
+
+static VALUE import_area_from_memory(VALUE self, VALUE x, VALUE y, VALUE data, VALUE format)
+{
+    long int bytes;
+    bytes = caca_import_area_from_memory (_SELF, NUM2INT(x), NUM2INT(y), StringValuePtr(data), RSTRING_LEN(StringValue(data)), StringValuePtr(format));
+    if(bytes <= 0)
+        rb_raise(rb_eRuntimeError, "%s", strerror(errno));
+
+    return self;
+}
+
+static VALUE import_from_file(VALUE self, VALUE filename, VALUE format)
+{
+    long int bytes;
+    bytes = caca_import_canvas_from_file (_SELF, StringValuePtr(filename), StringValuePtr(format));
+    if(bytes <= 0)
+        rb_raise(rb_eRuntimeError, "%s", strerror(errno));
+
+    return self;
+}
+
+static VALUE import_area_from_file(VALUE self, VALUE x, VALUE y, VALUE filename, VALUE format)
+{
+    long int bytes;
+    bytes = caca_import_area_from_file (_SELF, NUM2INT(x), NUM2INT(y), StringValuePtr(filename), StringValuePtr(format));
+    if(bytes <= 0)
+        rb_raise(rb_eRuntimeError, "%s", strerror(errno));
+
+    return self;
+}
+
+static VALUE export_area_to_memory(VALUE self, VALUE x, VALUE y, VALUE w, VALUE h, VALUE format)
+{
+    size_t bytes;
+    void *result;
+    VALUE ret;
+    result = caca_export_area_to_memory (_SELF, NUM2INT(x), NUM2INT(y), NUM2INT(w), NUM2INT(h), StringValuePtr(format), &bytes);
+    ret = rb_str_new(result, bytes);
+    free(result);
+    return ret;
+}
+
+static VALUE export_to_memory(VALUE self, VALUE format)
+{
+    size_t bytes;
+    void *result;
+    VALUE ret;
+    result = caca_export_canvas_to_memory (_SELF, StringValuePtr(format), &bytes);
+    ret = rb_str_new(result, bytes);
+    free(result);
+    return ret;
+}
+
+get_singleton_double_list(export)
+get_singleton_double_list(import)
+
+/****/
+
+simple_func(disable_dirty_rect)
+simple_func(enable_dirty_rect)
+get_int(dirty_rect_count)
+
+static VALUE dirty_rect(VALUE self, VALUE n)
+{
+    int x, y, width, height;
+    VALUE ary;
+    ary = rb_ary_new();
+    caca_get_dirty_rect(_SELF, NUM2INT(n), &x, &y, &width, &height);
+    rb_ary_push(ary, INT2NUM(x));
+    rb_ary_push(ary, INT2NUM(y));
+    rb_ary_push(ary, INT2NUM(width));
+    rb_ary_push(ary, INT2NUM(height));
+    return ary;
+}
+
+static VALUE dirty_rects(VALUE self)
+{
+    int n = caca_get_dirty_rect_count(_SELF), i;
+    VALUE ary;
+    ary = rb_ary_new();
+    for(i=0; i<n; i++)
+    {
+        rb_ary_push(ary, dirty_rect(self, INT2NUM(i)));
+    }
+    return ary;
+}
+
+/*FIXME Handle an array for the rect */
+static VALUE add_dirty_rect(VALUE self, VALUE x, VALUE y, VALUE w, VALUE h)
+{
+    caca_add_dirty_rect(_SELF, NUM2INT(x), NUM2INT(y), NUM2INT(w), NUM2INT(h));
+    return self;
+}
+
+static VALUE remove_dirty_rect(VALUE self, VALUE x, VALUE y, VALUE w, VALUE h)
+{
+    caca_remove_dirty_rect(_SELF, NUM2INT(x), NUM2INT(y), NUM2INT(w), NUM2INT(h));
+    return self;
+}
+
+simple_func(clear_dirty_rect_list)
+
+/****/
+
+void Init_caca_canvas(VALUE mCaca)
+{
+    cCanvas = rb_define_class_under(mCaca, "Canvas", rb_cObject);
+    rb_define_alloc_func(cCanvas, canvas_alloc);
+
+    rb_define_method(cCanvas, "initialize", canvas_initialize, 2);
+    rb_define_method(cCanvas, "width", get_canvas_width, 0);
+    rb_define_method(cCanvas, "width=", set_canvas_width, 1);
+    rb_define_method(cCanvas, "set_width", set_canvas_width2, 1);
+    rb_define_method(cCanvas, "height", get_canvas_height, 0);
+    rb_define_method(cCanvas, "height=", set_canvas_height, 1);
+    rb_define_method(cCanvas, "set_height", set_canvas_height2, 1);
+    rb_define_method(cCanvas, "set_size", set_canvas_size, 2);
+
+    rb_define_method(cCanvas, "gotoxy", gotoxy, 2);
+    rb_define_method(cCanvas, "wherex", wherex, 0);
+    rb_define_method(cCanvas, "wherey", wherey, 0);
+    rb_define_method(cCanvas, "handle_x", get_canvas_handle_x, 0);
+    rb_define_method(cCanvas, "handle_y", get_canvas_handle_y, 0);
+    rb_define_method(cCanvas, "set_handle", set_canvas_handle, 2);
+    rb_define_method(cCanvas, "blit", blit, -1);
+    rb_define_method(cCanvas, "set_boundaries", set_canvas_boundaries, 4);
+
+    rb_define_method(cCanvas, "clear", clear_canvas, 0);
+
+    rb_define_method(cCanvas, "put_char", put_char, 3);
+    rb_define_method(cCanvas, "get_char", get_char, 2);
+    rb_define_method(cCanvas, "put_str", put_str, 3);
+    rb_define_method(cCanvas, "printf", cprintf, -1);
+
+    rb_define_method(cCanvas, "get_attr", get_attr, 3);
+    rb_define_method(cCanvas, "attr=", set_attr, 1);
+    rb_define_method(cCanvas, "set_attr", set_attr2, 1);
+    rb_define_method(cCanvas, "put_attr", put_attr, 3);
+    rb_define_method(cCanvas, "set_color_ansi", set_color_ansi, 2);
+    rb_define_method(cCanvas, "set_color_argb", set_color_argb, 2);
+
+    rb_define_method(cCanvas, "invert", invert, 0);
+    rb_define_method(cCanvas, "flip", flip, 0);
+    rb_define_method(cCanvas, "flop", flop, 0);
+    rb_define_method(cCanvas, "rotate_180", rotate_180, 0);
+    rb_define_method(cCanvas, "rotate_left", rotate_left, 0);
+    rb_define_method(cCanvas, "rotate_right", rotate_right, 0);
+    rb_define_method(cCanvas, "stretch_left", stretch_left, 0);
+    rb_define_method(cCanvas, "stretch_right", stretch_right, 0);
+
+    rb_define_method(cCanvas, "draw_line", draw_line, 5);
+    rb_define_method(cCanvas, "draw_polyline", draw_polyline, 2);
+    rb_define_method(cCanvas, "draw_thin_line", draw_thin_line, 4);
+    rb_define_method(cCanvas, "draw_thin_polyline", draw_thin_polyline, 1);
+    rb_define_method(cCanvas, "draw_circle", draw_circle, 4);
+    rb_define_method(cCanvas, "draw_ellipse", draw_ellipse, 5);
+    rb_define_method(cCanvas, "draw_thin_ellipse", draw_thin_ellipse, 4);
+    rb_define_method(cCanvas, "fill_ellipse", fill_ellipse, 5);
+    rb_define_method(cCanvas, "draw_box", draw_box, 5);
+    rb_define_method(cCanvas, "draw_thin_box", draw_thin_box, 4);
+    rb_define_method(cCanvas, "draw_cp437_box", draw_cp437_box, 4);
+    rb_define_method(cCanvas, "fill_box", fill_box, 5);
+    rb_define_method(cCanvas, "draw_triangle", draw_triangle, 7);
+    rb_define_method(cCanvas, "draw_thin_triangle", draw_thin_triangle, 6);
+    rb_define_method(cCanvas, "fill_triangle", fill_triangle, 7);
+    rb_define_method(cCanvas, "fill_triangle_textured", fill_triangle_textured, 4);
+    rb_define_method(cCanvas, "dither_bitmap", dither_bitmap, 6);
+
+    rb_define_method(cCanvas, "frame_count", get_frame_count, 0);
+    rb_define_method(cCanvas, "frame=", set_frame, 1);
+    rb_define_method(cCanvas, "set_frame", set_frame2, 1);
+    rb_define_method(cCanvas, "frame_name", get_frame_name, 0);
+    rb_define_method(cCanvas, "frame_name=", set_frame_name, 1);
+    rb_define_method(cCanvas, "set_frame_name", set_frame_name2, 1);
+    rb_define_method(cCanvas, "create_frame", create_frame, 1);
+    rb_define_method(cCanvas, "free_frame", free_frame, 1);
+
+    rb_define_method(cCanvas, "render", render_canvas, 4);
+    rb_define_method(cCanvas, "import_from_memory", import_from_memory, 2);
+    rb_define_method(cCanvas, "import_area_from_memory", import_area_from_memory, 4);
+    rb_define_method(cCanvas, "import_from_file", import_from_file, 2);
+    rb_define_method(cCanvas, "import_area_from_file", import_area_from_file, 4);
+    rb_define_method(cCanvas, "export_to_memory", export_to_memory, 1);
+    rb_define_method(cCanvas, "export_area_to_memory", export_area_to_memory, 5);
+    rb_define_singleton_method(cCanvas, "export_list", export_list, 0);
+    rb_define_singleton_method(cCanvas, "import_list", import_list, 0);
+
+    rb_define_method(cCanvas, "disable_dirty_rect", disable_dirty_rect, 0);
+    rb_define_method(cCanvas, "enable_dirty_rect", enable_dirty_rect, 0);
+    rb_define_method(cCanvas, "dirty_rect_count", get_dirty_rect_count, 0);
+    rb_define_method(cCanvas, "dirty_rect", dirty_rect, 1);
+    rb_define_method(cCanvas, "dirty_rects", dirty_rects, 0);
+    rb_define_method(cCanvas, "add_dirty_rect", add_dirty_rect, 4);
+    rb_define_method(cCanvas, "remove_dirty_rect", remove_dirty_rect, 4);
+    rb_define_method(cCanvas, "clear_dirty_rect_list", clear_dirty_rect_list, 0);
+
+}
+