[sdlgit/SDL_perl.git] / src / Core / objects / Surface.xs

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#ifndef aTHX_
#define aTHX_
#endif

#include <SDL.h>

MODULE = SDL::Surface 	PACKAGE = SDL::Surface    PREFIX = surface_

=for documentation

SDL_Surface -- Graphic surface structure 

  typedef struct SDL_Surface {
      Uint32 flags;                           /* Read-only */
      SDL_PixelFormat *format;                /* Read-only */
      int w, h;                               /* Read-only */
      Uint16 pitch;                           /* Read-only */
      void *pixels;                           /* Read-write */
      SDL_Rect clip_rect;                     /* Read-only */
      int refcount;                           /* Read-mostly */

    /* This structure also contains private fields not shown here */
  } SDL_Surface;

=cut

SDL_Surface *
surface_new (CLASS, flags, width, height, depth, Rmask, Gmask, Bmask, Amask )
	char* CLASS
	Uint32 flags
	int width
	int height
	int depth
	Uint32 Rmask
	Uint32 Gmask
	Uint32 Bmask
	Uint32 Amask
	CODE:
		RETVAL = SDL_CreateRGBSurface ( flags, width, height,
				depth, Rmask, Gmask, Bmask, Amask );
	OUTPUT:
		RETVAL

SDL_Surface *
surface_new_from (CLASS, pixels, width, height, depth, pitch, Rmask, Gmask, Bmask, Amask )
	char *CLASS
	char *pixels
	int width
	int height
	int depth
	int pitch
	Uint32 Rmask
	Uint32 Gmask
	Uint32 Bmask
	Uint32 Amask
	CODE:
		void* pixeldata;
		int len = pitch * height;
		Newx(pixeldata,len,Uint8);
		Copy(pixels,pixeldata,len,Uint8);
		RETVAL = SDL_CreateRGBSurfaceFrom ( pixeldata, width, height,
				depth, pitch, Rmask, Gmask, Bmask, Amask );
	OUTPUT:	
		RETVAL


SDL_PixelFormat *
surface_format ( surface )
	SDL_Surface *surface
	PREINIT:
		char* CLASS = "SDL::PixelFormat";
	CODE:
		RETVAL = surface->format;
	OUTPUT:
		RETVAL

Uint16
surface_pitch( surface )
	SDL_Surface *surface
	CODE:
		RETVAL = surface->pitch;
	OUTPUT:
		RETVAL

Uint16
surface_w ( surface )
	SDL_Surface *surface
	CODE:
		RETVAL = surface->w;
	OUTPUT:
		RETVAL

Uint16
surface_h ( surface )
	SDL_Surface *surface
	CODE:
		RETVAL = surface->h;
	OUTPUT:
		RETVAL

IV
surface_get_pixels(surface)
	SDL_Surface *surface
	CODE:
	  if(!surface->pixels) croak("Incomplete surface");
	  RETVAL = PTR2IV(surface->pixels);
	OUTPUT:
	  RETVAL

void
surface_set_pixels(surface, pixels)
	SDL_Surface *surface

	SV *pixels

	PREINIT:
	  STRLEN len;
	  void *p;

	CODE:
	  p = SvPV(pixels, len);
	  if (len > surface->pitch*surface->h)
		len = surface->pitch*surface->h;
	  memcpy(surface->pixels, p, len);

void
surface_DESTROY(surface)
	SDL_Surface *surface
	CODE:
		Uint8* pixels = surface->pixels;
		Uint32 flags = surface->flags;
		SDL_FreeSurface(surface);
		if (flags & SDL_PREALLOC)
			Safefree(pixels);
