Алгоритм Прима для генерации лабиринта

[anete.anetes]

Мой Math:

function RandomRange(const AFrom, ATo: Integer): Integer;
begin
  if AFrom > ATo then
    Result := Random(AFrom - ATo) + ATo
  else
    Result := Random(ATo - AFrom) + AFrom;
end;

[phomm]

Ещё бы, конечно, вот эти файлики приложить:

TImage(v).Picture.LoadFromFile('C:\lab\lt.bmp');
TImage(v).Picture.LoadFromFile('C:\lab\l.bmp');
TImage(v).Picture.LoadFromFile('C:\lab\t.bmp');
TImage(v).Picture.LoadFromFile('C:\lab\nn.bmp');

Я попробовал первые попавшиеся мне на компе картинки на удачу проставить - картина невнятная получается. Кстати, не может такого быть что у Вас из-за самих битмапов складывается ощущение, что работает неправильно ? Ну, то есть ошибка не алгоритма, а данных, так сказать.

[anete.anetes]

Сообщение от phomm

Ещё бы, конечно, вот эти файлики приложить:

TImage(v).Picture.LoadFromFile('C:\lab\lt.bmp');
TImage(v).Picture.LoadFromFile('C:\lab\l.bmp');
TImage(v).Picture.LoadFromFile('C:\lab\t.bmp');
TImage(v).Picture.LoadFromFile('C:\lab\nn.bmp');

Я дико извиняюсь, после офиса всегда туплю сильно.

А вообще я думал о прорисовке, но вроде как алгоритм всё равно не правильный, по крайней мере на стены проверок точно нет, а пока что дописать не могу их.

[phomm]

Так надо ? Я просто не могу ориентироваться как именно должно быть, нет образца для сравнения.

Я там малость переворошил в коде что мне не понравилось, но сам алгоритм не трогал вообще, т.е. на мой взгляд он стал работать и вроде как ничего вполне.
Из переворошённого (о, какое слово!) - выкинуты имейджи и заменены на битмапы (были подозрения на не пойми как работавшую процедурку showmaze из-за одного пустого квадратика, её тоже соответственно выкинул, точнее преобразовал в формпейнт) и, ввиду лени, была наколдована магия для отрисовки:

for i := LMin to LMax do
  for a := LMin to Lmax do
    Canvas.Draw((i - 1) * sz, (a - 1) * sz, bitmaps[Ord(lab[i, a].l) + Ord(lab[i, a].t)]);

вполне невинна, обычный расчёт смещения для отрисовки битмапа по счетчикам цикла (и учёт константы размера картинки sz), а вот индекс картинки из небольшого хака - 2 булеан переменные из lab складываются как числа , давая индекс 0..3 для массива картинок.

В остальном ничего особенного только добавлены 2 подпрограммки для проверки границ массива.

Ещё дельфи я пользовал старую, лень было расчехлять ХЕ, поэтому юзесы я подрезал - у себя скопипастьте.

[anete.anetes]

Огромное Вам спасибо, как вернусь из офиса обязательно посмотрю. Насчёт магии отрисовки, Ваше конфу сильнее моего в разы, поэтому я попытаюсь ещё и её разобрать, вроде легко но мб чему новому научусь.

В общем, как вернусь отпишу насчёт результата.

[phomm]

Хм. нет, я там для вычисления одного числа из диапазона 0..3 допустил ошибочку, надо ещё на 2 домножать один из Ord, сейчас проверил - как-то уже менее адекватно рисует, надо будет ещё покумекать.
Кстати , не могли бы пример получаемых лабиринтов показать, чтобы уж точно знать чего надо добиваться )