on export pressed do
	(
		local storeCount = 0
		local numverts = getNumVerts SourceObject.object
		local filepath = textBSPath.text + "\\" + BSDName.text + ".bsd"
		local f = fopen filepath "wb"
		WriteLong f storeCount #unsigned
		local sVert = undefined
		local fVert = undefined
		local deltax = undefined
		local deltay = undefined
		local deltaz = undefined
		local ioffset = undefined
		for i = 1 to numVerts do
		(
			sVert = getVert SourceObject.object.mesh i
			fVert = getVert FinalObject.object.mesh i
			deltax = (fVert.x - sVert.x)
			deltay = (fvert.y - sVert.y)
			deltaz = (fvert.z - sVert.z)

			if (abs(deltax) >= MaskValue.value or abs(deltay) >= MaskValue.value or abs(deltaz) >= MaskValue.value) then
			(
				iOffset = i - 1
				WriteLong f iOffset #unsigned
				WriteFloat f deltax
				WriteFloat f deltay
				WriteFloat f deltaz
				storeCount += 1
				fflush f
			)

			ProjectExport.value = 100.0 * (i as float / numVerts as float)
			redrawViews()
		)
		fseek f 0 #seek_set
		WriteLong f storeCount #unsigned
		fclose f
		gc()
	)
)