Commit	Line	Data
88a46efc	1	#include "EXTERN.h"
	2	#include "perl.h"
	3	#include "XSUB.h"
	4
	5	#ifndef aTHX_
	6	#define aTHX_
	7	#endif
	8
	9	#include <SDL.h>
	10
	11	MODULE = SDL::Surface PACKAGE = SDL::Surface PREFIX = surface_
	12
	13	=for documentation
	14
	15	SDL_Surface -- Graphic surface structure
	16
	17	typedef struct SDL_Surface {
	18	Uint32 flags; /* Read-only */
	19	SDL_PixelFormat format; / Read-only */
	20	int w, h; /* Read-only */
	21	Uint16 pitch; /* Read-only */
	22	void pixels; / Read-write */
	23	SDL_Rect clip_rect; /* Read-only */
	24	int refcount; /* Read-mostly */
	25
	26	/* This structure also contains private fields not shown here */
	27	} SDL_Surface;
	28
	29	=cut
	30
	31	SDL_Surface *
	32	surface_new (CLASS, flags, width, height, depth, Rmask, Gmask, Bmask, Amask )
	33	char* CLASS
	34	Uint32 flags
	35	int width
	36	int height
	37	int depth
	38	Uint32 Rmask
	39	Uint32 Gmask
	40	Uint32 Bmask
	41	Uint32 Amask
	42	CODE:
	43	RETVAL = SDL_CreateRGBSurface ( flags, width, height,
	44	depth, Rmask, Gmask, Bmask, Amask );
	45	OUTPUT:
	46	RETVAL
	47
871d7fa3	48	SDL_Surface *
	49	surface_new_from (CLASS, pixels, width, height, depth, pitch, Rmask, Gmask, Bmask, Amask )
	50	char *CLASS
	51	char *pixels
	52	int width
	53	int height
	54	int depth
	55	int pitch
	56	Uint32 Rmask
	57	Uint32 Gmask
	58	Uint32 Bmask
	59	Uint32 Amask
	60	CODE:
	61	void* pixeldata;
	62	int len = pitch * height;
	63	Newx(pixeldata,len,Uint8);
	64	Copy(pixels,pixeldata,len,Uint8);
	65	RETVAL = SDL_CreateRGBSurfaceFrom ( pixeldata, width, height,
	66	depth, pitch, Rmask, Gmask, Bmask, Amask );
	67	OUTPUT:
	68	RETVAL
	69
	70
	71
50d9130a	72	SDL_PixelFormat *
	73	surface_format ( surface )
	74	SDL_Surface *surface
4510df28	75	PREINIT:
50d9130a	76	char* CLASS = "SDL::PixelFormat";
4510df28	77	CODE:
50d9130a	78	RETVAL = surface->format;
	79	OUTPUT:
	80	RETVAL
	81
88a46efc	82	Uint16
18ef5a29	83	surface_pitch( surface )
	84	SDL_Surface *surface
	85	CODE:
	86	RETVAL = surface->pitch;
	87	OUTPUT:
	88	RETVAL
	89
	90	Uint16
88a46efc	91	surface_w ( surface )
	92	SDL_Surface *surface
	93	CODE:
	94	RETVAL = surface->w;
	95	OUTPUT:
	96	RETVAL
	97
	98	Uint16
	99	surface_h ( surface )
	100	SDL_Surface *surface
	101	CODE:
	102	RETVAL = surface->h;
	103	OUTPUT:
	104	RETVAL
	105
18ef5a29	106	IV
	107	surface_get_pixels(surface)
	108	SDL_Surface *surface
	109	CODE:
b7ed9095	110	if(!surface->pixels) croak("Incomplete surface");
793e8806	111	RETVAL = PTR2IV(surface->pixels);
18ef5a29	112	OUTPUT:
793e8806	113	RETVAL
18ef5a29	114
	115	void
	116	surface_set_pixels(surface, pixels)
	117	SDL_Surface *surface
	118
	119	SV *pixels
	120
	121	PREINIT:
	122	STRLEN len;
	123	void *p;
	124
	125	CODE:
	126	p = SvPV(pixels, len);
	127	if (len > surface->pitch*surface->h)
	128	len = surface->pitch*surface->h;
	129	memcpy(surface->pixels, p, len);
	130
88a46efc	131	void
	132	surface_DESTROY(surface)
	133	SDL_Surface *surface
	134	CODE:
	135	Uint8* pixels = surface->pixels;
	136	Uint32 flags = surface->flags;
	137	SDL_FreeSurface(surface);
	138	if (flags & SDL_PREALLOC)
	139	Safefree(pixels);