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

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()
{
}