makeEigen6:=proc(T,lvl,startfunc)
	local v, verts, funcnum;

	if (lvl < 2) then return(startfunc); end if;

	funcnum:=startfunc;

	verts:=vertices(lvl);
	make_neighbors(T,lvl,verts);
	verts:=makeIntVers(lvl-1);

	for v in verts do
		makeFan6(T,lvl,funcnum,v);		
		funcnum:=funcnum+1;
	end do;

	return(funcnum);

end;


makeOrthoEigen6:=proc(T, lvl, path)
	local o, l, e, i, j;

	if (lvl < 2) then return(0); end if;

	o:=makeEigen6(T,lvl,12);
	
	l:=[seq(i,i=12..(o-1))];

	e:=makeOrtho(T, lvl, l, o);
	e:=e-1;

	j:=1;

	for i from o to e do
		saveFunc(T,i,lvl,cat(path,"ortheigen6level",lvl,".",j));
		j:=j+1;
	end do;

	j:=j-1;
	return(j);

end;