text: /*************************************************************************/
  /*  font.cpp                                                             */
  /*************************************************************************/
  /*                       This file is part of:                           */
  /*                           GODOT ENGINE                                */
  /*                    http://www.godotengine.org                         */
  /*************************************************************************/
  /* Copyright (c) 2007-2015 Juan Linietsky, Ariel Manzur.                 */
  /*                                                                       */
  /* Permission is hereby granted, free of charge, to any person obtaining */
  /* a copy of this software and associated documentation files (the       */
  /* "Software"), to deal in the Software without restriction, including   */
  /* without limitation the rights to use, copy, modify, merge, publish,   */
  /* distribute, sublicense, and/or sell copies of the Software, and to    */
  /* permit persons to whom the Software is furnished to do so, subject to */
  /* the following conditions:                                             */
  /*                                                                       */
  /* The above copyright notice and this permission notice shall be        */
  /* included in all copies or substantial portions of the Software.       */
  /*                                                                       */
  /* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,       */
  /* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF    */
  /* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.*/
  /* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY  */
  /* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,  */
  /* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE     */
  /* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.                */
  /*************************************************************************/
  #include "font.h"
  
  #include "core/os/file_access.h"
  #include "core/io/resource_loader.h"
  
  void Font::_set_chars(const DVector<int>& p_chars) {
  
  	int len = p_chars.size();
  	//char 1 charsize 1 texture, 4 rect, 2 align, advance 1
  	ERR_FAIL_COND(len%9);
  	if (!len)
  		return; //none to do
  	int chars = len/9;
  
  
  	DVector<int>::Read r=p_chars.read();
  	for(int i=0;i<chars;i++) {
  
  		const int* data = &r[i*9];
  		add_char(data[0],data[1],Rect2(data[2],data[3],data[4],data[5]), Size2(data[6],data[7]),data[8]);
  	}
  
  }
  
  DVector<int> Font::_get_chars() const {
  
  	DVector<int> chars;
  
  	const CharType* key=NULL;
  
  	while((key=char_map.next(key))) {
  
  		const Character *c=char_map.getptr(*key);
  		chars.push_back(*key);
  		chars.push_back(c->texture_idx);
  		chars.push_back(c->rect.pos.x);
  		chars.push_back(c->rect.pos.y);
  
  		chars.push_back(c->rect.size.x);
  		chars.push_back(c->rect.size.y);
  		chars.push_back(c->h_align);
  		chars.push_back(c->v_align);
  		chars.push_back(c->advance);
  	}
  
  	return chars;
  }
  
  void Font::_set_kernings(const DVector<int>& p_kernings) {
  
  	int len=p_kernings.size();
  	ERR_FAIL_COND(len%3);
  	if (!len)
  		return;
  	DVector<int>::Read r=p_kernings.read();
  
  	for(int i=0;i<len/3;i++) {
  
  		const int* data = &r[i*3];
  		add_kerning_pair(data[0],data[1],data[2]);
  	}
  }
  
  DVector<int> Font::_get_kernings() const {
  
  	DVector<int> kernings;
  
  	for(Map<KerningPairKey,int>::Element *E=kerning_map.front();E;E=E->next()) {
  
  		kernings.push_back(E->key().A);
  		kernings.push_back(E->key().B);
  		kernings.push_back(E->get());
  	}
  
  	return kernings;
  }
  
  
  void Font::_set_textures(const Vector<Variant> & p_textures) {
  
  	for(int i=0;i<p_textures.size();i++) {
  		Ref<Texture> tex = p_textures[i];
  		ERR_CONTINUE(!tex.is_valid());
  		add_texture(tex);
  	}
  
  }
  
  Vector<Variant> Font::_get_textures() const {
  
  	Vector<Variant> rtextures;
  	for(int i=0;i<textures.size();i++)
  		rtextures.push_back(textures[i].get_ref_ptr());
  	return rtextures;
  }
  
  Error Font::create_from_fnt(const String& p_string) {
  	//fnt format used by angelcode bmfont
  	//http://www.angelcode.com/products/bmfont/
  
  	FileAccess *f = FileAccess::open(p_string,FileAccess::READ);
  
  	if (!f) {
  		ERR_EXPLAIN("Can't open font: "+p_string);
  		ERR_FAIL_V(ERR_FILE_NOT_FOUND);
  	}
  
  	clear();
  
  	while(true) {
  
  		String line=f->get_line();
  
  		int delimiter=line.find(" ");
  		String type=line.substr(0,delimiter);
  		int pos = delimiter+1;
  		Map<String,String> keys;
  
  		while (pos < line.size() && line[pos]==' ')
  			pos++;
  
  
  		while(pos<line.size()) {
  
  			int eq = line.find("=",pos);
  			if (eq==-1)
  				break;
  			String key=line.substr(pos,eq-pos);
  			int end=-1;
  			String value;
  			if (line[eq+1]=='"') {
  				end=line.find("\"",eq+2);
  				if (end==-1)
  					break;
  				value=line.substr(eq+2,end-1-eq-1);
  				pos=end+1;
  			} else {
  				end=line.find(" ",eq+1);
  				if (end==-1)
  					end=line.size();
  
  				value=line.substr(eq+1,end-eq);
  
  				pos=end;
  
  			}
  
  			while (pos<line.size() && line[pos]==' ')
  				pos++;
  
  
  			keys[key]=value;
  
  		}
  
  
  		if (type=="info") {
  
  			if (keys.has("face"))
  				set_name(keys["face"]);
  			//if (keys.has("size"))
  			//	font->set_height(keys["size"].to_int());
  
  		} else if (type=="common") {
  
  			if (keys.has("lineHeight"))
  				set_height(keys["lineHeight"].to_int());
  			if (keys.has("base"))
  				set_ascent(keys["base"].to_int());
  
  		} else if (type=="page") {
  
  			if (keys.has("file")) {
  
  				String file = keys["file"];
  				file=p_string.get_base_dir()+"/"+file;
  				Ref<Texture> tex = ResourceLoader::load(file);
  				if (tex.is_null()) {
  					ERR_PRINT("Can't load font texture!");
  				} else {
  					add_texture(tex);
  				}
  			}
  		} else if (type=="char") {
  
  			CharType idx=0;
  			if (keys.has("id"))
  				idx=keys["id"].to_int();
  
  			Rect2 rect;
  
  			if (keys.has("x"))
  				rect.pos.x=keys["x"].to_int();
  			if (keys.has("y"))
  				rect.pos.y=keys["y"].to_int();
  			if (keys.has("width"))
  				rect.size.width=keys["width"].to_int();
  			if (keys.has("height"))
  				rect.size.height=keys["height"].to_int();
  
  			Point2 ofs;
  
  			if (keys.has("xoffset"))
  				ofs.x=keys["xoffset"].to_int();
  			if (keys.has("yoffset"))
  				ofs.y=keys["yoffset"].to_int();
  
  			int texture=0;
  			if (keys.has("page"))
  				texture=keys["page"].to_int();
  			int advance=-1;
  			if (keys.has("xadvance"))
  				advance=keys["xadvance"].to_int();
  
  			add_char(idx,texture,rect,ofs,advance);
  
  		}  else if (type=="kerning") {
  
  			CharType first=0,second=0;
  			int k=0;
  
  			if (keys.has("first"))
  				first=keys["first"].to_int();
  			if (keys.has("second"))
  				second=keys["second"].to_int();
  			if (keys.has("amount"))
  				k=keys["amount"].to_int();
  
  			add_kerning_pair(first,second,-k);
  
  		}
  
  		if (f->eof_reached())
  			break;
  	}
  
  
  
  	memdelete(f);
  
  	return OK;
  }
  
  
  
  void Font::set_height(float p_height) {
  	
  	height=p_height;
  }
  float Font::get_height() const{
  	
  	return height;
  }
  
  void Font::set_ascent(float p_ascent){
  	
  	ascent=p_ascent;
  }
  float Font::get_ascent() const {
  	
  	return ascent;
  }
  float Font::get_descent() const {
  	
  	return height-ascent;
  }
  
  void Font::add_texture(const Ref<Texture>& p_texture) {
  
  	ERR_FAIL_COND( p_texture.is_null());
  	textures.push_back( p_texture );
  }
  
  int Font::get_texture_count() const {
  
  	return textures.size();
  };
  
  Ref<Texture> Font::get_texture(int p_idx) const {
  
  	ERR_FAIL_INDEX_V(p_idx, textures.size(), Ref<Texture>());
  	return textures[p_idx];
  };
  
  int Font::get_character_count() const {
  
  	return char_map.size();
  };
  
  Vector<CharType> Font::get_char_keys() const {
  
  	Vector<CharType> chars;
  	chars.resize(char_map.size());
  	const CharType* ct = NULL;
  	int count = 0;
  	while ( (ct = char_map.next(ct)) ) {
  
  		chars[count++] = *ct;
  	};
  
  	return chars;
  };
  
  Font::Character Font::get_character(CharType p_char) const {
  
  	if (!char_map.has(p_char)) {
  		ERR_FAIL_V(Character());
  	};
  
  	return char_map[p_char];
  };
  
  void Font::add_char(CharType p_char, int p_texture_idx, const Rect2& p_rect, const Size2& p_align, float p_advance) {
  
  	if (p_advance<0)
  		p_advance=p_rect.size.width;
  
  	Character c;
  	c.rect=p_rect;
  	c.texture_idx=p_texture_idx;
  	c.v_align=p_align.y;
  	c.advance=p_advance;
  	c.h_align=p_align.x;
  	
  	char_map[p_char]=c;
  }
  
  void Font::add_kerning_pair(CharType p_A,CharType p_B,int p_kerning) {
  
  
  	KerningPairKey kpk;
  	kpk.A=p_A;
  	kpk.B=p_B;
  
  	if (p_kerning==0 && kerning_map.has(kpk)) {
  
  		kerning_map.erase(kpk);
  	} else {
  
  		kerning_map[kpk]=p_kerning;
  	}
  }
  
  Vector<Font::KerningPairKey> Font::get_kerning_pair_keys() const {
  
  
  	Vector<Font::KerningPairKey> ret;
  	ret.resize(kerning_map.size());
  	int i=0;
  
  	for (Map<KerningPairKey,int>::Element *E=kerning_map.front();E;E=E->next()) {
  		ret[i++]=E->key();
  
  	}
  
  	return ret;
  
  }
  
  int Font::get_kerning_pair(CharType p_A,CharType p_B) const {
  
  	KerningPairKey kpk;
  	kpk.A=p_A;
  	kpk.B=p_B;
  
  	const Map<KerningPairKey,int>::Element *E=kerning_map.find(kpk);
  	if (E)
  		return E->get();
  
  	return 0;
  }
  
  void Font::set_distance_field_hint(bool p_distance_field) {
  
  	distance_field_hint=p_distance_field;
  	emit_changed();
  }
  
  bool Font::is_distance_field_hint() const{
  
  	return distance_field_hint;
  }
  
  
  void Font::clear() {
  	
  	height=1;
  	ascent=0;
  	char_map.clear();
  	textures.clear();
  	kerning_map.clear();
  	distance_field_hint=false;
  }
  
  Size2 Font::get_string_size(const String& p_string) const {
  
  	float w=0;
  	
  	int l = p_string.length();
  	if (l==0)
  		return Size2(0,height);
  	const CharType *sptr = &p_string[0];
  
  	for (int i=0;i<l;i++) {
  			
  		w+=get_char_size(sptr[i],sptr[i+1]).width;
  	}
  
  	return Size2(w,height);
  }
  
  void Font::draw_halign(RID p_canvas_item, const Point2& p_pos, HAlign p_align,float p_width,const String& p_text,const Color& p_modulate) const {
  
  	float length=get_string_size(p_text).width;
  	if (length>=p_width) {
  		draw(p_canvas_item,p_pos,p_text,p_modulate,p_width);
  		return;
  	}
  
  	float ofs;
  	switch(p_align) {
  		case HALIGN_LEFT: {
  			ofs=0;
  		} break;
  		case HALIGN_CENTER: {
  			 ofs = Math::floor( (p_width-length) / 2.0 );
  		} break;
  		case HALIGN_RIGHT: {
  			ofs=p_width-length;
  		} break;
  	}
  	draw(p_canvas_item,p_pos+Point2(ofs,0),p_text,p_modulate,p_width);
  }
  
  void Font::draw(RID p_canvas_item, const Point2& p_pos, const String& p_text, const Color& p_modulate,int p_clip_w) const {
  		
  	Point2 pos=p_pos;
  	float ofs=0;
  	VisualServer *vs = VisualServer::get_singleton();
  	
  	for (int i=0;i<p_text.length();i++) {
  
  		const Character * c = char_map.getptr(p_text[i]);
  
  		if (!c)
  			continue;
  			
  //		if (p_clip_w>=0 && (ofs+c->rect.size.width)>(p_clip_w))
  //			break; //width exceeded
  
  		if (p_clip_w>=0 && (ofs+c->rect.size.width)>p_clip_w)
  			break; //clip
  		Point2 cpos=pos;
  		cpos.x+=ofs+c->h_align;
  		cpos.y-=ascent;
  		cpos.y+=c->v_align;
  		ERR_CONTINUE( c->texture_idx<-1 || c->texture_idx>=textures.size());
  		if (c->texture_idx!=-1)
  			textures[c->texture_idx]->draw_rect_region( p_canvas_item, Rect2( cpos, c->rect.size ), c->rect, p_modulate );
  		
  		ofs+=get_char_size(p_text[i],p_text[i+1]).width;
  	}
  }
  
  float Font::draw_char(RID p_canvas_item, const Point2& p_pos, const CharType& p_char,const CharType& p_next,const Color& p_modulate) const {
  	
  	const Character * c = char_map.getptr(p_char);
  	
  	if (!c)
  		return 0;
  	
  	Point2 cpos=p_pos;
  	cpos.x+=c->h_align;
  	cpos.y-=ascent;
  	cpos.y+=c->v_align;
  	ERR_FAIL_COND_V( c->texture_idx<-1 || c->texture_idx>=textures.size(),0);
  	if (c->texture_idx!=-1)
  		VisualServer::get_singleton()->canvas_item_add_texture_rect_region( p_canvas_item, Rect2( cpos, c->rect.size ), textures[c->texture_idx]->get_rid(),c->rect, p_modulate );
  	
  	return get_char_size(p_char,p_next).width;
  }
  
  void Font::_bind_methods() {
  
  	ObjectTypeDB::bind_method(_MD("create_from_fnt","path"),&Font::create_from_fnt);
  	ObjectTypeDB::bind_method(_MD("set_height","px"),&Font::set_height);
  	ObjectTypeDB::bind_method(_MD("get_height"),&Font::get_height);
  
  	ObjectTypeDB::bind_method(_MD("set_ascent","px"),&Font::set_ascent);
  	ObjectTypeDB::bind_method(_MD("get_ascent"),&Font::get_ascent);
  	ObjectTypeDB::bind_method(_MD("get_descent"),&Font::get_descent);
  
  	ObjectTypeDB::bind_method(_MD("add_kerning_pair","char_a","char_b","kerning"),&Font::add_kerning_pair);
  	ObjectTypeDB::bind_method(_MD("get_kerning_pair"),&Font::get_kerning_pair);
  
  	ObjectTypeDB::bind_method(_MD("add_texture","texture:Texture"),&Font::add_texture);
  	ObjectTypeDB::bind_method(_MD("add_char","character","texture","rect","align","advance"),&Font::add_char,DEFVAL(Point2()),DEFVAL(-1));
  
  
  	ObjectTypeDB::bind_method(_MD("get_texture_count"),&Font::get_texture_count);
  	ObjectTypeDB::bind_method(_MD("get_texture:Texture","idx"),&Font::get_texture);
  
  	ObjectTypeDB::bind_method(_MD("get_char_size","char","next"),&Font::get_char_size,DEFVAL(0));
  	ObjectTypeDB::bind_method(_MD("get_string_size","string"),&Font::get_string_size);
  
  	ObjectTypeDB::bind_method(_MD("set_distance_field_hint","enable"),&Font::set_distance_field_hint);
  	ObjectTypeDB::bind_method(_MD("is_distance_field_hint"),&Font::is_distance_field_hint);
  
  	ObjectTypeDB::bind_method(_MD("clear"),&Font::clear);
  
  	ObjectTypeDB::bind_method(_MD("draw","canvas_item","pos","string","modulate","clip_w"),&Font::draw,DEFVAL(Color(1,1,1)),DEFVAL(-1));
  	ObjectTypeDB::bind_method(_MD("draw_char","canvas_item","pos","char","next","modulate"),&Font::draw_char,DEFVAL(-1),DEFVAL(Color(1,1,1)));
  
  	ObjectTypeDB::bind_method(_MD("_set_chars"),&Font::_set_chars);
  	ObjectTypeDB::bind_method(_MD("_get_chars"),&Font::_get_chars);
  
  	ObjectTypeDB::bind_method(_MD("_set_kernings"),&Font::_set_kernings);
  	ObjectTypeDB::bind_method(_MD("_get_kernings"),&Font::_get_kernings);
  
  	ObjectTypeDB::bind_method(_MD("_set_textures"),&Font::_set_textures);
  	ObjectTypeDB::bind_method(_MD("_get_textures"),&Font::_get_textures);
  
  
  	ADD_PROPERTY( PropertyInfo( Variant::ARRAY, "textures", PROPERTY_HINT_NONE,"", PROPERTY_USAGE_NOEDITOR ), _SCS("_set_textures"), _SCS("_get_textures") );
  	ADD_PROPERTY( PropertyInfo( Variant::INT_ARRAY, "chars", PROPERTY_HINT_NONE,"", PROPERTY_USAGE_NOEDITOR ), _SCS("_set_chars"), _SCS("_get_chars") );
  	ADD_PROPERTY( PropertyInfo( Variant::INT_ARRAY, "kernings", PROPERTY_HINT_NONE,"", PROPERTY_USAGE_NOEDITOR ), _SCS("_set_kernings"), _SCS("_get_kernings") );
  
  	ADD_PROPERTY( PropertyInfo( Variant::REAL, "height", PROPERTY_HINT_RANGE,"-1024,1024,1" ), _SCS("set_height"), _SCS("get_height") );
  	ADD_PROPERTY( PropertyInfo( Variant::REAL, "ascent", PROPERTY_HINT_RANGE,"-1024,1024,1" ), _SCS("set_ascent"), _SCS("get_ascent") );
  	ADD_PROPERTY( PropertyInfo( Variant::BOOL, "distance_field" ), _SCS("set_distance_field_hint"), _SCS("is_distance_field_hint") );
  
  }
  
  Font::Font() {
  	
  	clear();
  
  	
  
  }
  
  
  Font::~Font() {
  	
  	clear();
  }
  
  
  