Changeset 472 for GraphicTest/Packages/bgrabitmap/bgratransform.pas

Timestamp:

Apr 9, 2015, 9:58:36 PM (10 years ago)

Author:

chronos

Message:

• Fixed: Use csOpaque control style also to Image, PaintBox and OpenGLControl.
• Modified: Change size of test frame with SpinEdits as delayed using timer.
• Updated: BRGABitmap package to version 8.1.

File:

• GraphicTest/Packages/bgrabitmap/bgratransform.pas (modified) (31 diffs)

GraphicTest/Packages/bgrabitmap/bgratransform.pas

@@ -24 +24 @@
     TopLeft, TopRight,
     BottomLeft: TPointF;
-    function EmptyBox: TAffineBox;
-    function AffineBox(ATopLeft, ATopRight, ABottomLeft: TPointF): TAffineBox;
+    class function EmptyBox: TAffineBox;
+    class function AffineBox(ATopLeft, ATopRight, ABottomLeft: TPointF): TAffineBox;
     property BottomRight: TPointF read GetBottomRight;
     property IsEmpty: boolean read GetIsEmpty;
@@ -55 +55 @@
     procedure Invert;
     procedure Translate(OfsX,OfsY: Single);
-    procedure RotateDeg(Angle: Single);
-    procedure RotateRad(Angle: Single);
+    procedure RotateDeg(AngleCW: Single);
+    procedure RotateRad(AngleCCW: Single);
     procedure MultiplyBy(AMatrix: TAffineMatrix);
     procedure Fit(Origin,HAxis,VAxis: TPointF); virtual;
@@ -79 +79 @@
     FRepeatImageX,FRepeatImageY: boolean;
     FResampleFilter : TResampleFilter;
+    FBuffer: PBGRAPixel;
+    FBufferSize: Int32or64;
     procedure Init(ABitmap: TBGRACustomBitmap; ARepeatImageX: Boolean= false; ARepeatImageY: Boolean= false; AResampleFilter: TResampleFilter = rfLinear);
   public
     constructor Create(ABitmap: TBGRACustomBitmap; ARepeatImage: Boolean= false; AResampleFilter: TResampleFilter = rfLinear);
     constructor Create(ABitmap: TBGRACustomBitmap; ARepeatImageX: Boolean; ARepeatImageY: Boolean; AResampleFilter: TResampleFilter = rfLinear);
+    destructor Destroy; override;
     function InternalScanCurrentPixel: TBGRAPixel; override;
+    procedure ScanPutPixels(pdest: PBGRAPixel; count: integer; mode: TDrawMode); override;
+    function IsScanPutPixelsDefined: boolean; override;
     procedure Fit(Origin, HAxis, VAxis: TPointF); override;
   end;
@@ -103 +108 @@
   end;
 
+  { TBGRAExtendedBorderScanner }
+
+  TBGRAExtendedBorderScanner = class(TBGRACustomScanner)
+  protected
+    FSource: IBGRAScanner;
+    FBounds: TRect;
+  public
+    constructor Create(ASource: IBGRAScanner; ABounds: TRect);
+    function ScanAt(X,Y: Single): TBGRAPixel; override;
+  end;
+
   { TBGRAScannerOffset }
 
@@ -133 +149 @@
 function IsAffineMatrixInversible(M: TAffineMatrix): boolean;
 
+//check if the matrix is a translation (including the identity)
+function IsAffineMatrixTranslation(M: TAffineMatrix): boolean;
+
+//check if the matrix is a scaling (including a projection i.e. with factor 0)
+function IsAffineMatrixScale(M: TAffineMatrix): boolean;
+
+//check if the matrix is the identity
+function IsAffineMatrixIdentity(M: TAffineMatrix): boolean;
+
 //compute inverse (check if inversible before)
 function AffineMatrixInverse(M: TAffineMatrix): TAffineMatrix;
@@ -145 +170 @@
 function AffineMatrixLinear(v1,v2: TPointF): TAffineMatrix;
 
