Saving as frames fully functional

Moved grabbing pixmap for saving into separate function
Some extra foolproofing when saving

Author: MaximDude

bender.bmx

@@ -25,6 +25,8 @@ Include "types/bitmap-index.bmx"
 Global appVersion:String = "1.2.2"
 Global appVersionDate:String = "14 Feb 2020"
 
+AppTitle = "CCCP Bender v"+appVersion
+
 Rem
 ------- BOOT ----------------------------------------------------------------------------------------------------------
 EndRem
@@ -40,7 +42,7 @@ Rem
 ------- EVENT HANDLING ------------------------------------------------------------------------------------------------
 EndRem
 
-While True	
+While True
 	TAppOutput.FOutputUpdate()
 
 	If ButtonState(TAppGUI.editSettingsIndexedCheckbox) = True Then
@@ -50,6 +52,12 @@ While True
 		fileFilters = "Image Files:png"
 		TAppFileIO.saveAsIndexed = False
 	EndIf
+	
+	If ButtonState(TAppGUI.editSettingsSaveAsFramesCheckbox) = True Then
+		TAppFileIO.saveAsFrames = True
+	Else
+		TAppFileIO.saveAsFrames = False
+	EndIf
 
 	'Debug stuff
 	'Print "current event: " + CurrentEvent.ToString()
@@ -69,7 +77,6 @@ While True
 		Case EVENT_MENUACTION
 			Select EventData()
 				Case TAppGUI.ABOUT_MENU
-					AppTitle = "CCCP Bender v"+appversion
 					Notify(LoadText("Incbin::assets/about-textbox-content"),False)
 			EndSelect
 		Case EVENT_GADGETACTION
@@ -83,8 +90,12 @@ While True
 					TAppOutput.FOutputUpdate()
 				'Saving
 				Case TAppGUI.editSaveButton
-					TAppFileIO.prepForSave = True
-					TAppOutput.FOutputUpdate()
+					If TAppOutput.sourceImage <> Null Then
+						TAppFileIO.prepForSave = True
+						TAppOutput.FOutputUpdate()
+					Else
+						Notify("Nothing to save!",False)
+					EndIf
 				'Settings textbox inputs
 				'Scale
 				Case TAppGUI.editSettingsZoomTextbox

types/editor-output.bmx

@@ -163,20 +163,11 @@ Type TAppOutput
 				b = 7 SetRotation(angle[b,f]) DrawImageRect(boneImage[b],xBone[b,f],yBone[b,f],ImageWidth(boneImage[b])/INPUTZOOM,ImageHeight(boneImage[b])/INPUTZOOM)
 			Next
 			SetRotation(0)
+			FGrabOutputForSaving()
 		Else
 			SetColor(255,230,80)
-			DrawText("NO IMAGE LOADED!",(GraphicsWidth()/2)-(TextWidth("NO IMAGE LOADED!")/2),GraphicsHeight()/2)	
-		EndIf
-		'Output copy for saving
-		If TAppFileIO.saveAsIndexed = True Then
-			'If saving indexed grab a smaller pixmap to speed up indexing
-			TAppFileIO.tempOutputImage = GrabPixmap(55,120,34*FRAMES,210)
-		Else
-			TAppFileIO.tempOutputImage = GrabPixmap(0,96,768,384)
-		EndIf
-		Flip(1)
-		If TAppFileIO.prepForSave
-			TAppFileIO.FPrepForSave()
+			DrawText("NO IMAGE LOADED!",(GraphicsWidth()/2)-(TextWidth("NO IMAGE LOADED!")/2),GraphicsHeight()/2)
+			Flip(1)	
 		EndIf
 	EndFunction
 
@@ -206,4 +197,41 @@ Type TAppOutput
 		FLimbBend()
 		FOutputUpdate()
 	EndFunction
