// C64 colors, from http://unusedino.de/ec64/technical/misc/vic656x/colors/
// (the ones on https://www.c64-wiki.com/wiki/Color looked wrong)
private void SetPalette(VisBitmap8 vb)
{
vb.SetColor(0, 0xff, 0x00, 0x00, 0x00); // 0=black
vb.SetColor(1, 0xff, 0xff, 0xff, 0xff); // 1=white
vb.SetColor(2, 0xff, 0x68, 0x37, 0x2b); // 2=red
vb.SetColor(3, 0xff, 0x70, 0xa4, 0xb2); // 3=cyan
vb.SetColor(4, 0xff, 0x6f, 0x3d, 0x86); // 4=purple
vb.SetColor(5, 0xff, 0x58, 0x8d, 0x43); // 5=green
vb.SetColor(6, 0xff, 0x35, 0x28, 0x79); // 6=blue
vb.SetColor(7, 0xff, 0xb8, 0xc7, 0x6f); // 7=yellow
vb.SetColor(8, 0xff, 0x6f, 0x4f, 0x25); // 8=orange
vb.SetColor(9, 0xff, 0x43, 0x39, 0x00); // 9-brown
vb.SetColor(10, 0xff, 0x9a, 0x67, 0x59); // 10=light red
vb.SetColor(11, 0xff, 0x44, 0x44, 0x44); // 11=dark grey
vb.SetColor(12, 0xff, 0x6c, 0x6c, 0x6c); // 12=grey
vb.SetColor(13, 0xff, 0x9a, 0xd2, 0x84); // 13=light green
vb.SetColor(14, 0xff, 0x6c, 0x5e, 0xb5); // 14=light blue
vb.SetColor(15, 0xff, 0x95, 0x95, 0x95); // 15=light grey
vb.SetColor(16, 0, 0, 0, 0); // 16=transparent
#if SHOW_BORDER
vb.SetColor(17, 0xff, 0x00, 0xd6, 0xff); // 17=grid border
#else
vb.SetColor(17, 0, 0, 0, 0); // 17=grid border
#endif
}
private void SetPalette(VisBitmap8 vb, Palette pal)
{
vb.SetColor((byte)Color.Transparent, 0x00, 0x00, 0x00, 0x00);
vb.SetColor((byte)Color.Black, 0xff, 0x00, 0x00, 0x00);
vb.SetColor((byte)Color.White, 0xff, 0xff, 0xff, 0xff);
switch (pal)
{
case Palette.Greyscale:
default:
vb.SetColor((byte)Color.Color0, 0xff, 0x00, 0x00, 0x00); // black
vb.SetColor((byte)Color.Color1, 0xff, 0x80, 0x80, 0x80); // dark grey
vb.SetColor((byte)Color.Color2, 0xff, 0xb0, 0xb0, 0xb0); // medium grey
vb.SetColor((byte)Color.Color3, 0xff, 0xe0, 0xe0, 0xe0); // light grey
break;
case Palette.Pinkish:
vb.SetColor((byte)Color.Color0, 0xff, 0x49, 0x99, 0xfe); // sky blue
vb.SetColor((byte)Color.Color1, 0xff, 0xff, 0xbd, 0xaf); // pinkish
vb.SetColor((byte)Color.Color2, 0xff, 0xcd, 0x50, 0x00); // dark orange
vb.SetColor((byte)Color.Color3, 0xff, 0x00, 0x00, 0x00); // black
break;
case Palette.Greenish:
vb.SetColor((byte)Color.Color0, 0xff, 0x49, 0x99, 0xfe); // sky blue
vb.SetColor((byte)Color.Color1, 0xff, 0x00, 0xa4, 0x00); // medium green
vb.SetColor((byte)Color.Color2, 0xff, 0xfc, 0xfc, 0xfc); // near white
vb.SetColor((byte)Color.Color3, 0xff, 0xff, 0x99, 0x2b); // orange
break;
}
}
