rubygame 2.5.3 → 2.6.0

data/ext/rubygame/rubygame_sound.h

@@ -1,29 +0,0 @@
-/*
- *  Interface to SDL_mixer sound playback and mixing.
- *--
- *  Rubygame -- Ruby code and bindings to SDL to facilitate game creation
- *  Copyright (C) 2004-2008  John Croisant
- *
- *  This library is free software; you can redistribute it and/or
- *  modify it under the terms of the GNU Lesser General Public
- *  License as published by the Free Software Foundation; either
- *  version 2.1 of the License, or (at your option) any later version.
- *
- *  This library is distributed in the hope that it will be useful,
- *  but WITHOUT ANY WARRANTY; without even the implied warranty of
- *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- *  Lesser General Public License for more details.
- *
- *  You should have received a copy of the GNU Lesser General Public
- *  License along with this library; if not, write to the Free Software
- *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
- *++
- */
-
-
-#ifndef _RUBYGAME_SOUND_H
-#define _RUBYGAME_SOUND_H
-
-extern void Rubygame_Init_Sound();
-
-#endif

data/ext/rubygame/rubygame_surface.c

@@ -1,1153 +0,0 @@
-/*
- *  Rubygame binding to SDL Surface class.
- *--
- *  Rubygame -- Ruby code and bindings to SDL to facilitate game creation
- *  Copyright (C) 2004-2007  John Croisant
- *
- *  This library is free software; you can redistribute it and/or
- *  modify it under the terms of the GNU Lesser General Public
- *  License as published by the Free Software Foundation; either
- *  version 2.1 of the License, or (at your option) any later version.
- *
- *  This library is distributed in the hope that it will be useful,
- *  but WITHOUT ANY WARRANTY; without even the implied warranty of
- *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- *  Lesser General Public License for more details.
- *
- *  You should have received a copy of the GNU Lesser General Public
- *  License along with this library; if not, write to the Free Software
- *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
- *++
- */
-
-#include "rubygame_shared.h"
-#include "rubygame_surface.h"
-
-void Rubygame_Init_Surface();
-
-VALUE rbgm_surface_new(int, VALUE*, VALUE);
-
-VALUE rbgm_surface_get_w(VALUE);
-VALUE rbgm_surface_get_h(VALUE);
-VALUE rbgm_surface_get_size(VALUE);
-
-VALUE rbgm_surface_get_depth(VALUE);
-VALUE rbgm_surface_get_flags(VALUE);
-VALUE rbgm_surface_get_masks(VALUE);
-
-VALUE rbgm_surface_get_alpha(VALUE);
-VALUE rbgm_surface_set_alpha(int, VALUE*, VALUE);
-
-VALUE rbgm_surface_get_colorkey(VALUE);
-VALUE rbgm_surface_set_colorkey(int, VALUE*, VALUE);
-
-VALUE rbgm_surface_blit(int, VALUE*, VALUE);
-
-VALUE rbgm_surface_fill(int, VALUE*, VALUE);
-
-VALUE rbgm_surface_getat(int, VALUE*, VALUE);
-
-VALUE rbgm_surface_pixels(VALUE);
-
-VALUE rbgm_surface_get_cliprect(VALUE);
-VALUE rbgm_surface_set_cliprect(VALUE, VALUE);
-
-VALUE rbgm_surface_convert(int, VALUE*, VALUE);
-VALUE rbgm_surface_displayformat(VALUE);
-VALUE rbgm_surface_displayformatalpha(VALUE);
-
-VALUE rbgm_image_savebmp(VALUE, VALUE);
-
-VALUE rbgm_transform_flip(VALUE, VALUE, VALUE);
-
-/* 
- *  call-seq:
- *     new(size, depth=0, flags=0)  ->  Surface
- *
- *  Create and initialize a new Surface object. 
- *
- *  A Surface is a grid of image data which you blit (i.e. copy) onto other
- *  Surfaces. Since the Rubygame display is also a Surface (see the Screen 
- *  class), Surfaces can be blit to the screen; this is the most common way
- *  to display images on the screen.
- *
- *  This method may raise SDLError if the SDL video subsystem could
- *  not be initialized for some reason.
- *
- *  This function takes these arguments:
- *  size::  requested surface size; an array of the form [width, height].
- *  depth:: requested color depth (in bits per pixel). If depth is 0 (default),
- *          automatically choose a color depth: either the depth of the Screen
- *          mode (if one has been set), or the greatest color depth available
- *          on the system.
- *  flags:: an Array or Bitwise-OR'd list of zero or more of the following 
- *          flags (located in the Rubygame module, e.g. Rubygame::SWSURFACE).
- *          This argument may be omitted, in which case the Surface 
- *          will be a normal software surface (this is not necessarily a bad
- *          thing).
- *          SWSURFACE::   (default) request a software surface.
- *          HWSURFACE::   request a hardware-accelerated surface (using a 
- *                        graphics card), if available. Creates a software
- *                        surface if hardware surfaces are not available.
- *          SRCCOLORKEY:: request a colorkeyed surface. #set_colorkey will
- *                        also enable colorkey as needed. For a description
- *                        of colorkeys, see #set_colorkey.
- *          SRCALPHA::    request an alpha channel. #set_alpha will
- *                        also enable alpha. as needed. For a description
- *                        of alpha, see #alpha.
- */
-VALUE rbgm_surface_new(int argc, VALUE *argv, VALUE class)
-{
-	VALUE self;
-	SDL_Surface *self_surf;
-	SDL_PixelFormat* pixformat;
-	Uint32 flags, Rmask, Gmask, Bmask, Amask;
-	int w, h, depth;
-	VALUE vsize, vdepth, vflags;
-
-	rb_scan_args(argc, argv, "12", &vsize, &vdepth, &vflags);
-
-	if( SDL_GetVideoSurface() )
-	{
-		/* Pixel format is retrieved from the video surface. */
-		pixformat = (SDL_GetVideoSurface())->format;
-	}
-	else
-	{
-		/* We can only get the system color depth when the video system
-		 * has been initialized. */
-		if( init_video_system() == 0 )
-		{
-			pixformat = SDL_GetVideoInfo()->vfmt;
-		}
-		else
-		{
-			rb_raise(eSDLError,"Could not initialize SDL video subsystem.");
-			return Qnil;
-		}
-	}
-
-	Rmask = pixformat->Rmask;
-	Gmask = pixformat->Gmask;
-	Bmask = pixformat->Bmask;
-	Amask = pixformat->Amask;
-
-	if( !NIL_P(vdepth) && NUM2INT(vdepth) > 0 )
-	{
-		/* TODO: We might want to check that the requested depth makes sense. */
-		depth = NUM2INT(vdepth);
-	}
-	else
-	{
-		depth = pixformat->BitsPerPixel;
-	}
-		
-
-	/* Get width and height for new surface from vsize */
-	vsize = convert_to_array(vsize);
-
-	if(RARRAY_LEN(vsize) >= 2)
-	{
-		w = NUM2INT(rb_ary_entry(vsize,0));
-		h = NUM2INT(rb_ary_entry(vsize,1));
-	}
-	else
-		rb_raise(rb_eArgError,"Array is too short for Surface size (%d for 2)",\
-			RARRAY_LEN(vsize));
-	
-	flags = collapse_flags(vflags); /* in rubygame_shared */
-
-	/* Finally, we can create the new Surface! Or try, anyway... */
-	self_surf = SDL_CreateRGBSurface(flags,w,h,depth,Rmask,Gmask,Bmask,Amask);
-
-	if( self_surf == NULL )
-		rb_raise(eSDLError,"Could not create new surface: %s",SDL_GetError());
-
-
-	/* Wrap the new surface in a crunchy candy VALUE shell. */
-	self = Data_Wrap_Struct( cSurface,0,SDL_FreeSurface,self_surf );
-	/* The default initialize() does nothing, but may be overridden. */
-	rb_obj_call_init(self,argc,argv);
-	return self;
-}
-
-/* :nodoc: */
-VALUE rbgm_surface_initialize(int argc, VALUE *argv, VALUE self)
-{
-	return self;
-}
-
-
-/* 
- *  call-seq:
- *     width
- *     w
- *
- *  Return the width (in pixels) of the surface. 
- */
-VALUE rbgm_surface_get_w(VALUE self)
-{
-	SDL_Surface *surf;
-	Data_Get_Struct(self, SDL_Surface, surf);
-	return INT2NUM(surf->w);
-}
-
-/* 
- *  call-seq:
- *     height
- *     h
- *
- *  Return the height (in pixels) of the surface. 
- */
-VALUE rbgm_surface_get_h(VALUE self)
-{
-	SDL_Surface *surf;
-	Data_Get_Struct(self, SDL_Surface, surf);
-	return INT2NUM(surf->h);
-}
-
-/*  call-seq:
- *    size  ->  [w,h]
- *
- *  Return the surface's width and height (in pixels) in an Array.
- */
-VALUE rbgm_surface_get_size(VALUE self)
-{
-	SDL_Surface *surf;
-	Data_Get_Struct(self, SDL_Surface, surf);
-	return rb_ary_new3( 2, INT2NUM(surf->w), INT2NUM(surf->h) );
-}
-
-/*  call-seq:
- *     depth
- *
- * Return the color depth (in bits per pixel) of the surface.
- */
-VALUE rbgm_surface_get_depth(VALUE self)
-{
-	SDL_Surface *surf;
-	Data_Get_Struct(self, SDL_Surface, surf);
-	return UINT2NUM(surf->format->BitsPerPixel);
-}
-
-/*  call-seq:
- *     flags
- *
- *  Return any flags the surface was initialized with 
- *  (as a bitwise OR'd integer).
- */
-VALUE rbgm_surface_get_flags(VALUE self)
-{
-	SDL_Surface *surf;
-	Data_Get_Struct(self, SDL_Surface, surf);
-	return UINT2NUM(surf->flags);
-}
-
-/* 
- *  call-seq:
- *    masks  ->  [r,g,b,a]
- *
- *  Return the color masks [r,g,b,a] of the surface. Almost everyone can
- *  ignore this function. Color masks are used to separate an
- *  integer representation of a color into its seperate channels.
- */
-VALUE rbgm_surface_get_masks(VALUE self)
-{
-	SDL_Surface *surf;
-	SDL_PixelFormat *format;
-
-	Data_Get_Struct(self, SDL_Surface, surf);
-	format = surf->format;
-	return rb_ary_new3(4,\
-		UINT2NUM(format->Rmask),\
-		UINT2NUM(format->Gmask),\
-		UINT2NUM(format->Bmask),\
-		UINT2NUM(format->Amask));
-}
-
-/* 
- *  call-seq:
- *     alpha
- *
- *  Return the per-surface alpha (opacity; non-transparency) of the surface.
- *  It can range from 0 (full transparent) to 255 (full opaque).
- */
-VALUE rbgm_surface_get_alpha(VALUE self)
-{
-	SDL_Surface *surf;
-	Data_Get_Struct(self, SDL_Surface, surf);
-	return INT2NUM(surf->format->alpha);
-}
-
-/*
- *  call-seq:
- *     set_alpha(alpha, flags=Rubygame::SRC_ALPHA)
- *
- *  Set the per-surface alpha (opacity; non-transparency) of the surface.
- *
- *  This function takes these arguments:
- *  alpha:: requested opacity of the surface. Alpha must be from 0 
- *          (fully transparent) to 255 (fully opaque).
- *  flags:: 0 or Rubygame::SRC_ALPHA (default). Most people will want the
- *          default, in which case this argument can be omitted. For advanced
- *          users: this flag affects the surface as described in the docs for
- *          the SDL C function, SDL_SetAlpha.
- */
-VALUE rbgm_surface_set_alpha(int argc, VALUE *argv, VALUE self)
-{
-	SDL_Surface *surf;
-	Uint8 alpha;
-	Uint32 flags = SDL_SRCALPHA;
-	VALUE valpha, vflags;
-
-	rb_scan_args(argc, argv, "11", &valpha, &vflags);
-
-	if( !NIL_P(vflags) )
-	{
-		flags = NUM2UINT(vflags);
-	}
-
-	alpha = NUM2UINT(valpha);
-
-	Data_Get_Struct(self, SDL_Surface, surf);
-	if( SDL_SetAlpha(surf,flags,alpha) != 0 )
-		rb_raise(eSDLError, "%s", SDL_GetError());
-	return self;
-}
-
-/*
- *  call-seq:
- *     colorkey  ->  [r,g,b]  or  nil
- *
- *  Return the colorkey of the surface in the form [r,g,b] (or +nil+ if there
- *  is no key). The colorkey of a surface is the exact color which will be
- *  ignored when the surface is blitted, effectively turning that color
- *  transparent. This is often used to make a blue (for example) background
- *  on an image seem transparent.
- */
-VALUE rbgm_surface_get_colorkey( VALUE self )
-{
-	SDL_Surface *surf;
-	Uint32 colorkey;
-	Uint8 r,g,b;
-
-	Data_Get_Struct(self, SDL_Surface, surf);
-	colorkey = surf->format->colorkey;
-
-	if( surf->flags & SDL_SRCCOLORKEY )
-	{
-		SDL_GetRGB(colorkey, surf->format, &r, &g, &b);
-		return rb_ary_new3(3,UINT2NUM(r),UINT2NUM(g),UINT2NUM(b));
-	}
-	else
-	{
-		/* No colorkey set. */
-		return Qnil;
-	}
-
-}
-
-/*
- *  call-seq:
- *     set_colorkey(color,flags=0)
- *
- *  Set the colorkey of the surface. See Surface#colorkey for a description
- *  of colorkeys.
- *
- *  This method takes these arguments:
- *  color:: color to use as the key, in the form [r,g,b]. Can be +nil+ to
- *          un-set the colorkey.
- *  flags:: 0 or Rubygame::SRC_COLORKEY (default) or 
- *          Rubygame::SRC_COLORKEY|Rubygame::SDL_RLEACCEL. Most people will 
- *          want the default, in which case this argument can be omitted. For
- *          advanced users: this flag affects the surface as described in the
- *          docs for the SDL C function, SDL_SetColorkey.
- */
-VALUE rbgm_surface_set_colorkey( int argc, VALUE *argv, VALUE self)
-{
-	SDL_Surface *surf;
-	Uint32 color;
-	Uint32 flags;
-	Uint8 r,g,b;
-	VALUE vcolor, vflags;
-
-	Data_Get_Struct(self, SDL_Surface, surf);
-
-	rb_scan_args(argc, argv, "11", &vcolor, &vflags);
-
-	if( !NIL_P(vflags) )
-	{
-		flags = NUM2UINT(vflags);
-	}
-	else
-	{
-		flags = SDL_SRCCOLORKEY;
-	}
-
-
-	if( RTEST(vcolor) )
-	{
-		vcolor = convert_color(vcolor);
-		extract_rgb_u8_as_u8(vcolor, &r, &g, &b);
-		color = SDL_MapRGB(surf->format, r,g,b);
-	}
-	else
-	{
-		flags = 0;
-		color = 0;
-	}
-
-	if(SDL_SetColorKey(surf,flags,color)!=0)
-		rb_raise(eSDLError,"could not set colorkey: %s",SDL_GetError());
-	return self;
-}
-
-/* 
- *  call-seq:
- *     blit(target,dest,source=nil)  ->  Rect
- *
- *  Blit (copy) all or part of the surface's image to another surface,
- *  at a given position. Returns a Rect representing the area of 
- *  +target+ which was affected by the blit.
- *
- *  This method takes these arguments:
- *  target:: the target Surface on which to paste the image.
- *  dest::   the coordinates of the top-left corner of the blit. Affects the
- *           area of +other+ the image data is /pasted/ over.
- *           Can also be a Rect or an Array larger than 2, but
- *           width and height will be ignored. 
- *  source:: a Rect representing the area of the source surface to get data
- *           from. Affects where the image data is /copied/ from.
- *           Can also be an Array of no less than 4 values. 
- */
-VALUE rbgm_surface_blit(int argc, VALUE *argv, VALUE self)
-{
-	int left, top, right, bottom;
-	int blit_x,blit_y,blit_w,blit_h;
-	//int dest_x,dest_y,dest_w,dest_h;
-	int src_x,src_y,src_w,src_h;
-	VALUE returnrect;
-	SDL_Surface *src, *dest;
-	SDL_Rect *src_rect, *blit_rect;
-
-	VALUE vtarget, vdest, vsource;
-
-	rb_scan_args( argc, argv, "21", &vtarget, &vdest, &vsource );
-
-	Data_Get_Struct(self, SDL_Surface, src);
-	Data_Get_Struct(vtarget, SDL_Surface, dest);
-
-	vdest = convert_to_array(vdest);
-	blit_x = NUM2INT(rb_ary_entry(vdest,0));
-	blit_y = NUM2INT(rb_ary_entry(vdest,1));
-
-	/* did we get a src_rect argument or not? */
-	if( !NIL_P(vsource) )
-	{
-		/* it might be good to check that it's actually a rect */
-		vsource = convert_to_array(vsource);
-		src_x = NUM2INT( rb_ary_entry(vsource,0) );
-		src_y = NUM2INT( rb_ary_entry(vsource,1) );
-		src_w = NUM2INT( rb_ary_entry(vsource,2) );
-		src_h = NUM2INT( rb_ary_entry(vsource,3) );
-	}
-	else
-	{
-		src_x = 0;
-		src_y = 0;
-		src_w = src->w;
-		src_h = src->h;
-	}
-	src_rect = make_rect( src_x, src_y, src_w, src_h );
-
-	/* experimental (broken) rectangle cropping code */
-	/* crop if it went off left/top/right/bottom */
-	//left = max(blit_x,0);
-	//top = max(blit_y,0);
-	//right = min(blit_x+src_w,dest->w);
-	//bottom = min(blit_y+src_h,dest->h);
-
-	left = blit_x;
-	top = blit_y;
-	right = blit_x+src_w;
-	bottom = blit_y+src_h;
-		
-	//blit_w = min(blit_x+blit_w,dest->w) - max(blit_x,0);
-	//blit_h = min(blit_y+blit_h,dest->h) - max(blit_y,0);
-	blit_w = right - left;
-	blit_h = bottom - top;
-	
-	blit_rect = make_rect( left, top, blit_w, blit_h );
-
-	SDL_BlitSurface(src,src_rect,dest,blit_rect);
-
-	returnrect = rb_funcall(cRect,rb_intern("new"),4,
-	                        INT2NUM(left),INT2NUM(top),\
-	                        INT2NUM(blit_w),INT2NUM(blit_h));
-
-	free(blit_rect);
-	free(src_rect);
-	return returnrect;
-}
-
-/* 
- *  call-seq:
- *     fill(color,rect=nil)
- *
- *  Fill all or part of a Surface with a color.
- *
- *  This method takes these arguments:
- *  color:: color to fill with, in the form +[r,g,b]+ or +[r,g,b,a]+ (for
- *          partially transparent fills).
- *  rect::  a Rubygame::Rect representing the area of the surface to fill
- *          with color. Omit to fill the entire surface.
- */
-VALUE rbgm_surface_fill( int argc, VALUE *argv, VALUE self )
-{
-	SDL_Surface *surf;
-	SDL_Rect *rect;
-	Uint32 color;
-	Uint8 r,g,b,a;
-	VALUE vcolor, vrect;
-
-	Data_Get_Struct(self, SDL_Surface, surf);
-
-	rb_scan_args(argc, argv, "11", &vcolor, &vrect);
-
-	vcolor = convert_color(vcolor);
-	extract_rgba_u8_as_u8(vcolor, &r, &g, &b, &a);
-	color = SDL_MapRGBA(surf->format, r,g,b,a);
-
-	if( NIL_P(vrect) )
-	{
-		SDL_FillRect(surf,NULL,color);
-	}
-	else
-	{
-		vrect = convert_to_array(vrect);
-
-		rect = make_rect(\
-										 NUM2INT(rb_ary_entry(vrect,0)),\
-										 NUM2INT(rb_ary_entry(vrect,1)),\
-										 NUM2INT(rb_ary_entry(vrect,2)),\
-										 NUM2INT(rb_ary_entry(vrect,3))\
-										 );
-		SDL_FillRect(surf,rect,color);
-		free(rect);
-	}
-
-	return self;
-}
-
-/* 
- *  call-seq: 
- *     get_at(x,y)
- *     get_at([x,y]) # deprecated
- *
- *  Return the color [r,g,b,a] of the pixel at the given coordinate. 
- *
- *  Raises IndexError if the coordinates are out of bounds.
- */
-VALUE rbgm_surface_getat( int argc, VALUE *argv, VALUE self )
-{
-	SDL_Surface *surf;
-	int x, y, locked;
-	Uint32 color;
-	Uint8 *pixels, *pix;
-	Uint8 r,g,b,a;
-	VALUE vx, vy;
-
-	Data_Get_Struct(self, SDL_Surface, surf);
-
-	rb_scan_args(argc, argv, "11", &vx, &vy);
-
-	/* Still support passing position as an Array... for now. */
-	switch( TYPE(vx) )
-	{
-		case T_ARRAY: {
-			x = NUM2INT( rb_ary_entry(vx,0) );
-			y = NUM2INT( rb_ary_entry(vx,1) );
-			break;
-		}
-		default: {
-			x = NUM2INT(vx);
-			y = NUM2INT(vy);
-			break;
-		}
-	}
-
-	if( x < 0 || x > surf->w )
-		rb_raise(rb_eIndexError,"x index out of bounds (%d, min 0, max %d)",\
-			x,surf->w);
-	if( y < 0 || y > surf->h )
-		rb_raise(rb_eIndexError,"y index out of bounds (%d, min 0, max %d)",\
-			y,surf->h);
-
-	locked = 0;
-	/* lock surface */
-	if(SDL_MUSTLOCK(surf))
-	{
-		if(SDL_LockSurface(surf)==0)
-			locked += 1;
-		else
-			rb_raise(eSDLError,"could not lock surface: %s",SDL_GetError());
-	}
-
-/* borrowed from pygame */
-	pixels = (Uint8 *) surf->pixels;
-
-	switch(surf->format->BytesPerPixel)
-	{
-		case 1:
-			color = (Uint32)*((Uint8 *)(pixels + y * surf->pitch) + x);
-			break;
-		case 2:
-			color = (Uint32)*((Uint16 *)(pixels + y * surf->pitch) + x);
-			break;
-		case 3:
-			pix = ((Uint8 *)(pixels + y * surf->pitch) + x * 3);
-#if SDL_BYTEORDER == SDL_LIL_ENDIAN
-			color = (pix[0]) + (pix[1]<<8) + (pix[2]<<16);
-#else
-			color = (pix[2]) + (pix[1]<<8) + (pix[0]<<16);
-#endif
-			break;
-		default: /*case 4:*/
-			color = *((Uint32*)(pixels + y * surf->pitch) + x);
-			break;
-	}
-
-/* end borrowed from pygame */
-
-	/* recursively unlock surface*/
-	while(locked>1)
-	{
-		SDL_UnlockSurface(surf);
-		locked -= 1;
-	}
-
-	SDL_GetRGBA(color, surf->format, &r, &g, &b, &a);
-	return rb_ary_new3(4,UINT2NUM(r),UINT2NUM(g),UINT2NUM(b),UINT2NUM(a));
-}
-
-
-/* 
- *  call-seq:
- *     set_at([x,y], color)
- *
- *  Set the color of the pixel at the given coordinate.
- *
- *  color can be one of:
- *  * an Array, [r,g,b] or [r,g,b,a] with each component in 0-255
- *  * an instance of ColorRGB, ColorHSV, etc.
- *  * the name of a color in Rubygame::Color, as a Symbol or String
- *
- *  Raises IndexError if the coordinates are out of bounds.
- *
- *--
- *
- *  I'm lazy and just using SDL_FillRect. ;-P
- *  It's easier and less bug-prone this way.
- *  I have no idea about speed comparisons.
- *
- */
-VALUE rbgm_surface_setat( int argc, VALUE *argv, VALUE self )
-{
-	SDL_Surface *surf;
-	SDL_Rect *rect;
-	Uint32 color;
-	Uint8 r,g,b,a;
-	VALUE vpos, vcolor;
-
-	Data_Get_Struct(self, SDL_Surface, surf);
-
-	rb_scan_args(argc, argv, "2", &vpos, &vcolor);
-
-	vcolor = convert_color(vcolor);
-	extract_rgba_u8_as_u8(vcolor, &r, &g, &b, &a);
-	color = SDL_MapRGBA(surf->format, r,g,b,a);
-
-	vpos = convert_to_array(vpos);
-	rect = make_rect( NUM2INT(rb_ary_entry(vpos,0)),
-	                  NUM2INT(rb_ary_entry(vpos,1)),
-	                  1, 1 );
-
-	SDL_FillRect(surf,rect,color);
-
-	free(rect);
-
-	return self;
-}
-
-
-
-/*
- *  call-seq:
- *    pixels  ->  String
- *
- *  Return a string of pixel data for the Surface. Most users will not
- *  need to use this method. If you want to convert a Surface into an
- *  OpenGL texture, pass the returned string to the TexImage2D method
- *  of the ruby-opengl library. (See samples/demo_gl_tex.rb for an example.)
- *
- *  (Please note that the dimensions of OpenGL textures must be powers of 2
- *  (e.g. 64x128, 512x512), so if you want to use a Surface as an OpenGL
- *  texture, the Surface's dimensions must also be powers of 2!)
- */
-VALUE rbgm_surface_pixels( VALUE self )
-{
-	SDL_Surface *surf;
-	Data_Get_Struct(self, SDL_Surface, surf);
-	return rb_str_new(surf->pixels, (long)surf->pitch * surf->h);
-}
-
-/*
- *  call-seq:
- *    clip  ->  Rect
- *
- *  Return the clipping area for this Surface. See also #cliprect=.
- *
- *  The clipping area of a Surface is the only part which can be drawn upon
- *  by other Surface's #blits. By default, the clipping area is the entire area
- *  of the Surface.
- */
-VALUE rbgm_surface_get_clip( VALUE self )
-{
-	SDL_Rect rect;
-	SDL_Surface *surf;
-	Data_Get_Struct(self, SDL_Surface, surf);
-
-	SDL_GetClipRect(surf, &rect);
-
-	return rb_funcall(cRect,rb_intern("new"),4,
-	                  INT2NUM(rect.x),INT2NUM(rect.y),
-	                  INT2NUM(rect.w),INT2NUM(rect.h));
-}
-
-/*
- *  call-seq:
- *    clip = Rect or nil
- *
- *  Set the current clipping area of the Surface. See also #cliprect.
- *
- *  The clipping area of a Surface is the only part which can be drawn upon
- *  by other Surface's #blits. The clipping area will be clipped to the edges
- *  of the surface so that the clipping area for a Surface can never fall
- *  outside the edges of the Surface.
- *
- *  By default, the clipping area is the entire area of the Surface.
- *  You may set clip to +nil+, which will reset the clipping area to cover
- *  the entire Surface.
- */
-VALUE rbgm_surface_set_clip( VALUE self, VALUE clip )
-{
-	SDL_Rect *rect;
-	SDL_Surface *surf;
-	Data_Get_Struct(self, SDL_Surface, surf);
-
-
-	if( NIL_P(clip) )
-	{
-		SDL_SetClipRect(surf,NULL);
-	}
-	else
-	{ 
-		clip = convert_to_array(clip);
-		rect = make_rect(\
-		                 NUM2INT(rb_ary_entry(clip,0)),\
-		                 NUM2INT(rb_ary_entry(clip,1)),\
-		                 NUM2INT(rb_ary_entry(clip,2)),\
-		                 NUM2INT(rb_ary_entry(clip,3))\
-		                 );
-
-		SDL_SetClipRect(surf,rect);
-		free(rect);
-	}
-
-	return self;
-}
-
-/* 
- *  call-seq:
- *    convert( other=nil, flags=nil )  ->  Surface
- *
- *  Copies the Surface to a new Surface with the pixel format of another
- *  Surface, for fast blitting. May raise SDLError if a problem occurs.
- *
- *  This method takes these arguments:
- *  - other::  The Surface to match pixel format against. If +nil+, the
- *             display surface (i.e. Screen) is used, if available; if no
- *             display surface is available, raises SDLError.
- *  - flags::  An array of flags to pass when the new Surface is created.
- *             See Surface#new.
- *
- */
-VALUE rbgm_surface_convert(int argc, VALUE *argv, VALUE self)
-{
-	SDL_Surface *surf, *othersurf, *newsurf;
-  Uint32 flags = 0;
-	VALUE vother, vflags;
-
-	Data_Get_Struct(self, SDL_Surface, surf);
-
-	rb_scan_args(argc, argv, "02", &vother, &vflags );
-
-	if( !NIL_P(vother) )
-  {
-    Data_Get_Struct(vother, SDL_Surface, othersurf);
-  }
-  else
-  {
-    othersurf = SDL_GetVideoSurface();
-    if( othersurf == NULL )
-    {
-      rb_raise(eSDLError, "Cannot convert Surface with no target given and no Screen made: %s", SDL_GetError());
-    }
-  }
-
-	flags = collapse_flags(vflags); /* in rubygame_shared.c */
-
-  if( init_video_system() == 0 )
-  {
-    newsurf = SDL_ConvertSurface( surf, othersurf->format, flags );
-  }
-  else
-  {
-    newsurf = NULL;
-  }
-
-  if( newsurf == NULL )
-  {
-    rb_raise(eSDLError,\
-             "Could not convert the Surface: %s",\
-             SDL_GetError());
-  }
-
-  return Data_Wrap_Struct( cSurface,0,SDL_FreeSurface,newsurf );  
-}
-
-/* 
- *  call-seq: 
- *    to_display()  ->  Surface
- *
- *  Copies the Surface to a new Surface with the pixel format of the display,
- *  suitable for fast blitting to the display surface (i.e. Screen).
- *  May raise SDLError if a problem occurs.
- *
- *  If you want to take advantage of hardware colorkey or alpha blit
- *  acceleration, you should set the colorkey and alpha value before calling
- *  this function. 
- *
- */
-VALUE rbgm_surface_dispform(VALUE self)
-{
-	SDL_Surface *surf, *newsurf;
-	Data_Get_Struct(self, SDL_Surface, surf);
-
-  if( init_video_system() == 0 )
-  {
-    newsurf = SDL_DisplayFormat( surf );
-  }
-  else
-  {
-    newsurf = NULL;
-  }
-
-  if( newsurf == NULL )
-  {
-    rb_raise(eSDLError,\
-             "Could not convert the Surface to display format: %s",\
-             SDL_GetError());
-  }
-
-  return Data_Wrap_Struct( cSurface,0,SDL_FreeSurface,newsurf );  
-}
-
-/* 
- *  call-seq: 
- *    to_display_alpha()  ->  Surface
- *
- *  Like #to_display except the Surface has an extra channel for alpha (i.e.
- *  opacity). May raise SDLError if a problem occurs.
- *
- *  This function can be used to convert a colorkey to an alpha channel, if the
- *  SRCCOLORKEY flag is set on the surface. The generated surface will then be
- *  transparent (alpha=0) where the pixels match the colorkey, and opaque
- *  (alpha=255) elsewhere. 
- */
-VALUE rbgm_surface_dispformalpha(VALUE self)
-{
-	SDL_Surface *surf, *newsurf;
-	Data_Get_Struct(self, SDL_Surface, surf);
-
-  if( init_video_system() == 0 )
-  {
-    newsurf = SDL_DisplayFormatAlpha( surf );
-  }
-  else
-  {
-    newsurf = NULL;
-  }
-
-  if( newsurf == NULL )
-  {
-    rb_raise(eSDLError,\
-             "Could not convert the Surface to display format with alpha channel: %s",\
-             SDL_GetError());
-  }
-
-  return Data_Wrap_Struct( cSurface,0,SDL_FreeSurface,newsurf );  
-}
-
-
-/* 
- *  call-seq:
- *    savebmp( filename )  ->  nil
- *
- *  Save the Surface as a Windows Bitmap (BMP) file with the given filename.
- */
-VALUE rbgm_image_savebmp( VALUE self, VALUE filename )
-{
-	char *name;
-	SDL_Surface *surf;
-
-	name = StringValuePtr(filename);
-	Data_Get_Struct(self,SDL_Surface,surf);
-	if(SDL_SaveBMP(surf,name)!=0)
-	{
-		rb_raise(eSDLError,\
-			"Couldn't save surface to file %s: %s",name,SDL_GetError());
-	}
-	return Qnil;
-}
-
-
-/* --
- * Borrowed from Pygame:
- * ++
- */
-static SDL_Surface* newsurf_fromsurf(SDL_Surface* surf, int width, int height)
-{
-  SDL_Surface* newsurf;
-
-  if(surf->format->BytesPerPixel <= 0 || surf->format->BytesPerPixel > 4)
-    rb_raise(eSDLError,"unsupported Surface bit depth for transform");
-
-  newsurf = SDL_CreateRGBSurface(surf->flags, width, height, surf->format->BitsPerPixel,
-        surf->format->Rmask, surf->format->Gmask, surf->format->Bmask, surf->format->Amask);
-  if(!newsurf)
-    rb_raise(eSDLError,"%s",SDL_GetError());
-
-  /* Copy palette, colorkey, etc info */
-  if(surf->format->BytesPerPixel==1 && surf->format->palette)
-    SDL_SetColors(newsurf, surf->format->palette->colors, 0, surf->format->palette->ncolors);
-  if(surf->flags & SDL_SRCCOLORKEY)
-    SDL_SetColorKey(newsurf, (surf->flags&SDL_RLEACCEL)|SDL_SRCCOLORKEY, surf->format->colorkey);
-
-  return newsurf;
-}
-
-/* 
- * call-seq:
- *    flip(horz, vert)  ->  Surface
- * 
- *  Flips the source surface horizontally (if +horz+ is true), vertically
- *  (if +vert+ is true), or both (if both are true). This operation is
- *  non-destructive; the original image can be perfectly reconstructed by
- *  flipping the resultant image again.
- *
- *  This operation does NOT require SDL_gfx.
- *
- *  A similar effect can (supposedly) be achieved by giving X or Y zoom
- *  factors of -1 to #rotozoom (only if compiled with SDL_gfx 2.0.13 or
- *  greater). Your mileage may vary.
- */
-VALUE rbgm_transform_flip(VALUE self, VALUE vhorz, VALUE vvert)
-{
-  SDL_Surface *surf, *newsurf;
-  int xaxis, yaxis;
-
-  int loopx, loopy;
-  int pixsize, srcpitch, dstpitch;
-  Uint8 *srcpix, *dstpix;
-
-  xaxis = RTEST(vhorz);
-  yaxis = RTEST(vvert);
-
-  Data_Get_Struct(self,SDL_Surface,surf);
-
-  /* Borrowed from Pygame: */
-  newsurf = newsurf_fromsurf(surf, surf->w, surf->h);
-  if(!newsurf)
-    return Qnil;
-
-  pixsize = surf->format->BytesPerPixel;
-  srcpitch = surf->pitch;
-  dstpitch = newsurf->pitch;
-
-  SDL_LockSurface(newsurf);
-
-  srcpix = (Uint8*)surf->pixels;
-  dstpix = (Uint8*)newsurf->pixels;
-
-  if(!xaxis)
-  {
-    if(!yaxis)
-    {
-      for(loopy = 0; loopy < surf->h; ++loopy)
-        memcpy(dstpix+loopy*dstpitch, srcpix+loopy*srcpitch, surf->w*surf->format->BytesPerPixel);
-    }
-    else
-    {
-      for(loopy = 0; loopy < surf->h; ++loopy)
-        memcpy(dstpix+loopy*dstpitch, srcpix+(surf->h-1-loopy)*srcpitch, surf->w*surf->format->BytesPerPixel);
-    }
-  }
-  else /*if (xaxis)*/
-  {
-    if(yaxis)
-    {
-      switch(surf->format->BytesPerPixel)
-      {
-      case 1:
-        for(loopy = 0; loopy < surf->h; ++loopy) {
-          Uint8* dst = (Uint8*)(dstpix+loopy*dstpitch);
-          Uint8* src = ((Uint8*)(srcpix+(surf->h-1-loopy)*srcpitch)) + surf->w - 1;
-          for(loopx = 0; loopx < surf->w; ++loopx)
-            *dst++ = *src--;
-        }break;
-      case 2:
-        for(loopy = 0; loopy < surf->h; ++loopy) {
-          Uint16* dst = (Uint16*)(dstpix+loopy*dstpitch);
-          Uint16* src = ((Uint16*)(srcpix+(surf->h-1-loopy)*srcpitch)) + surf->w - 1;
-          for(loopx = 0; loopx < surf->w; ++loopx)
-            *dst++ = *src--;
-        }break;
-      case 4:
-        for(loopy = 0; loopy < surf->h; ++loopy) {
-          Uint32* dst = (Uint32*)(dstpix+loopy*dstpitch);
-          Uint32* src = ((Uint32*)(srcpix+(surf->h-1-loopy)*srcpitch)) + surf->w - 1;
-          for(loopx = 0; loopx < surf->w; ++loopx)
-            *dst++ = *src--;
-        }break;
-      case 3:
-        for(loopy = 0; loopy < surf->h; ++loopy) {
-          Uint8* dst = (Uint8*)(dstpix+loopy*dstpitch);
-          Uint8* src = ((Uint8*)(srcpix+(surf->h-1-loopy)*srcpitch)) + surf->w*3 - 3;
-          for(loopx = 0; loopx < surf->w; ++loopx)
-          {
-            dst[0] = src[0]; dst[1] = src[1]; dst[2] = src[2];
-            dst += 3;
-            src -= 3;
-          }
-        }break;
-      }
-    }
-    else
-    {
-      switch(surf->format->BytesPerPixel)
-      {
-      case 1:
-        for(loopy = 0; loopy < surf->h; ++loopy) {
-          Uint8* dst = (Uint8*)(dstpix+loopy*dstpitch);
-          Uint8* src = ((Uint8*)(srcpix+loopy*srcpitch)) + surf->w - 1;
-          for(loopx = 0; loopx < surf->w; ++loopx)
-            *dst++ = *src--;
-        }break;
-      case 2:
-        for(loopy = 0; loopy < surf->h; ++loopy) {
-          Uint16* dst = (Uint16*)(dstpix+loopy*dstpitch);
-          Uint16* src = ((Uint16*)(srcpix+loopy*srcpitch)) + surf->w - 1;
-          for(loopx = 0; loopx < surf->w; ++loopx)
-            *dst++ = *src--;
-        }break;
-      case 4:
-        for(loopy = 0; loopy < surf->h; ++loopy) {
-          Uint32* dst = (Uint32*)(dstpix+loopy*dstpitch);
-          Uint32* src = ((Uint32*)(srcpix+loopy*srcpitch)) + surf->w - 1;
-          for(loopx = 0; loopx < surf->w; ++loopx)
-            *dst++ = *src--;
-        }break;
-      case 3:
-        for(loopy = 0; loopy < surf->h; ++loopy) {
-          Uint8* dst = (Uint8*)(dstpix+loopy*dstpitch);
-          Uint8* src = ((Uint8*)(srcpix+loopy*srcpitch)) + surf->w*3 - 3;
-          for(loopx = 0; loopx < surf->w; ++loopx)
-          {
-            dst[0] = src[0]; dst[1] = src[1]; dst[2] = src[2];
-            dst += 3;
-            src -= 3;
-          }
-        }break;
-      }
-    }
-  }
-
-  SDL_UnlockSurface(newsurf);
-  /* Thanks, Pygame :) */
-
-
-  if(newsurf == NULL)
-    rb_raise(eSDLError,"Could not flip surface: %s",SDL_GetError());
-  return Data_Wrap_Struct(cSurface,0,SDL_FreeSurface,newsurf);
-}
-
-/* 
- *  See rubygame_image.c for the Surface class overview docs.
- *  I hate RDoc's C parser.
- *
- */
-void Rubygame_Init_Surface()
-{
-
-#if 0
-	mRubygame = rb_define_module("Rubygame");
-	cSurface = rb_define_class_under(mRubygame,"Surface",rb_cObject);
-#endif
-
-	rb_define_singleton_method(cSurface,"new",rbgm_surface_new,-1);
-	rb_define_method(cSurface,"initialize",rbgm_surface_initialize,-1);
-	rb_define_method(cSurface,"w",rbgm_surface_get_w,0);
-	rb_define_alias(cSurface,"width","w");
-	rb_define_method(cSurface,"h",rbgm_surface_get_h,0);
-	rb_define_alias(cSurface,"height","h");
-	rb_define_method(cSurface,"size",rbgm_surface_get_size,0);
-	rb_define_method(cSurface,"depth",rbgm_surface_get_depth,0);
-	rb_define_method(cSurface,"flags",rbgm_surface_get_flags,0);
-	rb_define_method(cSurface,"masks",rbgm_surface_get_masks,0);
-	rb_define_method(cSurface,"alpha",rbgm_surface_get_alpha,0);
-	rb_define_method(cSurface,"set_alpha",rbgm_surface_set_alpha,-1);
-	rb_define_method(cSurface,"colorkey",rbgm_surface_get_colorkey,0);
-	rb_define_method(cSurface,"set_colorkey",rbgm_surface_set_colorkey,-1);
-	rb_define_method(cSurface,"blit",rbgm_surface_blit,-1);
-	rb_define_method(cSurface,"fill",rbgm_surface_fill,-1);
-	rb_define_method(cSurface,"get_at",rbgm_surface_getat,-1);
-	rb_define_method(cSurface,"set_at",rbgm_surface_setat,-1);
-	rb_define_method(cSurface,"pixels",rbgm_surface_pixels,0);
-	rb_define_method(cSurface,"clip",rbgm_surface_get_clip,0);
-	rb_define_method(cSurface,"clip=",rbgm_surface_set_clip,1);
-	rb_define_method(cSurface,"convert",rbgm_surface_convert,-1);
-	rb_define_method(cSurface,"to_display",rbgm_surface_dispform,0);
-	rb_define_method(cSurface,"to_display_alpha",rbgm_surface_dispformalpha,0);
-	rb_define_method(cSurface,"savebmp",rbgm_image_savebmp,1);
-	rb_define_method(cSurface,"flip",rbgm_transform_flip,2);
-
-
-	/* Include the Rubygame::NamedResource mixin module. */
-	rg_include_named_resource(cSurface);
-
-	
-	/* Surface initialization flags */
-	rb_define_const(mRubygame,"SWSURFACE",UINT2NUM(SDL_SWSURFACE));
-	rb_define_const(mRubygame,"HWSURFACE",UINT2NUM(SDL_HWSURFACE));
-	rb_define_const(mRubygame,"ASYNCBLIT",UINT2NUM(SDL_ASYNCBLIT));
-	rb_define_const(mRubygame,"ANYFORMAT",UINT2NUM(SDL_ANYFORMAT));
-	rb_define_const(mRubygame,"HWPALETTE",UINT2NUM(SDL_HWPALETTE));
-	rb_define_const(mRubygame,"HWACCEL",UINT2NUM(SDL_HWACCEL));
-	rb_define_const(mRubygame,"SRCCOLORKEY",UINT2NUM(SDL_SRCCOLORKEY));
-	rb_define_const(mRubygame,"RLEACCELOK",UINT2NUM(SDL_RLEACCELOK));
-	rb_define_const(mRubygame,"RLEACCEL",UINT2NUM(SDL_RLEACCEL));
-	rb_define_const(mRubygame,"SRCALPHA",UINT2NUM(SDL_SRCALPHA));
-	rb_define_const(mRubygame,"PREALLOC",UINT2NUM(SDL_PREALLOC));
-
-}