-//define a rotation matrix (positive radians are counter clock wise)
-function AffineMatrixRotationRad(Angle: Single): TAffineMatrix;
-
-//Positive degrees are clock wise
-function AffineMatrixRotationDeg(Angle: Single): TAffineMatrix;
+//define a rotation matrix (positive radians are counter-clockwise)
+//(assuming the y-axis is pointing down)
+function AffineMatrixRotationRad(AngleCCW: Single): TAffineMatrix;
+
+//Positive degrees are clockwise
+//(assuming the y-axis is pointing down)
+function AffineMatrixRotationDeg(AngleCW: Single): TAffineMatrix;
 
 //define the identity matrix (that do nothing)
@@ -188 +215 @@
     FMatrix: TPerspectiveTransform;
     FScanAtProc: TScanAtFunction;
+    function GetIncludeOppositePlane: boolean;
+    procedure SetIncludeOppositePlane(AValue: boolean);
   public
     constructor Create(texture: IBGRAScanner; texCoord1,texCoord2: TPointF; const quad: array of TPointF);
@@ -195 +224 @@
     function ScanAt(X, Y: Single): TBGRAPixel; override;
     function ScanNextPixel: TBGRAPixel; override;
+    property IncludeOppositePlane: boolean read GetIncludeOppositePlane write SetIncludeOppositePlane;
   end;
 
@@ -203 +233 @@
     sx ,shy ,w0 ,shx ,sy ,w1 ,tx ,ty ,w2 : single;
     scanDenom,scanNumX,scanNumY: single;
+    FOutsideValue: TPointF;
+    FIncludeOppositePlane: boolean;
+    procedure Init;
   public
     constructor Create; overload;
@@ -222 +255 @@
     procedure ScanMoveTo(x,y:single);
     function ScanNext: TPointF;
+    property OutsideValue: TPointF read FOutsideValue write FOutsideValue;
+    property IncludeOppositePlane: boolean read FIncludeOppositePlane write FIncludeOppositePlane;
   end;
 
@@ -249 +284 @@
 implementation
 
-uses BGRABlend;
+uses BGRABlend, GraphType;
 
 function AffineMatrix(m11, m12, m13, m21, m22, m23: single): TAffineMatrix;
@@ -281 +316 @@
 begin
   result := M[1,1]*M[2,2]-M[1,2]*M[2,1] <> 0;
+end;
+
+function IsAffineMatrixTranslation(M: TAffineMatrix): boolean;
+begin
+  result := (m[1,1]=1) and (m[1,2]=0) and (m[2,1] = 1) and (m[2,2]=0);
+end;
+
+function IsAffineMatrixScale(M: TAffineMatrix): boolean;
+begin
+  result := (M[1,3]=0) and (M[2,3]=0) and
+            (M[1,2]=0) and (M[2,1]=0);
+end;
+
+function IsAffineMatrixIdentity(M: TAffineMatrix): boolean;
+begin
+  result := IsAffineMatrixTranslation(M) and (M[1,3]=0) and (M[2,3]=0);
 end;
 
@@ -314 +365 @@
 end;
 
-function AffineMatrixRotationRad(Angle: Single): TAffineMatrix;
-begin
-  result := AffineMatrix(cos(Angle),  sin(Angle), 0,
-                         -sin(Angle), cos(Angle), 0);
-end;
-
-function AffineMatrixRotationDeg(Angle: Single): TAffineMatrix;
-begin
-  result := AffineMatrixRotationRad(-Angle*Pi/180);
+function AffineMatrixRotationRad(AngleCCW: Single): TAffineMatrix;
+begin
+  result := AffineMatrix(cos(AngleCCW),  sin(AngleCCW), 0,
+                         -sin(AngleCCW), cos(AngleCCW), 0);
+end;
+
+function AffineMatrixRotationDeg(AngleCW: Single): TAffineMatrix;
+const DegToRad = -Pi/180;
+begin
+  result := AffineMatrixRotationRad(AngleCW*DegToRad);
 end;
 
@@ -334 +386 @@
 begin
   result := PointF(M[1,1],M[2,1])*PointF(M[1,2],M[2,2]) = 0;
