Crop grabbed output frames to actual dimensions

Author: MaximDude

Types/GraphicsOutput.bmx

@@ -182,10 +182,47 @@ Type GraphicsOutput
 					EndIf
 				Next
 			Next
-			Return framesToSave
+			Return CropGrabbedOutputFrames(framesToSave)
 		EndIf
 	EndMethod
 
+'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+
+	Method CropGrabbedOutputFrames:TPixmap[,](framesToCrop:TPixmap[,])
+		Local croppedFrames:TPixmap[c_LimbCount, m_FrameCount]
+		Local stackedLimbFrames:TPixmap = CreatePixmap(framesToCrop[0, 0].Width, framesToCrop[0, 0].Height, PF_RGBA8888)
+
+		'This is seemingly inefficient but surprisingly fast garbage but I don't have anything better
+		For Local limb:Int = 0 Until c_LimbCount
+			Cls()
+
+			For Local frame:Int = 0 Until m_FrameCount
+				'Mask the magenta and stack all the frames on top of each other, then grab the stacked frames to a new pixmap
+				DrawImage(LoadImage(MaskPixmap(framesToCrop[limb, frame], m_Magenta[0], m_Magenta[1], m_Magenta[2]), DYNAMICIMAGE | MASKEDIMAGE), 0, 0)
+				stackedLimbFrames = GrabPixmap(0, 0, stackedLimbFrames.Width, stackedLimbFrames.Height)
+			Next
+
+			Local realDimensions:Int[] = Utility.GetPixmapNonMaskedPixelBounds(stackedLimbFrames, -65281) 'God knows why this is the value for magenta here but it is what it is
+
+			For Local frame:Int = 0 Until m_FrameCount
+				'Copy the area that is the real dimensions to a new pixmap
+				Local croppedFrame:TPixmap = CreatePixmap(realDimensions[1] - realDimensions[0] + 1, realDimensions[3] - realDimensions[2] + 1, PF_RGBA8888)
+				Local xCount:Int = 0
+				Local yCount:Int = 0
+				For Local pixelY:Int = realDimensions[2] To realDimensions[3]
+					xCount = 0
+					For Local pixelX:Int = realDimensions[0] To realDimensions[1]
+						WritePixel(croppedFrame, xCount, yCount, ReadPixel(framesToCrop[limb, frame], pixelX, pixelY))
+						xCount :+ 1
+					Next
+					yCount :+ 1
+				Next
+				croppedFrames[limb, frame] = croppedFrame
+			Next
+		Next
+		Return croppedFrames
+	EndMethod
+
 '////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 
 	Method Update()

Types/Utility.bmx

@@ -98,6 +98,43 @@ Type Utility
 		Return outputPixmap
 	EndFunction
 
+'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+
+	Function GetPixmapNonMaskedPixelBounds:Int[](sourcePixmap:TPixmap, maskColor:Int)
+		Local bounds:Int[] = [sourcePixmap.Width, 0, sourcePixmap.Height, 0]
+
+		'Scan the pixmap from each direction to find the actual dimensions of the non-mask content. Basically trimming whitespace but with pixels
+		For Local pixelY:Int = 0 Until sourcePixmap.Height
+			For Local pixelX:Int = 0 Until sourcePixmap.Width
+				If ReadPixel(sourcePixmap, pixelX, pixelY) <> maskColor Then
+					bounds[0] = Min(bounds[0], pixelX)
+				EndIf
+			Next
+		Next
+		For Local pixelY:Int = 0 Until sourcePixmap.Height
+			For Local pixelX:Int = sourcePixmap.Width - 1 To 0 Step -1
+				If ReadPixel(sourcePixmap, pixelX, pixelY) <> maskColor Then
+					bounds[1] = Max(bounds[1], pixelX)
+				EndIf
+			Next
+		Next
+		For Local pixelX:Int = 0 Until sourcePixmap.Width
+			For Local pixelY:Int = 0 Until sourcePixmap.Height
+				If ReadPixel(sourcePixmap, pixelX, pixelY) <> maskColor Then
+					bounds[2] = Min(bounds[2], pixelY)
+				EndIf
+			Next
+		Next
+		For Local pixelX:Int = 0 Until sourcePixmap.Width
+			For Local pixelY:Int = sourcePixmap.Height - 1 To 0 Step -1
+				If ReadPixel(sourcePixmap, pixelX, pixelY) <> maskColor Then
+					bounds[3] = Max(bounds[3], pixelY)
+				EndIf
+			Next
+		Next
+		Return bounds
+	EndFunction
+
 '////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 
 	Function PNGWriteStream(pngPtr:Byte Ptr, buf:Byte Ptr, size:Int)