[Closed] the quadifier challenge

so the poor ol’ artist is crying into his screen, some third party plugin from “klunk enterprises” has converted his treasured model into all tris and he hasn’t backed up in like a gazillion years. Can you fix it for me comes the plea .

(this didn’t happen by the way I had a need for it doing something else, honestly )

anyway the challenge is to quadify the mesh, the function should make sensible decisions with topology and material boundaries. Sorry if this has been done to death and to prove i,m not looking for someone to fix a problem i created here’s my attempt

(
   	fn CreateTheNightmare =
   	(	
   		p = Sphere radius:50.0 smooth:on segs:32 isSelected:on
   		converttomesh p
   		meshop.autoEdge p #all 0.0
   		converttoPoly p
   		p;
   	)
   	
   	fn getTheEdgeDir obj ed =
   	(
   		verts = polyop.getVertsUsingEdge obj ed as array;
   		normalize ((polyop.getVert obj verts[2]) - (polyop.getVert obj verts[1]))
   	)
   	
   	fn getTheFaceAngle obj face1 face2 =
   	(
   		dot (polyop.getfacenormal obj face1) (polyop.getfacenormal obj face2)
   	)
   
   	fn quadifier obj quad_tol planar_tol =
   	(
   		getfacedegfn 		= polyop.getfacedeg;
   		getEdgesUsingFacefn = polyop.getEdgesUsingFace;
   		getEdgesUsingVertfn = polyop.getEdgesUsingVert;
   		getfacesUsingEdgefn = polyop.getfacesUsingEdge;
   		getfacematidfn 		= polyop.getfacematid;
   		
   -- get suitable candidates (in this case this will select all the edges) 	
   		
   		numedges = polyop.getnumedges obj;
   		edges = for i = 1 to numedges where 
   			(faces = getfacesUsingEdgefn obj i as array).count == 2 and 
   				getfacedegfn obj faces[1] == 3 and	getfacedegfn obj faces[2] == 3 collect i;
   
   -- refine the selection
   		
   		newedges = for ed in edges where
   		(
   			ebitarray = #{ed}
   			
   			faces = getfacesUsingEdgefn obj ed as array;
   			verts = polyop.getvertsUsingEdge obj ed as array;	
   			
   			f1edges = getEdgesUsingFacefn obj faces[1];
   			f2edges = getEdgesUsingFacefn obj faces[2];
   			v1edges = getEdgesUsingVertfn obj verts[1];
   			v2edges = getEdgesUsingVertfn obj verts[2];
   			
   			e1 = (v1edges * f1edges - ebitarray) as array;
   			e2 = (v1edges * f2edges - ebitarray) as array;
   			ang1 = abs(dot (getTheEdgeDir obj e1[1]) (getTheEdgeDir obj e2[1]));
   			
   			e1 = (v2edges * f1edges - ebitarray) as array;
   			e2 = (v2edges * f2edges - ebitarray) as array;
   			ang2 = abs(dot (getTheEdgeDir obj e1[1]) (getTheEdgeDir obj e2[1]));
   				
   			matid1 = getfacematidfn obj faces[1];	
   			matid2 = getfacematidfn obj faces[2];		
   				
   			ang1 < quad_tol and ang2 < quad_tol and getTheFaceAngle obj faces[1] faces[2] > planar_tol  and  matid1 == matid2;
   				
   		) collect ed;	
   	
   		polyop.setEdgeSelection obj newedges
   		newedges.count
   	)	
   	
   	resetMaxFile #noPrompt;
   	clearlistener();
   	s = CreateTheNightmare();
   	t = timestamp()
   	quadifier s 0.2 0.98 
   	format "time:%
" (timestamp() - t)
   )

or just use the optimize modifier ?