+end;
+
+{ TBGRAExtendedBorderScanner }
+
+constructor TBGRAExtendedBorderScanner.Create(ASource: IBGRAScanner;
+  ABounds: TRect);
+begin
+  FSource := ASource;
+  FBounds := ABounds;
+end;
+
+function TBGRAExtendedBorderScanner.ScanAt(X, Y: Single): TBGRAPixel;
+begin
+  if x < FBounds.Left then x := FBounds.Left;
+  if y < FBounds.Top then y := FBounds.Top;
+  if x > FBounds.Right-1 then x := FBounds.Right-1;
+  if y > FBounds.Bottom-1 then y := FBounds.Bottom-1;
+  result := FSource.ScanAt(X,Y);
 end;
 
@@ -356 +426 @@
 end;
 
-function TAffineBox.EmptyBox: TAffineBox;
+class function TAffineBox.EmptyBox: TAffineBox;
 begin
   result.TopLeft := EmptyPointF;
@@ -363 +433 @@
 end;
 
-function TAffineBox.AffineBox(ATopLeft, ATopRight, ABottomLeft: TPointF): TAffineBox;
+class function TAffineBox.AffineBox(ATopLeft, ATopRight, ABottomLeft: TPointF): TAffineBox;
 begin
   result.TopLeft := ATopLeft;
@@ -556 +626 @@
 end;
 
+//transformations are inverted because the effect on the resulting image
+//is the inverse of the transformation. This is due to the fact
+//that the matrix is applied to source coordinates, not destination coordinates
 procedure TBGRAAffineScannerTransform.Translate(OfsX, OfsY: Single);
 begin
@@ -561 +634 @@
 end;
 
-procedure TBGRAAffineScannerTransform.RotateDeg(Angle: Single);
-begin
-  MultiplyBy(AffineMatrixRotationDeg(-Angle));
-end;
-
-procedure TBGRAAffineScannerTransform.RotateRad(Angle: Single);
-begin
-  MultiplyBy(AffineMatrixRotationRad(-Angle));
+procedure TBGRAAffineScannerTransform.RotateDeg(AngleCW: Single);
+begin
+  MultiplyBy(AffineMatrixRotationDeg(-AngleCW));
+end;
+
+procedure TBGRAAffineScannerTransform.RotateRad(AngleCCW: Single);
+begin
+  MultiplyBy(AffineMatrixRotationRad(-AngleCCW));
 end;
 
@@ -651 +724 @@
   FRepeatImageY := ARepeatImageY;
   FResampleFilter:= AResampleFilter;
+  FBufferSize:= 0;
 end;
 
@@ -666 +740 @@
 end;
 
+destructor TBGRAAffineBitmapTransform.Destroy;
+begin
+  FreeMem(FBuffer);
+end;
+
 function TBGRAAffineBitmapTransform.InternalScanCurrentPixel: TBGRAPixel;
 begin
-  if FRepeatImageX or FRepeatImageY then
-    result := FBitmap.GetPixelCycle(FCurX,FCurY,FResampleFilter,FRepeatImageX,FRepeatImageY)
+  result := FBitmap.GetPixelCycle(FCurX,FCurY,FResampleFilter,FRepeatImageX,FRepeatImageY);
+end;
+
+procedure TBGRAAffineBitmapTransform.ScanPutPixels(pdest: PBGRAPixel;
+  count: integer; mode: TDrawMode);
+var p: PBGRAPixel;
+  n: integer;
+  posX4096, posY4096: Int32or64;
+  deltaX4096,deltaY4096: Int32or64;
+  ix,iy,shrMask,w,h: Int32or64;
+  py0: PByte;
+  deltaRow: Int32or64;
+begin
+  w := FBitmap.Width;
+  h := FBitmap.Height;
+  if (w = 0) or (h = 0) then exit;
+
+  posX4096 := round(FCurX*4096);
+  deltaX4096:= round(FMatrix[1,1]*4096);
+  posY4096 := round(FCurY*4096);
+  deltaY4096:= round(FMatrix[2,1]*4096);
+  shrMask := -1;
+  shrMask := shrMask shr 12;
+  shrMask := not shrMask;
+
+  if mode = dmSet then
+    p := pdest
   else
