/*************************************************************************/
/*  collada.cpp                                                          */
/*************************************************************************/
/*                       This file is part of:                           */
/*                           GODOT ENGINE                                */
/*                    http://www.godotengine.org                         */
/*************************************************************************/
/* Copyright (c) 2007-2017 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.                */
/*************************************************************************/
#ifdef TOOLS_ENABLED

#include "collada.h"

#include "stdio.h"

//#define DEBUG_DEFAULT_ANIMATION
//#define DEBUG_COLLADA
#ifdef DEBUG_COLLADA
#define COLLADA_PRINT(m_what) print_line(m_what)
#else
#define COLLADA_PRINT(m_what)
#endif

#define COLLADA_IMPORT_SCALE_SCENE

/* HELPERS */



String Collada::Effect::get_texture_path(const String& p_source,Collada& state) const {

	String image=p_source;
	ERR_FAIL_COND_V(!state.state.image_map.has(image),"");
	return state.state.image_map[image].path;
}

Transform Collada::get_root_transform() const {

	Transform unit_scale_transform;
#ifndef COLLADA_IMPORT_SCALE_SCENE
	unit_scale_transform.scale(Vector3(state.unit_scale,state.unit_scale,state.unit_scale));
#endif
	return unit_scale_transform;
}



void Collada::Vertex::fix_unit_scale(Collada &state) {
#ifdef COLLADA_IMPORT_SCALE_SCENE
	vertex*=state.state.unit_scale;
#endif
}

static String _uri_to_id(const String& p_uri) {

	if (p_uri.begins_with("#"))
		return p_uri.substr(1,p_uri.size()-1);
	else
		return p_uri;

}

/** HELPER FUNCTIONS **/

Transform Collada::fix_transform(const Transform& p_transform) {

	Transform tr=p_transform;

#ifndef NO_UP_AXIS_SWAP

	if (state.up_axis!=Vector3::AXIS_Y) {

		for(int i=0;i<3;i++)
			SWAP(tr.basis[1][i],tr.basis[state.up_axis][i]);
		for(int i=0;i<3;i++)
			SWAP(tr.basis[i][1],tr.basis[i][state.up_axis]);

		SWAP(tr.origin[1],tr.origin[state.up_axis]);

		tr.basis[state.up_axis][0]=-tr.basis[state.up_axis][0];
		tr.basis[state.up_axis][1]=-tr.basis[state.up_axis][1];
		tr.basis[0][state.up_axis]=-tr.basis[0][state.up_axis];
		tr.basis[1][state.up_axis]=-tr.basis[1][state.up_axis];
		tr.origin[state.up_axis]=-tr.origin[state.up_axis];
	}
#endif

	//tr.scale(Vector3(state.unit_scale.unit_scale.unit_scale));
	return tr;
	//return state.matrix_fix * p_transform;
}


static Transform _read_transform_from_array(const Vector<float>& array, int ofs=0) {

	Transform tr;
	// i wonder why collada matrices are transposed, given that's opposed to opengl..
	tr.basis.elements[0][0]=array[0+ofs];
	tr.basis.elements[0][1]=array[1+ofs];
	tr.basis.elements[0][2]=array[2+ofs];
	tr.basis.elements[1][0]=array[4+ofs];
	tr.basis.elements[1][1]=array[5+ofs];
	tr.basis.elements[1][2]=array[6+ofs];
	tr.basis.elements[2][0]=array[8+ofs];
	tr.basis.elements[2][1]=array[9+ofs];
	tr.basis.elements[2][2]=array[10+ofs];
	tr.origin.x=array[3+ofs];
	tr.origin.y=array[7+ofs];
	tr.origin.z=array[11+ofs];
	return tr;

}

/* STRUCTURES */

Transform Collada::Node::compute_transform(Collada &state) const {

	Transform xform;

	for(int i=0;i<xform_list.size();i++) {

		Transform xform_step;
		const XForm& xf = xform_list[i];
		switch(xf.op) {

			case XForm::OP_ROTATE: {
				if (xf.data.size()>=4) {

					xform_step.rotate(Vector3(xf.data[0],xf.data[1],xf.data[2]),Math::deg2rad(xf.data[3]));
				}
			} break;
			case XForm::OP_SCALE: {

				if (xf.data.size()>=3) {

					xform_step.scale(Vector3(xf.data[0],xf.data[1],xf.data[2]));
				}

			} break;
			case XForm::OP_TRANSLATE: {

				if (xf.data.size()>=3) {

					xform_step.origin=Vector3(xf.data[0],xf.data[1],xf.data[2]);
				}

			} break;
			case XForm::OP_MATRIX: {

				if (xf.data.size()>=16) {
					xform_step = _read_transform_from_array(xf.data,0);
				}

			} break;
			default: {}

		}

		xform = xform * xform_step;
	}

#ifdef COLLADA_IMPORT_SCALE_SCENE
	xform.origin*=state.state.unit_scale;
#endif
	return xform;
}

Transform Collada::Node::get_transform() const {

	return default_transform;
}

Transform Collada::Node::get_global_transform() const {

	if (parent)
		return parent->get_global_transform() * default_transform;
	else
		return default_transform;

}

Vector<float> Collada::AnimationTrack::get_value_at_time(float p_time) {

	ERR_FAIL_COND_V(keys.size()==0,Vector<float>());
	int i=0;

	for(i=0;i<keys.size();i++) {

		if (keys[i].time>p_time)
			break;
	}

	if (i==0)
		return keys[0].data;
	if (i==keys.size())
		return keys[keys.size()-1].data;

	switch(keys[i].interp_type) {

		case INTERP_BEZIER: //wait for bezier
		case INTERP_LINEAR: {

			float c = (p_time-keys[i-1].time)/(keys[i].time-keys[i-1].time);

			if (keys[i].data.size()==16) {
				//interpolate a matrix
				Transform src = _read_transform_from_array(keys[i-1].data);
				Transform dst = _read_transform_from_array(keys[i].data);


				Transform interp = c<0.001 ? src : src.interpolate_with(dst,c);

				Vector<float> ret;
				ret.resize(16);
				Transform tr;
				// i wonder why collada matrices are transposed, given that's opposed to opengl..
				ret[0]=interp.basis.elements[0][0];
				ret[1]=interp.basis.elements[0][1];
				ret[2]=interp.basis.elements[0][2];
				ret[4]=interp.basis.elements[1][0];
				ret[5]=interp.basis.elements[1][1];
				ret[6]=interp.basis.elements[1][2];
				ret[8]=interp.basis.elements[2][0];
				ret[9]=interp.basis.elements[2][1];
				ret[10]=interp.basis.elements[2][2];
				ret[3]=interp.origin.x;
				ret[7]=interp.origin.y;
				ret[11]=interp.origin.z;
				ret[12]=0;
				ret[13]=0;
				ret[14]=0;
				ret[15]=1;

				return ret;
			} else {

				Vector<float> dest;
				dest.resize(keys[i].data.size());
				for(int j=0;j<dest.size();j++) {

					dest[j]=keys[i].data[j]*c+keys[i-1].data[j]*(1.0-c);
				}
				return dest;
				//interpolate one by one
			}
		} break;
	}

	ERR_FAIL_V(Vector<float>());
}




void Collada::_parse_asset(XMLParser& parser) {

	while(parser.read()==OK) {

		if (parser.get_node_type() == XMLParser::NODE_ELEMENT)	{

			String name = parser.get_node_name();

			if (name=="up_axis") {

				parser.read();
				if (parser.get_node_data()=="X_UP")
					state.up_axis=Vector3::AXIS_X;
				if (parser.get_node_data()=="Y_UP")
					state.up_axis=Vector3::AXIS_Y;
				if (parser.get_node_data()=="Z_UP")
					state.up_axis=Vector3::AXIS_Z;

				COLLADA_PRINT("up axis: "+parser.get_node_data());
			} else if (name=="unit") {

				state.unit_scale = parser.get_attribute_value("meter").to_double();
				COLLADA_PRINT("unit scale: "+rtos(state.unit_scale));
			}


		} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="asset")
			break; //end of <asset>
	}
}


void Collada::_parse_image(XMLParser& parser) {

	String id=parser.get_attribute_value("id");


	if (!(state.import_flags&IMPORT_FLAG_SCENE))  {
		 if (!parser.is_empty())
			parser.skip_section();
		return;
	}


	Image image;


	if (state.version<State::Version(1,4,0)) {
		/* <1.4 */
		String path = parser.get_attribute_value("source").strip_edges();
		if (path.find("://")==-1 && path.is_rel_path()) {
			// path is relative to file being loaded, so convert to a resource path
			image.path=GlobalConfig::get_singleton()->localize_path(state.local_path.get_base_dir()+"/"+path.percent_decode());

		}
	} else {


		while(parser.read()==OK) {


			if (parser.get_node_type() == XMLParser::NODE_ELEMENT)	{

				String name = parser.get_node_name();

				if (name=="init_from") {

					parser.read();
					String path = parser.get_node_data().strip_edges().percent_decode();

					if (path.find("://")==-1 && path.is_rel_path()) {
						// path is relative to file being loaded, so convert to a resource path
						path=GlobalConfig::get_singleton()->localize_path(state.local_path.get_base_dir()+"/"+path);

					} else if (path.find("file:///")==0) {
						path=path.replace_first("file:///","");
						path=GlobalConfig::get_singleton()->localize_path(path);
					}

					image.path=path;

				} else if (name=="data") {

					ERR_PRINT("COLLADA Embedded image data not supported!");

				} else if (name=="extra" && !parser.is_empty())
					parser.skip_section();

			} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="image")
				break; //end of <asset>

		}
	}

	state.image_map[id]=image;
}

