New unit (fpg_imgutils)

* This will contain various utility functions to works on images.
* Implemented a GrayScale Filter function.

5 files changed, 123 insertions, 6 deletions

diff --git a/src/corelib/fpg_imgutils.pas b/src/corelib/fpg_imgutils.pas
new file mode 100644
index 00000000..afb4d4fe
--- /dev/null
+++ b/src/corelib/fpg_imgutils.pas
@@ -0,0 +1,110 @@
+{
+    fpGUI  -  Free Pascal GUI Toolkit
+
+    Copyright (C) 2006 - 2010 See the file AUTHORS.txt, included in this
+    distribution, for details of the copyright.
+
+    See the file COPYING.modifiedLGPL, included in this distribution,
+    for details about redistributing fpGUI.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+    Description:
+      Some handly image manipulation functions to use with TfpgImage class.
+      Included is a gray color conversion matrix.
+}
+
+unit fpg_imgutils;
+
+{$mode objfpc}{$H+}
+
+{ TODO : Make the conversion matrix a plugable architecture. Similar to the
+         interpolation handling in TfpgCanvas. }
+
+interface
+
+uses
+  fpg_base,
+  fpg_main;
+
+type
+  TGrayConvMatrix = record
+    red: single;
+    green: single;
+    blue: single;
+  end;
+
+var
+  GrayConvMatrix: TGrayConvMatrix;
+  GrayBrightness: Boolean;
+  GrayBrightnessPercentage: integer;
+
+const
+  GCM_NTSC: TGrayConvMatrix = (red:0.299; green:0.587; blue:0.114);                 // NTSC method
+  GCM_Mathematical: TGrayConvMatrix = (red:0.334; green:0.333; blue:0.333);         // Intensity method
+  GCM_Photoshop: TGrayConvMatrix = (red:0.212671; green:0.715160; blue:0.072169);   // Y of YUV from B/W TV's
+
+
+procedure fpgApplyGreyFilter(var AImg: TfpgImage);
+function fpgCalculateGray(const AFrom: TfpgColor; const ABrighter: boolean = False; const APercent: integer = 0): TfpgColor;
+
+
+implementation
+
+
+procedure fpgApplyGreyFilter(var AImg: TfpgImage);
+var
+  x, y: integer;
+  c: TfpgColor;
+begin
+  for x := 0 to AImg.Width-1 do
+  begin
+    for y := 0 to AImg.Height-1 do
+    begin
+      c := AImg.Colors[x, y];
+      AImg.Colors[x, y] := fpgCalculateGray(c, GrayBrightness, GrayBrightnessPercentage);
+    end;
+  end;
+  AImg.UpdateImage;
+end;
+
+
+{ AFrom is the original color we want to change
+  ABrighter = True goes to direction of White. False goes to direction of Black
+  APercent =  0 zero is straight conversion to gray. 100% is pure black or
+              white, depending on ABrighter value. }
+function fpgCalculateGray(const AFrom: TfpgColor; const ABrighter: boolean = False; const APercent: integer = 0): TfpgColor;
+var
+  g: integer;
+  rgb: TFPColor;
+begin
+  with GrayConvMatrix do
+  begin
+    rgb := fpgColorToFPColor(AFrom);
+    g := round(red*rgb.red + green*rgb.green + blue*rgb.blue);
+
+    if ABrighter then
+      g := trunc(255 - ((255 - g) * (100 - APercent) / 100))
+    else
+      g := trunc(g * (100 - APercent) / 100);
+
+    if (g < 0) then g := 0;
+    if (g > 255) then g := 255;
+
+    rgb.Red := g;
+    rgb.Green := g;
+    rgb.Blue := g;
+  end;
+  Result := FPColorTofpgColor(rgb);
+end;
+
+
+initialization
+  GrayConvMatrix := GCM_NTSC;
+  GrayBrightness := True;
+  GrayBrightnessPercentage := 20;
+
+end.
+
diff --git a/src/corelib/gdi/fpgui_toolkit.lpk b/src/corelib/gdi/fpgui_toolkit.lpk
index 127b315f..c989269e 100644
--- a/src/corelib/gdi/fpgui_toolkit.lpk
+++ b/src/corelib/gdi/fpgui_toolkit.lpk
@@ -31,7 +31,7 @@
     <Description Value="fpGUI Toolkit"/>

     <License Value="LGPL 2 with static linking exception."/>

     <Version Minor="7"/>

