LazPaint (alpha-blending, antialiasing, filters)

[circular]

Yes, there is. It is in the folder https://lazpaint.svn.sourceforge.net/svnroot/lazpaint/bgrabitmap/

[IndianaJones]

Upps, I overlooked the file. Here is the changes.

//     {$IFDEF DARWIN}
//     RawImage.Description.Init_BPP32_R8G8B8_BIO_TTB(AWidth,AHeight);
//     SwapRedBlue;
//     {$ELSE}
     RawImage.Description.Init_BPP32_B8G8R8_BIO_TTB(AWidth,AHeight);
//     {$ENDIF}
     RawImage.Description.LineOrder:= ALineOrder;
     RawImage.Description.LineEnd := rileDWordBoundary;
     RawImage.Data:= PByte(AData);
     RawImage.DataSize:= AWidth*AHeight*Sizeof(TBGRAPixel);
     CreateSuccess := RawImage_CreateBitmaps(RawImage, BitmapHandle, MaskHandle, false);
//     {$IFDEF DARWIN}
//     SwapRedBlue;
//     {$ENDIF}

And here is the result.

[circular]

It does not make sense. The header is correct, and the generation of the color circle does not goes through a TColor type. So there is no inversion in LazPaint code. So I suppose the error is in the Lazarus code or Freepascal code. We can fix it in LazPaint by swapping Red/Blue without changing headers, we will obtain the right result, but it is a trick. If the Freepascal code is corrected, it will be swapped again. In the meantime, can you try this:

     {$IFDEF DARWIN}
     SwapRedBlue;
     {$ENDIF}

     RawImage.Description.Init_BPP32_B8G8R8_BIO_TTB(AWidth,AHeight);
     RawImage.Description.LineOrder:= ALineOrder;
     RawImage.Description.LineEnd := rileDWordBoundary;
     RawImage.Data:= PByte(AData);
     RawImage.DataSize:= AWidth*AHeight*Sizeof(TBGRAPixel);
     CreateSuccess := RawImage_CreateBitmaps(RawImage, BitmapHandle, MaskHandle, false);

     {$IFDEF DARWIN}
     SwapRedBlue;
     {$ENDIF}

Note: there is another problem with the background color. In uchoosecolor.pas, in the procedure FormCreate, there are two lines to determine the colors of the text and of the background :

   FormBackgroundColor := ColorToBGRA(ColorToRGB(self.Color));
   FormTextColor := ColorToBGRA(ColorToRGB(clWindowText));

It seems that this does not work on Mac. Can you try this instead?

   FormBackgroundColor := ColorToBGRA(ColorToRGB(clBtnFace));
   FormTextColor := ColorToBGRA(ColorToRGB(clWindowText));

[IndianaJones]

For the first changes, but the effect is same. (output is the same as the previous one.)
     if (AHeight=0) or (AWidth = 0) then exit;

     RawImage.Init;
     {$IFDEF DARWIN}
     SwapRedBlue;
     {$ENDIF}

          RawImage.Description.Init_BPP32_B8G8R8_BIO_TTB(AWidth,AHeight);
          RawImage.Description.LineOrder:= ALineOrder;
          RawImage.Description.LineEnd := rileDWordBoundary;
          RawImage.Data:= PByte(AData);
          RawImage.DataSize:= AWidth*AHeight*Sizeof(TBGRAPixel);
          CreateSuccess := RawImage_CreateBitmaps(RawImage, BitmapHandle, MaskHandle, false);

     {$IFDEF DARWIN}
     SwapRedBlue;
     {$ENDIF}

     if not CreateSuccess then ...
----------------------------------------------------------------------------------------------------
And the second is correct, that can be changed as you suggested.
   FormBackgroundColor := ColorToBGRA(ColorToRGB(clBtnFace));
   FormTextColor := ColorToBGRA(ColorToRGB(clWindowText));            

For the first case, I tested with the original TColorDialog on the mac and the result is correct. I mean the colors are the correct positions.

Here is the trick point maybe this can be show the way.
In the first screenshot (screenshot1) the red picked from the Color Window, but blue is shown. (I pointed with the red circle)
In the second screenshot (screenshot2) the blue picked from the Color Window, but red is shown. (I pointed out with the red circle)
Thanks.

