moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

I herd u like test scripts? 

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@150 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2009-10-22 18:24:20 +00:00
parent 3bacb9f537
commit abef02fd38
2 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Tests/PS/DeformedTest.mufa Normal file
View File

@ -0,0 +1,21 @@
program New;
//Scar manual -> you have to pick x1,y1,x2,y2 yourself. (It's at the first bitmapa
var
Deformed ,x,y: integer;
ThaTime : integer;
i : integer;
acc : extended;
begin
Deformed := BitmapFromString(25, 24, 'beNrN1UEKwCAMBMDtb/oO' +
'r/0//U1pISCiYUnCIpU9eRgihgTg525HD6pnRKZIkKAWEYJmjXI1F' +
'VV2IhQavpzX02M3XHOdEZmSoohj5bmUW3CWMi3rkDf+k1q1AiX/QS' +
'21aqRFuRNssP2TQTv6suDmNVFcXi/8Qvf1');
//Doing this same code in scar will result in invalid results, since
//fast replacedolor didn't work alright, atleast for me.
FastReplaceColor(Deformed,clblack,clwhite);
FastReplaceColor(deformed,82647,clblack);
ThaTime := GetSystemTime;
FindDeformedBitmapToleranceIn(Deformed, x, y, 119, 538, 213, 613, 70, 10, True, acc);
Writeln(inttostr(GetSystemTime - ThaTime));
Writeln(floattostr(acc));
end.

6
Tests/PS/IncludeTest.mufa Normal file
View File

@ -0,0 +1,6 @@
program new;
{.include test.mufa}
begin
Writeln(TestStr);
Writeln(inttostr(MultiPly(500,-20)));
end.