{
HGeomInterface * interface = new HGeomInterface ;

Bool_t rc = interface->readGeomConfig ("sts.dat");
if (! rc ) {
	printf ("Read of GEANT file failed\n") ;
	delete interface ;
	return ;
}

HGeomOra2Io * output = new HGeomOra2Io ;
output->open("hgeom@db-hades-test");
interface->setOutput(output);

rc= interface->readAll();
if(!rc) printf ("could not read all\n!");	



HGeomMedia* media =  interface->getMedia();
if(media)
{
	TString author("J. Adamczewski-Musch");
	TString desc("Maybe nwe media for fwdet STS");
	media->setAuthor(author);
	media->setDescription(desc);
    interface->writeMedia();
}
else
{
 printf ("could not find media\n!");	
}


HGeomSet* set =  interface->findSet("sts");
if(set)
{
	TString author("J. Adamczewski-Musch");
	TString desc("Geometry of fwdet STS, second try");
	set->setAuthor(author);
	set->setDescription(desc);
interface->writeSet(set);
}
else
{
 printf ("could not find set sts\n!");	
}





delete interface;
}