Рандомизационное получение координат массива без повторения.

[Alex Cones]

Требуется создать программу, которая (теоретически) должна повторять эффект "растворение" из Movie Maker`a. Для тех, кто в танке - при этом эффекте одна картинка сменяет другую попиксельно в "случаином" порядке.
Что-бы реализовать такой эффект я решил разделить работу на два шага:
1) создать программу, которая запишет в файл порядок пикселей (кто за кем сменяется).
2) Процедуру, которая считает координаты и сменит пиксель (достаточно простая часть).

Проблемы появились во время первого шага. Предположим у нас есть массив размером 512*96 (размер изображений)

Var
 Mas[0..512,0..96] of Byte;

Далее идет сам текст программы:

 Begin
  Randomize;                    {"Случайность"}
  For I:=0 to 512 do          
    For J:=0 to 96 do
      Mas[I,J]:=0;              {Обнулим весь массив (на всякий пожарный)}
  N:=0;                           {Количество измененных пикселей}
  While N<>513*97 do       {Пока все пиксели не закрашены, сделаем это}
    Begin
      ...
    End;
 End;

Вся загвоздка в том, что если система случайно выберет пиксель, а он будет закрашен, мы запишем его координаты повторно и тем самым замедлим время выполнения 2-го шага на несколько часов (пока все не закрасятся по несколько раз). Как реализовать выбор пикселя, еще не закрашенного?

[Ntlegend]

в архиве есть примерчик.. попробуй разоюбраться.. если чтото не понятно - обращяйся

[Alex Cones]

Я так понимаю это отрисовка изображение ПНГ с использованием альфа каналов, а я думаю о примерно этом:

В принципе можно реализовать с помощью меток:

LAbels LABELKA
Begin
 
LABELKA
X1:=Random(513);
Y1:=Random(97);
If Mas[X1,Y1]=1 Then Goto LABELKA

Но не хотельсь бы их использовать.

[Ntlegend]

отрисовка не ПНГ а рисунка.. любого.. прсто в ПНГ мне удобно хранить..
если не хочешь на основе изменения альфаканала тогда делай следующее..

в памяти рисонок представлен как массив бит.. тоесть все его пикселы выстроены в строку.. нумерацыя начинается с 0 заканчивается Width*Height-1.. значит создаем массив в котором будут пронумерованы пикселы и заполняем его

var pn: array [0..Image1.Width*Image1.Height-1] of cardinal;
i:cardinal;
begin
for i:=0 to High(pn) do
 pn:=i;

теперь у нас есть "строка" пронумерованых пикселов.. дальше мы просто переставляем в ней элементы местами

Shuffle(pn, High(pn), SizeOf(Cardinal));

и собственно эта процедура(скопируй как есть):

procedure Shuffle(var aArray; aItemCount: Cardinal; aItemSize: Cardinal);
var
  Inx: Cardinal;
  RandInx: Cardinal;
  SwapItem: PByteArray;
  A: TByteArray absolute aArray;
begin
  if (aItemCount > 1) then
  begin
    GetMem(SwapItem, aItemSize);
    try
      for Inx := 0 to (aItemCount - 2) do
      begin
        RandInx := Random(aItemCount - Inx);
        Move(A[Inx * aItemSize], SwapItem^, aItemSize);
        Move(A[RandInx * aItemSize], A[Inx * aItemSize], aItemSize);
        Move(SwapItem^, A[RandInx * aItemSize], aItemSize);
      end;
    finally
      FreeMem(SwapItem, aItemSize);
    end;
  end;
end;

и дальше отображаем картинку..

for i := 1 to High(pn) - 1 do
 begin
  Image1.Canvas.Pixels[pn[i]div Image1.Height,pn[i] mod Image1.Height ]:=
   Image2.Canvas.Pixels[pn[i]div Image1.Height,pn[i] mod Image1.Height];
end;

работает нормально при условии что картинки одинаковых размеров..

[Alex Cones]

Я сделал немного проще и короче (он кажется длиннее за счет фич):

var
  Form1: TForm1;
  X1,Y1:Integer;
  Mas:Array[0..511,0..95] of Byte;
  N:LongInt;
  I,J:Integer;
  F:TextFile;
  S,SX,SY:String;
  
implementation

{$R *.dfm}

Procedure Randoming;
 Begin
  X1:=Random(512);
  Y1:=Random(96);
 End;

procedure TForm1.Button1Click(Sender: TObject);
begin
 N:=0;
 For I:=0 to 95 do
  For J:=0 to 511 do
   Mas[J,I]:=0;
   Randoming;

 AssignFile(F,'IMAP.txt');
 Rewrite(F);
 While N<3437 Do
  Begin
   While ((Mas[X1,Y1]=1) Or (Image3.Canvas.Pixels[X1,Y1]=clBlack)) do Randoming;
   Mas[X1,Y1]:=1;
    
   Image2.Canvas.Pixels[X1,Y1]:=clWhite;
   Image2.Refresh;
   
   Image3.Canvas.Pixels[X1,Y1]:=clBlack;
   Image3.Refresh;
   
   If X1<10 Then SX:='00'+IntToStr(X1);
   If (X1>9) And (X1<100) Then SX:='0'+IntToStr(X1);
   If X1>99 Then SX:=IntToStr(X1);
   If Y1<10 Then SY:='00'+IntToStr(Y1);
   If (Y1>9) And (Y1<100) Then SY:='0'+IntToStr(Y1);
   If Y1>99 Then SY:=IntToStr(Y1);
   
   S:=SX+SY;
   Writeln(F,S);
   Inc(N);

  End;
 CloseFile(F);
 Button1.Enabled:=False;
 Button1.Caption:='Restart application for continue';
end;

В архиве - только ЕХЕ