support palette settings in mgba, fixes #1042 (probably)

BizHawk.Emulation.Cores/Consoles/Nintendo/GBA/LibmGBA.cs

@@ -58,6 +58,9 @@ namespace BizHawk.Emulation.Cores.Nintendo.GBA
 		public static extern bool BizAdvance(IntPtr ctx, LibVBANext.Buttons keys, int[] vbuff, ref int nsamp, short[] sbuff,
 			long time, short gyrox, short gyroy, short gyroz, byte luma);
 
+		[DllImport(dll, CallingConvention = cc)]
+		public static extern void BizSetPalette(IntPtr ctx, int[] palette);
+
 		[StructLayout(LayoutKind.Sequential)]
 		public class MemoryAreas
 		{

BizHawk.Emulation.Cores/Consoles/Nintendo/GBA/MGBAHawk.ISettable.cs

@@ -3,6 +3,8 @@ using System.ComponentModel;
 
 using BizHawk.Common;
 using BizHawk.Emulation.Common;
+using System.ComponentModel.DataAnnotations;
+using BizHawk.Emulation.Cores.Nintendo.Gameboy;
 
 namespace BizHawk.Emulation.Cores.Nintendo.GBA
 {
@@ -32,6 +34,22 @@ namespace BizHawk.Emulation.Cores.Nintendo.GBA
 			if (o.PlayChB) smask |= LibmGBA.Sounds.CHB;
 			LibmGBA.BizSetSoundMask(_core, smask);
 
+			var palette = new int[65536];
+			GBColors.ColorType c = GBColors.ColorType.vivid;
+			switch (o.ColorType)
+			{
+				case Settings.ColorTypes.Gambatte: c = GBColors.ColorType.gambatte; break;
+				case Settings.ColorTypes.Vivid: c = GBColors.ColorType.vivid; break;
+				case Settings.ColorTypes.VbaVivid: c = GBColors.ColorType.vbavivid; break;
+				case Settings.ColorTypes.VbaGbNew: c = GBColors.ColorType.vbagbnew; break;
+				case Settings.ColorTypes.VbaGbOld: c = GBColors.ColorType.vbabgbold; break;
+				case Settings.ColorTypes.BizhawkGba: c = GBColors.ColorType.gba; break;
+			}
+			GBColors.GetLut(c, palette);
+			for (var i = 32768; i < 65536; i++)
+				palette[i] = palette[i - 32768];
+			LibmGBA.BizSetPalette(_core, palette);
+
 			_settings = o;
 			return false;
 		}
@@ -84,6 +102,27 @@ namespace BizHawk.Emulation.Cores.Nintendo.GBA
 			[DefaultValue(true)]
 			public bool PlayChB { get; set; }
 
+			public enum ColorTypes
+			{
+				[Display(Name = "Gambatte CGB")]
+				Gambatte,
+				[Display(Name = "Vivid")]
+				Vivid,
+				[Display(Name = "VBA Vivid")]
+				VbaVivid,
+				[Display(Name = "VBA GB")]
+				VbaGbNew,
+				[Display(Name = "VBA GB (Old)")]
+				VbaGbOld,
+				[Display(Name = "Bizhawk GBA")]
+				BizhawkGba
+			}
+
+			[DisplayName("Color Type")]
+			[DefaultValue(ColorTypes.Vivid)]
+			[TypeConverter(typeof(DescribableEnumConverter))]
+			public ColorTypes ColorType { get; set; }
+
 			public Settings Clone()
 			{
 				return (Settings)MemberwiseClone();