Эффект "Шум" - резкий перепад на 3-ем шаге

[Alex Cones]

Procedure FVFL_Noise(Handle: HBITMAP; MaxNoise : Byte); StdCall;
Var
 X, Y: Integer;
 C: Byte;
 BMP: BITMAP;
 P1, P2: PRGBTriple;
Begin
 Windows.GetObject(Handle, SizeOf(Bmp), @BMP);
 P1 := BMP.bmBits;
 Randomize;
 If BMP.bmBitsPixel = 24 Then
      For Y := 0 To BMP.bmHeight - 1 Do
            Begin
             P2 := P1;
             For X := 0 To BMP.bmWidth - 1 Do
                  Begin
                   If Random(2) = 0 Then
                     C := P2.rgbtBlue + Random(MaxNoise)
                    Else
                     C := P2.rgbtBlue + Random(MaxNoise);
                   P2.rgbtBlue := C;
                   If Random(2) = 0 Then
                     C := P2.rgbtGreen + Random(MaxNoise)
                    Else
                     C := P2.rgbtGreen + Random(MaxNoise);
                   P2.rgbtGreen := C;
                   If Random(2) = 0 Then
                     C := P2.rgbtRed + Random(MaxNoise)
                    Else
                     C := P2.rgbtRed + Random(MaxNoise);
                   P2.rgbtRed := C;
                   Inc(P2);
                  End;
             Pointer(P1) := Pointer(Integer(P1) + BMP.bmWidthBytes);
            End
 Else
  MessageBox(0, 'Library error - 0x00', 'Error', MB_OK);
End;

Вызываю с шагом (MaxNoise) 8:
Начальное состояние, 1-е применение, 2-е применение, 3-е применение.


Вопрос - почему такой резкий перепад на третьем шаге? Как от этого избавиться?

P.S. Пока только одна мысль - переполнение байта.

[Alex Cones]

Да, причиной фейла было переполнение байта. Решил следующим образом:

If Random(2) = 0 Then
  C := Add(P2.rgbtBlue,Random(MaxNoise))
 Else
  C := Sub(P2.rgbtBlue,Random(MaxNoise));
P2.rgbtBlue := C;
If Random(2) = 0 Then
  C := Add(P2.rgbtGreen,Random(MaxNoise))
 Else
  C := Sub(P2.rgbtGreen,Random(MaxNoise));
P2.rgbtGreen := C;
If Random(2) = 0 Then
  C := Add(P2.rgbtRed,Random(MaxNoise))
 Else
  C := Sub(P2.rgbtRed,Random(MaxNoise));
P2.rgbtRed := C;

Function Add(A,B : Byte): Byte;
Begin
 If A + B < 255 Then Result := A + B
                Else Result := 255;
End;

Function Sub(A,B : Byte): Byte;
Begin
 If A - B < 0 Then Result := 0
              Else Result := A - B;
End;