-    <Files Count="78">

+    <Files Count="79">

       <Item1>

         <Filename Value="..\stdimages.inc"/>

         <Type Value="Include"/>

@@ -344,6 +344,9 @@
         <Filename Value="..\..\gui\inputquerydialog.inc"/>

         <Type Value="Include"/>

       </Item78>

+      <Item79>

+        <Filename Value="..\fpg_imgutils.pas"/>

+      </Item79>

     </Files>

     <LazDoc Paths="..\..\..\docs\xml\corelib\;..\..\..\docs\xml\corelib\x11\;..\..\..\docs\xml\corelib\gdi\;..\..\..\docs\xml\gui\"/>

     <RequiredPkgs Count="1">

@@ -360,4 +363,4 @@
       <IgnoreBinaries Value="False"/>

     </PublishOptions>

   </Package>

-</CONFIG>
\ No newline at end of file
+</CONFIG>

diff --git a/src/corelib/gdi/fpgui_toolkit.pas b/src/corelib/gdi/fpgui_toolkit.pas
index 0ec7907a..2e3e81b6 100644
--- a/src/corelib/gdi/fpgui_toolkit.pas
+++ b/src/corelib/gdi/fpgui_toolkit.pas
@@ -1,4 +1,4 @@
-{ This file was automatically created by Lazarus. Do not edit!

+{ This file was automatically created by Lazarus. do not edit!

   This source is only used to compile and install the package.

  }

 

@@ -18,7 +18,7 @@ uses
   fpg_radiobutton, fpg_scrollbar, fpg_style, fpg_tab, fpg_trackbar, fpg_tree, 

   fpgui_db, fpg_gdi, fpg_impl, fpg_splitter, fpg_hint, fpg_spinedit, 

   fpg_extgraphics, fpg_ColorMapping, fpg_ColorWheel, fpg_interface, 

-  fpg_editbtn, fpg_imgfmt_jpg;

+  fpg_editbtn, fpg_imgfmt_jpg, fpg_imgutils;

 

 implementation

 

diff --git a/src/corelib/x11/fpgui_toolkit.lpk b/src/corelib/x11/fpgui_toolkit.lpk
index 1e2bd934..de52e851 100644
--- a/src/corelib/x11/fpgui_toolkit.lpk
+++ b/src/corelib/x11/fpgui_toolkit.lpk
@@ -32,7 +32,7 @@
     <License Value="LGPL 2 with static linking exception.
 "/>
     <Version Minor="7"/>
-    <Files Count="82">
+    <Files Count="83">
       <Item1>
         <Filename Value="../stdimages.inc"/>
         <Type Value="Include"/>
@@ -361,6 +361,10 @@
         <Filename Value="../../gui/inputquerydialog.inc"/>
         <Type Value="Include"/>
       </Item82>
+      <Item83>
+        <Filename Value="../fpg_imgutils.pas"/>
+        <UnitName Value="fpg_imgutils"/>
+      </Item83>
     </Files>
     <LazDoc Paths="../../../docs/xml/corelib/;../../../docs/xml/corelib/x11/;../../../docs/xml/corelib/gdi/;../../../docs/xml/gui/"/>
     <RequiredPkgs Count="1">
diff --git a/src/corelib/x11/fpgui_toolkit.pas b/src/corelib/x11/fpgui_toolkit.pas
index 9373d818..f9ea7c1d 100644
--- a/src/corelib/x11/fpgui_toolkit.pas
+++ b/src/corelib/x11/fpgui_toolkit.pas
@@ -17,7 +17,7 @@ uses
   fpg_mru, fpg_panel, fpg_popupcalendar, fpg_progressbar, fpg_radiobutton, 
   fpg_scrollbar, fpg_style, fpg_tab, fpg_trackbar, fpg_tree, fpgui_db, fpg_splitter, 
   fpg_hint, fpg_spinedit, fpg_extgraphics, fpg_ColorMapping, fpg_ColorWheel, 
-  fpg_interface, fpg_editbtn, fpg_imgfmt_jpg;
+  fpg_interface, fpg_editbtn, fpg_imgfmt_jpg, fpg_imgutils;
 
 implementation