-    result := FBitmap.GetPixel(FCurX,FCurY,FResampleFilter);
+  begin
+    if count > FBufferSize then
+    begin
+      FBufferSize := count;
+      ReAllocMem(FBuffer, FBufferSize*sizeof(TBGRAPixel));
+    end;
+    p := FBuffer;
+  end;
+
+  if FResampleFilter = rfBox then
+  begin
+    posX4096 += 2048;
+    posY4096 += 2048;
+    py0 := PByte(FBitmap.ScanLine[0]);
+    if FBitmap.LineOrder = riloTopToBottom then
+      deltaRow := FBitmap.Width*sizeof(TBGRAPixel) else
+      deltaRow := -FBitmap.Width*sizeof(TBGRAPixel);
+    if FRepeatImageX or FRepeatImageY then
+    begin
+      for n := count-1 downto 0 do
+      begin
+        if posX4096 < 0 then ix := (posX4096 shr 12) or shrMask else ix := posX4096 shr 12;
+        if posY4096 < 0 then iy := (posY4096 shr 12) or shrMask else iy := posY4096 shr 12;
+        if FRepeatImageX then ix := PositiveMod(ix,w);
+        if FRepeatImageY then iy := PositiveMod(iy,h);
+        if (ix < 0) or (iy < 0) or (ix >= w) or (iy >= h) then
+          p^ := BGRAPixelTransparent
+        else
+          p^ := (PBGRAPixel(py0 + iy*deltaRow)+ix)^;
+        inc(p);
+        posX4096 += deltaX4096;
+        posY4096 += deltaY4096;
+      end;
+    end else
+    begin
+     for n := count-1 downto 0 do
+     begin
+       if posX4096 < 0 then ix := (posX4096 shr 12) or shrMask else ix := posX4096 shr 12;
+       if posY4096 < 0 then iy := (posY4096 shr 12) or shrMask else iy := posY4096 shr 12;
+       if (ix < 0) or (iy < 0) or (ix >= w) or (iy >= h) then
+         p^ := BGRAPixelTransparent
+       else
+         p^ := (PBGRAPixel(py0 + iy*deltaRow)+ix)^;
+       inc(p);
+       posX4096 += deltaX4096;
+       posY4096 += deltaY4096;
+     end;
+    end;
+  end else
+  begin
+   if FRepeatImageX and FRepeatImageY then
+   begin
+     for n := count-1 downto 0 do
+     begin
+       if posX4096 < 0 then ix := (posX4096 shr 12) or shrMask else ix := posX4096 shr 12;
+       if posY4096 < 0 then iy := (posY4096 shr 12) or shrMask else iy := posY4096 shr 12;
+       p^ := FBitmap.GetPixelCycle256(ix,iy, (posX4096 shr 4) and 255, (posY4096 shr 4) and 255,FResampleFilter);
+       inc(p);
+       posX4096 += deltaX4096;
+       posY4096 += deltaY4096;
+     end;
+   end else
+   if FRepeatImageX or FRepeatImageY then
+   begin
+     for n := count-1 downto 0 do
+     begin
+       if posX4096 < 0 then ix := (posX4096 shr 12) or shrMask else ix := posX4096 shr 12;
+       if posY4096 < 0 then iy := (posY4096 shr 12) or shrMask else iy := posY4096 shr 12;
+       p^ := FBitmap.GetPixelCycle256(ix,iy, (posX4096 shr 4) and 255, (posY4096 shr 4) and 255,FResampleFilter, FRepeatImageX,FRepeatImageY);
+       inc(p);
+       posX4096 += deltaX4096;
+       posY4096 += deltaY4096;
+     end;
+   end else
+   begin
+    for n := count-1 downto 0 do
+    begin
+      if posX4096 < 0 then ix := (posX4096 shr 12) or shrMask else ix := posX4096 shr 12;
+      if posY4096 < 0 then iy := (posY4096 shr 12) or shrMask else iy := posY4096 shr 12;
+      p^ := FBitmap.GetPixel256(ix,iy, (posX4096 shr 4) and 255, (posY4096 shr 4) and 255,FResampleFilter);
+      inc(p);
+      posX4096 += deltaX4096;
+      posY4096 += deltaY4096;
+    end;
+   end;
+  end;
+
+  if mode <> dmSet then PutPixels(pdest,FBuffer,count,mode,255);
+end;
+
+function TBGRAAffineBitmapTransform.IsScanPutPixelsDefined: boolean;
+begin
+  Result:=true;
 end;
 
