i:=8;
nbV:=46;
DutourIdx:=1652;
#
FileName:=Concatenation("DataHedrites/", String(i), "-Hedrite", String(nbV));;
Print(FileName,":",DutourIdx,"\n");
PlanGraph:=ReadAsFunction(FileName)()[DutourIdx];
#
GrpInfo:=GroupPlan(PlanGraph);
Grp:=GrpInfo.SymmetryGroup;
Print("GrpInfo=", GrpInfo, "\n");
#
CC:=CentralCircuit(PlanGraph);
Print("CC=", CC, "\n");