void Collada::_parse_material(XMLParser& parser) {

	if (!(state.import_flags&IMPORT_FLAG_SCENE))  {
		 if (!parser.is_empty())
			parser.skip_section();
		return;
	}

	Material material;

	String id=parser.get_attribute_value("id");
	if (parser.has_attribute("name"))
		material.name=parser.get_attribute_value("name");

	if (state.version<State::Version(1,4,0)) {
		/* <1.4 */
		ERR_PRINT("Collada Materials < 1.4 are not supported (yet)");
	} else {

		while(parser.read()==OK) {

			if (parser.get_node_type() == XMLParser::NODE_ELEMENT && parser.get_node_name()=="instance_effect") {

				material.instance_effect=_uri_to_id(parser.get_attribute_value("url"));
			} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="material")
				break; //end of <asset>
		}
	}

	state.material_map[id]=material;
}

//! reads floats from inside of xml element until end of xml element
Vector<float> Collada::_read_float_array(XMLParser& parser) {

	if (parser.is_empty())
		return Vector<float>();

	Vector<String> splitters;
	splitters.push_back(" ");
	splitters.push_back("\n");
	splitters.push_back("\r");
	splitters.push_back("\t");

	Vector<float> array;
	while(parser.read()==OK) {
		// TODO: check for comments inside the element
		// and ignore them.

		if (parser.get_node_type() == XMLParser::NODE_TEXT) {
			// parse float data
			String str = parser.get_node_data();
			array=str.split_floats_mk(splitters,false);
			//array=str.split_floats(" ",false);
		}
		else
		if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END)
			break; // end parsing text
	}

	return array;
}

Vector<String> Collada::_read_string_array(XMLParser& parser) {

	if (parser.is_empty())
		return Vector<String>();

	Vector<String> array;
	while(parser.read()==OK) {
		// TODO: check for comments inside the element
		// and ignore them.

		if (parser.get_node_type() == XMLParser::NODE_TEXT) {
			// parse String data
			String str = parser.get_node_data();
			array=str.split_spaces();
			/*
			for(int i=0;i<array.size();i++) {
				print_line(itos(i)+": "+array[i]);
			}
			*/
		}
		else
		if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END)
			break; // end parsing text
	}

	return array;
}



Transform Collada::_read_transform(XMLParser& parser) {

	if (parser.is_empty())
		return Transform();

	Vector<String> array;
	while(parser.read()==OK) {
		// TODO: check for comments inside the element
		// and ignore them.

		if (parser.get_node_type() == XMLParser::NODE_TEXT) {
			// parse float data
			String str = parser.get_node_data();
			array=str.split_spaces();
		}
		else
		if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END)
			break; // end parsing text
	}

	ERR_FAIL_COND_V(array.size()!=16,Transform());
	Vector<float> farr;
	farr.resize(16);
	for(int i=0;i<16;i++) {
		farr[i]=array[i].to_double();
	}

	return _read_transform_from_array(farr);
}

String Collada::_read_empty_draw_type(XMLParser& parser) {

	String empty_draw_type = "";
	
	if (parser.is_empty())
		return empty_draw_type;
	
	while (parser.read()==OK) {
		if (parser.get_node_type() == XMLParser::NODE_TEXT) {
			empty_draw_type = parser.get_node_data();
		}
		else
		if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END)
			break; // end parsing text
	}
	return empty_draw_type;
}

Variant Collada::_parse_param(XMLParser& parser) {

	if (parser.is_empty())
		return Variant();

	String from = parser.get_node_name();
	Variant data;

	while(parser.read()==OK) {
		if (parser.get_node_type() == XMLParser::NODE_ELEMENT) {

			if (parser.get_node_name() == "float") {

				parser.read();
				if (parser.get_node_type()==XMLParser::NODE_TEXT) {

					data=parser.get_node_data().to_double();
				}
			} else if (parser.get_node_name() == "float2") {

				Vector<float> v2 = _read_float_array(parser);

				if (v2.size()>=2) {

					data=Vector2(v2[0],v2[1]);
				}
			} else if (parser.get_node_name() == "float3") {

				Vector<float> v3 = _read_float_array(parser);

				if (v3.size()>=3) {

					data=Vector3(v3[0],v3[1],v3[2]);
				}
			} else if (parser.get_node_name() == "float4") {

				Vector<float> v4 = _read_float_array(parser);

				if (v4.size()>=4) {

					data=Color(v4[0],v4[1],v4[2],v4[3]);
				}
			} else if (parser.get_node_name() == "sampler2D") {

				while(parser.read()==OK) {


					if (parser.get_node_type() == XMLParser::NODE_ELEMENT) {

						if (parser.get_node_name()=="source") {

							parser.read();

							if (parser.get_node_type() == XMLParser::NODE_TEXT) {

								data=parser.get_node_data();
							}
						}
					} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="sampler2D")
						break;

				}
			} else if (parser.get_node_name() == "surface") {

				while(parser.read()==OK) {


					if (parser.get_node_type() == XMLParser::NODE_ELEMENT) {

						if (parser.get_node_name()=="init_from") {

							parser.read();

							if (parser.get_node_type() == XMLParser::NODE_TEXT) {

								data=parser.get_node_data();
							}
						}
					} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="surface")
						break;

				}
			}

		} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()==from)
				break;
	}

	COLLADA_PRINT("newparam ending "+parser.get_node_name());
	return data;

}



void Collada::_parse_effect_material(XMLParser& parser,Effect &effect,String &id) {


	if (!(state.import_flags&IMPORT_FLAG_SCENE))  {
		 if (!parser.is_empty())
			parser.skip_section();
		return;
	}

	while(parser.read()==OK) {

		if (parser.get_node_type() == XMLParser::NODE_ELEMENT) {

			// first come the tags we descend, but ignore the top-levels

			COLLADA_PRINT("node name: "+parser.get_node_name());

			if (!parser.is_empty() && (parser.get_node_name() == "profile_COMMON" || parser.get_node_name() == "technique" || parser.get_node_name() == "extra")) {

				_parse_effect_material(parser,effect,id); // try again

			} else if (parser.get_node_name() == "newparam") {
				String name = parser.get_attribute_value("sid");
				Variant value = _parse_param(parser);
				effect.params[name]=value;
				COLLADA_PRINT("param: "+name+" value:"+String(value));

			} else if (parser.get_node_name() == "constant" ||
					parser.get_node_name() == "lambert" ||
					parser.get_node_name() == "phong" ||
					parser.get_node_name() == "blinn" )
			{

				COLLADA_PRINT("shade model: "+parser.get_node_name());
				while(parser.read()==OK) {


					if (parser.get_node_type() == XMLParser::NODE_ELEMENT) {

						String what = parser.get_node_name();

						if ( what=="emission" ||
						     what=="diffuse" ||
						     what=="specular" ||
						     what=="reflective") {



							// color or texture types
							while(parser.read()==OK) {

								if (parser.get_node_type() == XMLParser::NODE_ELEMENT) {

									if (parser.get_node_name()=="color") {

										Vector<float> colorarr = _read_float_array(parser);
										COLLADA_PRINT("colorarr size: "+rtos(colorarr.size()));

										if (colorarr.size()>=3) {

											// alpha strangely not allright? maybe it needs to be multiplied by value as a channel intensity
											Color color(colorarr[0],colorarr[1],colorarr[2],1.0);
											if (what=="diffuse")
												effect.diffuse.color=color;
											if (what=="specular")
												effect.specular.color=color;
											if (what=="emission")
												effect.emission.color=color;

											COLLADA_PRINT(what+" color: "+color);

										}

									} else if (parser.get_node_name()=="texture") {

										String sampler = parser.get_attribute_value("texture");
										if (!effect.params.has(sampler)) {
											ERR_PRINT(String("Couldn't find sampler: "+sampler+" in material:"+id).utf8().get_data());
										} else {
											String surface = effect.params[sampler];

											if (!effect.params.has(surface)) {
												ERR_PRINT(String("Couldn't find surface: "+surface+" in material:"+id).utf8().get_data());
											} else {
												String uri = effect.params[surface];


												if (what=="diffuse") {
													effect.diffuse.texture=uri;
												} else if (what=="specular") {
													effect.specular.texture=uri;
												} else if (what=="emission") {
													effect.emission.texture=uri;
												} else if (what=="bump") {
													if (parser.has_attribute("bumptype") && parser.get_attribute_value("bumptype")!="NORMALMAP") {
														WARN_PRINT("'bump' texture type is not NORMALMAP, only NORMALMAP is supported.")
													}

													effect.bump.texture=uri;
												}

												COLLADA_PRINT(what+" texture: "+uri);
											}

										}
									} else if (!parser.is_empty())
										parser.skip_section();

								} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name() == what)
									break;
							}

						} else if (what=="shininess") {
#if 1
							effect.shininess=_parse_param(parser);
#else

							parser.read();
							float shininess = parser.get_node_data().to_double();
							effect.shininess=shininess;
							COLLADA_PRINT("shininess: "+rtos(shininess));
#endif

						}
					} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && (
						parser.get_node_name()=="constant" ||
						parser.get_node_name()=="lambert" ||
						parser.get_node_name()=="phong"  ||
						parser.get_node_name()=="blinn"))
						break;
				}
			} else if (parser.get_node_name()=="double_sided" || parser.get_node_name()=="show_double_sided") { // colladamax / google earth

				// 3DS Max / Google Earth double sided extension
				parser.read();
				effect.found_double_sided=true;
				effect.double_sided=parser.get_node_data().to_int();
				COLLADA_PRINT("double sided: "+itos(parser.get_node_data().to_int()));
			} else if (parser.get_node_name()=="unshaded") {
				parser.read();
				effect.unshaded=parser.get_node_data().to_int();
			} else if (parser.get_node_name()=="bump") {

				// color or texture types
				while(parser.read()==OK) {

					if (parser.get_node_type() == XMLParser::NODE_ELEMENT) {

						if (parser.get_node_name()=="texture") {

							String sampler = parser.get_attribute_value("texture");
							if (!effect.params.has(sampler)) {
								ERR_PRINT(String("Couldn't find sampler: "+sampler+" in material:"+id).utf8().get_data());
							} else {
								String surface = effect.params[sampler];

								if (!effect.params.has(surface)) {
									ERR_PRINT(String("Couldn't find surface: "+surface+" in material:"+id).utf8().get_data());
								} else {
									String uri = effect.params[surface];

									if (parser.has_attribute("bumptype") && parser.get_attribute_value("bumptype")!="NORMALMAP") {
										WARN_PRINT("'bump' texture type is not NORMALMAP, only NORMALMAP is supported.")
									}

									effect.bump.texture=uri;
									COLLADA_PRINT(" bump: "+uri);
								}

							}
						} else if (!parser.is_empty())
							parser.skip_section();

					} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name() == "bump")
						break;
				}

			} else if (!parser.is_empty())
				parser.skip_section();
		} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END &&
			   (parser.get_node_name() == "effect" ||
			    parser.get_node_name() == "profile_COMMON" ||
			    parser.get_node_name() == "technique" ||
			    parser.get_node_name() == "extra"))
			break;
	}

}

