1 | {
|
---|
2 | Main source of the Lazarus Mazes program.
|
---|
3 |
|
---|
4 | A maze implementation based on a depth-first backtracking algorithm.
|
---|
5 | For more detais, see wikipedia:
|
---|
6 | http://en.wikipedia.org/wiki/Maze_generation_algorithm#Recursive_backtracker
|
---|
7 |
|
---|
8 | Copyright (C) 2012 G.A. Nijland (eny @ lazarus forum http://www.lazarus.freepascal.org/)
|
---|
9 |
|
---|
10 | This source is free software; you can redistribute it and/or modify it under the terms of the GNU General Public
|
---|
11 | License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later
|
---|
12 | version.
|
---|
13 |
|
---|
14 | This code is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied
|
---|
15 | warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
|
---|
16 | details.
|
---|
17 |
|
---|
18 | A copy of the GNU General Public License is available on the World Wide Web at
|
---|
19 | <http://www.gnu.org/copyleft/gpl.html>. You can also obtain it by writing to the Free Software Foundation, Inc., 59
|
---|
20 | Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
---|
21 | }
|
---|
22 | program Lazes;
|
---|
23 |
|
---|
24 | {$mode objfpc}{$H+}
|
---|
25 |
|
---|
26 | uses
|
---|
27 | Interfaces, Forms, ufrmmain1, Maze, MazePainter, MazeBuilderDepthFirst, ufrmScaling, LazesGlobals
|
---|
28 | { you can add units after this };
|
---|
29 |
|
---|
30 | {$R *.res}
|
---|
31 |
|
---|
32 | begin
|
---|
33 | Application.Initialize;
|
---|
34 | Application.CreateForm(TfrmMain1, frmMain1);
|
---|
35 | Application.CreateForm(TfrmScaling, frmScaling);
|
---|
36 | Application.Run;
|
---|
37 | end.
|
---|
38 |
|
---|