Moved old SDL::Palette to SDL::Game::Palette.

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

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

#ifndef aTHX_
#define aTHX_
#endif

#include <SDL.h>

MODULE = SDL::Palette 	PACKAGE = SDL::Palette    PREFIX = palette_

=for documentation

SDL_Palette -- Color palette for 8-bit pixel formats 

  typedef struct{
	int ncolors;
	SDL_Color *colors
  } SDL_Palette;

=cut

int
palette_ncolors ( palette )
	SDL_Palette *palette
	CODE:
		RETVAL = palette->ncolors;
	OUTPUT:
		RETVAL

AV *
palette_colors ( palette )
	SDL_Palette *palette
	CODE:
		RETVAL = newAV();
		int i;
		for(i = 0; i < palette->ncolors; i++)
		   {
			
			av_push(RETVAL,newSViv( PTR2IV( palette->colors + i ) ) );

		   }
	OUTPUT:
		RETVAL		


SDL_Color *
palette_color_index ( palette, index )
	SDL_Palette *palette
	int index
	PREINIT:
		char * CLASS = "SDL::Color";
	CODE:
		RETVAL = (SDL_Color *)(palette->colors + index);
	OUTPUT:
		RETVAL