void Collada::_parse_effect(XMLParser& parser) {

	if (!(state.import_flags&IMPORT_FLAG_SCENE))  {
		 if (!parser.is_empty())
			parser.skip_section();
		return;
	}

	String id=parser.get_attribute_value("id");

	Effect effect;
	if (parser.has_attribute("name"))
		effect.name=parser.get_attribute_value("name");
	_parse_effect_material(parser,effect,id);



	state.effect_map[id]=effect;

	COLLADA_PRINT("Effect ID:"+id);

}

void Collada::_parse_camera(XMLParser& parser) {

	if (!(state.import_flags&IMPORT_FLAG_SCENE))  {
		 if (!parser.is_empty())
			parser.skip_section();
		return;
	}

	String id=parser.get_attribute_value("id");


	state.camera_data_map[id]=CameraData();
	CameraData &camera=state.camera_data_map[id];


	while(parser.read()==OK) {


		if (parser.get_node_type() == XMLParser::NODE_ELEMENT)	{

			String name = parser.get_node_name();

			if (name=="perspective") {

				camera.mode=CameraData::MODE_PERSPECTIVE;
			} else if (name=="orthographic") {

				camera.mode=CameraData::MODE_ORTHOGONAL;
			} else if (name=="xfov") {

				parser.read();
				camera.perspective.x_fov = parser.get_node_data().to_double();

			} else if (name=="yfov") {

				parser.read();
				camera.perspective.y_fov = parser.get_node_data().to_double();
			} else if (name=="xmag") {

				parser.read();
				camera.orthogonal.x_mag = parser.get_node_data().to_double();

			} else if (name=="ymag") {

				parser.read();
				camera.orthogonal.y_mag = parser.get_node_data().to_double();
			} else if (name=="aspect_ratio") {

				parser.read();
				camera.aspect = parser.get_node_data().to_double();

			} else if (name=="znear") {

				parser.read();
				camera.z_near = parser.get_node_data().to_double();

			} else if (name=="zfar") {

				parser.read();
				camera.z_far = parser.get_node_data().to_double();
			}

		} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="camera")
			break; //end of <asset>
	}

	COLLADA_PRINT("Camera ID:"+id);

}

void Collada::_parse_light(XMLParser& parser) {

	if (!(state.import_flags&IMPORT_FLAG_SCENE))  {
		 if (!parser.is_empty())
			parser.skip_section();
		return;
	}

	String id=parser.get_attribute_value("id");


	state.light_data_map[id]=LightData();
	LightData &light=state.light_data_map[id];


	while(parser.read()==OK) {


		if (parser.get_node_type() == XMLParser::NODE_ELEMENT)	{

			String name = parser.get_node_name();

			if (name=="ambient") {

				light.mode=LightData::MODE_AMBIENT;
			} else if (name=="directional") {

				light.mode=LightData::MODE_DIRECTIONAL;
			} else if (name=="point") {

				light.mode=LightData::MODE_OMNI;
			} else if (name=="spot") {

				light.mode=LightData::MODE_SPOT;
			} else if (name=="color") {

				parser.read();
				Vector<float> colorarr = _read_float_array(parser);
				COLLADA_PRINT("colorarr size: "+rtos(colorarr.size()));

				if (colorarr.size()>=4) {
					// alpha strangely not allright? maybe it needs to be multiplied by value as a channel intensity
					Color color(colorarr[0],colorarr[1],colorarr[2],1.0);
					light.color=color;
				}

			} else if (name=="constant_attenuation") {

				parser.read();
				light.constant_att=parser.get_node_data().to_double();
			} else if (name=="linear_attenuation") {

				parser.read();
				light.linear_att=parser.get_node_data().to_double();
			} else if (name=="quadratic_attenuation") {

				parser.read();
				light.quad_att=parser.get_node_data().to_double();
			} else if (name=="falloff_angle") {

				parser.read();
				light.spot_angle= parser.get_node_data().to_double();

			} else if (name=="falloff_exponent") {

				parser.read();
				light.spot_exp= parser.get_node_data().to_double();
			}

		} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="light")
			break; //end of <asset>
	}

	COLLADA_PRINT("Light ID:"+id);

}


void Collada::_parse_curve_geometry(XMLParser& parser,String p_id,String p_name) {


	if (!(state.import_flags&IMPORT_FLAG_SCENE))  {
		 if (!parser.is_empty())
			parser.skip_section();
		return;
	}

	//load everything into a pre dictionary

	state.curve_data_map[p_id]=CurveData();

	CurveData &curvedata = state.curve_data_map[p_id];
	curvedata.name=p_name;

	COLLADA_PRINT("curve name: "+p_name);


	String current_source;
	// handles geometry node and the curve childs in this loop
	// read sources with arrays and accessor for each curve
	if (parser.is_empty()) {
		return;
	}

	while(parser.read()==OK) {

		if (parser.get_node_type() == XMLParser::NODE_ELEMENT)	{

			String section  = parser.get_node_name();

			if (section == "source") {

				String id=parser.get_attribute_value("id");
				curvedata.sources[id]=CurveData::Source();
				current_source=id;
				COLLADA_PRINT("source data: "+id);

			} else if (section=="float_array" || section=="array") {
				// create a new array and read it.
				if (curvedata.sources.has(current_source)) {

					curvedata.sources[current_source].array = _read_float_array(parser);
					COLLADA_PRINT("section: "+current_source+" read "+itos(curvedata.sources[current_source].array.size())+" values.");
				}
			} else if (section=="Name_array") {
				// create a new array and read it.
				if (curvedata.sources.has(current_source)) {

					curvedata.sources[current_source].sarray = _read_string_array(parser);
					COLLADA_PRINT("section: "+current_source+" read "+itos(curvedata.sources[current_source].array.size())+" values.");
				}

			} else if (section == "technique_common") {
				//skip it
			} else if (section == "accessor") { // child of source (below a technique tag)

				if (curvedata.sources.has(current_source)) {
					curvedata.sources[current_source].stride=parser.get_attribute_value("stride").to_int();
					COLLADA_PRINT("section: "+current_source+" stride "+itos(curvedata.sources[current_source].stride));
				}
			} else if (section == "control_vertices") {

				while(parser.read()==OK) {

					if (parser.get_node_type() == XMLParser::NODE_ELEMENT) {

						if (parser.get_node_name()=="input") {

							String semantic = parser.get_attribute_value("semantic");
							String source =_uri_to_id( parser.get_attribute_value("source") );

							curvedata.control_vertices[semantic]=source;

							COLLADA_PRINT(section+" input semantic: "+semantic+" source: "+source);

						}
					} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()==section)
						break;
				}

			} else if (!parser.is_empty()){

				parser.skip_section();
			}
		} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="spline")
				break;
	}



}



