Ignore:
Timestamp:
Apr 17, 2019, 12:58:41 AM (5 years ago)
Author:
chronos
Message:
  • Modified: Propagate project build mode options to used packages.
  • Added: Check memory leaks using heaptrc.
  • Modified: Update BGRABitmap package.
Location:
GraphicTest
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • GraphicTest

    • Property svn:ignore

      •  

        old new  
        88GraphicTest.lps
        99GraphicTest.dbg
         10heaptrclog.trc

  • GraphicTest/Packages/bgrabitmap/multishapeline.inc

    r494 r521  
    22        for k := 0 to NbShapeRows-1 do
    33        with shapeRow[shapeRowsList[k]],shapes[shapeRowsList[k]] do
     4        if densMinx <= densMaxx then
    45        begin
     6          if densMinx < minx then densMinx := minx;
     7          if densMaxx > maxx then densMaxx := maxx;
     8
    59          if texture <> nil then
    610          begin
    … …  
    1115            with sums[xb-minx] do
    1216            begin
    13               j := pdens^; inc(pdens);
    14               if j <> 0 then
     17              if pdens^ <> 0 then
    1518              begin
    1619                ec := GammaExpansion(ScanNextFunc());
    1720                {$ifdef PARAM_ANTIALIASINGFACTOR}
    18                   w := DivByAntialiasPrecision65536(j*ec.alpha);
     21                  w := DivByAntialiasPrecision65536(pdens^ * ec.alpha);
    1922                {$else}
    20                   w := (j*ec.alpha) shr 16;
     23                  w := (pdens^ * ec.alpha) shr 16;
    2124                {$endif}
    2225                if w <> 0 then
    … …  
    2932              end else
    3033                ScanNextFunc();
     34              inc(pdens);
    3135            end;
    3236          end else
    … …  
    3741             with sums[xb-minx] do
    3842             begin
    39                j := pdens^; inc(pdens);
    40                if j <> 0 then
     43               if pdens^ <> 0 then
    4144               begin
    4245                 {$ifdef PARAM_ANTIALIASINGFACTOR}
    43                    w := DivByAntialiasPrecision65536(j*ec.alpha);
     46                   w := DivByAntialiasPrecision65536(pdens^ * ec.alpha);
    4447                 {$else}
    45                    w := (j*ec.alpha) shr 16;
     48                   w := (pdens^ * ec.alpha) shr 16;
    4649                 {$endif}
    4750                 if w <> 0 then
    … …  
    5356                 end;
    5457               end;
     58               inc(pdens);
    5559             end;
    5660          end;
Note: See TracChangeset for help on using the changeset viewer.