Changeset 39 for trunk/Packages/FastGraphics/ColorFormats

Timestamp:

Oct 10, 2018, 3:48:47 PM (6 years ago)

Author:

chronos

Message:

• Added: Mirror, Flip, Gradient, Negative for 4-bit gray image.

Location:

trunk/Packages/FastGraphics/ColorFormats

Files:

• UColorGray1.pas (modified) (2 diffs)
• UColorGray2.pas (modified) (2 diffs)
• UColorGray4.pas (modified) (6 diffs)
• UColorRGB8.pas (modified) (2 diffs)

trunk/Packages/FastGraphics/ColorFormats/UColorGray1.pas

@@ -36 +36 @@
   { TBPixmapGray1 }
 
-  TBPixmapGray1 = class(TBImage)
+  TBPixmapGray1 = class(TBPixmap)
   private
     FillCallBack: TGetColorPos;
@@ -73 +73 @@
   BitDepth := 1;
   BackendColorClass := TBColorGray1;
-  BackendImageClass := TBPixmapGray1;
+  BackendPixmapClass := TBPixmapGray1;
   AddChannel('Gray', 0, 1);
 end;

trunk/Packages/FastGraphics/ColorFormats/UColorGray2.pas

@@ -35 +35 @@
   { TBPixmapGray2 }
 
-  TBPixmapGray2 = class(TBImage)
+  TBPixmapGray2 = class(TBPixmap)
   private
     FillCallBack: TGetColorPos;
@@ -71 +71 @@
   BitDepth := 2;
   BackendColorClass := TBColorGray2;
-  BackendImageClass := TBPixmapGray2;
+  BackendPixmapClass := TBPixmapGray2;
   AddChannel('Gray', 0, 2);
 end;

trunk/Packages/FastGraphics/ColorFormats/UColorGray4.pas

@@ -31 +31 @@
     procedure SetColorName(ColorName: TColorName); override;
     procedure SetRandom; override;
+    procedure SetColor(Color: TColor); override;
   end;
 
   { TBPixmapGray4 }
 
-  TBPixmapGray4 = class(TBImage)
+  TBPixmapGray4 = class(TBPixmap)
   private
     FillCallBack: TGetColorPos;
     function FillGetColor(Position: TPoint): TColorGray4;
+    function NegativeFunc(Position: TPoint): TColorGray4;
   protected
     procedure SetSize(AValue: TPoint); override;
@@ -45 +47 @@
   public
     Pixmap: TPixmapGray4;
+    procedure Flip; override;
+    procedure Mirror; override;
+    procedure Negative; override;
     procedure Fill(Color: IBColor); override;
     procedure Fill(Func: TGetColorPos); override;
@@ -70 +75 @@
   BitDepth := 4;
   BackendColorClass := TBColorGray4;
-  BackendImageClass := TBPixmapGray4;
+  BackendPixmapClass := TBPixmapGray4;
   AddChannel('Gray', 0, 4);
 end;
@@ -110 +115 @@
 end;
 
+procedure TBColorGray4.SetColor(Color: TColor);
+begin
+  Value := ((Color shr 0) and $ff + (Color shr 8) and $ff + (Color shr 16) and $ff) div (3 * 16);
+end;
+
 { TBPixmapGray2 }
 
@@ -115 +125 @@
 begin
   Result := (FillCallBack(Position) as TBColorGray4).Value;
+end;
+
+function TBPixmapGray4.NegativeFunc(Position: TPoint): TColorGray4;
+var
+  C: TColorGray4;
+begin
+  C := Pixmap.Pixels[Position.X, Position.Y];
+  Result := 16 - (C and $f);
 end;
 
@@ -131 +149 @@
 begin
   Pixmap.Pixels[X, Y] := (AValue as TBColorGray4).Value;
+end;
+
+procedure TBPixmapGray4.Flip;
+begin
+  Pixmap.Flip;
+end;
+
+procedure TBPixmapGray4.Mirror;
+begin
+  Pixmap.Mirror;
+end;
+
+procedure TBPixmapGray4.Negative;
+begin
+  Pixmap.Fill(NegativeFunc);
 end;
 

trunk/Packages/FastGraphics/ColorFormats/UColorRGB8.pas

@@ -43 +43 @@
   { TBPixmapRGB8 }
 
-  TBPixmapRGB8 = class(TBImage)
+  TBPixmapRGB8 = class(TBPixmap)
   private
     FillCallBack: TGetColorPos;
@@ -81 +81 @@
   BitDepth := 24;
   Name := 'RGB8';
-  BackendImageClass := TBPixmapRGB8;
+  BackendPixmapClass := TBPixmapRGB8;
   BackendColorClass := TBColorRGB8;
   AddChannel('Red', 0, 8);