Make lowest line of Splash image frames transparent to work around scaling issues
The Splash image is scaled. Sometimes, the lowest line is repeated on the top, which caused some weird lines to appear above big splashes (e.g. piano).
This has been done fully automated with a script. Only the alpha channel was changed. The color information is preserved.
#include "pas2c.h"
#include "fpcrtl.h"
char Pathz[1][128] = {"./"};
int ptCurrTheme = 0;
cThemeCFGFilename = "theme.cfg";
const string255 __str79 = STRINIT("object");
typedef struct __TResourceList {
Integer count;
string255 files[500 + 1];
} TResourceList;
TResourceList readThemeCfg_0()
{
TResourceList readthemecfg_result;
string255 s;
string255 key;
TextFile f;
Integer i;
TResourceList result;
s = _strconcat(_strappend(Pathz[ptCurrTheme], '\x2f'), cThemeCFGFilename);
assign(f, s);
FileMode = 0;
reset(f);
result.count = 0;
while(!eof(f))
{
readLnS(f, s);
if((Length(s)) == (0))
{
continue;
}
if((s.s[1]) == ('\x3b'))
{
continue;
}
i = pos('\x3d', s);
key = trim(copy(s, 1, i - 1));
delete(s, 1, i);
if(_strcompare(key, __str79))
{
i = pos('\x2c', s);
result.files[result.count] = _strconcat(_strappend(Pathz[ptCurrTheme], '\x2f'), trim(copy(s, 1, i - 1)));
++result.count;
}
}
close(f);
readthemecfg_result = result;
return readthemecfg_result;
};
int main(int argc, char** argv)
{
readThemeCfg_0();
}