gambas-source-code/gb.sdl/src/Cfont.cpp

/***************************************************************************

  Cfont.cpp

  (c) 2007 Laurent Carlier <lordheavy@users.sourceforge.net>

  This program is free software; you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation; either version 2, or (at your option)
  any later version.

  This program 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 General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with this program; if not, write to the Free Software
  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
  MA 02110-1301, USA.

***************************************************************************/

#define __CFONT_CPP

#include "Cfont.h"
#include "Cimage.h"
#if 0
static StringList FontList;

static void init_font_list(void )
{
	if (FontList.empty())
		FontList = SDLfont::GetFontList();
}

BEGIN_METHOD_VOID(CFONTS_next)

	std::string s;

	uint *index = (uint *)GB.GetEnum();

	if (*index == 0)
		init_font_list();

	if (*index >= FontList.size())
		GB.StopEnum();
	else
	{
		s = FontList[*index];
		GB.ReturnNewZeroString(s.c_str());
		(*index)++;
	}

END_METHOD

BEGIN_PROPERTY(CFONTS_count)

	init_font_list();
	GB.ReturnInteger(FontList.size());

END_PROPERTY
#endif
BEGIN_METHOD(CFONT_load, GB_STRING path)

	CFONT *font;
	font = (CFONT *)GB.New(CLASS_Font, NULL, NULL);
	font->font = new SDLfont(GB.RealFileName(STRING(path), LENGTH(path)));
	GB.ReturnObject(font);

END_METHOD

BEGIN_METHOD(CFONT_width, GB_STRING text)

	int width, height;
	FONT->SizeText(STRING(text), LENGTH(text), &width, &height);
	GB.ReturnInteger(width);

END_METHOD

BEGIN_METHOD(CFONT_height, GB_STRING text)

	int width, height;
	FONT->SizeText(STRING(text), LENGTH(text), &width, &height);
	GB.ReturnInteger(height);

END_METHOD

BEGIN_METHOD(CFONT_image, GB_STRING text)

	CIMAGE *img;
	
	SDLsurface *txt = FONT->RenderText(STRING(text), LENGTH(text));
	if (!txt)
	{
		GB.ReturnNull();
		return;
	}
	
	img = CIMAGE_create(txt);
	
	GB.ReturnObject(img);

END_METHOD

BEGIN_METHOD_VOID(CFONT_new)

	THIS->font = new SDLfont();

END_METHOD

BEGIN_METHOD_VOID(CFONT_free)

	if (FONT)
		delete (FONT);

END_METHOD

BEGIN_PROPERTY(CFONT_name)

	GB.ReturnNewZeroString(FONT->GetFontName());

END_PROPERTY

BEGIN_PROPERTY(CFONT_size)

	if (READ_PROPERTY)
		GB.ReturnInteger(FONT->GetFontSize());
	else
		FONT->SetFontSize(VPROP(GB_INTEGER));

END_PROPERTY

BEGIN_PROPERTY(CFONT_bold)

	if (READ_PROPERTY)
		GB.ReturnBoolean(FONT->IsFontBold());
	else
		FONT->SetFontBold(VPROP(GB_BOOLEAN));

END_PROPERTY

BEGIN_PROPERTY(CFONT_italic)

	if (READ_PROPERTY)
		GB.ReturnBoolean(FONT->IsFontItalic());
	else
		FONT->SetFontItalic(VPROP(GB_BOOLEAN));

END_PROPERTY
/*
BEGIN_PROPERTY(CFONT_strikeout)

	if (READ_PROPERTY)
		GB.ReturnBoolean(FONT->IsFontStrikeout());
	else
		FONT->SetFontStrikeout(VPROP(GB_BOOLEAN));

END_PROPERTY
*/
BEGIN_PROPERTY(CFONT_underline)

	if (READ_PROPERTY)
		GB.ReturnBoolean(FONT->IsFontUnderline());
	else
		FONT->SetFontUnderline(VPROP(GB_BOOLEAN));

END_PROPERTY

BEGIN_PROPERTY(CFONT_ascent)

	GB.ReturnInteger(FONT->GetFontAscent());

END_PROPERTY

BEGIN_PROPERTY(CFONT_descent)

	GB.ReturnInteger(FONT->GetFontDescent());

END_PROPERTY

BEGIN_PROPERTY(CFONT_fixed)

	GB.ReturnBoolean(FONT->IsFontFixed());

END_PROPERTY

BEGIN_PROPERTY(CFONT_scalable)

	GB.ReturnBoolean(FONT->IsFontScalable());

END_PROPERTY

BEGIN_PROPERTY(Font_DefaultFontSize)

	GB.ReturnInteger(FONT->GetDefaultFontSize());

END_PROPERTY

#if 0
GB_DESC CFonts[] =
{
  GB_DECLARE("Fonts", 0),
  GB_NOT_CREATABLE(),

  GB_STATIC_METHOD("_next", "s", CFONTS_next, NULL),
  GB_STATIC_PROPERTY_READ("Count", "i", CFONTS_count),

  GB_END_DECLARE
};
#endif
GB_DESC CFont[] =
{
  GB_DECLARE("Font", sizeof(CFONT)),

  GB_STATIC_METHOD("Load", "Font", CFONT_load, "(Path)s"),

  GB_METHOD("_new", NULL, CFONT_new, NULL),
  GB_METHOD("_free", NULL, CFONT_free, NULL),

  GB_PROPERTY("Size", "i", CFONT_size),
  GB_PROPERTY("Bold", "b", CFONT_bold),
  GB_PROPERTY("Italic", "b", CFONT_italic),
//  GB_PROPERTY("StrikeOut", "b", CFONT_strikeout),
  GB_PROPERTY("Underline", "b", CFONT_underline),

  GB_PROPERTY_READ("Name", "s", CFONT_name),
  GB_PROPERTY_READ("Ascent", "i", CFONT_ascent),
  GB_PROPERTY_READ("Descent", "i", CFONT_descent),
  GB_PROPERTY_READ("Fixed", "b", CFONT_fixed),
  GB_PROPERTY_READ("Scalable", "b", CFONT_scalable),
 
  GB_METHOD("Width", "i", CFONT_width, "(Text)s"),
  GB_METHOD("Height", "i", CFONT_height, "(Text)s"),
  GB_METHOD("Image", "Image", CFONT_image, "(Text)s"),
  
  GB_STATIC_PROPERTY_READ("DefaultFontSize", "i", Font_DefaultFontSize),
/*
  GB_PROPERTY("Grade", "i", CFONT_grade),
*/
  GB_END_DECLARE
};