+	
+	'Output copy for saving
+	Function FGrabOutputForSaving()
+		If TAppFileIO.saveAsFrames = True Then
+			Local row:Int, frame:Int
+			Local tile:TImage = LoadImage("Incbin::assets/tile")
+			For row = 0 To 3
+				For frame = 0 To FRAMES-1
+					'Draw a tile outline around all frames to see we are within bounds.
+					DrawImage(tile,62+(frame*(TILESIZE/INPUTZOOM+8)),138+(row*48)) 'Doing this with an image because cba doing the math with DrawLine. Offsets are -1px because tile image is 26x26 for outline and tile is 24x24.
+					'Draw names of rows
+					SetColor(255,230,80)
+					DrawText("Arm FG",8,145)
+					DrawText("Arm BG",8,145+48)
+					DrawText("Leg FG",8,145+(48*2))
+					DrawText("Leg BG",8,145+(48*3))
+					'Grab pixmap inside tile bounds for saving
+					TAppFileIO.tempOutputFrame[row,frame] = GrabPixmap(63+(frame*(TILESIZE/INPUTZOOM+8)),139+(row*48),TILESIZE/INPUTZOOM,TILESIZE/INPUTZOOM)
+					'HFlip the legs so they're facing right
+					If row >= 2 Then
+						TAppFileIO.tempOutputFrame[row,frame] = XFlipPixmap(TAppFileIO.tempOutputFrame[row,frame])
+					EndIf
+				Next
+			Next
+		Else
+			If TAppFileIO.saveAsIndexed = True Then
+				'If saving indexed grab a smaller pixmap to speed up indexing
+				TAppFileIO.tempOutputImage = GrabPixmap(55,120,34*FRAMES,210)
+			Else
+				TAppFileIO.tempOutputImage = GrabPixmap(0,96,768,384)
+			EndIf
+		EndIf
+		Flip(1)
+		If TAppFileIO.prepForSave
+			TAppFileIO.FPrepForSave()
+		EndIf
+	EndFunction	
 EndType

types/file-io.bmx

@@ -15,12 +15,14 @@ Type TAppFileIO
 
 	'Save Bools
 	Global saveAsIndexed:Int = False
+	Global saveAsFrames:Int = False
 	Global prepForSave:Int = False
 	Global rdyForSave:Int = False
 	Global runOnce:Int = False
 
 	'Output copy for saving
 	Global tempOutputImage:TPixmap
+	Global tempOutputFrame:TPixmap[4,20] 'noice
 
 	'Load Source Image
 	Function FLoadFile()
@@ -48,7 +50,11 @@ Type TAppFileIO
 				runOnce = True
 				TAppOutput.FOutputUpdate()
 			Else
-				FSaveFile()
+				If Not saveAsFrames Then
+					FSaveFile()
+				Else
+					FSaveFileAsFrames()
+				EndIf
 			EndIf
 		EndIf
 	EndFunction
@@ -66,7 +72,7 @@ Type TAppFileIO
 		'Foolproofing
 		If exportedFile = importedFile Then
 			Notify("Cannot overwrite source image!",True)
-		ElseIf exportedFile <> importedFile Then
+		ElseIf exportedFile <> importedFile And exportedFile <> Null Then
 			'Writing new file
 			If saveAsIndexed = True
 				TBitmapIndex.FPixmapToIndexedBitmap(tempOutputImage,exportedFile)
@@ -79,4 +85,46 @@ Type TAppFileIO
 			FRevertPrep()
 		EndIf
 	EndFunction
+	
+	'Save Output Content As Frames
+	Function FSaveFileAsFrames()
+		exportedFile = RequestFile("Save graphic output","",True) 'No file extensions here, we add them later manually otherwise exported file name is messed up.
+		'Foolproofing
+		If exportedFile = importedFile Then
+			Notify("Cannot overwrite source image!",True)
+		ElseIf exportedFile <> importedFile And exportedFile <> Null Then
+			'Writing new file
+			Local row:Int, frame:Int
+			For row = 0 To 3
+				'Name the rows - by default: ArmFG, ArmBG, LegFG, LegBG in this order.
+				Local rowName:String
+				If row = 0 Then
+					rowName = "ArmFG"
+				ElseIf row = 1 Then
+					rowName = "ArmBG"
+				ElseIf row = 2 Then
+					rowName = "LegFG"
+				ElseIf row = 3 Then
+					rowName = "LegBG"
+				EndIf
+				For frame = 0 To TAppOutput.FRAMES-1
+					Local exportedFileTempName:String
+					If frame < 10 Then
+						exportedFileTempName = exportedFile+rowName+"00"+frame
+					Else
+						exportedFileTempName = exportedFile+rowName+"0"+frame
+					EndIf
+					If saveAsIndexed = True
+						TBitmapIndex.FPixmapToIndexedBitmap(tempOutputFrame[row,frame],exportedFileTempName+".bmp")
+					Else
+			      		SavePixmapPNG(tempOutputFrame[row,frame],exportedFileTempName+".png")
+					EndIf
+				Next
+			Next
+			FRevertPrep()
+		Else
+			'On Cancel
+			FRevertPrep()
+		EndIf	
+	EndFunction
 EndType