Changeset 39 for trunk/Packages/FastGraphics/ColorFormats/UColorGray4.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Packages/FastGraphics/ColorFormats/UColorGray4.pas (modified) (6 diffs)

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;