moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-30 14:50:18 -05:00
Code Issues Releases Wiki Activity

Wizzup forgot to update his PS-exports for DTMs, no problem son!

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@333 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Raymond 2009-12-24 18:04:11 +00:00
parent 43052b9263
commit f0dd60011b
3 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Tests/PS/dtmtest2.mufa
View File

@ -28,11 +28,13 @@ begin
setlength(ppdtm.asz,2);
setlength(ppdtm.ash,2);
ppdtm.l := 3;//We have 3 points..
ppdtm.p := p;
ppdtm.c := c;
ppdtm.t := t;
ppdtm.asz := asz;
ppdtm.ash := ash;
ppdtm.n := 'TestDTM';//Our name!
dtm := AddpDTM(ppdtm);

5
Units/MMLAddon/PSInc/pscompile.inc
View File

@ -35,7 +35,8 @@ Sender.Comp.AddTypeS('TMask','record White, Black : TPointArray; WhiteHi,BlackH
Sender.Comp.AddTypes('TDTMPointDef', 'record x, y, Color, Tolerance, AreaSize, AreaShape: integer; end;');
Sender.Comp.AddTypes('TDTMPointDefArray', 'Array Of TDTMPointDef;');
Sender.Comp.AddTypes('TDTM','record MainPoint: TDTMPointDef; SubPoints: TDTMPointDefArray; end;');
Sender.Comp.AddTypeS('pDTM','record p: TPointArray; c, t, asz, ash: TIntegerArray; end;');
Sender.Comp.AddTypeS('pDTM','record l: Integer;p: TPointArray;c, t, asz, ash: TIntegerArray;n: String; end;');
Sender.Comp.AddTypeS('T2DExtendedArray', 'array of array of extended;');
Sender.Comp.AddTypeS('TStringArray','Array of string;');
Sender.Comp.AddTypeS('TMousePress', '(mouse_Down, mouse_Up);');
@ -43,4 +44,4 @@ Sender.Comp.AddTypeS('TMousePress', '(mouse_Down, mouse_Up);');
Sender.Comp.AddConstantN('mouse_Right','integer').SetInt(ps_mouse_right); //0
Sender.Comp.AddConstantN('mouse_Left','integer').SetInt(ps_mouse_left);//1
Sender.Comp.AddConstantN('mouse_Middle','integer').SetInt(ps_mouse_middle);//2
Sender.Comp.AddConstantN('mouse_Middle','integer').SetInt(ps_mouse_middle);//2

7
Units/MMLCore/dtm.pas
View File

@ -135,7 +135,12 @@ begin
break;
end;
if not b then
writeln('DTM Number ' + inttostr(i) + ' was not freed');
begin;
if DTMList[i].n <> '' then
Writeln(Format('DTM [%s] was not freed',[DTMList[i].n]))
else
writeln(Format('DTM [%d] was not freed',[i]));
end;
end;
SetLength(DTMList, 0);
SetLength(FreeSpots, 0);