bonkmaykr/otyaSMILEBASIC
1
0
Fork 0
Code Activity

Implement BGLOAD

Browse Source
This commit is contained in:
otya128
2016-12-14 21:34:43 +09:00
parent 430aed0264
commit d9965931bd
2 changed files with 58 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
SMILEBASIC/bg.d
View File

@@ -199,4 +199,22 @@ class BG
}
}
}
void load(T)(int x, int y, int w, int h, T[] array, int charoff)
if (is(T == int) || is(T == double))
{
int srci;
for (int i = x; i < x + w; i++)
{
for (int j = y; j < y + h; j++)
{
srci++;
int index = i + j * width;
if (index < 0)
continue;
auto scr = cast(int)array[srci - 1];
auto chr = ((scr & 0xFFF) + charoff) & /*mask?*/0xFFF;
chip[index].screenData = (scr & 0xF000) | chr;
}
}
}
}

40
SMILEBASIC/builtinfunctions.d
View File

@@ -1864,6 +1864,46 @@ class BuiltinFunction
}
BGSAVE(p, layer, 0, 0, p.getBG(layer).width, p.getBG(layer).height, ary);
}
static void BGLOAD(PetitComputer p, int layer, int x, int y, int w, int h, Value ary, int bgcharoffset)
{
if (w < 1)
{
throw new OutOfRange("BGLOAD", 4);
}
if (h < 1)
{
throw new OutOfRange("BGLOAD", 4);
}
if (!ary.isNumberArray)
{
throw new TypeMismatch("BGLOAD", 6);
}
if (ary.type == ValueType.IntegerArray)
{
if (w * h > ary.length)
ary.integerArray.length = w * h;
p.getBG(layer).load(x, y, w, h, ary.integerArray.array, bgcharoffset);
}
if (ary.type == ValueType.DoubleArray)
{
if (w * h > ary.length)
ary.doubleArray.length = w * h;
p.getBG(layer).load(x, y, w, h, ary.doubleArray.array, bgcharoffset);
}
}
static void BGLOAD(PetitComputer p, int layer, int x, int y, int w, int h, Value ary)
{
BGLOAD(p, layer, x, y, w, h, ary, 0);
}
static void BGLOAD(PetitComputer p, int layer, Value ary)
{
if (!ary.isNumberArray)
{
throw new TypeMismatch("BGLOAD", 2);
}
BGLOAD(p, layer, 0, 0, p.getBG(layer).width, p.getBG(layer).height, ary, 0);
}
static void EFCON()
{
}