[circular]

For the first changes, but the effect is same. (output is the same as the previous one.)
     if (AHeight=0) or (AWidth = 0) then exit;

     RawImage.Init;
     {$IFDEF DARWIN}
     SwapRedBlue;
     {$ENDIF}

          RawImage.Description.Init_BPP32_B8G8R8_BIO_TTB(AWidth,AHeight);
          RawImage.Description.LineOrder:= ALineOrder;
          RawImage.Description.LineEnd := rileDWordBoundary;
          RawImage.Data:= PByte(AData);
          RawImage.DataSize:= AWidth*AHeight*Sizeof(TBGRAPixel);
          CreateSuccess := RawImage_CreateBitmaps(RawImage, BitmapHandle, MaskHandle, false);

     {$IFDEF DARWIN}
     SwapRedBlue;
     {$ENDIF}

That's not possible. Maybe the compilation is not complete. When you run the project, do a "rebuild all" or something like this. It is the item after normal build (Ctrl-F9). Can you try commenting or decommenting the SwapRedBlue line, rebuild everything and launch the program?

Here is the trick point maybe this can be show the way.
In the first screenshot (screenshot1) the red picked from the Color Window, but blue is shown. (I pointed with the red circle)
In the second screenshot (screenshot2) the blue picked from the Color Window, but red is shown. (I pointed out with the red circle)

In this cas, clearly the color circle is red-blue swapped.

Thanks.

[circular]

I've updated the English help for LazPaint and BGRABitmap :
http://wiki.lazarus.freepascal.org/LazPaint
http://wiki.lazarus.freepascal.org/BGRABitmap

[IndianaJones]

I rebuild the application with Build All, but there is no difference. So I think BGRAGtkBitmap is not interpreted because of the $(LCLWidgetType) in the BGRABitmap unit.
In this unit there are the following statements but carbon is missing or BGRADefaultBitmap is interpreted not BGRAGtkBitmap.
That could be the problem or may be I am wrong with looking at the source code.
P.S. I am using Mac OS X (Carbon widgetset)

{$IFDEF LCLwin32}
  BGRAWinBitmap
{$ELSE}
  {$IFDEF LCLgtk}
   BGRAGtkBitmap
  {$ELSE}
    {$IFDEF LCLgtk2}
     BGRAGtkBitmap
    {$ELSE}
     BGRADefaultBitmap
    {$ENDIF}
  {$ENDIF}
{$ENDIF}                   

[circular]

You're right. If it's not using Gtk, the it swaps to default implementation.

I have done new changes. You can download it on subversion. Does it work ?

It is possible to make a special unit for carbon, in order to make it faster. Problem is I can't do it myself because I do not have carbon.

[IndianaJones]

I have tested the latest svn 15, and get the following error while compiling.

/lazpaint/bgrabitmap/bgradefaultbitmap.pas(3118,27) Error: identifier idents no member "Init_BPP24_R8G8B8_BIO_TTB"

[circular]

Ok. So let's do the swap manually.

Can you try with the new version ?

[IndianaJones]

I have tested with the new svn 16, and it works now also "New Image" window renders ok.
P.S. Hide/Unhide can be added to the Tools and Color windows.
Good work.

[circular]

Cool. Thank you.

About hiding tools and color window, it is possible with the menu View.

What about blur windows (in Filter menu) ?

[circular]

Here is a new version (1.7)
- renders correctly on MacOS
- added two filters : sphere and cylinder
- added "crop to selection" in Image menu

https://sourceforge.net/projects/lazpaint/files/lazpaint/

[IndianaJones]

What about blur windows (in Filter menu) ?

It would be superb.

[DelphiFreak]

Hello Circular,

I wanted to debug into the Blur methods but it does not stop when I set the breakpoints.
How to do this?

I did once a little performance optimization.

The optimizations is based on the following theory:
A) to "get" a pixel is faster the "set" a pixel.
B) a black pixel can not get darker than black.

So this means from a performance point of view, it make sense to only calculate blur for pixels which are not already black.
 
http://www.cabiatl.com/mricro/bounty/

Regards,
Sam