void Collada::_parse_mesh_geometry(XMLParser& parser,String p_id,String p_name) {


	if (!(state.import_flags&IMPORT_FLAG_SCENE))  {
		 if (!parser.is_empty())
			parser.skip_section();
		return;
	}

	//load everything into a pre dictionary

	state.mesh_data_map[p_id]=MeshData();

	MeshData &meshdata = state.mesh_data_map[p_id];
	meshdata.name=p_name;

	COLLADA_PRINT("mesh name: "+p_name);


	String current_source;
	// handles geometry node and the mesh childs in this loop
	// read sources with arrays and accessor for each mesh
	if (parser.is_empty()) {
		return;
	}

	while(parser.read()==OK) {

		if (parser.get_node_type() == XMLParser::NODE_ELEMENT)	{

			String section  = parser.get_node_name();


			if (section == "source") {

				String id=parser.get_attribute_value("id");
				meshdata.sources[id]=MeshData::Source();
				current_source=id;
				COLLADA_PRINT("source data: "+id);

			} else if (section=="float_array" || section=="array") {
				// create a new array and read it.
				if (meshdata.sources.has(current_source)) {

					meshdata.sources[current_source].array = _read_float_array(parser);
					COLLADA_PRINT("section: "+current_source+" read "+itos(meshdata.sources[current_source].array.size())+" values.");
				}
			} else if (section == "technique_common") {
				//skip it
			} else if (section == "accessor") { // child of source (below a technique tag)

				if (meshdata.sources.has(current_source)) {
					meshdata.sources[current_source].stride=parser.get_attribute_value("stride").to_int();
					COLLADA_PRINT("section: "+current_source+" stride "+itos(meshdata.sources[current_source].stride));
				}
			} else if (section == "vertices") {

				MeshData::Vertices vert;
				String id  = parser.get_attribute_value("id");

				while(parser.read()==OK) {

					if (parser.get_node_type() == XMLParser::NODE_ELEMENT) {

						if (parser.get_node_name()=="input") {

							String semantic = parser.get_attribute_value("semantic");
							String source =_uri_to_id( parser.get_attribute_value("source") );

							vert.sources[semantic]=source;

							COLLADA_PRINT(section+" input semantic: "+semantic+" source: "+source);

						}
					} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()==section)
						break;
				}

				meshdata.vertices[id]=vert;

			} else if (section =="triangles" || section=="polylist" || section=="polygons") {

				bool polygons=(section=="polygons");
				if (polygons) {
					WARN_PRINT("Primitive type \"polygons\" is not well supported (concave shapes may fail). To ensure that the geometry is properly imported, please re-export using \"triangles\" or \"polylist\".");
				}
				MeshData::Primitives prim;

				if (parser.has_attribute("material"))
					prim.material=parser.get_attribute_value("material");
				prim.count=parser.get_attribute_value("count").to_int();
				prim.vertex_size=0;
				int last_ref=0;


				while(parser.read()==OK) {

					if (parser.get_node_type() == XMLParser::NODE_ELEMENT) {

						if (parser.get_node_name()=="input") {

							String semantic = parser.get_attribute_value("semantic");
							String source =_uri_to_id( parser.get_attribute_value("source") );

							if (semantic=="TEXCOORD") {
								/*
								if (parser.has_attribute("set"))// a texcoord
									semantic+=parser.get_attribute_value("set");
								else
									semantic="TEXCOORD0";*/
								semantic="TEXCOORD"+itos(last_ref++);
							}
							int offset = parser.get_attribute_value("offset").to_int();


							MeshData::Primitives::SourceRef sref;
							sref.source=source;
							sref.offset=offset;
							prim.sources[semantic]=sref;
							prim.vertex_size=MAX(prim.vertex_size,offset+1);

							COLLADA_PRINT(section+" input semantic: "+semantic+" source: "+source+" offset: "+itos(offset));


						} else if (parser.get_node_name()=="p") { //indices

							Vector<float> values = _read_float_array(parser);
							if (polygons) {

								prim.polygons.push_back(values.size()/prim.vertex_size);
								int from = prim.indices.size();
								prim.indices.resize(from+values.size());
								for(int i=0;i<values.size();i++)
									prim.indices[from+i]=values[i];

							} else if (prim.vertex_size>0){
								prim.indices=values;
							}

							COLLADA_PRINT("read "+itos(values.size())+" index values");

						} else if (parser.get_node_name()=="vcount") { // primitive

							Vector<float> values = _read_float_array(parser);
							prim.polygons=values;
							COLLADA_PRINT("read "+itos(values.size())+" polygon values");
						}
					} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()==section)
						break;

				}

				meshdata.primitives.push_back(prim);

			} else if (parser.get_node_name() == "double_sided") {

				parser.read();
				meshdata.found_double_sided=true;
				meshdata.double_sided=parser.get_node_data().to_int();

			} else if (parser.get_node_name() == "polygons") {
				ERR_PRINT("Primitive type \"polygons\" not supported, re-export using \"polylist\" or \"triangles\".");
			} else if (!parser.is_empty()){

				parser.skip_section();
			}
		} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="mesh")
				break;
	}



}

void Collada::_parse_skin_controller(XMLParser& parser,String p_id) {

	state.skin_controller_data_map[p_id]=SkinControllerData();
	SkinControllerData &skindata = state.skin_controller_data_map[p_id];

	skindata.base=_uri_to_id(parser.get_attribute_value("source"));

	String current_source;

	while(parser.read()==OK) {

		if (parser.get_node_type() == XMLParser::NODE_ELEMENT){

			String section  = parser.get_node_name();

			if (section=="bind_shape_matrix") {

				skindata.bind_shape=_read_transform(parser);
#ifdef COLLADA_IMPORT_SCALE_SCENE
				skindata.bind_shape.origin *= state.unit_scale;

#endif
				COLLADA_PRINT("skeleton bind shape transform: "+skindata.bind_shape);


			} else if (section == "source") {

				String id=parser.get_attribute_value("id");
				skindata.sources[id]=SkinControllerData::Source();
				current_source=id;
				COLLADA_PRINT("source data: "+id);

			} else if (section=="float_array" || section=="array") {
				// create a new array and read it.
				if (skindata.sources.has(current_source)) {

					skindata.sources[current_source].array = _read_float_array(parser);
					COLLADA_PRINT("section: "+current_source+" read "+itos(skindata.sources[current_source].array.size())+" values.");
				}
			} else if (section=="Name_array" || section=="IDREF_array") {
				// create a new array and read it.

				if (section=="IDREF_array")
					skindata.use_idrefs=true;
				if (skindata.sources.has(current_source)) {

					skindata.sources[current_source].sarray = _read_string_array(parser);
					if (section=="IDREF_array") {
						Vector<String> sa = skindata.sources[current_source].sarray;
						for(int i=0;i<sa.size();i++)
							state.idref_joints.insert(sa[i]);
					}
					COLLADA_PRINT("section: "+current_source+" read "+itos(skindata.sources[current_source].array.size())+" values.");
				}
			} else if (section == "technique_common") {
				//skip it
			} else if (section == "accessor") { // child of source (below a technique tag)

				if (skindata.sources.has(current_source)) {

					int stride=1;
					if (parser.has_attribute("stride"))
						stride=parser.get_attribute_value("stride").to_int();

					skindata.sources[current_source].stride=stride;
					COLLADA_PRINT("section: "+current_source+" stride "+itos(skindata.sources[current_source].stride));
				}

			} else if (section == "joints") {

				SkinControllerData::Joints joint;

				while(parser.read()==OK) {

					if (parser.get_node_type() == XMLParser::NODE_ELEMENT) {

						if (parser.get_node_name()=="input") {

							String semantic = parser.get_attribute_value("semantic");
							String source =_uri_to_id( parser.get_attribute_value("source") );

							joint.sources[semantic]=source;

							COLLADA_PRINT(section+" input semantic: "+semantic+" source: "+source);

						}
					} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()==section)
						break;
				}

				skindata.joints=joint;

			} else if (section=="vertex_weights") {

				SkinControllerData::Weights weights;

				weights.count=parser.get_attribute_value("count").to_int();


				while(parser.read()==OK) {

					if (parser.get_node_type() == XMLParser::NODE_ELEMENT) {

						if (parser.get_node_name()=="input") {

							String semantic = parser.get_attribute_value("semantic");
							String source =_uri_to_id( parser.get_attribute_value("source") );

							int offset = parser.get_attribute_value("offset").to_int();

							SkinControllerData::Weights::SourceRef sref;
							sref.source=source;
							sref.offset=offset;
							weights.sources[semantic]=sref;

							COLLADA_PRINT(section+" input semantic: "+semantic+" source: "+source+" offset: "+itos(offset));

						} else if (parser.get_node_name()=="v") { //indices

							Vector<float> values = _read_float_array(parser);
							weights.indices=values;
							COLLADA_PRINT("read "+itos(values.size())+" index values");

						} else if (parser.get_node_name()=="vcount") { // weightsitive

							Vector<float> values = _read_float_array(parser);
							weights.sets=values;
							COLLADA_PRINT("read "+itos(values.size())+" polygon values");
						}
					} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()==section)
						break;

				}

				skindata.weights=weights;

			}
			/*
			else if (!parser.is_empty())
				parser.skip_section();
			*/

		} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="skin")
				break;
	}

	/* STORE REST MATRICES */

	Vector<Transform> rests;
	ERR_FAIL_COND(!skindata.joints.sources.has("JOINT"));
	ERR_FAIL_COND(!skindata.joints.sources.has("INV_BIND_MATRIX"));

	String joint_arr = skindata.joints.sources["JOINT"];
	String ibm = skindata.joints.sources["INV_BIND_MATRIX"];

	ERR_FAIL_COND(!skindata.sources.has(joint_arr));
	ERR_FAIL_COND(!skindata.sources.has(ibm));

	SkinControllerData::Source &joint_source = skindata.sources[joint_arr];
	SkinControllerData::Source &ibm_source = skindata.sources[ibm];



	ERR_FAIL_COND(joint_source.sarray.size() != ibm_source.array.size()/16);

	for(int i=0;i<joint_source.sarray.size();i++) {

		String name = joint_source.sarray[i];
		Transform xform = _read_transform_from_array(ibm_source.array,i*16); //<- this is a mistake, it must be applied to vertices
		xform.affine_invert(); // inverse for rest, because it's an inverse
#ifdef COLLADA_IMPORT_SCALE_SCENE
		xform.origin*=state.unit_scale;
#endif
		skindata.bone_rest_map[name]=xform;
	}


}

