Changeset 450 for GraphicTest/UFastBitmap.pas

Timestamp:

Nov 23, 2012, 1:11:03 PM (12 years ago)

Author:

chronos

Message:

• Added: Test using Graphics32 package TGR32Image class.
• Modified: Used packages are now located uncompressed in Packages subfolder.

File:

• GraphicTest/UFastBitmap.pas (modified) (2 diffs)

GraphicTest/UFastBitmap.pas

@@ -38 +38 @@
     constructor Create;
     destructor Destroy; override;
-    procedure RandomImage;
+    procedure RandomImage(Index, Count: Integer);
     property Size: TPoint read FSize write SetSize;
     property Pixels[X, Y: Integer]: TFastBitmapPixel read GetPixel write SetPixel;
@@ -204 +204 @@
 end;
 
-procedure TFastBitmap.RandomImage;
+procedure TFastBitmap.RandomImage(Index, Count: Integer);
 var
   I, X, Y: Integer;
 begin
+  // Main three color blocks
   for I := 0 to 2 do
-    for Y := 0 to (Size.Y div 2) - 1 do
+    for Y := 0 to (Size.Y div 3) - 1 do
       for X := 0 to (Size.X div 3) - 1 do
         Pixels[X + (I * (Size.X div 3)), Y] := (255 shl (I * 8)) and $ffffff;
 
-  for Y := (Size.Y div 2) to Size.Y - 1 do
+  // Random noise
+  for Y := (Size.Y div 3) to (Size.Y * 2 div 3) - 1 do
     for X := 0 to Size.X - 1 do
       Pixels[X, Y] := (Random(256) or (Random(256) shl 16) or (Random(256) shl 8)) and $ffffff;
+
+  // Color gradient
+  for Y := (Size.Y * 2 div 3) to (Size.Y - 1) do begin
+    for X := 0 to Size.X - 1 do
+      Pixels[X, Y] := (Trunc(Sin((X + Trunc(Index / Count * Size.X)) mod Size.X
+        / Size.X * pi) * 255) * $010101) and $ffffff;
+  end;
 end;