ray 0.0.1 → 0.1.0.pre1

data/ext/font.c

@@ -1,287 +0,0 @@
-#include "ray.h"
-
-#ifdef HAVE_SDL_TTF
-
-enum ray_encoding {
-   RAY_ENCODING_LATIN1,
-   RAY_ENCODING_UTF8,
-   RAY_ENCODING_UNICODE
-};
-
-VALUE ray_cFont = Qnil;
-
-TTF_Font *ray_rb2font(VALUE object) {
-   if (!RAY_IS_A(object, ray_cFont)) {
-      rb_raise(rb_eTypeError, "Can't convert %s into Ray::Font",
-               RAY_OBJ_CLASSNAME(object));
-   }
-
-   ray_font *ptr = NULL;
-   Data_Get_Struct(object, ray_font, ptr);
-  
-   return ptr->font;
-}
-
-void ray_free_font(ray_font *font) {
-   if (font->font) TTF_CloseFont(font->font);
-   free(font);
-}
-
-VALUE ray_alloc_font(VALUE self) {
-   ray_font *ptr = malloc(sizeof(ray_font));
-   VALUE ret = Data_Wrap_Struct(self, 0, ray_free_font, ptr);
-
-   ptr->font = NULL;
-   return ret;
-}
-
-void ray_init_font_with_filename(VALUE self, VALUE filename, int size) {
-   ray_font *font = NULL;
-   Data_Get_Struct(self, ray_font, font);
-  
-   font->font = TTF_OpenFont(StringValuePtr(filename), size);
-   if (!font->font) {
-      rb_raise(rb_eRuntimeError, "Could not load the font (%s)",
-               TTF_GetError());
-   }
-}
-
-void ray_init_font_with_io(VALUE self, VALUE io, int size) {
-   ray_font *font = NULL;
-   Data_Get_Struct(self, ray_font, font);
-
-   VALUE string = rb_funcall2(io, RAY_METH("read"), 0, NULL);
-   char *content = StringValuePtr(string);
-
-   SDL_RWops *data = SDL_RWFromMem(content, (int)RSTRING_LEN(string));
-   if (!data) {
-      rb_raise(rb_eRuntimeError, "Could not create image data (%s)",
-               SDL_GetError());
-   }
-
-   font->font = TTF_OpenFontRW(data, 1, size);
-   if (!font->font) {
-      printf("Could not load the font (%s)\n", TTF_GetError());
-      rb_raise(rb_eRuntimeError, "Could not load the font (%s)",
-               TTF_GetError());
-   }
-}
-
-/*
-  Creates a new font.
-
-  @param [String, #read] arg Filename of the font or IO object containing
-                             the content of the font.
-  @param [Integer] size Point size (based on 72DPI).
- */
-VALUE ray_init_font(VALUE self, VALUE arg, VALUE size) {
-   if (rb_respond_to(arg, RAY_METH("to_str")))
-      ray_init_font_with_filename(self, rb_String(arg), NUM2INT(size));
-   else if (rb_respond_to(arg, RAY_METH("read")))
-      ray_init_font_with_io(self, arg, NUM2INT(size));
-   else {
-      rb_raise(rb_eTypeError, "Can't convert %s into String",
-               RAY_OBJ_CLASSNAME(arg));
-   }
-
-   return Qnil;
-}
-
-/*
-  @return [Integer] Bitmask describing the style of the font.
-                    STYLE_NORMAL for a normal font.
-*/
-VALUE ray_font_style(VALUE self) {
-   TTF_Font *font = ray_rb2font(self);
-   return INT2FIX(TTF_GetFontStyle(font));
-}
-
-/* Sets the font style. */
-VALUE ray_font_set_style(VALUE self, VALUE style) {
-   TTF_Font *font = ray_rb2font(self);
-   TTF_SetFontStyle(font, NUM2INT(style));
-   return style;
-}
-
-/* @return [Integer] the height of the font */
-VALUE ray_font_height(VALUE self) {
-   TTF_Font *font = ray_rb2font(self);
-   return INT2FIX(TTF_FontHeight(font));
-}
-
-/* @return [Integer] the recommended spacing between lines for this font */
-VALUE ray_font_line_skip(VALUE self) {
-   TTF_Font *font = ray_rb2font(self);
-   return INT2FIX(TTF_FontLineSkip(font));
-}
-
-/*
-  @overload size_of(text, encoding = nil)
-    @param [Symbol, nil] encoding nil (for Latin1), :latin1, :utf8, or :unicode.
-    @return [Ray::Rect] Size of the text.
-*/
-VALUE ray_font_size_of(int argc, VALUE *argv, VALUE self) {
-   TTF_Font *font = ray_rb2font(self);
-
-   VALUE string = Qnil, encoding = Qnil;
-   rb_scan_args(argc, argv, "11", &string, &encoding);
-   
-   char *c_string = StringValuePtr(string);
-   
-   int w, h;
-   
-   if (NIL_P(encoding) || encoding == RAY_SYM("latin1"))
-      TTF_SizeText(font, c_string, &w, &h);
-   else if (encoding == RAY_SYM("utf8"))
-      TTF_SizeUTF8(font, c_string, &w, &h);
-   else if (encoding == RAY_SYM("unicode"))
-      TTF_SizeUNICODE(font, (uint16_t*)c_string, &w, &h);
-   else
-      rb_raise(rb_eArgError, "Invalid encoding.");
-
-   SDL_Rect rect = {0, 0, w, h};
-   return ray_rect2rb(rect);
-}
-
-/*
-  @overload draw(string, opts = {})
-    @param [String] string The string which should be drawn.
-    
-    @option opts [Symbol] :mode Drawing mode. :solid (fastest),
-                                :shaded (requires a background set
-                                with :background) or :blended
-    @option opts [Symbol] :encoding :latin1, :utf8, or :unicode. Defaults
-                                    to :latin1.
-    @option opts [Ray::Color] :color Color to draw the text in. Defaults to
-                                     white.
-    @option opts [Ray::Color] :background The background color in :shaded mode.
-                                          defaults to black.
-    @option opts [Ray::Image] :on The image to draw on. In this case,
-                                  it will directly draw instead of returning
-                                  an image containing nothing but the string.
-    @option opts [Ray::Rect, Array<Integer>] :to, :at where to draw on the image.
-
-    @return The surface it drew the string on.
- */
-VALUE ray_font_draw(int argc, VALUE *argv, VALUE self) {
-   VALUE string, hash;
-   rb_scan_args(argc, argv, "11", &string, &hash);
-
-   if (NIL_P(hash))
-      hash = rb_hash_new();
-
-   TTF_Font *font = ray_rb2font(self);
-
-   char *c_string = StringValuePtr(string);
-
-   /* solid, shaded, blended */
-   VALUE drawing_mode = rb_hash_aref(hash, RAY_SYM("mode"));
-
-   VALUE encoding = rb_hash_aref(hash, RAY_SYM("encoding"));
-   int c_encoding = 0;
-   
-   if (NIL_P(encoding) || encoding == RAY_SYM("latin1"))
-      c_encoding = RAY_ENCODING_LATIN1;
-   else if (encoding == RAY_SYM("utf8"))
-      c_encoding = RAY_ENCODING_UTF8;
-   else if (encoding == RAY_SYM("unicode"))
-      c_encoding = RAY_ENCODING_UNICODE;
-   else
-      rb_raise(rb_eArgError, "Invalid encoding.");
-
-   VALUE rb_color = rb_hash_aref(hash, RAY_SYM("color"));
-   ray_color c_color = {255, 255, 255, 255};
-   if (!NIL_P(rb_color))
-      c_color = ray_rb2col(rb_color);
-   
-   SDL_Color color = {c_color.r, c_color.g, c_color.b};
-   
-   SDL_Surface *surface = NULL;
-   
-   if (NIL_P(drawing_mode) || drawing_mode == RAY_SYM("solid")) {
-      if (c_encoding == RAY_ENCODING_LATIN1)
-         surface = TTF_RenderText_Solid(font, c_string, color);
-      else if (c_encoding == RAY_ENCODING_UTF8)
-         surface = TTF_RenderUTF8_Solid(font, c_string, color);
-      else
-         surface = TTF_RenderUNICODE_Solid(font, (uint16_t*)c_string, color);
-   }
-   else if (drawing_mode == RAY_SYM("shaded")) {
-      VALUE rb_bg = rb_hash_aref(hash, RAY_SYM("background"));
-      ray_color c_bg = {0, 0, 0, 255};
-      if (!NIL_P(rb_bg))
-         c_bg = ray_rb2col(rb_bg);
-      SDL_Color bg = {c_bg.r, c_bg.g, c_bg.b};
-      
-      if (c_encoding == RAY_ENCODING_LATIN1)
-         surface = TTF_RenderText_Shaded(font, c_string, color, bg);
-      else if (c_encoding == RAY_ENCODING_UTF8)
-         surface = TTF_RenderUTF8_Shaded(font, c_string, color, bg);
-      else
-         surface = TTF_RenderUNICODE_Shaded(font, (uint16_t*)c_string, color, bg);
-   }
-   else if (drawing_mode == RAY_SYM("blended")) {
-      if (c_encoding == RAY_ENCODING_LATIN1)
-         surface = TTF_RenderText_Blended(font, c_string, color);
-      else if (c_encoding == RAY_ENCODING_UTF8)
-         surface = TTF_RenderUTF8_Blended(font, c_string, color);
-      else
-         surface = TTF_RenderUNICODE_Blended(font, (uint16_t*)c_string, color);
-   }
-   else
-      rb_raise(rb_eArgError, "Invalid drawing mode.");
-
-   if (!surface) {
-      rb_raise(rb_eRuntimeError, "Could not drawstring (%s)",
-               TTF_GetError());
-   }
-
-   VALUE on = rb_hash_aref(hash, RAY_SYM("on"));
-   if (NIL_P(on))
-      return ray_create_gc_image(surface);
-
-   SDL_Surface *target = ray_rb2surface(on);
-
-   VALUE rb_rect = rb_hash_aref(hash, RAY_SYM("at"));
-   if (NIL_P(rb_rect))
-      rb_rect = rb_hash_aref(hash, RAY_SYM("to"));
-
-   SDL_Rect rect;
-   
-   if (RTEST(rb_obj_is_kind_of(rb_rect, ray_cRect)))
-      rect = ray_rb2rect(rb_rect);
-   else if (RTEST(rb_obj_is_kind_of(rb_rect, rb_cArray)))
-      rect = ray_rb2rect(rb_apply(ray_cRect, RAY_METH("new"), rb_rect));
-   else {
-      rb_raise(rb_eTypeError, "Can't convert %s into Ray::Rect",
-               RAY_OBJ_CLASSNAME(rb_rect));
-   }
-   
-   SDL_BlitSurface(surface, NULL, target, &rect);
-   SDL_FreeSurface(surface);
-
-   return on;
-}
-
-void Init_ray_font() {
-   ray_cFont = rb_define_class_under(ray_mRay, "Font", rb_cObject);
-   rb_define_alloc_func(ray_cFont, ray_alloc_font);
-   rb_define_method(ray_cFont, "initialize", ray_init_font, 2);
-
-   rb_define_method(ray_cFont, "style", ray_font_style, 0);
-   rb_define_method(ray_cFont, "style=", ray_font_set_style, 1);
-   
-   rb_define_method(ray_cFont, "height", ray_font_height, 0);
-   rb_define_method(ray_cFont, "line_skip", ray_font_line_skip, 0);
-
-   rb_define_method(ray_cFont, "size_of", ray_font_size_of, -1);
-
-   rb_define_method(ray_cFont, "draw", ray_font_draw, -1);
-   
-   rb_define_const(ray_cFont, "STYLE_NORMAL", INT2FIX(TTF_STYLE_NORMAL));
-   rb_define_const(ray_cFont, "STYLE_ITALIC", INT2FIX(TTF_STYLE_ITALIC));
-   rb_define_const(ray_cFont, "STYLE_BOLD", INT2FIX(TTF_STYLE_BOLD));
-   rb_define_const(ray_cFont, "STYLE_UNDERLINE", INT2FIX(TTF_STYLE_UNDERLINE));
-}
-
-#endif