void Collada::_parse_morph_controller(XMLParser& parser, String p_id) {

	state.morph_controller_data_map[p_id]=MorphControllerData();
	MorphControllerData &morphdata = state.morph_controller_data_map[p_id];

	print_line("morph source: "+parser.get_attribute_value("source")+" id: "+p_id);
	morphdata.mesh=_uri_to_id(parser.get_attribute_value("source"));
	print_line("morph source2: "+morphdata.mesh);
	morphdata.mode=parser.get_attribute_value("method");
	printf("JJmorph: %p\n",&morphdata);
	String current_source;

	while(parser.read()==OK) {

		if (parser.get_node_type() == XMLParser::NODE_ELEMENT){

			String section  = parser.get_node_name();

			if (section == "source") {

				String id=parser.get_attribute_value("id");
				morphdata.sources[id]=MorphControllerData::Source();
				current_source=id;
				COLLADA_PRINT("source data: "+id);

			} else if (section=="float_array" || section=="array") {
				// create a new array and read it.
				if (morphdata.sources.has(current_source)) {

					morphdata.sources[current_source].array = _read_float_array(parser);
					COLLADA_PRINT("section: "+current_source+" read "+itos(morphdata.sources[current_source].array.size())+" values.");
				}
			} else if (section=="Name_array" || section=="IDREF_array") {
				// create a new array and read it.

				/*
				if (section=="IDREF_array")
					morphdata.use_idrefs=true;
				*/
				if (morphdata.sources.has(current_source)) {

					morphdata.sources[current_source].sarray = _read_string_array(parser);
					/*
					if (section=="IDREF_array") {
						Vector<String> sa = morphdata.sources[current_source].sarray;
						for(int i=0;i<sa.size();i++)
							state.idref_joints.insert(sa[i]);
					}*/
					COLLADA_PRINT("section: "+current_source+" read "+itos(morphdata.sources[current_source].array.size())+" values.");
				}
			} else if (section == "technique_common") {
				//skip it
			} else if (section == "accessor") { // child of source (below a technique tag)

				if (morphdata.sources.has(current_source)) {

					int stride=1;
					if (parser.has_attribute("stride"))
						stride=parser.get_attribute_value("stride").to_int();

					morphdata.sources[current_source].stride=stride;
					COLLADA_PRINT("section: "+current_source+" stride "+itos(morphdata.sources[current_source].stride));
				}

			} else if (section == "targets") {

				while(parser.read()==OK) {

					if (parser.get_node_type() == XMLParser::NODE_ELEMENT) {

						if (parser.get_node_name()=="input") {

							String semantic = parser.get_attribute_value("semantic");
							String source =_uri_to_id( parser.get_attribute_value("source") );

							morphdata.targets[semantic]=source;

							COLLADA_PRINT(section+" input semantic: "+semantic+" source: "+source);

						}
					} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()==section)
						break;
				}


			}
			/*
			else if (!parser.is_empty())
				parser.skip_section();
			*/

		} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="morph")
				break;
	}


	if (morphdata.targets.has("MORPH_WEIGHT")) {

		state.morph_name_map[ morphdata.targets["MORPH_WEIGHT"] ] = p_id;
	}

}

void Collada::_parse_controller(XMLParser& parser) {

	String id=parser.get_attribute_value("id");

	if (parser.is_empty()) {
		return;
	}

	while(parser.read()==OK) {

		if (parser.get_node_type() == XMLParser::NODE_ELEMENT){

			String section  = parser.get_node_name();

			if (section=="skin") {
				_parse_skin_controller(parser,id);
			} else if (section == "morph") {
				_parse_morph_controller(parser,id);
			}
		} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="controller")
				break;
	}


}


Collada::Node* Collada::_parse_visual_instance_geometry(XMLParser& parser) {

	String type = parser.get_node_name();
	NodeGeometry *geom=memnew( NodeGeometry );
	geom->controller=type=="instance_controller";
	geom->source = _uri_to_id(parser.get_attribute_value_safe("url"));



	if (parser.is_empty()) //nothing else to parse...
		return geom;
	// try to find also many materials and skeletons!
	while(parser.read()==OK) {

		if (parser.get_node_type() == XMLParser::NODE_ELEMENT) {

			if (parser.get_node_name()=="instance_material") {

				String symbol=parser.get_attribute_value("symbol");
				String target=_uri_to_id(parser.get_attribute_value("target"));

				NodeGeometry::Material mat;
				mat.target=target;
				geom->material_map[symbol]=mat;
				COLLADA_PRINT("uses material: '"+target+"' on primitive'"+symbol+"'");
			} else if (parser.get_node_name()=="skeleton") {

				parser.read();
				String uri = _uri_to_id(parser.get_node_data());
				if (uri!="") {
					geom->skeletons.push_back(uri);
				}

			}

		} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()==type)
			break;


	}

	if (geom->controller) {

		if (geom->skeletons.empty()) {
			//XSI style

			if (state.skin_controller_data_map.has(geom->source)) {
				SkinControllerData *skin = &state.skin_controller_data_map[geom->source];
				//case where skeletons reference bones with IDREF (XSI)
				ERR_FAIL_COND_V(!skin->joints.sources.has("JOINT"),geom);
				String joint_arr = skin->joints.sources["JOINT"];
				ERR_FAIL_COND_V(!skin->sources.has(joint_arr),geom);
				Collada::SkinControllerData::Source &joint_source = skin->sources[joint_arr];
				geom->skeletons=joint_source.sarray; //quite crazy, but should work.
			}

		}

	}

	return geom;
}


Collada::Node* Collada::_parse_visual_instance_camera(XMLParser& parser) {

	String type = parser.get_node_name();
	NodeCamera *cam=memnew( NodeCamera );
	cam->camera= _uri_to_id(parser.get_attribute_value_safe("url"));

	if (state.up_axis==Vector3::AXIS_Z) //collada weirdness
		cam->post_transform.basis.rotate(Vector3(1,0,0),-Math_PI*0.5);

	if (parser.is_empty()) //nothing else to parse...
		return cam;

	while(parser.read()==OK) {

		if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="instance_camera")
			break;
	}

	return cam;
}

Collada::Node* Collada::_parse_visual_instance_light(XMLParser& parser) {

	String type = parser.get_node_name();
	NodeLight *cam=memnew( NodeLight );
	cam->light= _uri_to_id(parser.get_attribute_value_safe("url"));

	if (state.up_axis==Vector3::AXIS_Z) //collada weirdness
		cam->post_transform.basis.rotate(Vector3(1,0,0),-Math_PI*0.5);

	if (parser.is_empty()) //nothing else to parse...
		return cam;

	while(parser.read()==OK) {

		if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="instance_light")
			break;
	}

	return cam;
}


Collada::Node* Collada::_parse_visual_node_instance_data(XMLParser& parser) {

	String instance_type = parser.get_node_name();


	if (instance_type=="instance_geometry" || instance_type=="instance_controller") {
		return _parse_visual_instance_geometry(parser);
	} else if (instance_type=="instance_camera") {

		return _parse_visual_instance_camera(parser);
	} else if (instance_type=="instance_light") {
		return _parse_visual_instance_light(parser);
	}


	if (parser.is_empty()) //nothing else to parse...
		return NULL;

	while(parser.read()==OK) {

		if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()==instance_type)
			break;
	}

	return NULL;
}

