mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-29 04:22:16 -05:00
The maze solver still segfaults... its something to do with linking
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@492 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
parent
2b1c5f2e2c
commit
12804e9d4a
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -27,7 +27,7 @@
|
|||||||
<RunParams>
|
<RunParams>
|
||||||
<local>
|
<local>
|
||||||
<FormatVersion Value="1"/>
|
<FormatVersion Value="1"/>
|
||||||
<LaunchingApplication PathPlusParams="/usr/bin/gnome-terminal -t 'Lazarus Run Output' -e '$(LazarusDir)/tools/runwait.sh $(TargetCmdLine)'"/>
|
<LaunchingApplication Use="True" PathPlusParams="/usr/bin/gnome-terminal -t 'Lazarus Run Output' -e '$(LazarusDir)/tools/runwait.sh $(TargetCmdLine)'"/>
|
||||||
</local>
|
</local>
|
||||||
</RunParams>
|
</RunParams>
|
||||||
<RequiredPackages Count="2">
|
<RequiredPackages Count="2">
|
||||||
|
@ -315,10 +315,10 @@ begin
|
|||||||
//writeln('d1:'+inttostr(length(maze)));
|
//writeln('d1:'+inttostr(length(maze)));
|
||||||
//writeln('d2:'+inttostr(length(maze[0])));
|
//writeln('d2:'+inttostr(length(maze[0])));
|
||||||
writeln('preparing to solve maze');
|
writeln('preparing to solve maze');
|
||||||
thin(input,start.x,start.y,finish.x,finish.y,length(input),length(input[0]));
|
//thin(input,start.x,start.y,finish.x,finish.y,length(input),length(input[0]));
|
||||||
writeln('thinned the maze');
|
writeln('thinned the maze');
|
||||||
//writeln('start: (' + inttostr(start.x) + ',' + inttostr(start.y) + ') finish: (' + inttostr(finish.x) + ',' + inttostr(finish.y) + ')');
|
//writeln('start: (' + inttostr(start.x) + ',' + inttostr(start.y) + ') finish: (' + inttostr(finish.x) + ',' + inttostr(finish.y) + ')');
|
||||||
all_paths:= flood(input,start.x,start.y,finish.x,finish.y,length(input),length(input[0]));
|
//all_paths:= flood(input,start.x,start.y,finish.x,finish.y,length(input),length(input[0]));
|
||||||
writeln('found all possible paths');
|
writeln('found all possible paths');
|
||||||
jills_routes:= Length(all_paths) - 1;
|
jills_routes:= Length(all_paths) - 1;
|
||||||
max_pos:= 0;
|
max_pos:= 0;
|
||||||
|
@ -198,7 +198,7 @@ uses
|
|||||||
{$endif}
|
{$endif}
|
||||||
|
|
||||||
{Some General PS Functions here}
|
{Some General PS Functions here}
|
||||||
procedure psWriteln(str : string); ps_decl;
|
procedure psWriteln(str : string); stdcall;
|
||||||
begin
|
begin
|
||||||
if Assigned(CurrThread.DebugTo) then
|
if Assigned(CurrThread.DebugTo) then
|
||||||
CurrThread.DebugTo(str)
|
CurrThread.DebugTo(str)
|
||||||
|
Loading…
Reference in New Issue
Block a user