ELEMENT WITH HIGHEST POLYGONS NUMBER COUNT IN ONE OBJECT

(
	fn GetMeshElementsCount node =
	(
		elementMaxFacesCount = 0
		elementFacesArr = #{}
		tmesh = snapshotasmesh node
		faces = #{1..tmesh.numfaces}
		verts = for v = 1 to tmesh.numverts collect #()
		cnt = 0
		for j in faces do
		(
			f = getface tmesh j
			for k = 1 to 3 do append verts[f[k]] j
		)
 
		for i in faces do
		(
			element = #(i)
			for j in element where faces[j] do
			(
				faces[j] = false
				f = getface tmesh j
				for k = 1 to 3 where verts[f[k]] != undefined do
				(
					join element verts[f[k]]
					verts[f[k]] = undefined
				)
			)
			if elementMaxFacesCount < element.count do
			(
				elementMaxFacesCount = element.count
				elementFacesArr = element
			)
		)
		format "Max faces: %\n" (elementMaxFacesCount / 3)
		(elementFacesArr as bitarray)
	)
 
	elementFacesBA = (GetMeshElementsCount selection[1])
	setFaceSelection selection[1] elementFacesBA
)