Collada::Node* Collada::_parse_visual_scene_node(XMLParser& parser) {

	String name;

	String id = parser.get_attribute_value_safe("id");

	bool found_name=false;

	if (id=="") {

		id="%NODEID%"+itos(Math::rand());

	} else {
		found_name=true;
	}

	Vector<Node::XForm> xform_list;
	Vector<Node*> children;
	
	String empty_draw_type="";

	Node *node=NULL;

	name=parser.has_attribute("name")?parser.get_attribute_value_safe("name"):parser.get_attribute_value_safe("id");
	if (name=="") {

		name=id;
	} else {
		found_name=true;
	}

	if ((parser.has_attribute("type") && parser.get_attribute_value("type")=="JOINT") || state.idref_joints.has(name)) {
		// handle a bone

		NodeJoint *joint = memnew( NodeJoint );

		if ( parser.has_attribute("sid") ) { //bones may not have sid
			joint->sid=parser.get_attribute_value("sid");
			//state.bone_map[joint->sid]=joint;
		} else if (state.idref_joints.has(name)) {
			joint->sid=name; //kind of a cheat but..
		} else if (parser.has_attribute("name")) {
			joint->sid=parser.get_attribute_value_safe("name");
		}


		if (joint->sid!="") {
			state.sid_to_node_map[joint->sid]=id;
		}

		node=joint;


	}

	while(parser.read()==OK) {

		if (parser.get_node_type() == XMLParser::NODE_ELEMENT) {

			String section  = parser.get_node_name();

			if (section=="translate") {
				Node::XForm xf;
				if (parser.has_attribute("sid")) {
					xf.id=parser.get_attribute_value("sid");
				}
				xf.op=Node::XForm::OP_TRANSLATE;

				Vector<float> xlt = _read_float_array(parser);
				xf.data=xlt;
				xform_list.push_back(xf);

			} else if (section=="rotate") {
				Node::XForm xf;
				if (parser.has_attribute("sid")) {
					xf.id=parser.get_attribute_value("sid");
				}
				xf.op=Node::XForm::OP_ROTATE;

				Vector<float> rot = _read_float_array(parser);
				xf.data=rot;

				xform_list.push_back(xf);

			} else if (section=="scale") {
				Node::XForm xf;
				if (parser.has_attribute("sid")) {
					xf.id=parser.get_attribute_value("sid");
				}

				xf.op=Node::XForm::OP_SCALE;

				Vector<float> scale = _read_float_array(parser);

				xf.data=scale;

				xform_list.push_back(xf);

			} else if (section=="matrix") {
				Node::XForm xf;
				if (parser.has_attribute("sid")) {
					xf.id=parser.get_attribute_value("sid");
				}
				xf.op=Node::XForm::OP_MATRIX;

				Vector<float> matrix = _read_float_array(parser);

				xf.data=matrix;
				String mtx;
				for(int i=0;i<matrix.size();i++)
					mtx+=" "+rtos(matrix[i]);

				xform_list.push_back(xf);

			   } else if (section=="visibility") {
				   Node::XForm xf;
				   if (parser.has_attribute("sid")) {
					   xf.id=parser.get_attribute_value("sid");
				   }
				   xf.op=Node::XForm::OP_VISIBILITY;

				   Vector<float> visible = _read_float_array(parser);

				   xf.data=visible;

				   xform_list.push_back(xf);

			} else if (section=="empty_draw_type") {
				empty_draw_type = _read_empty_draw_type(parser);
			} else if (section == "technique" || section=="extra") {

			} else if (section!="node") {
				//usually what defines the type of node
				//print_line(" dont know what to do with "+section);
				if (section.begins_with("instance_")) {

					if (!node) {

						node = _parse_visual_node_instance_data(parser);

					} else {
						ERR_PRINT("Multiple instance_* not supported.");
					}

				}

			} else if (section=="node") {

				/* Found a child node!! what to do..*/

				Node *child = _parse_visual_scene_node(parser);
				children.push_back(child);



			}

		} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="node")
				break;
	}

	if (!node) {

		node = memnew( Node ); //generic node, nothing of relevance found
	}

	node->noname=!found_name;
	node->xform_list=xform_list;
	node->children=children;
	for(int i=0;i<children.size();i++) {
		node->children[i]->parent=node;
	}

	node->name=name;
	node->id=id;
	node->empty_draw_type=empty_draw_type;

	if (node->children.size()==1) {
		if (node->children[0]->noname && !node->noname) {
			node->children[0]->name=node->name;
			node->name=node->name+"-base";
		}
	}



	node->default_transform = node->compute_transform(*this);
	state.scene_map[id]=node;


	return node;
}

void Collada::_parse_visual_scene(XMLParser& parser) {

	String id=parser.get_attribute_value("id");

	if (parser.is_empty()) {
		return;
	}

	state.visual_scene_map[id]=VisualScene();
	VisualScene &vscene = state.visual_scene_map[id];

	if (parser.has_attribute("name"))
		vscene.name=parser.get_attribute_value("name");

	while(parser.read()==OK) {

		if (parser.get_node_type() == XMLParser::NODE_ELEMENT) {

			String section  = parser.get_node_name();

			if (section=="node") {
				vscene.root_nodes.push_back(_parse_visual_scene_node(parser));
			}

		} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="visual_scene")
				break;
	}


	COLLADA_PRINT("Scene ID:"+id);


}

void Collada::_parse_animation(XMLParser& parser) {

	if (!(state.import_flags&IMPORT_FLAG_ANIMATION))  {
		 if (!parser.is_empty())
			parser.skip_section();


		return;
	}

	Map<String,Vector<float> > float_sources;
	Map<String,Vector<String> > string_sources;
	Map<String,int > source_strides;
	Map<String, Map<String,String> > samplers;
	Map<String,Vector<String> > source_param_names;
	Map<String,Vector<String> > source_param_types;

	String id="";
	if (parser.has_attribute("id"))
		id=parser.get_attribute_value("id");

	String current_source;
	String current_sampler;
	Vector<String> channel_sources;
	Vector<String> channel_targets;

	while(parser.read()==OK) {


		if (parser.get_node_type() == XMLParser::NODE_ELEMENT)	{

			String name = parser.get_node_name();
			if (name=="source") {

				current_source=parser.get_attribute_value("id");
				source_param_names[current_source]=Vector<String>();
				source_param_types[current_source]=Vector<String>();

			} else if (name=="float_array") {

				if (current_source!="") {
					float_sources[current_source]=_read_float_array(parser);
				}

			} else if (name=="Name_array") {

				if (current_source!="") {
					string_sources[current_source]=_read_string_array(parser);
				}
			} else if (name=="accessor") {

				if (current_source!="" && parser.has_attribute("stride")) {
					source_strides[current_source]=parser.get_attribute_value("stride").to_int();
				}
			} else if (name=="sampler") {

				current_sampler=parser.get_attribute_value("id");
				samplers[current_sampler]=Map<String,String>();
			} else if (name=="param") {

				if (parser.has_attribute("name"))
					source_param_names[current_source].push_back(parser.get_attribute_value("name"));
				else
					source_param_names[current_source].push_back("");

				if (parser.has_attribute("type"))
					source_param_types[current_source].push_back(parser.get_attribute_value("type"));
				else
					source_param_types[current_source].push_back("");

			} else if (name=="input") {

				if (current_sampler!="") {

					samplers[current_sampler][parser.get_attribute_value("semantic")]=parser.get_attribute_value("source");
				}

			} else if (name=="channel") {

				channel_sources.push_back(parser.get_attribute_value("source"));
				channel_targets.push_back(parser.get_attribute_value("target"));
			}

		} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="animation")
			break; //end of <asset>


	}


	for(int i=0;i<channel_sources.size();i++) {

		String source=_uri_to_id(channel_sources[i]);
		String target=channel_targets[i];
		if (!samplers.has(source)) {
			print_line("channel lacks source: "+source);
		}
		ERR_CONTINUE(!samplers.has(source));
		Map<String,String>& sampler=samplers[source];

		ERR_CONTINUE(!sampler.has("INPUT")); //no input semantic? wtf?
		String input_id=_uri_to_id(sampler["INPUT"]);
		COLLADA_PRINT("input id is "+input_id);
		ERR_CONTINUE(!float_sources.has(input_id));

		ERR_CONTINUE(!sampler.has("OUTPUT"));
		String output_id=_uri_to_id(sampler["OUTPUT"]);
		ERR_CONTINUE(!float_sources.has(output_id));

		ERR_CONTINUE(!source_param_names.has(output_id));

		Vector<String> &names = source_param_names[output_id];

		for(int l=0;l<names.size();l++) {

			String name = names[l];

			Vector<float> &time_keys=float_sources[input_id];
			int key_count = time_keys.size();

			AnimationTrack track; //begin crating track
			track.id=id;

			track.keys.resize(key_count);

			for(int j=0;j<key_count;j++) {
				track.keys[j].time=time_keys[j];
				state.animation_length = MAX(state.animation_length,time_keys[j] );
			}

			//now read actual values

			int stride=1;

			if (source_strides.has(output_id))
				stride=source_strides[output_id];
			int output_len=stride / names.size();

			ERR_CONTINUE(output_len==0);
			ERR_CONTINUE(!float_sources.has(output_id));

			Vector<float> &output = float_sources[output_id];

			ERR_EXPLAIN("Wrong number of keys in output");
			ERR_CONTINUE( (output.size()/stride) != key_count );

			for(int j=0;j<key_count;j++) {
				track.keys[j].data.resize(output_len);
				for(int k=0;k<output_len;k++)
					track.keys[j].data[k]=output[l+j*stride+k]; //super weird but should work
			}

			if(sampler.has("INTERPOLATION")) {

				String interp_id=_uri_to_id(sampler["INTERPOLATION"]);
				ERR_CONTINUE(!string_sources.has(interp_id));
				Vector<String> &interps=string_sources[interp_id];
				ERR_CONTINUE(interps.size()!=key_count);

				for(int j=0;j<key_count;j++) {
					if (interps[j]=="BEZIER")
						track.keys[j].interp_type=AnimationTrack::INTERP_BEZIER;
					else
						track.keys[j].interp_type=AnimationTrack::INTERP_LINEAR;
				}
			}

			if (sampler.has("IN_TANGENT") && sampler.has("OUT_TANGENT")) {
				//bezier control points..
				String intangent_id=_uri_to_id(sampler["IN_TANGENT"]);
				ERR_CONTINUE(!float_sources.has(intangent_id));
				Vector<float> &intangents=float_sources[intangent_id];




				ERR_CONTINUE(intangents.size()!=key_count*2*names.size());

				String outangent_id=_uri_to_id(sampler["OUT_TANGENT"]);
				ERR_CONTINUE(!float_sources.has(outangent_id));
				Vector<float> &outangents=float_sources[outangent_id];
				ERR_CONTINUE(outangents.size()!=key_count*2*names.size());

				for(int j=0;j<key_count;j++) {
					track.keys[j].in_tangent=Vector2( intangents[j*2*names.size()+0+l*2],intangents[j*2*names.size()+1+l*2] );
					track.keys[j].out_tangent=Vector2( outangents[j*2*names.size()+0+l*2],outangents[j*2*names.size()+1+l*2] );
				}
			}

			if (target.find("/")!=-1) { //transform component
				track.target=target.get_slicec('/',0);
				track.param=target.get_slicec('/',1);
				if (track.param.find(".")!=-1)
					track.component=track.param.get_slice(".",1).to_upper();
				track.param=track.param.get_slice(".",0);
				if (names.size()>1 && track.component=="") {
					//this is a guess because the collada spec is ambiguous here...
					//i suppose if you have many names (outputs) you can't use a component and i should abide to that.
					track.component=name;

				}
			} else {
				track.target=target;
			}

			print_line("TARGET: "+track.target);

			state.animation_tracks.push_back(track);

			if (!state.referenced_tracks.has(target))
				state.referenced_tracks[target]=Vector<int>();

			state.referenced_tracks[target].push_back(state.animation_tracks.size()-1);

			if (id!="") {
				if (!state.by_id_tracks.has(id))
					state.by_id_tracks[id]=Vector<int>();

				state.by_id_tracks[id].push_back(state.animation_tracks.size()-1);
			}

			COLLADA_PRINT("loaded animation with "+itos(key_count)+" keys");
		}

	}
}

