1 files changed, 610 insertions, 610 deletions
diff --git a/src/corelib/render/software/pf_bgra32.inc b/src/corelib/render/software/pf_bgra32.inc
index 0cd968c8..9fa991c9 100644
--- a/src/corelib/render/software/pf_bgra32.inc
+++ b/src/corelib/render/software/pf_bgra32.inc
@@ -1,610 +1,610 @@
-//
-// AggPas 2.4 RM3 pixel format definition file
-//
-{ blend_pix_bgra }
-procedure blend_pix_bgra(p : unsigned_ptr; cr ,cg ,cb ,alpha : int; cover : unsigned = 0 );
-var
- r ,g ,b ,a : int8u;
-
-begin
- r:=order_bgra(p^ ).R;
- g:=order_bgra(p^ ).G;
- b:=order_bgra(p^ ).B;
- a:=order_bgra(p^ ).A;
-
- order_bgra(p^ ).R:=((cr - r ) * alpha + (r shl base_shift ) ) shr base_shift;
- order_bgra(p^ ).G:=((cg - g ) * alpha + (g shl base_shift ) ) shr base_shift;
- order_bgra(p^ ).B:=((cb - b ) * alpha + (b shl base_shift ) ) shr base_shift;
- order_bgra(p^ ).A:=(alpha + a ) - ((alpha * a + base_mask ) shr base_shift );
-
-end;
-
-{ copy_or_blend_pix_bgra }
-procedure copy_or_blend_pix_bgra(p : unsigned_ptr; cr ,cg ,cb ,alpha : unsigned ); overload;
-begin
- if alpha <> 0 then
-  if alpha = base_mask then
-   begin
-    order_bgra(p^ ).R:=cr;
-    order_bgra(p^ ).G:=cg;
-    order_bgra(p^ ).B:=cb;
-    order_bgra(p^ ).A:=base_mask;
-
-   end
-  else
-   blend_pix_bgra(p ,cr ,cg ,cb ,alpha );
-
-end;
-
-{ copy_or_blend_pix_bgra }
-procedure copy_or_blend_pix_bgra(p : unsigned_ptr; cr ,cg ,cb ,alpha ,cover : unsigned ); overload;
-begin
- if cover = 255 then
-  copy_or_blend_pix_bgra(p ,cr ,cg ,cb ,alpha )
- else
-  if alpha <> 0 then
-   begin
-    alpha:=(alpha * (cover + 1 ) ) shr 8;
-
-    if alpha = base_mask then
-     begin
-      order_bgra(p^ ).R:=cr;
-      order_bgra(p^ ).G:=cg;
-      order_bgra(p^ ).B:=cb;
-      order_bgra(p^ ).A:=base_mask;
-
-     end
-    else
-     blend_pix_bgra(p ,cr ,cg ,cb ,alpha ,cover );
-
-   end;
-
-end;
-
-{ bgra32_copy_pixel }
-procedure bgra32_copy_pixel(this : pixel_formats_ptr; x ,y : int; c : aggclr_ptr );
-var
- p : unsigned_ptr;
-
-begin
- p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
-
- order_bgra(p^ ).R:=c.r;
- order_bgra(p^ ).G:=c.g;
- order_bgra(p^ ).B:=c.b;
- order_bgra(p^ ).A:=c.a;
-
-end;
-
-{ bgra32_blend_pixel }
-procedure bgra32_blend_pixel(this : pixel_formats_ptr; x ,y : int; c : aggclr_ptr; cover : int8u );
-begin
- copy_or_blend_pix_bgra(
-  unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) ) ,
-  c.r ,c.g ,c.b ,c.a ,cover );
-
-end;
-
-{ bgra32_pixel }
-function bgra32_pixel(this : pixel_formats_ptr; x ,y : int ) : aggclr;
-var
- p : unsigned_ptr;
-
-begin
- p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
-
- result.ConstrInt(
-  order_bgra(p^ ).R ,
-  order_bgra(p^ ).G ,
-  order_bgra(p^ ).B ,
-  order_bgra(p^ ).A );
-
-end;
-
-{ bgra32_copy_hline }
-procedure bgra32_copy_hline(this : pixel_formats_ptr; x ,y : int; len : unsigned; c : aggclr_ptr );
-var
- p : unsigned_ptr;
- v : unsigned;
-
-begin
- p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
-
- order_bgra(v ).R:=c.r;
- order_bgra(v ).G:=c.g;
- order_bgra(v ).B:=c.b;
- order_bgra(v ).A:=c.a;
-
- if len > 0 then
-  repeat
-   p^:=v;
-
-   inc(ptrcomp(p ) ,4 );
-   dec(len );
-
-  until len = 0;
-
-end;
-
-{ bgra32_copy_vline }
-procedure bgra32_copy_vline(this : pixel_formats_ptr; x ,y : int; len : unsigned; c : aggclr_ptr );
-var
- p : unsigned_ptr;
- v : unsigned;
-
-begin
- p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
-
- order_bgra(v ).R:=c.r;
- order_bgra(v ).G:=c.g;
- order_bgra(v ).B:=c.b;
- order_bgra(v ).A:=c.a;
-
- if len > 0 then
-  repeat
-   p^:=v;
-   p :=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
-
-   dec(len );
-
-  until len = 0;
-
-end;
-
-{ bgra32_blend_hline }
-procedure bgra32_blend_hline(this : pixel_formats_ptr; x ,y : int; len : unsigned; c : aggclr_ptr; cover : int8u );
-var
- p : unsigned_ptr;
- v : unsigned;
-
- alpha : unsigned;
-
-begin
- if c.a <> 0 then
-  begin
-   p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
-
-   alpha:=(c.a * (cover + 1 ) ) shr 8;
-
-   if alpha = base_mask then
-    begin
-     order_bgra(v ).R:=c.r;
-     order_bgra(v ).G:=c.g;
-     order_bgra(v ).B:=c.b;
-     order_bgra(v ).A:=c.a;
-
-     repeat
-      p^:=v;
-
-      inc(ptrcomp(p ) ,sizeof(unsigned ) );
-      dec(len );
-
-     until len = 0;
-
-    end
-   else
-    if cover = 255 then
-     repeat
-      blend_pix_bgra(p ,c.r ,c.g ,c.b ,alpha );
-
-      inc(ptrcomp(p ) ,sizeof(unsigned ) );
-      dec(len );
-
-     until len = 0
-    else
-     repeat
-      blend_pix_bgra(p ,c.r ,c.g ,c.b ,alpha ,cover );
-
-      inc(ptrcomp(p ) ,sizeof(unsigned ) );
-      dec(len );
-
-     until len = 0;
-
-  end;
-
-end;
-
-{ bgra32_blend_vline }
-procedure bgra32_blend_vline(this : pixel_formats_ptr; x ,y : int; len : unsigned; c : aggclr_ptr; cover : int8u );
-var
- p : unsigned_ptr;
- v : unsigned;
-
- alpha : unsigned;
-
-begin
- if c.a <> 0 then
-  begin
-   p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
-
-   alpha:=(c.a * (cover + 1 ) ) shr 8;
-
-   if alpha = base_mask then
-    begin
-     order_bgra(v ).R:=c.r;
-     order_bgra(v ).G:=c.g;
-     order_bgra(v ).B:=c.b;
-     order_bgra(v ).A:=c.a;
-
-     repeat
-      p^:=v;
-      p :=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
-
-      dec(len );
-
-     until len = 0;
-
-    end
-   else
-    if cover = 255 then
-     repeat
-      blend_pix_bgra(p ,c.r ,c.g ,c.b ,alpha );
-
-      p:=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
-
-      dec(len );
-
-     until len = 0
-    else
-     repeat
-      blend_pix_bgra(p ,c.r ,c.g ,c.b ,alpha ,cover );
-
-      p:=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
-
-      dec(len );
-
-     until len = 0;
-
-  end;
-
-end;
-
-{ bgra32_blend_solid_hspan }
-procedure bgra32_blend_solid_hspan(this : pixel_formats_ptr; x ,y : int; len : unsigned; c : aggclr_ptr; covers : int8u_ptr );
-var
- p : unsigned_ptr;
-
- alpha : unsigned;
-
-begin
- if c.a <> 0 then
-  begin
-   p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
-
-   repeat
-    alpha:=(c.a * (covers^ + 1 ) ) shr 8;
-
-    if alpha = base_mask then
-     begin
-      order_bgra(p^ ).R:=c.r;
-      order_bgra(p^ ).G:=c.g;
-      order_bgra(p^ ).B:=c.b;
-      order_bgra(p^ ).A:=base_mask;
-
-     end
-    else
-     blend_pix_bgra(p ,c.r ,c.g ,c.b ,alpha ,covers^ );
-
-    inc(ptrcomp(p ) ,4 );
-    inc(ptrcomp(covers ) );
-
-    dec(len );
-
-   until len = 0;
-
-  end;
-
-end;
-
-{ bgra32_blend_solid_vspan }
-procedure bgra32_blend_solid_vspan(this : pixel_formats_ptr; x ,y : int; len : unsigned; c : aggclr_ptr; covers : int8u_ptr );
-var
- p : unsigned_ptr;
-
- alpha : unsigned;
-
-begin
- if c.a <> 0 then
-  begin
-   p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
-
-   repeat
-    alpha:=(c.a * (covers^ + 1 ) ) shr 8;
-
-    if alpha = base_mask then
-     begin
-      order_bgra(p^ ).R:=c.r;
-      order_bgra(p^ ).G:=c.g;
-      order_bgra(p^ ).B:=c.b;
-      order_bgra(p^ ).A:=base_mask;
-
-     end
-    else
-     blend_pix_bgra(p ,c.r ,c.g ,c.b ,alpha ,covers^ );
-
-    p:=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
-
-    inc(ptrcomp(covers ) ,sizeof(int8u ) );
-    dec(len );
-
-   until len = 0;
-
-  end;
-
-end;
-
-{ bgra32_blend_color_hspan }
-procedure bgra32_blend_color_hspan(this : pixel_formats_ptr; x ,y : int; len : unsigned; colors : aggclr_ptr; covers : int8u_ptr; cover : int8u );
-var
- p : unsigned_ptr;
-
-begin
- p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
-
- if covers <> NIL then
-  repeat
-   copy_or_blend_pix_bgra(p ,colors.r ,colors.g ,colors.b ,colors.a ,covers^ );
-
-   inc(ptrcomp(covers ) ,sizeof(int8u ) );
-   inc(ptrcomp(p ) ,4 );
-   inc(ptrcomp(colors ) ,sizeof(aggclr ) );
-   dec(len );
-
-  until len = 0
- else
-  if cover = 255 then
-   repeat
-    copy_or_blend_pix_bgra(p ,colors.r ,colors.g ,colors.b ,colors.a );
-
-    inc(ptrcomp(p ) ,4 );
-    inc(ptrcomp(colors ) ,sizeof(aggclr ) );
-    dec(len );
-
-   until len = 0
-  else
-   repeat
-    copy_or_blend_pix_bgra(p ,colors.r ,colors.g ,colors.b ,colors.a ,cover );
-
-    inc(ptrcomp(p ) ,4 );
-    inc(ptrcomp(colors ) ,sizeof(aggclr ) );
-    dec(len );
-    
-   until len = 0;
-
-end;
-
-{ bgra32_blend_color_vspan }
-procedure bgra32_blend_color_vspan(this : pixel_formats_ptr; x ,y : int; len : unsigned; colors : aggclr_ptr; covers : int8u_ptr; cover : int8u );
-var
- p : unsigned_ptr;
-
-begin
- p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
-
- if covers <> NIL then
-  repeat
-   copy_or_blend_pix_bgra(
-    p ,
-    colors.r ,
-    colors.g ,
-    colors.b ,
-    colors.a ,
-    covers^ );
-
-   inc(ptrcomp(covers ) ,sizeof(int8u ) );
-
-   p:=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
-
-   inc(ptrcomp(colors ) ,sizeof(aggclr ) );
-   dec(len );
-
-  until len = 0
- else
-  if cover = 255 then
-   repeat
-    copy_or_blend_pix_bgra(
-     p ,
-     colors.r ,
-     colors.g ,
-     colors.b ,
-     colors.a );
-
-    p:=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
-
-    inc(ptrcomp(colors ) ,sizeof(aggclr ) );
-    dec(len );
-
-   until len = 0
-  else
-   repeat
-    copy_or_blend_pix_bgra(
-     p ,
-     colors.r ,
-     colors.g ,
-     colors.b ,
-     colors.a ,
-     cover );
-
-    p:=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
-
-    inc(ptrcomp(colors ) ,sizeof(aggclr ) );
-    dec(len );
-
-   until len = 0;
-
-end;
-
-{ bgra32_blend_from }
-procedure bgra32_blend_from(this : pixel_formats_ptr; from : pixel_formats_ptr; psrc_ : int8u_ptr; xdst ,ydst ,xsrc ,ysrc : int; len : unsigned; cover : int8u );
-var
- psrc ,pdst : unsigned_ptr;
-
- incp : int;
-
-begin
- psrc:=unsigned_ptr(psrc_ );
- pdst:=unsigned_ptr(ptrcomp(this.m_rbuf.row(ydst ) ) + (xdst shl 2 ) * sizeof(int8u ) );
- incp:=4;
-
- if ptrcomp(xdst ) > ptrcomp(xsrc ) then
-  begin
-   inc(ptrcomp(psrc ) ,((len - 1 ) shl 2 ) * sizeof(int8u ) );
-   inc(ptrcomp(pdst ) ,((len - 1 ) shl 2 ) * sizeof(int8u ) );
-
-   incp:=-4;
-
-  end;
-
- if cover = 255 then
-  repeat
-   copy_or_blend_pix_bgra(
-    pdst ,
-    order_bgra(psrc^ ).R ,
-    order_bgra(psrc^ ).G ,
-    order_bgra(psrc^ ).B ,
-    order_bgra(psrc^ ).A );
-
-   inc(ptrcomp(psrc ) ,incp );
-   inc(ptrcomp(pdst ) ,incp );
-   dec(len );
-
-  until len = 0
- else
-  repeat
-   copy_or_blend_pix_bgra(
-    pdst ,
-    order_bgra(psrc^ ).R ,
-    order_bgra(psrc^ ).G ,
-    order_bgra(psrc^ ).B ,
-    order_bgra(psrc^ ).A ,
-    cover );
-
-   inc(ptrcomp(psrc ) ,incp );
-   inc(ptrcomp(pdst ) ,incp );
-   dec(len );
-
-  until len = 0;
-
-end;
-
-{ bgra32_copy_color_hspan }
-procedure bgra32_copy_color_hspan(this : pixel_formats_ptr; x ,y : int; len : unsigned; colors : aggclr_ptr );
-var
- p : unsigned_ptr;
-
-begin
- p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
-
- repeat
-  order_bgra(pointer(p )^ ).R:=colors.r;
-  order_bgra(pointer(p )^ ).G:=colors.g;
-  order_bgra(pointer(p )^ ).B:=colors.b;
-  order_bgra(pointer(p )^ ).A:=colors.a;
-
-  inc(ptrcomp(colors ) ,sizeof(aggclr ) );
-  inc(ptrcomp(p ) ,4 );
-  dec(len );
-
- until len = 0;
-
-end;
-
-{ bgra32_copy_color_vspan }
-procedure bgra32_copy_color_vspan(this : pixel_formats_ptr; x ,y : int; len : unsigned; colors : aggclr_ptr );
-var
- p : unsigned_ptr;
-
-begin
- p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
-
- repeat
-  order_bgra(pointer(p )^ ).R:=colors.r;
-  order_bgra(pointer(p )^ ).G:=colors.g;
-  order_bgra(pointer(p )^ ).B:=colors.b;
-  order_bgra(pointer(p )^ ).A:=colors.a;
-
-  p:=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
-
-  inc(ptrcomp(colors ) ,sizeof(aggclr ) );
-  dec(len );
-
- until len = 0;
-
-end;
-
-{ bgra32_blend_from_color }
-procedure bgra32_blend_from_color(this : pixel_formats_ptr; from : pixel_formats_ptr; color : aggclr_ptr; xdst ,ydst ,xsrc ,ysrc : int; len : unsigned; cover : int8u );
-var
- ppsz : unsigned;
-
- psrc : int8u_ptr;
- pdst : unsigned_ptr;
-
-begin
- ppsz:=from._pix_width;
- psrc:=pointer(ptrcomp(from.row_ptr(ysrc ) ) + xsrc * ppsz );
-
- if psrc <> NIL then
-  begin
-   pdst:=unsigned_ptr(ptrcomp(this.m_rbuf.row_xy(xdst ,ydst ,len ) ) + (xdst shl 2 ) );
-
-   repeat
-    copy_or_blend_pix_bgra(
-     pdst ,color.r, color.g, color.b, color.a,
-     shr_int32(psrc^ * cover + base_mask ,base_shift ) );
-
-    inc(ptrcomp(psrc ) ,ppsz );
-    inc(ptrcomp(pdst ) ,4 );
-    dec(len );
-
-   until len = 0;
-
-  end;
-
-end;
-
-{ bgra32_blend_from_lut }
-procedure bgra32_blend_from_lut(this : pixel_formats_ptr; from : pixel_formats_ptr; color_lut : aggclr_ptr; xdst ,ydst ,xsrc ,ysrc : int; len : unsigned; cover : int8u );
-var
- ppsz : unsigned;
-
- psrc : int8u_ptr;
- pdst : unsigned_ptr;
-
- color : aggclr_ptr;
-
-begin
- ppsz:=from._pix_width;
- psrc:=pointer(ptrcomp(from.row_ptr(ysrc ) ) + xsrc * ppsz );
-
- if psrc <> NIL then
-  begin
-   pdst:=unsigned_ptr(ptrcomp(this.m_rbuf.row_xy(xdst ,ydst ,len ) ) + (xdst shl 2 ) );
-
-   if cover = 255 then
-    repeat
-     color:=aggclr_ptr(ptrcomp(color_lut ) + psrc^ * sizeof(aggclr ) );
-
-     copy_or_blend_pix_bgra(pdst ,color.r, color.g, color.b, color.a );
-
-     inc(ptrcomp(psrc ) ,ppsz );
-     inc(ptrcomp(pdst ) ,4 );
-     dec(len );
-
-    until len = 0
-   else
-    repeat
-     color:=aggclr_ptr(ptrcomp(color_lut ) + psrc^ * sizeof(aggclr ) );
-
-     copy_or_blend_pix_bgra(pdst ,color.r, color.g, color.b, color.a ,cover );
-
-     inc(ptrcomp(psrc ) ,ppsz );
-     inc(ptrcomp(pdst ) ,4 );
-     dec(len );
-
-    until len = 0;
-
-  end;
-
-end;
-
+//
+// AggPas 2.4 RM3 pixel format definition file
+//
+{ blend_pix_bgra }
+procedure blend_pix_bgra(p : unsigned_ptr; cr ,cg ,cb ,alpha : int; cover : unsigned = 0 );
+var
+ r ,g ,b ,a : int8u;
+
+begin
+ r:=order_bgra(p^ ).R;
+ g:=order_bgra(p^ ).G;
+ b:=order_bgra(p^ ).B;
+ a:=order_bgra(p^ ).A;
+
+ order_bgra(p^ ).R:=((cr - r ) * alpha + (r shl base_shift ) ) shr base_shift;
+ order_bgra(p^ ).G:=((cg - g ) * alpha + (g shl base_shift ) ) shr base_shift;
+ order_bgra(p^ ).B:=((cb - b ) * alpha + (b shl base_shift ) ) shr base_shift;
+ order_bgra(p^ ).A:=(alpha + a ) - ((alpha * a + base_mask ) shr base_shift );
+
+end;
+
+{ copy_or_blend_pix_bgra }
+procedure copy_or_blend_pix_bgra(p : unsigned_ptr; cr ,cg ,cb ,alpha : unsigned ); overload;
+begin
+ if alpha <> 0 then
+  if alpha = base_mask then
+   begin
+    order_bgra(p^ ).R:=cr;
+    order_bgra(p^ ).G:=cg;
+    order_bgra(p^ ).B:=cb;
+    order_bgra(p^ ).A:=base_mask;
+
+   end
+  else
+   blend_pix_bgra(p ,cr ,cg ,cb ,alpha );
+
+end;
+
+{ copy_or_blend_pix_bgra }
+procedure copy_or_blend_pix_bgra(p : unsigned_ptr; cr ,cg ,cb ,alpha ,cover : unsigned ); overload;
+begin
+ if cover = 255 then
+  copy_or_blend_pix_bgra(p ,cr ,cg ,cb ,alpha )
+ else
+  if alpha <> 0 then
+   begin
+    alpha:=(alpha * (cover + 1 ) ) shr 8;
+
+    if alpha = base_mask then
+     begin
+      order_bgra(p^ ).R:=cr;
+      order_bgra(p^ ).G:=cg;
+      order_bgra(p^ ).B:=cb;
+      order_bgra(p^ ).A:=base_mask;
+
+     end
+    else
+     blend_pix_bgra(p ,cr ,cg ,cb ,alpha ,cover );
+
+   end;
+
+end;
+
+{ bgra32_copy_pixel }
+procedure bgra32_copy_pixel(this : pixel_formats_ptr; x ,y : int; c : aggclr_ptr );
+var
+ p : unsigned_ptr;
+
+begin
+ p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
+
+ order_bgra(p^ ).R:=c.r;
+ order_bgra(p^ ).G:=c.g;
+ order_bgra(p^ ).B:=c.b;
+ order_bgra(p^ ).A:=c.a;
+
+end;
+
+{ bgra32_blend_pixel }
+procedure bgra32_blend_pixel(this : pixel_formats_ptr; x ,y : int; c : aggclr_ptr; cover : int8u );
+begin
+ copy_or_blend_pix_bgra(
+  unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) ) ,
+  c.r ,c.g ,c.b ,c.a ,cover );
+
+end;
+
+{ bgra32_pixel }
+function bgra32_pixel(this : pixel_formats_ptr; x ,y : int ) : aggclr;
+var
+ p : unsigned_ptr;
+
+begin
+ p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
+
+ result.ConstrInt(
+  order_bgra(p^ ).R ,
+  order_bgra(p^ ).G ,
+  order_bgra(p^ ).B ,
+  order_bgra(p^ ).A );
+
+end;
+
+{ bgra32_copy_hline }
+procedure bgra32_copy_hline(this : pixel_formats_ptr; x ,y : int; len : unsigned; c : aggclr_ptr );
+var
+ p : unsigned_ptr;
+ v : unsigned;
+
+begin
+ p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
+
+ order_bgra(v ).R:=c.r;
+ order_bgra(v ).G:=c.g;
+ order_bgra(v ).B:=c.b;
+ order_bgra(v ).A:=c.a;
+
+ if len > 0 then
+  repeat
+   p^:=v;
+
+   inc(ptrcomp(p ) ,4 );
+   dec(len );
+
+  until len = 0;
+
+end;
+
+{ bgra32_copy_vline }
+procedure bgra32_copy_vline(this : pixel_formats_ptr; x ,y : int; len : unsigned; c : aggclr_ptr );
+var
+ p : unsigned_ptr;
+ v : unsigned;
+
+begin
+ p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
+
+ order_bgra(v ).R:=c.r;
+ order_bgra(v ).G:=c.g;
+ order_bgra(v ).B:=c.b;
+ order_bgra(v ).A:=c.a;
+
+ if len > 0 then
+  repeat
+   p^:=v;
+   p :=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
+
+   dec(len );
+
+  until len = 0;
+
+end;
+
+{ bgra32_blend_hline }
+procedure bgra32_blend_hline(this : pixel_formats_ptr; x ,y : int; len : unsigned; c : aggclr_ptr; cover : int8u );
+var
+ p : unsigned_ptr;
+ v : unsigned;
+
+ alpha : unsigned;
+
+begin
+ if c.a <> 0 then
+  begin
+   p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
+
+   alpha:=(c.a * (cover + 1 ) ) shr 8;
+
+   if alpha = base_mask then
+    begin
+     order_bgra(v ).R:=c.r;
+     order_bgra(v ).G:=c.g;
+     order_bgra(v ).B:=c.b;
+     order_bgra(v ).A:=c.a;
+
+     repeat
+      p^:=v;
+
+      inc(ptrcomp(p ) ,sizeof(unsigned ) );
+      dec(len );
+
+     until len = 0;
+
+    end
+   else
+    if cover = 255 then
+     repeat
+      blend_pix_bgra(p ,c.r ,c.g ,c.b ,alpha );
+
+      inc(ptrcomp(p ) ,sizeof(unsigned ) );
+      dec(len );
+
+     until len = 0
+    else
+     repeat
+      blend_pix_bgra(p ,c.r ,c.g ,c.b ,alpha ,cover );
+
+      inc(ptrcomp(p ) ,sizeof(unsigned ) );
+      dec(len );
+
+     until len = 0;
+
+  end;
+
+end;
+
+{ bgra32_blend_vline }
+procedure bgra32_blend_vline(this : pixel_formats_ptr; x ,y : int; len : unsigned; c : aggclr_ptr; cover : int8u );
+var
+ p : unsigned_ptr;
+ v : unsigned;
+
+ alpha : unsigned;
+
+begin
+ if c.a <> 0 then
+  begin
+   p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
+
+   alpha:=(c.a * (cover + 1 ) ) shr 8;
+
+   if alpha = base_mask then
+    begin
+     order_bgra(v ).R:=c.r;
+     order_bgra(v ).G:=c.g;
+     order_bgra(v ).B:=c.b;
+     order_bgra(v ).A:=c.a;
+
+     repeat
+      p^:=v;
+      p :=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
+
+      dec(len );
+
+     until len = 0;
+
+    end
+   else
+    if cover = 255 then
+     repeat
+      blend_pix_bgra(p ,c.r ,c.g ,c.b ,alpha );
+
+      p:=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
+
+      dec(len );
+
+     until len = 0
+    else
+     repeat
+      blend_pix_bgra(p ,c.r ,c.g ,c.b ,alpha ,cover );
+
+      p:=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
+
+      dec(len );
+
+     until len = 0;
+
+  end;
+
+end;
+
+{ bgra32_blend_solid_hspan }
+procedure bgra32_blend_solid_hspan(this : pixel_formats_ptr; x ,y : int; len : unsigned; c : aggclr_ptr; covers : int8u_ptr );
+var
+ p : unsigned_ptr;
+
+ alpha : unsigned;
+
+begin
+ if c.a <> 0 then
+  begin
+   p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
+
+   repeat
+    alpha:=(c.a * (covers^ + 1 ) ) shr 8;
+
+    if alpha = base_mask then
+     begin
+      order_bgra(p^ ).R:=c.r;
+      order_bgra(p^ ).G:=c.g;
+      order_bgra(p^ ).B:=c.b;
+      order_bgra(p^ ).A:=base_mask;
+
+     end
+    else
+     blend_pix_bgra(p ,c.r ,c.g ,c.b ,alpha ,covers^ );
+
+    inc(ptrcomp(p ) ,4 );
+    inc(ptrcomp(covers ) );
+
+    dec(len );
+
+   until len = 0;
+
+  end;
+
+end;
+
+{ bgra32_blend_solid_vspan }
+procedure bgra32_blend_solid_vspan(this : pixel_formats_ptr; x ,y : int; len : unsigned; c : aggclr_ptr; covers : int8u_ptr );
+var
+ p : unsigned_ptr;
+
+ alpha : unsigned;
+
+begin
+ if c.a <> 0 then
+  begin
+   p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
+
+   repeat
+    alpha:=(c.a * (covers^ + 1 ) ) shr 8;
+
+    if alpha = base_mask then
+     begin
+      order_bgra(p^ ).R:=c.r;
+      order_bgra(p^ ).G:=c.g;
+      order_bgra(p^ ).B:=c.b;
+      order_bgra(p^ ).A:=base_mask;
+
+     end
+    else
+     blend_pix_bgra(p ,c.r ,c.g ,c.b ,alpha ,covers^ );
+
+    p:=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
+
+    inc(ptrcomp(covers ) ,sizeof(int8u ) );
+    dec(len );
+
+   until len = 0;
+
+  end;
+
+end;
+
+{ bgra32_blend_color_hspan }
+procedure bgra32_blend_color_hspan(this : pixel_formats_ptr; x ,y : int; len : unsigned; colors : aggclr_ptr; covers : int8u_ptr; cover : int8u );
+var
+ p : unsigned_ptr;
+
+begin
+ p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
+
+ if covers <> NIL then
+  repeat
+   copy_or_blend_pix_bgra(p ,colors.r ,colors.g ,colors.b ,colors.a ,covers^ );
+
+   inc(ptrcomp(covers ) ,sizeof(int8u ) );
+   inc(ptrcomp(p ) ,4 );
+   inc(ptrcomp(colors ) ,sizeof(aggclr ) );
+   dec(len );
+
+  until len = 0
+ else
+  if cover = 255 then
+   repeat
+    copy_or_blend_pix_bgra(p ,colors.r ,colors.g ,colors.b ,colors.a );
+
+    inc(ptrcomp(p ) ,4 );
+    inc(ptrcomp(colors ) ,sizeof(aggclr ) );
+    dec(len );
+
+   until len = 0
+  else
+   repeat
+    copy_or_blend_pix_bgra(p ,colors.r ,colors.g ,colors.b ,colors.a ,cover );
+
+    inc(ptrcomp(p ) ,4 );
+    inc(ptrcomp(colors ) ,sizeof(aggclr ) );
+    dec(len );
+    
+   until len = 0;
+
+end;
+
+{ bgra32_blend_color_vspan }
+procedure bgra32_blend_color_vspan(this : pixel_formats_ptr; x ,y : int; len : unsigned; colors : aggclr_ptr; covers : int8u_ptr; cover : int8u );
+var
+ p : unsigned_ptr;
+
+begin
+ p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
+
+ if covers <> NIL then
+  repeat
+   copy_or_blend_pix_bgra(
+    p ,
+    colors.r ,
+    colors.g ,
+    colors.b ,
+    colors.a ,
+    covers^ );
+
+   inc(ptrcomp(covers ) ,sizeof(int8u ) );
+
+   p:=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
+
+   inc(ptrcomp(colors ) ,sizeof(aggclr ) );
+   dec(len );
+
+  until len = 0
+ else
+  if cover = 255 then
+   repeat
+    copy_or_blend_pix_bgra(
+     p ,
+     colors.r ,
+     colors.g ,
+     colors.b ,
+     colors.a );
+
+    p:=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
+
+    inc(ptrcomp(colors ) ,sizeof(aggclr ) );
+    dec(len );
+
+   until len = 0
+  else
+   repeat
+    copy_or_blend_pix_bgra(
+     p ,
+     colors.r ,
+     colors.g ,
+     colors.b ,
+     colors.a ,
+     cover );
+
+    p:=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
+
+    inc(ptrcomp(colors ) ,sizeof(aggclr ) );
+    dec(len );
+
+   until len = 0;
+
+end;
+
+{ bgra32_blend_from }
+procedure bgra32_blend_from(this : pixel_formats_ptr; from : pixel_formats_ptr; psrc_ : int8u_ptr; xdst ,ydst ,xsrc ,ysrc : int; len : unsigned; cover : int8u );
+var
+ psrc ,pdst : unsigned_ptr;
+
+ incp : int;
+
+begin
+ psrc:=unsigned_ptr(psrc_ );
+ pdst:=unsigned_ptr(ptrcomp(this.m_rbuf.row(ydst ) ) + (xdst shl 2 ) * sizeof(int8u ) );
+ incp:=4;
+
+ if ptrcomp(xdst ) > ptrcomp(xsrc ) then
+  begin
+   inc(ptrcomp(psrc ) ,((len - 1 ) shl 2 ) * sizeof(int8u ) );
+   inc(ptrcomp(pdst ) ,((len - 1 ) shl 2 ) * sizeof(int8u ) );
+
+   incp:=-4;
+
+  end;
+
+ if cover = 255 then
+  repeat
+   copy_or_blend_pix_bgra(
+    pdst ,
+    order_bgra(psrc^ ).R ,
+    order_bgra(psrc^ ).G ,
+    order_bgra(psrc^ ).B ,
+    order_bgra(psrc^ ).A );
+
+   inc(ptrcomp(psrc ) ,incp );
+   inc(ptrcomp(pdst ) ,incp );
+   dec(len );
+
+  until len = 0
+ else
+  repeat
+   copy_or_blend_pix_bgra(
+    pdst ,
+    order_bgra(psrc^ ).R ,
+    order_bgra(psrc^ ).G ,
+    order_bgra(psrc^ ).B ,
+    order_bgra(psrc^ ).A ,
+    cover );
+
+   inc(ptrcomp(psrc ) ,incp );
+   inc(ptrcomp(pdst ) ,incp );
+   dec(len );
+
+  until len = 0;
+
+end;
+
+{ bgra32_copy_color_hspan }
+procedure bgra32_copy_color_hspan(this : pixel_formats_ptr; x ,y : int; len : unsigned; colors : aggclr_ptr );
+var
+ p : unsigned_ptr;
+
+begin
+ p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
+
+ repeat
+  order_bgra(pointer(p )^ ).R:=colors.r;
+  order_bgra(pointer(p )^ ).G:=colors.g;
+  order_bgra(pointer(p )^ ).B:=colors.b;
+  order_bgra(pointer(p )^ ).A:=colors.a;
+
+  inc(ptrcomp(colors ) ,sizeof(aggclr ) );
+  inc(ptrcomp(p ) ,4 );
+  dec(len );
+
+ until len = 0;
+
+end;
+
+{ bgra32_copy_color_vspan }
+procedure bgra32_copy_color_vspan(this : pixel_formats_ptr; x ,y : int; len : unsigned; colors : aggclr_ptr );
+var
+ p : unsigned_ptr;
+
+begin
+ p:=unsigned_ptr(ptrcomp(this.m_rbuf.row(y ) ) + (x shl 2 ) );
+
+ repeat
+  order_bgra(pointer(p )^ ).R:=colors.r;
+  order_bgra(pointer(p )^ ).G:=colors.g;
+  order_bgra(pointer(p )^ ).B:=colors.b;
+  order_bgra(pointer(p )^ ).A:=colors.a;
+
+  p:=unsigned_ptr(this.m_rbuf.next_row(int8u_ptr(p ) ) );
+
+  inc(ptrcomp(colors ) ,sizeof(aggclr ) );
+  dec(len );
+
+ until len = 0;
+
+end;
+
+{ bgra32_blend_from_color }
+procedure bgra32_blend_from_color(this : pixel_formats_ptr; from : pixel_formats_ptr; color : aggclr_ptr; xdst ,ydst ,xsrc ,ysrc : int; len : unsigned; cover : int8u );
+var
+ ppsz : unsigned;
+
+ psrc : int8u_ptr;
+ pdst : unsigned_ptr;
+
+begin
+ ppsz:=from._pix_width;
+ psrc:=pointer(ptrcomp(from.row_ptr(ysrc ) ) + xsrc * ppsz );
+
+ if psrc <> NIL then
+  begin
+   pdst:=unsigned_ptr(ptrcomp(this.m_rbuf.row_xy(xdst ,ydst ,len ) ) + (xdst shl 2 ) );
+
+   repeat
+    copy_or_blend_pix_bgra(
+     pdst ,color.r, color.g, color.b, color.a,
+     shr_int32(psrc^ * cover + base_mask ,base_shift ) );
+
+    inc(ptrcomp(psrc ) ,ppsz );
+    inc(ptrcomp(pdst ) ,4 );
+    dec(len );
+
+   until len = 0;
+
+  end;
+
+end;
+
+{ bgra32_blend_from_lut }
+procedure bgra32_blend_from_lut(this : pixel_formats_ptr; from : pixel_formats_ptr; color_lut : aggclr_ptr; xdst ,ydst ,xsrc ,ysrc : int; len : unsigned; cover : int8u );
+var
+ ppsz : unsigned;
+
+ psrc : int8u_ptr;
+ pdst : unsigned_ptr;
+
+ color : aggclr_ptr;
+
+begin
+ ppsz:=from._pix_width;
+ psrc:=pointer(ptrcomp(from.row_ptr(ysrc ) ) + xsrc * ppsz );
+
+ if psrc <> NIL then
+  begin
+   pdst:=unsigned_ptr(ptrcomp(this.m_rbuf.row_xy(xdst ,ydst ,len ) ) + (xdst shl 2 ) );
+
+   if cover = 255 then
+    repeat
+     color:=aggclr_ptr(ptrcomp(color_lut ) + psrc^ * sizeof(aggclr ) );
+
+     copy_or_blend_pix_bgra(pdst ,color.r, color.g, color.b, color.a );
+
+     inc(ptrcomp(psrc ) ,ppsz );
+     inc(ptrcomp(pdst ) ,4 );
+     dec(len );
+
+    until len = 0
+   else
+    repeat
+     color:=aggclr_ptr(ptrcomp(color_lut ) + psrc^ * sizeof(aggclr ) );
+
+     copy_or_blend_pix_bgra(pdst ,color.r, color.g, color.b, color.a ,cover );
+
+     inc(ptrcomp(psrc ) ,ppsz );
+     inc(ptrcomp(pdst ) ,4 );
+     dec(len );
+
+    until len = 0;
+
+  end;
+
+end;
+