| 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 |
|
|---|