void Collada::_parse_animation_clip(XMLParser& parser) {

	if (!(state.import_flags&IMPORT_FLAG_ANIMATION))  {
		 if (!parser.is_empty())
			parser.skip_section();


		return;
	}


	AnimationClip clip;

	if (parser.has_attribute("name"))
		clip.name=parser.get_attribute_value("name");
	else if (parser.has_attribute("id"))
		clip.name=parser.get_attribute_value("id");
	if (parser.has_attribute("start"))
		clip.begin=parser.get_attribute_value("start").to_double();
	if (parser.has_attribute("end"))
		clip.end=parser.get_attribute_value("end").to_double();


	while(parser.read()==OK) {


		if (parser.get_node_type() == XMLParser::NODE_ELEMENT)	{

			String name = parser.get_node_name();
			if (name=="instance_animation") {

				String url = _uri_to_id(parser.get_attribute_value("url"));
				clip.tracks.push_back(url);
			}

		} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="animation_clip")
			break; //end of <asset>

	}

	state.animation_clips.push_back(clip);
	print_line("found anim clip: "+clip.name);

}
void Collada::_parse_scene(XMLParser& parser) {

	if (parser.is_empty()) {
		return;
	}

	while(parser.read()==OK) {


		if (parser.get_node_type() == XMLParser::NODE_ELEMENT)	{

			String name = parser.get_node_name();

			if (name=="instance_visual_scene") {

				state.root_visual_scene=_uri_to_id(parser.get_attribute_value("url"));
				print_line("***ROOT VISUAL SCENE: "+state.root_visual_scene);
			} else if (name=="instance_physics_scene") {

				state.root_physics_scene=_uri_to_id(parser.get_attribute_value("url"));

			}

		} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="scene")
			break; //end of <asset>
	}
}

void Collada::_parse_library(XMLParser& parser) {


	if (parser.is_empty()) {
		return;
	}

	while(parser.read()==OK) {


		if (parser.get_node_type() == XMLParser::NODE_ELEMENT)	{

			String name = parser.get_node_name();
			COLLADA_PRINT("library name is: "+name);
			if (name=="image") {

				_parse_image(parser);
			} else if (name=="material") {

				_parse_material(parser);
			} else if (name=="effect") {

				_parse_effect(parser);
			} else if (name=="camera") {

				_parse_camera(parser);
			} else if (name=="light") {

				_parse_light(parser);
			} else if (name=="geometry") {

				String id = parser.get_attribute_value("id");
				String name = parser.get_attribute_value_safe("name");
				while(parser.read()==OK) {

					if (parser.get_node_type() == XMLParser::NODE_ELEMENT)	{

						if (parser.get_node_name()=="mesh") {
							state.mesh_name_map[id]=(name!="")?name:id;
							_parse_mesh_geometry(parser,id,name);
						} else if (parser.get_node_name()=="spline") {
							state.mesh_name_map[id]=(name!="")?name:id;
							_parse_curve_geometry(parser,id,name);
						} else if (!parser.is_empty())
							parser.skip_section();
					} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name()=="geometry")
						break;
				}

			} else if (name=="controller") {

				_parse_controller(parser);
			} else if (name=="animation") {

				_parse_animation(parser);
			} else if (name=="animation_clip") {

				_parse_animation_clip(parser);
			} else if (name=="visual_scene") {

				COLLADA_PRINT("visual scene");
				_parse_visual_scene(parser);
			} else if (!parser.is_empty())
				parser.skip_section();

		} else if (parser.get_node_type() == XMLParser::NODE_ELEMENT_END && parser.get_node_name().begins_with("library_"))
			break; //end of <asset>


	}

}

void Collada::_joint_set_owner(Collada::Node *p_node, NodeSkeleton *p_owner) {

	if (p_node->type==Node::TYPE_JOINT) {

		NodeJoint *nj = static_cast<NodeJoint*>(p_node);
		nj->owner=p_owner;

		for(int i=0;i<nj->children.size();i++) {

			_joint_set_owner(nj->children[i],p_owner);
		}
	}
}

void Collada::_create_skeletons(Collada::Node **p_node,NodeSkeleton *p_skeleton) {


	Node *node = *p_node;

	if (node->type==Node::TYPE_JOINT) {

		if (!p_skeleton) {

			// ohohohoohoo it's a joint node, time to work!
			NodeSkeleton *sk = memnew( NodeSkeleton );
			*p_node=sk;
			sk->children.push_back(node);
			sk->parent=node->parent;
			node->parent=sk;
			p_skeleton=sk;
		}

		NodeJoint *nj = static_cast<NodeJoint*>(node);
		nj->owner=p_skeleton;
	} else {
		p_skeleton=NULL;
	}


	for(int i=0;i<node->children.size();i++) {
		_create_skeletons(&node->children[i],p_skeleton);
	}

}

bool Collada::_remove_node(Node *p_parent,Node *p_node) {

	for(int i=0;i<p_parent->children.size();i++) {

		if (p_parent->children[i]==p_node) {
			p_parent->children.remove(i);
			return true;
		}
		if (_remove_node(p_parent->children[i],p_node))
			return true;
	}

	return false;
}

void Collada::_remove_node(VisualScene *p_vscene,Node *p_node) {

	for(int i=0;i<p_vscene->root_nodes.size();i++) {
		if (p_vscene->root_nodes[i]==p_node) {

			p_vscene->root_nodes.remove(i);
			return;
		}
		if (_remove_node(p_vscene->root_nodes[i],p_node))
			return;
	}

	ERR_PRINT("ERROR: Not found node to remove?");

}


void Collada::_merge_skeletons(VisualScene *p_vscene,Node *p_node) {

	if (p_node->type==Node::TYPE_GEOMETRY) {

		NodeGeometry *gnode = static_cast<NodeGeometry*>(p_node);
		if (gnode->controller) {

			// recount skeletons used
			Set<NodeSkeleton*> skeletons;

			for(int i=0;i<gnode->skeletons.size();i++) {

				String nodeid = gnode->skeletons[i];

				ERR_CONTINUE( !state.scene_map.has( nodeid )); //weird, it should have it...


				NodeJoint *nj = SAFE_CAST<NodeJoint*>(state.scene_map[nodeid]);
				if (!nj->owner) {
					print_line("no owner for: "+String(nodeid));
				}
				ERR_CONTINUE( !nj->owner ); //weird, node should have a skeleton owner

				skeletons.insert(nj->owner);
			}

			if (skeletons.size()>1) {

				//do the merger!!
				Set<NodeSkeleton*>::Element *E=skeletons.front();
				NodeSkeleton *base = E->get();

				for(E=E->next();E;E=E->next() ) {

					NodeSkeleton *merged = E->get();
					_remove_node(p_vscene,merged);
					for(int i=0;i<merged->children.size();i++) {

						_joint_set_owner(merged->children[i],base);
						base->children.push_back( merged->children[i] );
						merged->children[i]->parent=base;


					}

					merged->children.clear(); //take children from it
					memdelete( merged );
				}

			}
		}
	}

	for(int i=0;i<p_node->children.size();i++) {
		_merge_skeletons(p_vscene,p_node->children[i]);
	}

}


void Collada::_merge_skeletons2(VisualScene *p_vscene) {

	for (Map<String,SkinControllerData>::Element *E=state.skin_controller_data_map.front();E;E=E->next()) {

		SkinControllerData &cd=E->get();

		NodeSkeleton *skeleton=NULL;

		for (Map<String,Transform>::Element *F=cd.bone_rest_map.front();F;F=F->next()) {

			String name;

			if (!state.sid_to_node_map.has(F->key())) {
				continue;
			}

			name = state.sid_to_node_map[F->key()];

			if (!state.scene_map.has(name)) {
				print_line("no foundie node for: "+name);
			}

			ERR_CONTINUE( !state.scene_map.has(name) );

			Node *node=state.scene_map[name];
			ERR_CONTINUE( node->type!=Node::TYPE_JOINT );
			if (node->type!=Node::TYPE_JOINT)
				continue;
			NodeSkeleton *sk=NULL;

			while(node && !sk) {

				if (node->type==Node::TYPE_SKELETON) {
					sk=static_cast<NodeSkeleton*>(node);
				}
				node=node->parent;
			}
			ERR_CONTINUE( !sk );

			if (!sk)
				continue; //bleh

			if (!skeleton) {
				skeleton=sk;
				continue;
			}

			if (skeleton!=sk) {
				//whoa.. wtf, merge.
				print_line("MERGED BONES!!");

				//NodeSkeleton *merged = E->get();
				_remove_node(p_vscene,sk);
				for(int i=0;i<sk->children.size();i++) {

					_joint_set_owner(sk->children[i],skeleton);
					skeleton->children.push_back( sk->children[i] );
					sk->children[i]->parent=skeleton;


				}

				sk->children.clear(); //take children from it
				memdelete( sk );
			}
		}
	}



}

