It's still easier than Perl 5's XS

.local pmc SetVideoMode 
SetVideoMode = find_global 'SDL::NCI', 'SetVideoMode'

.local pmc screen
screen = SetVideoMode( width, height, bpp, flags )

SDL_Surface *
SetVideoMode ( width, height, bpp, flags )
	int width 
	int height
	int bpp
	Uint32 flags 
	CODE:
		RETVAL = SDL_SetVideoMode(width,height,bpp,flags);

	OUTPUT:
		RETVAL