// Create a test sphere
	csVector3 radius (3.396 , 3.396, 3.396);
	csVector3 center ( 0,0,0);
	Create_Sphere( "100000" , radius, center, "grid.jpg" , csVector3 (1,0,0) );



bool AppTest::Create_Sphere(const char *name, csVector3 radius,csVector3 center,const char *matname , csVector3 pos )

   {

  // Create the ball mesh factory.
  csRef<iMeshFactoryWrapper> ballFact = engine->CreateMeshFactory(
  	"crystalspace.mesh.object.genmesh", "ballFact");
  if (ballFact == 0)
  {
    csReport (object_reg, CS_REPORTER_SEVERITY_ERROR,
      "SolApp",
      "Error creating mesh object factory!");
  }

  csRef<iGeneralFactoryState> gmstate = scfQueryInterface<iGeneralFactoryState> (
  	ballFact->GetMeshObjectFactory ());

  csEllipsoid ellips (center, radius);
  gmstate->GenerateSphere (ellips, 64);
  // Create the mesh.
  iSector* room = engine->FindSector("system" , 0 );
  csRef<iMeshWrapper> mesh (engine->CreateMeshWrapper (ballFact, name , room));
	iMovable* movable = mesh->GetMovable();
	movable->SetPosition ( pos );
  iMaterialWrapper* mat = engine->GetMaterialList ()->FindByName ("gstar");
	printf ("MAterial Count:%d\n" , engine->GetMaterialList ()-> GetCount() );
  mesh->GetMeshObject ()->SetMaterialWrapper (mat);


  return true;
}