bool Collada::_optimize_skeletons(VisualScene *p_vscene,Node *p_node) {

	Node *node=p_node;

	if (node->type==Node::TYPE_SKELETON && node->parent && node->parent->type==Node::TYPE_NODE && node->parent->children.size()==1) {
		//replace parent by this...
		Node *parent = node->parent;

		//i wonder if this is allright.. i think it is since created skeleton (first joint) is already animated by bone..
		node->id=parent->id;
		node->name=parent->name;
		node->xform_list=parent->xform_list;
		node->default_transform=parent->default_transform;

		state.scene_map[node->id]=node;
		node->parent=parent->parent;

		if (parent->parent) {
			Node *gp = parent->parent;
			bool found=false;
			for(int i=0;i<gp->children.size();i++) {

				if (gp->children[i]==parent) {
					gp->children[i]=node;
					found=true;
					break;
				}
			}
			if (!found) {
				ERR_PRINT("BUG");
			}
		} else {

			bool found=false;

			for(int i=0;i<p_vscene->root_nodes.size();i++) {

				if (p_vscene->root_nodes[i]==parent) {

					p_vscene->root_nodes[i]=node;
					found=true;
					break;
				}
			}
			if (!found) {
				ERR_PRINT("BUG");
			}

		}

		parent->children.clear();
		memdelete(parent);
		return true;
	}

	for(int i=0;i<node->children.size();i++) {

		if (_optimize_skeletons(p_vscene,node->children[i]))
			return false; //stop processing, go up
	}

	return false;

}


bool Collada::_move_geometry_to_skeletons(VisualScene *p_vscene,Node *p_node,List<Node*> *p_mgeom) {

	// bind shape matrix escala los huesos y los hace gigantes, asi la matriz despues achica
	// al modelo?
	// solucion: aplicarle la bind shape matrix a los VERTICES, y si el objeto viene con escala, se la dejo me parece!

	if (p_node->type==Node::TYPE_GEOMETRY) {

		NodeGeometry *ng = static_cast<NodeGeometry*>(p_node);
		if (ng->ignore_anim)
			return false; //already made child of skeleton and processeg

		if (ng->controller && ng->skeletons.size()) {

			String nodeid = ng->skeletons[0];

			ERR_FAIL_COND_V( !state.scene_map.has( nodeid ), false); //weird, it should have it...
			NodeJoint *nj = SAFE_CAST<NodeJoint*>(state.scene_map[nodeid]);
			ERR_FAIL_COND_V(!nj,false);
			if (!nj->owner) {
				print_line("Has no owner: "+nj->name);
			}
			ERR_FAIL_COND_V( !nj->owner,false ); //weird, node should have a skeleton owner

			NodeSkeleton *sk = nj->owner;

			Node *p =sk->parent;
			bool node_is_parent_of_skeleton=false;

			while (p) {
				if (p==p_node) {
					node_is_parent_of_skeleton=true;
					break;
				}
				p=p->parent; // try again
			}

			ERR_FAIL_COND_V( node_is_parent_of_skeleton, false);

			//this should be correct
			ERR_FAIL_COND_V( !state.skin_controller_data_map.has(ng->source), false);
			SkinControllerData &skin=state.skin_controller_data_map[ng->source];
			Transform skel_inv = sk->get_global_transform().affine_inverse();
			p_node->default_transform =  skel_inv * (skin.bind_shape /* p_node->get_global_transform()*/); // i honestly have no idea what to do with a previous model xform.. most exporters ignore it

			//make rests relative to the skeleton (they seem to be always relative to world)
			for(Map<String,Transform>::Element *E=skin.bone_rest_map.front();E;E=E->next()) {

				E->get() = skel_inv * E->get(); //make the bone rest local to the skeleton
				state.bone_rest_map[E->key()]=E->get(); // make it remember where the bone is globally, now that it's relative
			}

			//but most exporters seem to work only if i do this..
			//p_node->default_transform = p_node->get_global_transform();



			//p_node->default_transform=Transform(); //this seems to be correct, because bind shape makes the object local to the skeleton
			p_node->ignore_anim=true; // collada may animate this later, if it does, then this is not supported (redo your original asset and don't animate the base mesh)
			p_node->parent=sk;
			//sk->children.push_back(0,p_node); //avoid INFINIT loop
			p_mgeom->push_back(p_node);
			return true;
		}
	}

	for(int i=0;i<p_node->children.size();i++) {

		if (_move_geometry_to_skeletons(p_vscene,p_node->children[i],p_mgeom)) {
			p_node->children.remove(i);
			i--;
		}
	}

	return false;
}

void Collada::_find_morph_nodes(VisualScene *p_vscene,Node *p_node) {

	if (p_node->type==Node::TYPE_GEOMETRY) {

		NodeGeometry *nj = static_cast<NodeGeometry*>(p_node);

		if (nj->controller) {

			String base = nj->source;

			while(base!="" && !state.mesh_data_map.has(base)) {

				if (state.skin_controller_data_map.has(base)) {

					SkinControllerData &sk = state.skin_controller_data_map[base];
					base=sk.base;
				} else if (state.morph_controller_data_map.has(base)) {

					state.morph_ownership_map[base]=nj->id;
					break;
				} else {
					ERR_EXPLAIN("Invalid scene");
					ERR_FAIL();
				}
			}

		}
	}

	for(int i=0;i<p_node->children.size();i++) {

		_find_morph_nodes(p_vscene,p_node->children[i]);
	}

}

void Collada::_optimize() {


	for(Map<String,VisualScene>::Element *E=state.visual_scene_map.front();E;E=E->next()) {

		VisualScene &vs = E->get();
		for(int i=0;i<vs.root_nodes.size();i++) {
			_create_skeletons(&vs.root_nodes[i]);

		}
#if 1
		for(int i=0;i<vs.root_nodes.size();i++) {
			_merge_skeletons(&vs,vs.root_nodes[i]);
		}

		_merge_skeletons2(&vs);


		for(int i=0;i<vs.root_nodes.size();i++) {
			_optimize_skeletons(&vs,vs.root_nodes[i]);
		}

		for(int i=0;i<vs.root_nodes.size();i++) {

			List<Node*> mgeom;
			if (_move_geometry_to_skeletons(&vs,vs.root_nodes[i],&mgeom)) {
				vs.root_nodes.remove(i);
				i--;
			}

			while(!mgeom.empty()) {

				Node * n= mgeom.front()->get();
				n->parent->children.push_back(n);
				mgeom.pop_front();
			}

		}
#endif
		for(int i=0;i<vs.root_nodes.size();i++) {
			_find_morph_nodes(&vs,vs.root_nodes[i]);
		}

	}
}


int Collada::get_uv_channel(String p_name) {

	if (!channel_map.has(p_name)) {

		ERR_FAIL_COND_V(channel_map.size()==2,0);

		channel_map[p_name]=channel_map.size();
	}

	return channel_map[p_name];
}

Error Collada::load(const String& p_path, int p_flags) {

	Ref<XMLParser> parserr = memnew( XMLParser );
	XMLParser &parser = *parserr.ptr();
	Error err = parser.open(p_path);
	ERR_FAIL_COND_V(err,err);

	state.local_path = GlobalConfig::get_singleton()->localize_path(p_path);
	state.import_flags=p_flags;
	/* Skip headers */
	err=OK;
	while((err=parser.read())==OK) {

		if (parser.get_node_type() == XMLParser::NODE_ELEMENT) {

			if (parser.get_node_name() == "COLLADA") {
				break;
			} else if (!parser.is_empty())
				parser.skip_section();// unknown section, likely headers
		}
	}

	ERR_FAIL_COND_V(err!=OK, ERR_FILE_CORRUPT);

	/* Start loading Collada */

	{
		//version
		String version = parser.get_attribute_value("version");
		state.version.major=version.get_slice(".",0).to_int();
		state.version.minor=version.get_slice(".",1).to_int();
		state.version.rev=version.get_slice(".",2).to_int();
		COLLADA_PRINT("Collada VERSION: "+version);
	}



	while((err=parser.read())==OK) {

		/* Read all the main sections.. */

		if (parser.get_node_type() != XMLParser::NODE_ELEMENT)
			continue; //no idea what this may be, but skipping anyway

		String section = parser.get_node_name();

		COLLADA_PRINT("section: "+section);

		if (section=="asset") {
			_parse_asset(parser);

		} else if (section.begins_with("library_")) {

			_parse_library(parser);
		} else if (section=="scene") {

			_parse_scene(parser);
		} else if (!parser.is_empty()) {
			parser.skip_section(); // unknown section, likely headers
		}

	}

	_optimize();
	return OK;
}




Collada::Collada() {


}

#endif