@@ -684 +880 @@
 { TBGRAPerspectiveScannerTransform }
 
+function TBGRAPerspectiveScannerTransform.GetIncludeOppositePlane: boolean;
+begin
+  if FMatrix = nil then
+    result := false
+  else
+    result := FMatrix.IncludeOppositePlane;
+end;
+
+procedure TBGRAPerspectiveScannerTransform.SetIncludeOppositePlane(
+  AValue: boolean);
+begin
+  if FMatrix <> nil then
+    FMatrix.IncludeOppositePlane := AValue;
+end;
+
 constructor TBGRAPerspectiveScannerTransform.Create(texture: IBGRAScanner; texCoord1,texCoord2: TPointF; const quad: array of TPointF);
 begin
@@ -689 +900 @@
     FMatrix := nil
   else
+  begin
     FMatrix := TPerspectiveTransform.Create(quad,texCoord1.x,texCoord1.y,texCoord2.x,texCoord2.y);
+    FMatrix.OutsideValue := EmptyPointF;
+  end;
   FTexture := texture;
   FScanAtProc:= @FTexture.ScanAt;
@@ -701 +915 @@
     FMatrix := nil
   else
+  begin
     FMatrix := TPerspectiveTransform.Create(quad,texCoordsQuad);
+    FMatrix.OutsideValue := EmptyPointF;
+  end;
   FTexture := texture;
   FScanAtProc:= @FTexture.ScanAt;
@@ -725 +942 @@
   begin
     ptSource := FMatrix.Apply(PointF(X,Y));
-    Result:= FScanAtProc(ptSource.X, ptSource.Y);
+    if ptSource.x = EmptySingle then
+      result := BGRAPixelTransparent
+    else
+      Result:= FScanAtProc(ptSource.X, ptSource.Y);
   end;
 end;
@@ -736 +956 @@
   begin
     ptSource := FMatrix.ScanNext;
-    Result:= FScanAtProc(ptSource.X, ptSource.Y);
+    if ptSource.x = EmptySingle then
+      result := BGRAPixelTransparent
+    else
+      Result:= FScanAtProc(ptSource.X, ptSource.Y);
   end;
 end;
@@ -742 +965 @@
 { TPerspectiveTransform }
 
+procedure TPerspectiveTransform.Init;
+begin
+  FOutsideValue := PointF(0,0);
+  FIncludeOppositePlane:= True;
+end;
+
 constructor TPerspectiveTransform.Create;
 begin
+  Init;
   AssignIdentity;
 end;
@@ -750 +980 @@
   const quad: array of TPointF);
 begin
+  Init;
   MapRectToQuad(x1 ,y1 ,x2 ,y2 ,quad );
 end;
@@ -756 +987 @@
   x2, y2: single);
 begin
+  Init;
   MapQuadToRect(quad, x1,y1,x2,y2);
 end;
@@ -762 +994 @@
   destQuad: array of TPointF);
 begin
+  Init;
   MapQuadToQuad(srcQuad,destQuad);
 end;
@@ -995 +1228 @@
   m : single;
 begin
-  m:= pt.x * w0 + pt.y * w1 + w2 ;
-  if m=0 then
-  begin
-    result.x := 0;
-    result.y := 0;
-  end else
+  m:= pt.x * w0 + pt.y * w1 + w2;
+  if (m=0) or (not FIncludeOppositePlane and (m < 0)) then
+    result := FOutsideValue
+  else
   begin
    m := 1/m;
@@ -1018 +1249 @@
 var m: single;
 begin
-  if ScanDenom = 0 then
-  begin
-    result.x := 0;
-    result.y := 0;
-  end else
+  if (ScanDenom = 0) or (not FIncludeOppositePlane and (ScanDenom < 0)) then
+    result := FOutsideValue
+  else
   begin
    m := 1/scanDenom;