data/ext/image.c

@@ -1,933 +0,0 @@
-#include "ray.h"
-
-VALUE ray_cImage = Qnil;
-
-ray_image *ray_rb2image(VALUE object) {
-   if (!RAY_IS_A(object, ray_cImage)) {
-      rb_raise(rb_eTypeError, "Can't convert %s into Ray::Image",
-               RAY_OBJ_CLASSNAME(object));
-   }
-
-   ray_image *ptr = NULL;
-   Data_Get_Struct(object, ray_image, ptr);
-   
-   return ptr;
-}
-
-SDL_Surface *ray_rb2surface(VALUE object) {
-   return ray_rb2image(object)->surface;
-}
-
-void ray_init_image_with_hash(VALUE self, VALUE arg) {
-   VALUE width = rb_hash_aref(arg, RAY_SYM("width"));
-   if (NIL_P(width)) width = rb_hash_aref(arg, RAY_SYM("w"));
-
-   VALUE height = rb_hash_aref(arg, RAY_SYM("height"));
-   if (NIL_P(height)) height = rb_hash_aref(arg, RAY_SYM("h"));
-   
-   VALUE bitsperpixel = rb_hash_aref(arg, RAY_SYM("bits_per_pixel"));
-   if (NIL_P(bitsperpixel)) bitsperpixel = rb_hash_aref(arg, RAY_SYM("bpp"));   
-   if (NIL_P(bitsperpixel)) bitsperpixel = INT2FIX(32);
-
-   uint32_t flags = 0;
-   if (RTEST(rb_hash_aref(arg, RAY_SYM("sw_surface"))))
-      flags = SDL_SWSURFACE;
-   else
-      flags = SDL_HWSURFACE;
-
-   ray_image *image = ray_rb2image(self);
-   image->surface = SDL_CreateRGBSurface(flags,
-                                         NUM2INT(width),
-                                         NUM2INT(height),
-                                         NUM2INT(bitsperpixel),
-                                         0, 0, 0, 0);
-
-   if (!image->surface) {
-      rb_raise(rb_eRuntimeError, "Could not create the image (%s)",
-               SDL_GetError());
-   }
-}
-
-void ray_init_image_with_filename(VALUE self, VALUE filename) {
-   char *c_filename = StringValuePtr(filename);
-   ray_image *image = ray_rb2image(self);
-
-#ifdef HAVE_SDL_IMAGE
-   image->surface = IMG_Load(c_filename);
-
-   if (!image->surface) {
-      rb_raise(rb_eRuntimeError, "Could not create the image (%s)",
-               IMG_GetError());
-   }
-#else
-   image->surface = SDL_LoadBMP(c_filename);
-   
-   if (!image->surface) {
-      rb_raise(rb_eRuntimeError, "Could not create the image (%s)",
-               SDL_GetError());
-   }
-#endif
-}
-
-void ray_init_image_with_io(VALUE self, VALUE io) {
-   VALUE string = rb_funcall2(io, RAY_METH("read"), 0, NULL);
-   char *content = StringValuePtr(string);
-
-   SDL_RWops *data = SDL_RWFromMem(content, (int)RSTRING_LEN(string));
-   
-   if (!data) {
-      rb_raise(rb_eRuntimeError, "Could not create image data (%s)",
-               SDL_GetError());
-   }
-
-   ray_image *image = ray_rb2image(self);
-
-#ifdef HAVE_SDL_IMAGE
-   image->surface = IMG_Load_RW(data, 1);
-   
-   if (!image->surface) {
-      rb_raise(rb_eRuntimeError, "Could not create the image (%s)",
-               IMG_GetError());
-   }
-#else
-   image->surface = SDL_LoadBMP_RW(data, 1);
-
-   if (!image->surface) {
-      rb_raise(rb_eRuntimeError, "Could not create the image (%s)",
-               SDL_GetError());
-   }
-#endif
-}
-
-/*
-  Creates a new image.
-
-  @overload initialize(hash)
-    @option hash [Integer] :width Width of the surface
-    @option hash [Integer] :height Height of the surface
-    
-    @option hash [Integer] :w Alias for width
-    @option hash [Integer] :h Alias for height
-
-    @option hash [Integer] :bits_per_pixel See Ray.create_window
-    @option hash [Integer] :bpp Alias for bits_per_pixel
-
-    @option hash [true, false] :hw_surface See Ray.create_window
-    @option hash [true, false] :sw_surface See Ray.create_window
-
-  @overload initialize(filename)
-    Loads the image from a file.
-    @param [String, #to_str] filename The name of the file to open
-
-  @overload initialize(io)
-    Loads the image friom an IO object.
-    @param [IO, #read] io Object the data will be loaded from.
-*/
-VALUE ray_init_image(VALUE self, VALUE arg) {
-   if (RAY_IS_A(arg, rb_cHash))
-      ray_init_image_with_hash(self, arg);
-   else if (rb_respond_to(arg, RAY_METH("to_str")))
-      ray_init_image_with_filename(self, rb_String(arg));
-   else if (rb_respond_to(arg, RAY_METH("read")))
-      ray_init_image_with_io(self, arg);
-   else {
-      rb_raise(rb_eTypeError, "Can't convert %s into Hash",
-               RAY_OBJ_CLASSNAME(arg));
-   }
-
-   return Qnil;
-}
-
-VALUE ray_init_image_copy(VALUE self, VALUE obj) {
-   ray_image *img = ray_rb2image(self);
-   
-   SDL_Surface *src = ray_rb2surface(obj);
-   img->surface = SDL_ConvertSurface(src, src->format, src->flags);
-   if (!img->surface) {
-      rb_raise(rb_eRuntimeError, "Could not create the image (%s)",
-               SDL_GetError());
-   }
-
-   return self;
-}
-
-void ray_free_image(ray_image *ptr) {
-   if (ptr->must_free && ptr->surface) SDL_FreeSurface(ptr->surface);
-   free(ptr);
-}
-
-VALUE ray_create_image(SDL_Surface *surface) {
-   ray_image *ptr = malloc(sizeof(ray_image));
-   VALUE ret = Data_Wrap_Struct(ray_cImage, 0, ray_free_image, ptr);
-
-   ptr->surface   = surface;
-   ptr->must_free = 0;
-
-   return ret;
-}
-
-VALUE ray_create_gc_image(SDL_Surface *surface) {
-   ray_image *ptr = malloc(sizeof(ray_image));
-   VALUE ret = Data_Wrap_Struct(ray_cImage, 0, ray_free_image, ptr);
-
-   ptr->surface   = surface;
-   ptr->must_free = 1;
-
-   return ret;
-}
-
-VALUE ray_alloc_image(VALUE self) {
-   ray_image *ptr = malloc(sizeof(ray_image));
-   VALUE ret = Data_Wrap_Struct(self, 0, ray_free_image, ptr);
-
-   ptr->surface = NULL;
-   ptr->must_free = 1;
-
-   return ret;
-}
-
-/*
-  Fills the image with a given color.
-  @param [Ray::Color] col The color used to fill the image.
- */
-VALUE ray_image_fill(VALUE self, VALUE col) {
-   ray_color rcol = ray_rb2col(col);
-   
-   SDL_Surface *surf = ray_rb2surface(self);
-   uint32_t specific_col = SDL_MapRGBA(surf->format,
-                                       rcol.r, rcol.g, rcol.b,
-                                       rcol.a);
-   
-   SDL_FillRect(surf, NULL, specific_col);
-   return self;
-}
-
-/* Updates the image. */
-VALUE ray_image_flip(VALUE self) {
-   SDL_Flip(ray_rb2surface(self));
-   return self;
-}
-
-/*
-  @overload blit(hash)
-    Blits the receiver on another image.
-  
-    @option hash [Ray::Rect, Array] :at Rects in which the image will be
-                                        drawn. If an array is given, it
-                                        passed to Ray::Rect.new. Only the
-                                        position is read.
-    @option hash [Ray::Rect, Array] :rect Rects that will be copied.
-                                          If an array is given, it
-                                          passed to Ray::Rect.new.
-                                          If the size is (0, 0), it will
-                                          be reset to the image's size.
-    @option hash [Ray::Rect, Array] :from Alias for rect
-
-    @option hash [Ray::Image, required] :on The image on which the receiver should
-                                            be drawn.
-
-    @option hash [Ray::Image, required] :to Alias for on.
-
-    @option hash [Float] :angle Rotation in degrees.
-    @option hash [Float] :zoom Zoom level. 1.0 for the current size.
-*/
-VALUE ray_image_blit(VALUE self, VALUE hash) {
-   SDL_Surface *origin = ray_rb2surface(self);
-
-   SDL_Rect from_rect = {0, 0, 0, 0};
-   SDL_Rect to_rect   = {0, 0, 0, 0};
-   
-   VALUE rect = rb_hash_aref(hash, RAY_SYM("at"));
-
-   if (RTEST(rb_obj_is_kind_of(rect, ray_cRect)))
-      to_rect = ray_rb2rect(rect);
-   else if (RTEST(rb_obj_is_kind_of(rect, rb_cArray)))
-      to_rect = ray_rb2rect(rb_apply(ray_cRect, RAY_METH("new"), rect));
-   else if (rect != Qnil) {
-      rb_raise(rb_eTypeError, "Can't convert %s into Ray::Rect",
-               RAY_OBJ_CLASSNAME(rect));
-   }
-
-   rect = Qnil;
-   rect = rb_hash_aref(hash, RAY_SYM("rect"));
-   if (rect == Qnil) rect = rb_hash_aref(hash, RAY_SYM("from"));
-
-   if (RAY_IS_A(rect, ray_cRect))
-      from_rect = ray_rb2rect(rect);
-   else if (RAY_IS_A(rect, rb_cArray))
-      from_rect = ray_rb2rect(rb_apply(ray_cRect, RAY_METH("new"), rect));
-   else if (!NIL_P(rect)) {
-      rb_raise(rb_eTypeError, "Can't convert %s into Ray::Rect",
-               RAY_OBJ_CLASSNAME(rect));
-   }
-
-   VALUE surf = rb_hash_aref(hash, RAY_SYM("on"));
-   if (surf == Qnil) surf = rb_hash_aref(hash, RAY_SYM("to"));
-
-   /* avoid raising an exception, which would prevent us from  freeing  the surface */
-   SDL_Surface *target = ray_rb2surface(surf);
-
-#ifdef HAVE_SDL_GFX
-   VALUE rb_angle = Qnil, rb_zoom = Qnil;
-   double angle = 0.0, zoom = 1.0; 
-
-   if (!NIL_P(rb_angle = rb_hash_aref(hash, RAY_SYM("angle"))))
-      angle = NUM2DBL(rb_angle);
-
-   if (!NIL_P(rb_zoom = rb_hash_aref(hash, RAY_SYM("zoom"))))
-      zoom = NUM2DBL(rb_zoom);
-
-   if (!NIL_P(rb_angle) || !NIL_P(rb_zoom)) {
-      SDL_Surface *res = rotozoomSurface(origin, angle, zoom, 1);
-      if (!res) {
-         rb_raise(rb_eRuntimeError, "Could not create the image (%s)",
-                  SDL_GetError());
-      }
-
-      if (from_rect.w == 0 && from_rect.h == 0) {
-         from_rect.w = res->w;
-         from_rect.h = res->h;
-      }
-
-      if (SDL_BlitSurface(res, &from_rect,  target, &to_rect) == -1) {
-         SDL_FreeSurface(res); /* Don't leak when an error occurs */
-         rb_raise(rb_eRuntimeError, "Couldn't blit the image (%s)",
-                  SDL_GetError());
-      }
-
-      SDL_FreeSurface(res);
-      
-      return surf;
-   }
-#endif
-
-   if (from_rect.w == 0 && from_rect.h == 0) {
-      from_rect.w = origin->w;
-      from_rect.h = origin->h;
-   }
-
-   if (SDL_BlitSurface(origin, &from_rect, target,
-                       &to_rect) == -1) {
-      rb_raise(rb_eRuntimeError, "Couldn't blit the image (%s)",
-                  SDL_GetError());
-   }
-
-   return surf;
-}
-
-/*
-  @overload alpha=(alpha)
-    Sets the alpha transparency.
-    @param [Integer, 0..255] alpha the new transparency
-*/
-VALUE ray_image_set_alpha(VALUE self, VALUE alpha) {
-   SDL_SetAlpha(ray_rb2surface(self), SDL_SRCALPHA | SDL_RLEACCEL,
-                NUM2INT(alpha));
-   return alpha;
-}
-
-/*
-  Returns the flags of an image (an OR'd combination of the Ray::Image::FLAG_*
-  constants)
-*/
-VALUE ray_image_flags(VALUE self) {
-   uint32_t flags = ray_rb2surface(self)->flags;
-   return INT2NUM(flags);
-}
-
-/* @return [Integer] Width of the surface */
-VALUE ray_image_width(VALUE self) {
-   return INT2FIX(ray_rb2surface(self)->w);
-}
-
-/* @return [Integer] Height of the surface */
-VALUE ray_image_height(VALUE self) {
-   return INT2FIX(ray_rb2surface(self)->h);
-}
-
-/* @return [Integer] Bits per pixel */
-VALUE ray_image_bpp(VALUE self) {
-   SDL_Surface *surf = ray_rb2surface(self);
-   if (surf->format)
-      return INT2FIX(ray_rb2surface(self)->format->BitsPerPixel);
-   return Qnil;
-}
-
-/*
-  @overload ==(obj)
-    @return [true, false] true if obj manipulates the same surface as the
-                          receiver.
-*/
-VALUE ray_image_is_equal(VALUE self, VALUE obj) {
-   if (!RAY_IS_A(obj, ray_cImage))
-      return Qfalse;
-
-   SDL_Surface *first_surface = ray_rb2surface(self);
-   SDL_Surface *sec_surface = ray_rb2surface(obj);
-
-   return (first_surface == sec_surface) ? Qtrue : Qfalse;
-}
-
-VALUE ray_image_ensure_unlock(VALUE self) {
-   SDL_Surface *surface = ray_rb2surface(self);
-   SDL_UnlockSurface(surface);
-
-   return self;
-}
-
-/*
-  Locks the image (allow pixel-per-pixel modifications).
-  Don't forget to call unlock when you're done. You can also
-  pass a bock which will be called before the image gets unlocked
-  automatically.
-*/
-VALUE ray_image_lock(VALUE self) {
-   SDL_Surface *surface = ray_rb2surface(self);
-   SDL_LockSurface(surface);
-
-   if (rb_block_given_p())
-      rb_ensure(rb_yield, Qnil, ray_image_ensure_unlock, self);
-
-   return self;
-}
-
-/*
-  Unlocks the image. You must call this once you are done
-  modifying the image.
-*/
-VALUE ray_image_unlock(VALUE self) {
-   return ray_image_ensure_unlock(self);
-}
-
-/*
-  @overload [](x, y)
-    @return [Ray::Color, nil] Pixel at (x, y). Nil if the point is outside the
-                              image.
-*/
-VALUE ray_image_at(VALUE self, VALUE rb_x, VALUE rb_y) {
-   SDL_Surface *surface = ray_rb2surface(self);
-
-   int x = NUM2INT(rb_x);
-   int y = NUM2INT(rb_y);
-
-   /* (w, h) is not a valid point. Surfaces use 0-based indexing. */
-   if (x >= surface->w || y >= surface->h)
-      return Qnil;
-
-   int bytes = surface->format->BytesPerPixel;
-   
-   uint8_t *pix = (uint8_t*)surface->pixels + y * surface->pitch + x * bytes;
-   
-   uint32_t res;
-   switch (bytes) {
-      case 1:
-         res = *pix;
-         break;
-      case 2:
-         res = *(uint16_t*)pix;
-         break;
-      case 3:
-         if (SDL_BYTEORDER == SDL_BIG_ENDIAN)
-            res = pix[0] << 16 | pix[1] << 8 | pix[2];
-         else
-            res = pix[0] | pix[1] << 8 | pix[2] << 16;
-         break;
-      case 4:
-         res = *(uint32_t*)pix;
-         break;
-      default: /* should never happen */
-         res = 0;
-         break;
-   }
-
-   ray_color col;
-   SDL_GetRGBA(res, surface->format, &(col.r), &(col.g), &(col.b), &(col.a));
-   
-   return ray_col2rb(col);
-}
-
-/*
-  @overload [](x, y, color)
-    Sets the color of the point at (x, y)
-    @raise ArgumentError If (x, y) is outside the image.
-*/
-VALUE ray_image_set_at(VALUE self, VALUE rb_x, VALUE rb_y, VALUE rb_col) {
-   SDL_Surface *surface = ray_rb2surface(self);
-      
-   int x = NUM2INT(rb_x);
-   int y = NUM2INT(rb_y);
-
-   if (x >= surface->w || y >= surface->h) {
-      VALUE inspect = rb_inspect(self);
-      rb_raise(rb_eArgError, "(%d, %d) is outside %s",
-               x, y, StringValuePtr(inspect));
-   }
-
-   int bytes = surface->format->BytesPerPixel;
-   
-   uint8_t *pix = (uint8_t*)surface->pixels + y * surface->pitch + x * bytes;
-   
-   ray_color col = ray_rb2col(rb_col);
-
-   uint32_t val = SDL_MapRGBA(surface->format, col.r, col.g, col.b, col.a);
-
-   switch (bytes) {
-      case 1:
-         *pix = val;
-         break;
-      case 2:
-         *(uint16_t*)pix = val;
-         break;
-      case 3:
-         if (SDL_BYTEORDER == SDL_BIG_ENDIAN) {
-            pix[0] = (val >> 16) & 0xff;
-            pix[1] = (val >> 8) & 0xff;
-            pix[2] = val & 0xff;
-         }
-         else {
-            pix[0] = val & 0xff;
-            pix[1] = (val >> 8) & 0xff;
-            pix[2] = (val >> 16) & 0xff;
-         }
-         break;
-      case 4:
-         *(uint32_t*)pix = val;
-         break;
-   }
-
-   return rb_col;
-}
-
-VALUE ray_image_ensure_unclip(VALUE ary) {
-   SDL_Surface *surface = ray_rb2surface(rb_ary_entry(ary, 0));
-   SDL_Rect rect = ray_rb2rect(rb_ary_entry(ary, 1));
-
-   SDL_SetClipRect(surface, &rect);
-
-   rb_gc_unregister_address(&ary);
-
-   return Qnil;
-}
-
-/*
-  @overload clip
-    @return [Ray::Rect] The current clipping rect
-
-  @overload clip(rect)
-    Changes the clipping rect (the rect which will be changed if something is
-    drawn on this image, the rest of the image being ignored.)
-  
-    If a block is given, it is executed, and the old clipping rect is reset
-    afterwards.
-
-    @param [Ray::Rect, Array<Integer>] rect New clipping rect.
-*/
-VALUE ray_image_clip(int argc, VALUE *argv, VALUE self) {
-   VALUE rb_rect = Qnil;
-   rb_scan_args(argc, argv, "01", &rb_rect);
-
-   SDL_Rect old_rect;
-   SDL_GetClipRect(ray_rb2surface(self), &old_rect);
-
-   if (NIL_P(rb_rect))
-      return ray_rect2rb(old_rect);
-   
-   SDL_Rect rect = ray_convert_to_rect(rb_rect);
-   SDL_SetClipRect(ray_rb2surface(self), &rect);
-   
-   if (rb_block_given_p()) {
-      VALUE ary = rb_ary_new();
-      rb_ary_push(ary, self);
-      rb_ary_push(ary, ray_rect2rb(old_rect));
-      
-      rb_gc_register_address(&ary);
-
-      rb_ensure(rb_yield, Qnil, ray_image_ensure_unclip, ary);
-   }
-
-   return ray_rect2rb(rect);
-}
-
-#ifdef HAVE_SDL_GFX
-
-/*
-  @overload rotozoom(angle, zoom)
-    Rotates and zoomes on the image.
-    @param [Float] angle Angle in degrees
-    @param [Float] zoom
-    @return [SDL::Image] the modified image.
-    
-    @see #rotozoom!
-*/
-VALUE ray_image_rotozoom(VALUE self, VALUE angle, VALUE zoom) {
-   SDL_Surface *surface = ray_rb2surface(self);
-   SDL_Surface *res = rotozoomSurface(surface, NUM2DBL(angle),
-                                      NUM2DBL(zoom), 1);
-   
-   if (!res) {
-      rb_raise(rb_eRuntimeError, "Could not create the image (%s)",
-               SDL_GetError());
-   }
-
-   return ray_create_gc_image(res);
-}
-
-/*
-  @overload rotozoom!(angle, zoom)
-    Rotates and zoomes on the image, but does not create a new instance
-    of Ray::Image, which may be better for memory management.
-    
-    Notice Ray.create_window(...).rotozoom!(...) will not modify
-    the image used as the screen.
-    
-    @see #rotozoom
-*/
-VALUE ray_image_rotozoom_bang(VALUE self, VALUE angle, VALUE zoom) {
-   ray_image *img = ray_rb2image(self);
-   SDL_Surface *res = rotozoomSurface(img->surface, NUM2DBL(angle),
-                                      NUM2DBL(zoom), 1);
-   
-   if (!res) {
-      rb_raise(rb_eRuntimeError, "Could not create the image (%s)",
-               SDL_GetError());
-   }
-
-   if (img->must_free)
-      SDL_FreeSurface(img->surface);
-
-   img->surface   = res;
-   img->must_free = 1;
-
-   return self;
-}
-
-/*
-  @overload draw_pixel(point, color)
-    Draws a point.
-
-    @param [Ray::Rect, Array<Integer>] point The point which should be changed.
-    @param [Ray::Color] color Its new color.
-*/
-VALUE ray_image_draw_pixel(VALUE self, VALUE rb_point, VALUE rb_color) {
-   SDL_Surface *surface = ray_rb2surface(self);
-
-   SDL_Rect point = ray_convert_to_rect(rb_point);
-   ray_color color = ray_rb2col(rb_color);
-   
-   pixelRGBA(surface, point.x, point.y, color.r, color.g, color.b, color.a);
-
-   return self;
-}
-
-/*
-  @overload draw_line(p1, p2, color)
-    Draws a line.
-  
-    @param [Ray::Rect, Array<Integer>] p1 First point of the line.
-    @param [Ray::Rect, Array<Integer>] p2 Second point of the line.
-    @param [Ray::Color] color Color of the line.
-*/
-VALUE ray_image_draw_line(VALUE self, VALUE p1, VALUE p2, VALUE rb_color) {
-   SDL_Surface *surface = ray_rb2surface(self);
-
-   SDL_Rect first_point  = ray_convert_to_rect(p1);
-   SDL_Rect second_point = ray_convert_to_rect(p2);   
-   ray_color color = ray_rb2col(rb_color);
-   
-   aalineRGBA(surface, first_point.x, first_point.y,
-              second_point.x, second_point.y,
-              color.r, color.g, color.b, color.a);
-   return self;
-}
-
-/*
-  @overload draw_rect(rect, color)
-    Draws a rect.
-
-    @param [Ray::Rect, Array<Integer>] rect Rect to draw
-    @param [Ray::Color] color color of the rect
-*/
-VALUE ray_image_draw_rect(VALUE self, VALUE rb_rect, VALUE rb_color) {
-   SDL_Surface *surface = ray_rb2surface(self);
-   SDL_Rect rect = ray_convert_to_rect(rb_rect);
-   ray_color color = ray_rb2col(rb_color);
-
-   rectangleRGBA(surface, rect.x, rect.y, rect.x + rect.w, rect.y + rect.h,
-                 color.r, color.g, color.b, color.a);
-
-   return self;
-}
-
-/*
-  @overload draw_filled_rect(rect, color)
-    Draws a filled rect.
-
-    @param [Ray::Rect, Array<Integer>] rb_rect Rect to draw.
-    @param [Ray::Color] rb_color Color of the rect.
-*/
-VALUE ray_image_draw_filled_rect(VALUE self, VALUE rb_rect, VALUE rb_color) {
-   SDL_Surface *surface = ray_rb2surface(self);
-   SDL_Rect rect = ray_convert_to_rect(rb_rect);
-   ray_color color = ray_rb2col(rb_color);
-
-   boxRGBA(surface, rect.x, rect.y, rect.x + rect.w, rect.y + rect.h,
-           color.r, color.g, color.b, color.a);
-
-   return self;
-}
-
-/*
-  @overload draw_circle(center, radius, color)
-    Draws a circle
-
-    @param [Ray::Rect, Array<Integer>] center Center of the circle.
-    @param [Integer] radius Radius of the circle.
-    @param [Ray::Color] color Color of the circle.
-*/
-VALUE ray_image_draw_circle(VALUE self, VALUE center, VALUE radius,
-                            VALUE rb_color) {
-   SDL_Surface *surface = ray_rb2surface(self);
-   SDL_Rect rect = ray_convert_to_rect(center);
-   ray_color color = ray_rb2col(rb_color);
-
-   aacircleRGBA(surface, rect.x, rect.y, NUM2INT(radius),
-                color.r, color.g, color.b, color.a);
-
-   return self;
-}
-
-/*
-  @overload draw_filled_circle(center, radius, color)
-    Draws a filled circle
-
-    @param [Ray::Rect, Array<Integer>] center Center of the circle.
-    @param [Integer] radius Radius of the circle.
-    @param [Ray::Color] color Color of the circle.
-*/
-VALUE ray_image_draw_filled_circle(VALUE self, VALUE center, VALUE radius,
-                            VALUE rb_color) {
-   SDL_Surface *surface = ray_rb2surface(self);
-   SDL_Rect rect = ray_convert_to_rect(center);
-   ray_color color = ray_rb2col(rb_color);
-
-   filledCircleRGBA(surface, rect.x, rect.y, NUM2INT(radius),
-                color.r, color.g, color.b, color.a);
-
-   return self;
-}
-
-/*
-  @overload draw_ellipse(rect, color)
-    Draws an ellipse.
-  
-    @param [Ray::Rect, Array<Integer>] rect Rect in which the ellipse should be drawn.
-    @param [Ray::Color] color Color in which the ellipse should be drawn.
-*/
-VALUE ray_image_draw_ellipse(VALUE self, VALUE rb_rect, VALUE rb_color) {
-   SDL_Surface *surface = ray_rb2surface(self);
-   SDL_Rect rect = ray_convert_to_rect(rb_rect);
-   ray_color color = ray_rb2col(rb_color);
-
-   aaellipseRGBA(surface, rect.x + rect.w / 2,
-                 rect.y + rect.h / 2, rect.w / 2, rect.h / 2,
-                 color.r, color.g, color.b, color.a);
-   return self;
-}
-
-/*
-  @overload draw_flled_ellipse(rect, color)
-    Draws a filled ellipse.
-  
-    @param [Ray::Rect, Array<Integer>] rect Rect in which the ellipse should be drawn.
-    @param [Ray::Color] color Color in which the ellipse should be drawn.
-*/
-VALUE ray_image_draw_filled_ellipse(VALUE self, VALUE rb_rect, VALUE rb_color) {
-   SDL_Surface *surface = ray_rb2surface(self);
-   SDL_Rect rect = ray_convert_to_rect(rb_rect);
-   ray_color color = ray_rb2col(rb_color);
-
-   filledEllipseRGBA(surface, rect.x + rect.w / 2,
-                     rect.y + rect.h / 2, rect.w / 2, rect.h / 2,
-                     color.r, color.g, color.b, color.a);
-   return self;
-}
-
-/*
-  @overload draw_triangle(p1, p2, p3, color)
-    Draws a triangle.
-*/
-VALUE ray_image_draw_triangle(VALUE self, VALUE p1, VALUE p2, VALUE p3,
-                              VALUE rb_color) {
-   SDL_Surface *surface = ray_rb2surface(self);
-
-   SDL_Rect first_point  = ray_convert_to_rect(p1);
-   SDL_Rect second_point = ray_convert_to_rect(p2);
-   SDL_Rect third_point  = ray_convert_to_rect(p3);
-   
-   ray_color color = ray_rb2col(rb_color);
-
-   aatrigonRGBA(surface, first_point.x, first_point.y,
-              second_point.x, second_point.y,
-              third_point.x, third_point.y,
-              color.r, color.g, color.b, color.a);
-
-   return self;
-}
-
-/*
-  @overload draw_filled_triangle(p1, p2, p3, color)
-    Draws a filled triangle.
-*/
-VALUE ray_image_draw_filled_triangle(VALUE self, VALUE p1, VALUE p2, VALUE p3,
-                                     VALUE rb_color) {
-   SDL_Surface *surface = ray_rb2surface(self);
-
-   SDL_Rect first_point  = ray_convert_to_rect(p1);
-   SDL_Rect second_point = ray_convert_to_rect(p2);
-   SDL_Rect third_point  = ray_convert_to_rect(p3);
-   
-   ray_color color = ray_rb2col(rb_color);
-
-   filledTrigonRGBA(surface, first_point.x, first_point.y,
-                    second_point.x, second_point.y,
-                    third_point.x, third_point.y,
-                    color.r, color.g, color.b, color.a);
-
-   return self;
-}
-
-/*
-  @overload draw_polygon(points, color)
-    Draws a polygon.
-
-    @param [Array<Array<Integer>, Ray::Rect>] points Points which should be joined
-                                                     to draw the polygon.
-    @param [Ray::Color] color The color in which the polygon should be drawn.
-*/
-VALUE ray_image_draw_polygon(VALUE self, VALUE points, VALUE rb_color) {
-   SDL_Surface *surface = ray_rb2surface(self);
-
-   size_t size = RARRAY_LEN(points);
-   int16_t *x_array = malloc(sizeof(int16_t) * size);
-   int16_t *y_array = malloc(sizeof(int16_t) * size);
-
-   size_t i = 0;
-   for (; i < size; i++) {
-      SDL_Rect rect = ray_convert_to_rect(rb_ary_entry(points, i));
-      
-      x_array[i] = (int16_t)rect.x;
-      y_array[i] = (int16_t)rect.y;
-   }
-
-   ray_color color = ray_rb2col(rb_color);
-   aapolygonRGBA(surface, x_array, y_array, (int)size,
-                 color.r, color.g, color.b, color.a);
-
-   free(x_array);
-   free(y_array);
-
-   return self;
-}
-
-/*
-  @overload draw_filled_polygon(points, color)
-    Draws a filled polygon.
-
-    @param [Array<Array<Integer>, Ray::Rect>] points Points which should be joined
-                                                     to draw the polygon.
-    @param [Ray::Color] color The color in which the polygon should be drawn.
-*/
-VALUE ray_image_draw_filled_polygon(VALUE self, VALUE points, VALUE rb_color) {
-   SDL_Surface *surface = ray_rb2surface(self);
-
-   size_t size = RARRAY_LEN(points);
-   int16_t *x_array = malloc(sizeof(int16_t) * size);
-   int16_t *y_array = malloc(sizeof(int16_t) * size);
-
-   size_t i = 0;
-   for (; i < size; i++) {
-      SDL_Rect rect = ray_convert_to_rect(rb_ary_entry(points, i));
-      
-      x_array[i] = (int16_t)rect.x;
-      y_array[i] = (int16_t)rect.y;
-   }
-
-   ray_color color = ray_rb2col(rb_color);
-   filledPolygonRGBA(surface, x_array, y_array, (int)size,
-                 color.r, color.g, color.b, color.a);
-
-   free(x_array);
-   free(y_array);
-
-   return self;
-}
-
-#endif
-
-void Init_ray_image() {
-   ray_cImage = rb_define_class_under(ray_mRay, "Image", rb_cObject);
-   
-   rb_define_alloc_func(ray_cImage, ray_alloc_image);
-   rb_define_method(ray_cImage, "initialize", ray_init_image, 1);
-   rb_define_method(ray_cImage, "initialize_copy", ray_init_image_copy, 1);
-
-   rb_define_method(ray_cImage, "fill", ray_image_fill, 1);
-   rb_define_method(ray_cImage, "flip", ray_image_flip, 0);
-
-   rb_define_method(ray_cImage, "blit", ray_image_blit, 1);
-
-   rb_define_method(ray_cImage, "alpha=", ray_image_set_alpha, 1);
-
-   rb_define_method(ray_cImage, "flags", ray_image_flags, 0);
-
-   rb_define_method(ray_cImage, "width", ray_image_width, 0);
-   rb_define_method(ray_cImage, "height", ray_image_height, 0);
-   rb_define_method(ray_cImage, "bpp", ray_image_bpp, 0);
-
-   rb_define_method(ray_cImage, "==", ray_image_is_equal, 1);
-   
-   rb_define_method(ray_cImage, "lock", ray_image_lock, 0);
-   rb_define_method(ray_cImage, "unlock", ray_image_unlock, 0);
-   rb_define_method(ray_cImage, "[]", ray_image_at, 2);
-   rb_define_method(ray_cImage, "[]=", ray_image_set_at, 3);
-
-   rb_define_method(ray_cImage, "clip", ray_image_clip, -1);
-
-#ifdef HAVE_SDL_GFX
-   rb_define_method(ray_cImage, "rotozoom", ray_image_rotozoom, 2);
-   rb_define_method(ray_cImage, "rotozoom!", ray_image_rotozoom_bang, 2);
-   
-   rb_define_method(ray_cImage, "draw_pixel", ray_image_draw_pixel, 2);
-   rb_define_method(ray_cImage, "draw_line", ray_image_draw_line, 3);
-   rb_define_method(ray_cImage, "draw_rect", ray_image_draw_rect, 2);
-   rb_define_method(ray_cImage, "draw_filled_rect", ray_image_draw_filled_rect,
-                    2);
-   rb_define_method(ray_cImage, "draw_circle", ray_image_draw_circle, 3);
-   rb_define_method(ray_cImage, "draw_filled_circle",
-                    ray_image_draw_filled_circle, 3);
-   rb_define_method(ray_cImage, "draw_ellipse", ray_image_draw_ellipse, 2);
-   rb_define_method(ray_cImage, "draw_filled_ellipse",
-                    ray_image_draw_filled_ellipse, 2);
-   rb_define_method(ray_cImage, "draw_triangle", ray_image_draw_triangle, 4);
-   rb_define_method(ray_cImage, "draw_filled_triangle",
-                    ray_image_draw_filled_triangle, 4);
-   rb_define_method(ray_cImage, "draw_polygon", ray_image_draw_polygon, 2);
-   rb_define_method(ray_cImage, "draw_filled_polygon",
-                    ray_image_draw_filled_polygon, 2);
-#endif
-
-   rb_define_const(ray_cImage, "FLAG_ANYFORMAT", INT2FIX(SDL_ANYFORMAT));
-   rb_define_const(ray_cImage, "FLAG_ASYNCBLIT", INT2FIX(SDL_ASYNCBLIT));
-   rb_define_const(ray_cImage, "FLAG_DOUBLEBUF", INT2FIX(SDL_DOUBLEBUF));
-   rb_define_const(ray_cImage, "FLAG_HWPALETTE", INT2FIX(SDL_HWPALETTE));
-   rb_define_const(ray_cImage, "FLAG_HWACCEL", INT2FIX(SDL_HWACCEL));
-   rb_define_const(ray_cImage, "FLAG_HWSURFACE", INT2FIX(SDL_HWSURFACE));
-   rb_define_const(ray_cImage, "FLAG_FULLSCREEN", INT2FIX(SDL_FULLSCREEN));
-   rb_define_const(ray_cImage, "FLAG_OPENGL", INT2FIX(SDL_OPENGL));
-   rb_define_const(ray_cImage, "FLAG_OPENGLBLIT", INT2FIX(SDL_OPENGLBLIT));
-   rb_define_const(ray_cImage, "FLAG_RESIZABLE", INT2FIX(SDL_RESIZABLE));
-   rb_define_const(ray_cImage, "FLAG_RLEACCEL", INT2FIX(SDL_RLEACCEL));
-   rb_define_const(ray_cImage, "FLAG_SRCALPHA", INT2FIX(SDL_SRCALPHA));
-   rb_define_const(ray_cImage, "FLAG_SRCCOLORKEY", INT2FIX(SDL_SRCCOLORKEY));
-   rb_define_const(ray_cImage, "FLAG_PREALLOC", INT2FIX(SDL_PREALLOC));
-}