Set up BMP file writer, partly functional

Works for blanks and actually creates indexed bmps with proper palettes but leaves strange artifacts and hangs when creating pixel arrays for non-blanks

Author: MaximDude

cccp-bender-main.bmx

@@ -9,6 +9,8 @@ Import MaxGUI.Drivers
 Import BRL.Max2D
 Import BRL.Pixmap
 Import BRL.PNGLoader
+Import BRL.Stream
+Import BRL.EndianStream
 
 'Version
 Global appVersion:String = "1.1"
@@ -19,8 +21,6 @@ Rem
 EndRem
 
 Type TBitmapIndex
-	Const GFX_PAL:Byte=0
-
 	'Color Value Bytes
 	Global palR:Byte[256]
 	Global palG:Byte[256]
@@ -40,6 +40,108 @@ Type TBitmapIndex
 		EndIf
 	EndFunction
 
+	'Indexed Bitmap File Writer
+	Function FPixmapToIndexedBitmap(image:TPixmap,filename:String)
+		'Variables 
+		Local bmpWidth:Int, bmpWidthM4:Int
+		Local bmpHeight:Int
+		Local bmpSizeTotal:Int, bmpSizeTotalM4:Int
+		Local paletteIndex:Int = 0
+		
+		'Dimensions calc
+		bmpWidth = PixmapWidth(image)
+		bmpWidthM4 = ((bmpWidth + 3) / 4) * 4
+		bmpHeight = PixmapHeight(image)
+		
+		'Filesize calc
+		bmpSizeTotal = (14 + 40) + (256 * 4) + (bmpWidthM4 * bmpHeight)
+		bmpSizeTotalM4 = ((bmpSizeTotal + 3) / 4) * 4
+		
+		'Begin writing BMP file manually
+		Local dataStream:TStream = WriteFile(filename)
+		
+'------ Bitmap File Header
+		'Header file data is stored in little-endian format (least-significant byte first)
+		dataStream = LittleEndianStream(dataStream)
+
+		WriteShort(dataStream,19778)			'File ID (2 bytes (short)) - 19778 (deci) or 42 4D (hex) or BM (ascii) for bitmap
+		WriteInt(dataStream,bmpSizeTotalM4)		'File Size (4 bytes (signed int))
+		WriteShort(dataStream,0)				'Reserved (2 bytes)
+		WriteShort(dataStream,0)				'Reserved (2 bytes)
+		WriteInt(dataStream,54)					'Pixel Array Offset (4 bytes) - pixel array starts at 54th byte
+		'Print("wrote header")
+
+		'CloseStream(headerStream)
+
+'------ DIB Header (File Info)
+		'dataStream = BigEndianStream(dataStream)
+
+		WriteInt(dataStream,40)					'DIB Header Size (4 bytes) - 40 bytes
+		WriteInt(dataStream,bmpWidth)			'Bitmap Width (4 bytes)
+		WriteInt(dataStream,bmpHeight)			'Bitmap Height (4 bytes)
+		WriteShort(dataStream,1)				'Color Planes (2 bytes) - Must be 1
+		WriteShort(dataStream,8)				'Color Depth (2 bytes) - Bits Per Pixel
+		WriteInt(dataStream,0)					'Compression Method (4 bytes) - 0 equals BI_RGB (no compression), 1 equals BI_RLE8 (lossless run-length encoding)
+		WriteInt(dataStream,bmpSizeTotalM4)		'Size of the raw bitmap data (4 bytes) - 0 can be given for BI_RGB bitmaps
+		WriteInt(dataStream,2835)				'Horizontal resolution of the image (4 bytes) - Pixels Per Metre (2835 PPM equals 72.009 DPI/PPI)
+		WriteInt(dataStream,2835)				'Vertical resolution of the image (4 bytes) - Pixels Per Metre (2835 PPM equals 72.009 DPI/PPI)
+		WriteInt(dataStream,256)				'Number of colors in the color palette (4 bytes)
+		WriteInt(dataStream,0)					'Number of important colors (4 bytes) - 0 when every color is important
+		'Print("wrote dib")
+
+'------ Color Table
+		For paletteIndex = 0 To 255
+			WriteByte(dataStream,PalB[paletteIndex])	'Blue (4 bytes) - offset 54
+			WriteByte(dataStream,PalG[paletteIndex])	'Green (4 bytes) - offset 58
+			WriteByte(dataStream,PalR[paletteIndex])	'Red (4 bytes) - offset 62
+			WriteByte(dataStream,0)						'Alpha (4 bytes) - offset 66
+			If paletteIndex = 255 Then 
+				'Print("wrote color table") 
+			EndIf
+		Next
+			
+'------ Pixel Array
+		Local px:Int, py:Int
+		Local R:Int, G:Int, B:Int, ARGB:Long
+		Local bestDistance:Int, bestIndex:Int, distance:Int
+		Local RDIFF:Int, GDIFF:Int, BDIFF:Int
+
+		For py = bmpHeight -1 To 0 Step -1
+			For px = 0 To bmpWidthM4 -1
+				If px < bmpWidth 'if a valid pixel on canvas
+					bestDistance = 17000000
+					bestIndex = 0
+					distance = 0
+					
+					For paletteIndex = 0 To 255 ' Check all color indexes for best match by pythagora
+						ARGB = ReadPixel(image,px,py)
+						R = (ARGB & $00FF0000) Shr 16
+						G = (ARGB & $FF00) Shr 8
+						B = (ARGB & $FF)
+						RDIFF = Abs(R - palR[paletteIndex])
+						GDIFF = Abs(G - palG[paletteIndex])
+						BDIFF = Abs(B - palB[paletteIndex])
+						distance = (RDIFF^2 + GDIFF^2 + BDIFF^2)
+						If distance <= bestDistance Then
+							bestIndex = paletteIndex
+							bestDistance = distance
+						EndIf
+						'Print("working" + paletteIndex)
+					Next
+					WriteByte(dataStream,bestIndex)
+				Else
+					WriteByte(dataStream,0) ' line padding
+				EndIf
+			Next
+		Next
+		For paletteIndex = 1 To bmpSizeTotalM4 - bmpSizeTotal ' eof padding
+			WriteByte(dataStream,0)
+		Next
+
+		CloseStream(dataStream)
+		'Print ("stream closed")
+	EndFunction
+	
 EndType
 
 Rem
@@ -101,7 +203,8 @@ Type TAppFileIO
 			Notify("Cannot overwrite source image!",True)
 		ElseIf exportedFile <> importedFile Then
 			'Writing new file
-	      	SavePixmapPNG(tempOutputImage,exportedFile)
+	      	'SavePixmapPNG(tempOutputImage,exportedFile)
+			TBitmapIndex.FPixmapToIndexedBitmap(tempOutputImage,exportedFile+".bmp")
 			FRevertPrep()
 		Else
 			'On Cancel
@@ -281,6 +384,7 @@ Type TAppOutput
 		SetRotation(0)
 		'Output copy for saving
 		TAppFileIO.tempOutputImage = GrabPixmap(0,96,768,384)
+		'ConvertPixmap(TAppFileIO.tempOutputImage,PF_BGR888)
 		Flip(1)
 		If TAppFileIO.prepForSave
 			TAppFileIO.FPrepForSave()