1:

shr ecx, 1					

1:
2:
3:
4:
5:

      //Startwerte
      farbfeld[0,0]:=random(255)+1;
      farbfeld[hoehe-1,0]:=random(255)+1;
      farbfeld[0,breite-1]:=random(255)+1;
      farbfeld[hoehe-1,breite-1]:=random(255)+1;					

1:

setlength(farbfeld,paintbox1.height,paintbox1.Width);					

1:
2:
3:
4:

farbe1:=farbmitte(pixel1,pixel3,dy);
             farbfeld[xa,ym]:=farbe1;
in
             farbfeld[ym,xa]:=farbe1;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TForm1.InsBildKopieren(Sender: TObject);
var
  i,j,index:integer;
  pfF,pPix:pByte;
begin

{$IFDEF FPC}
  pPix:= Bitmap.RawImage.Data;
  for i:=0 to paintbox1.height-1 do
    begin
    pfF := @farbfeld[i,0];
    for j:=0 to paintbox1.width-1 do
      begin
      index := pfF^;
      IF index <> 0 then
        begin
        index := (index + cyclestart);
        IF Index > 255 then
          dec(Index,254);
        end;
      inc(pfF);
      with pal[index] do
        begin
        pPix^:= r;inc(pPix);
        pPix^:= g;inc(pPix);
        pPix^:= b;inc(pPix);
        // bitmap.canvas.pixels[i,j]:=rgb(r,b,g);
        end;
      end;
    end;

{$ELSE}					

1:
2:
3:
4:
5:
6:
7:
8:
9:

        if uy then begin
          farbe5:=(farbe1+farbe2+farbe3+farbe4) shr 2;
          farbfeld[ym,xm]:=farbe5;
          //rekursive Konstruktion
          fenster(xa,xm,ya,ym);
          fenster(xm,xe,ya,ym);
        end;
        fenster(xa,xm,ym,ye);
        fenster(xm,xe,ym,ye);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure TForm1.InsBildKopieren;
var
  i,j,index:integer;
  pfF,pPix:pByte;
  rowrgb : pbytearray;
  BitmapRawData :ptrUint;
  delta : ptrUint;//DWord;
begin
  Bitmap.BeginUpdate();
  // Abstand Zeile n bis Zeile n+1 bei pf24Bit= 3 Byte aufgerundet auf 32Bit-Teilbarkeit
  // So sind Bitmap definiert.
  {$IFDEF FPC}
  delta := ((Bitmap.Width*3-1)DIV 4+1)*4;
  BitmapRawData:= ptrUint(Bitmap.RawImage.Data);
  {$ENDIF}
  for j:=0 to bitmap.height-1 do
    begin
    {$IFDEF FPC}
    pPix := pbyte(BitmapRawData+j*delta);
    {$ELSE}
    pPix:= pbyte(bitmap.scanline[j]);
    {$ENDIF}
    pfF := @FarbFeld[j,0];
    for i:=0 to bitmap.width-1 do
      begin
      index := pfF^;

      IF index <> 0 then
        begin
        index := (index + cyclestart);
        IF Index > 255 then
          dec(Index,254);
        end;
      inc(pfF);
      with pal[index] do
        begin
        pPix^:= r;inc(pPix);
        pPix^:= g;inc(pPix);
        pPix^:= b;inc(pPix);
        end;
      end;
    end;
  Bitmap.EndUpdate();
  paintbox1.canvas.draw(0,0,bitmap);
end;					

1:
2:
3:
4:
5:
6:
7:
8:

      index := pfF^;

      IF index <> 0 then
        begin
        index := (index + cyclestart);
        IF Index > 255 then
          dec(Index,254);
        end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:

    {$ELSE}
    //Mittelwert der Farben berechnen
    function farbmitte(f1,f2,abweich: integer): integer;
    begin
      result := (f1+f2) shr 1;
      IF abweich > 0 then
        result:=max(1,(result + random(abweich) - abweich shr 1) AND 255)
    end;
    {$ENDIF}

    procedure fensterX0(ya,ye:integer);
    var
      ym,dy:integer;
    begin
      IF ye-ya > 1 then
        begin
        dy := (ye-ya)*faktor;
        ym := (ya+ye) shr 1;
        farbfeld[ym,0] :=farbmitte(farbfeld[ye,0],farbfeld[ya,0],0);
        fensterX0(ya,ym);
        fensterX0(ym,ye);
        end;
    end;

    procedure fensterY0(xa,xe:integer);
    var
      xm,dx:integer;
    begin
      IF xe-xa > 1 then
        begin
        dx := (xe-xa)*Faktor;
        xm := (xa+xe) shr 1;
        farbfeld[0,xm] :=farbmitte(farbfeld[0,xe],farbfeld[0,xa],0);
        fensterY0(xa,xm);
        fensterY0(xm,xe);
        end;
    end;


    procedure fenster(xa,xe,ya,ye:integer);
    var
        xm,ym,dx,dy:integer;
        sum:word;
        ux,uy:boolean;
        pixel2,pixel3,pixel4,farbe:byte;

    begin
        if (xe-xa<2) and (ye-ya<2) then
           EXIT;

        //Diamond-Square-Algorithmus
        xm:=(xa+xe) shr 1;
        ym:=(ya+ye) shr 1;

        pixel2:=farbfeld[ya,xe];
        pixel3:=farbfeld[ye,xa];
        pixel4:=farbfeld[ye,xe];

        dy:=(ye-ya)*faktor;
        dx:=(xe-xa)*faktor;
        if waagerecht then ux:=xm<xe
                      else ux:=xm>xa;
        uy:=ym>ya;

        sum :=farbfeld[ya,xm]+farbfeld[ym,xa];

        if uy then begin
          farbe:=farbmitte(pixel2,pixel4,dy);
          farbfeld[ym,xe]:=farbe;
          inc(sum,farbe);
        end;

        if ux then begin
          farbe:=farbmitte(pixel3,pixel4,dx);
          farbfeld[ye,xm]:=farbe;
          inc(sum,farbe);
        end else exit;

        if uy then begin
          farbfeld[ym,xm]:=sum shr 2;;

          fenster(xa,xm,ya,ym);
          fenster(xm,xe,ya,ym);
        end;

        fenster(xa,xm,ym,ye);
        fenster(xm,xe,ym,ye);
     end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

 //Mittelwert der Farben berechnen
    function farbmitte(f1,f2,abweich: integer): integer;
    asm
         shr ecx, 1
         add eax, edx       //(f1+f2) div 2
         shr eax, 1
         cmp ecx, 1
         jbe @ohnea         //abweich < 2
         push eax           //(f1+f2) div 2 speichern
         xor edx, edx       //Zufallsgenerator
         mov eax, ecx       //Initialisierung auf 0 bis abweich
         imul edx, [randseed], $08088405
         inc edx
         mov [randseed], edx
         mul edx
         mov eax, edx       //in eax steht zufallswert [0,abweich-1]
         pop edx            //(f1+f2) div 2 zurückholen
         add eax, edx       //Addition (f1+f2) div 2
         shr ecx, 1         //abweich div 2
         sub eax, ecx       //subtraktion abweich div 2
         jc @null
         @ohnea: and eax, 255       //mod 256
         cmp eax, 0         //Test auf Null
         jz @null
         ret               //HIER KOMMT DIE EKCEPTION            
         @null: mov eax, 1
       end;