view release on metacpan or  search on metacpan

FTGL.xs  view on Meta::CPAN

#include FT_ERRORS_H

MODULE = OpenGL::FTGL		PACKAGE = OpenGL::FTGL

# =========================== Font C-API
void
ftglCreateBitmapFont(file);
    const char *  file
  PREINIT:
    FTGLfont* RETVAL;
  PPCODE:
    RETVAL = ftglCreateBitmapFont(file);
	if ( RETVAL ) {
	  ST(0) = sv_newmortal();
	  sv_setref_pv(ST(0), "FTGLfontPtr", (void*)RETVAL);
	  XSRETURN(1);
	}
	else
	  XSRETURN_UNDEF;

void
ftglCreateBufferFont(file);
    const char *  file
  PREINIT:
    FTGLfont* RETVAL;
  PPCODE:
    RETVAL = ftglCreateBufferFont(file);
	if ( RETVAL ) {
	  ST(0) = sv_newmortal();
	  sv_setref_pv(ST(0), "FTGLfontPtr", (void*)RETVAL);
	  XSRETURN(1);
	}
	else
	  XSRETURN_UNDEF;

void
ftglCreateExtrudeFont(file);
    const char *  file
  PREINIT:
    FTGLfont* RETVAL;
  PPCODE:
    RETVAL = ftglCreateExtrudeFont(file);
	if ( RETVAL ) {
	  ST(0) = sv_newmortal();
	  sv_setref_pv(ST(0), "FTGLfontPtr", (void*)RETVAL);
	  XSRETURN(1);
	}
	else
	  XSRETURN_UNDEF;

void
ftglCreateOutlineFont(file);
    const char *  file
  PREINIT:
    FTGLfont* RETVAL;
  PPCODE:
    RETVAL = ftglCreateOutlineFont(file);
	if ( RETVAL ) {
	  ST(0) = sv_newmortal();
	  sv_setref_pv(ST(0), "FTGLfontPtr", (void*)RETVAL);
	  XSRETURN(1);
	}
	else
	  XSRETURN_UNDEF;

void
ftglCreatePixmapFont(file);
    const char *  file
  PREINIT:
    FTGLfont* RETVAL;
  PPCODE:
    RETVAL = ftglCreatePixmapFont(file);
	if ( RETVAL ) {
	  ST(0) = sv_newmortal();
	  sv_setref_pv(ST(0), "FTGLfontPtr", (void*)RETVAL);
	  XSRETURN(1);
	}
	else
	  XSRETURN_UNDEF;

void
ftglCreatePolygonFont(file);
    const char *  file
  PREINIT:
    FTGLfont* RETVAL;
  PPCODE:
    RETVAL = ftglCreatePolygonFont(file);
	if ( RETVAL ) {
	  ST(0) = sv_newmortal();
	  sv_setref_pv(ST(0), "FTGLfontPtr", (void*)RETVAL);
	  XSRETURN(1);
	}
	else
	  XSRETURN_UNDEF;

void
ftglCreateTextureFont(file);
    const char *  file
  PREINIT:
    FTGLfont* RETVAL;
  PPCODE:
    RETVAL = ftglCreateTextureFont(file);
	if ( RETVAL ) {
	  ST(0) = sv_newmortal();
	  sv_setref_pv(ST(0), "FTGLfontPtr", (void*)RETVAL);
	  XSRETURN(1);
	}
	else
	  XSRETURN_UNDEF;

FTGL.xs  view on Meta::CPAN

ftglSetFontCharMap (font, encoding)
  FTGLfont * font
  FT_Encoding encoding

void
ftglGetFontCharMapList (font)
    FTGLfont *font;
  PREINIT:
	int n, i;
	FT_Encoding * p;
  PPCODE:
	n = ftglGetFontCharMapCount (font);
	if (n>0) {
	  p = ftglGetFontCharMapList(font);
	  EXTEND(SP, n);
	  for (i=0; i<n; i++,p++) {
	    PUSHs( sv_2mortal(newSViv(*p)) );
	  }
	  XSRETURN(n);
	}
	XSRETURN_EMPTY;

FTGL.xs  view on Meta::CPAN

float
ftglGetFontDescender (font)
  FTGLfont *font

float
ftglGetFontLineHeight (font)
  FTGLfont *font

void
ftglGetFontBBox (...)
  PPCODE:
    FTGLfont *font;
    char *string;
    STRLEN len;
    float bounds[6];
	int i;
    if (items > 3 || items < 2)
      croak("Usage: ftglGetFontBBox( font, string [,len] )");
	if (sv_derived_from(ST(0), "FTGLfontPtr")) {
	    IV tmp = SvIV((SV*)SvRV(ST(0)));
	    font = INT2PTR(FTGLfont *,tmp);