Author |
Topic |
xequte
38499 Posts |
|
wesleybobato
Brazil
367 Posts |
|
spetric
Croatia
308 Posts |
Posted - Mar 13 2015 : 05:47:10
|
A little ad hoc app. to perform 3x3 adaptive convolution on 24-bit images (c++).
1. Desired filter (selected from combo box) is applied to gray-scale copy of original image (8-bit depth). 2. Gray-scale image pixels are loaded in appropriate floating-point array and normalized to 1. 3. Original image channels are also loaded into separate byte-type arrays. 4. Gray-scale array data at position [i,j] (neighbor pixels) is used as 3x3 convolution kernel. 5. Convolution is performed for each pixel and all channels. 6. Resultant image is copied to output.
attach/spetric/201531354517_adaptive_convolution_distib.zip 3525.49 KB
With best regards, Siniša |
|
|
w2m
USA
1990 Posts |
Posted - Mar 19 2015 : 10:50:29
|
Post Messages Demo by William Miller/Adirondack Full Source Compiled with DelphiXE7, but is expected to compile with Delphi 2010 or higher. Price: Free
This application demonstrates how to post messages to a form which displays this message after the main form becomes visible... a runtime created OnAfterShow event if you will.
This application also demonstrates how to post a message to create a new user created runtime TImageEnVect event. In this case, the runtime created event could be considered a "OnAfterNewObject event". This event is executed every time a object is added to TImageEnVect. When the "OnAfterNewObject event" is executed, a modal form appears which asks if the object should be added. If the user replies "Yes" no action is taken. If the user replies "No" the new object is removed. Source Code: attach/w2m/2015319105426_PostMessage.zip 63.48 KB
Bill Miller Adirondack Software & Graphics Email: w2m@hughes.net EBook: http://www.imageen.com/ebook/ Custom Commercial ImageEn Development |
|
|
rmklever
Norway
51 Posts |
|
w2m
USA
1990 Posts |
Posted - Apr 22 2015 : 13:42:35
|
Handling Multiframe Images By Bill Miller Adirondack Software & Graphics Full Source Demo Project Compiled with Delphi XE7 Price: FREE
Shows how to handle multi-frame TIF, GIF and ICO files with ImageEnMView. Open, add frames, insert frames, replace frames, delete frames, rotate frame, save, saveas and export selected frame.
Download:
attach/w2m/2015422142359_Multiframe.zip 51.87 KB
Bill Miller Adirondack Software & Graphics Email: w2m@hughes.net EBook: http://www.imageen.com/ebook/ Custom Commercial ImageEn Development |
|
|
w2m
USA
1990 Posts |
Posted - May 08 2015 : 16:00:42
|
Create Thumbnail With IEConvertToThumbnail By Bill Miller Adirondack Software & Graphics Full Source Demo Project Compiled with Delphi XE7 Price: FREE This project shows how to utilize the excellent IEConvertToThumbnail procedure in iexHelperFunctions.pas unit as well as to save full frame images and thumbnails.
Download: attach/w2m/201558155952_Thumbnails.zip 59.05 KB
Bill Miller Adirondack Software & Graphics Email: w2m@hughes.net EBook: http://www.imageen.com/ebook/ Custom Commercial ImageEn Development |
|
|
rmklever
Norway
51 Posts |
|
w2m
USA
1990 Posts |
Posted - Jun 02 2015 : 11:56:00
|
LoadFromFileOnDemand With Annotations By Adirondack Software & Graphics Full Source Price: Free
This simple application was developed to test a potential bug in TImageEnMView to try to determine why ImageEnMView1.MIO.Params [idx].ImagingAnnot.ObjectsCount always returns 0. Although I was unable to find out what was causing the problem, the application may be useful to those developers who want to easily display vectorial objects in TImageEnVect as thumbnails in TImageEnMView.
Download: attach/w2m/201562122519_LoadFileOnDemand.zip 49.53 KB
Bill Miller Adirondack Software & Graphics Email: w2m@hughes.net EBook: http://www.imageen.com/ebook/ Custom Commercial ImageEn Development |
|
|
rmklever
Norway
51 Posts |
Posted - Jun 24 2015 : 19:45:35
|
FX filter, Symmetric Nearest Neighbour by Roy M Klever Full source and demo exe Written in Delphi 2010
I like this filter but it gets quite slow at larger radiuses. If you figure out how to improve the speed I sure would love to hear about it.
Download: attach/rmklever/2015624194141_FXSNN.zip 1988.53 KB
Roy M Klever Klever on Delphi - www.rmklever.com |
|
|
spetric
Croatia
308 Posts |
Posted - Jul 01 2015 : 04:12:17
|
Hi Roy,
At a first look, you can get rid of Sqrt function used for calculating variables d1 and d2 (distance), because it's expensive and you repeatedly call it inside 4 nested loops.
As variables d1 and d2 are used only for comparing (if d1 < d2 then begin), calling Sqrt is not necessary (you can compare d1^2 and d2^2 as well).
|
|
|
rmklever
Norway
51 Posts |
Posted - Jul 02 2015 : 16:50:25
|
Hei Siniša,
Yes, that made quite a difference. Even if the result changed a little it is still acceptable. Thanks for the idea! I used this formula so I did not need to use LAB color space, which is quite slow and also would require sqrt in the processing of color comparing.
Roy M Klever Klever on Delphi - www.rmklever.com |
|
|
rmklever
Norway
51 Posts |
Posted - Jul 14 2015 : 11:30:11
|
My attempt at a Clarity routine Delphi 2010 - Source and Exe
In this demo the blur value is scaled so it can be hard to see the effect if you use large images. The demo is just for testing.
I do not have LightRoom so I am not really sure what the Clarity function do but from what I have found on the net I came up with this.
Hope you find it useful
Download: attach/rmklever/2015714112919_FXLocalContrast.zip 1988.39 KB
Roy M Klever Klever on Delphi - www.rmklever.com |
|
|
Uwe
284 Posts |
|
rmklever
Norway
51 Posts |
Posted - Jul 14 2015 : 13:11:25
|
Hi Uwe,
No I did not use any code from RawTherapee. I do not know that program at all. Actually I could not find any code samples of how to implement Clarity except one that I did not like in VB.
If I come up with a better solution or find some code explaining me the procedure I gone add it here but for now I am just guessing.
Well I did a lot of testing but none gave me the result I wanted. This was the closest I could get for the moment.
Do you have any resources of how it is implemented?
Roy M Klever Klever on Delphi - www.rmklever.com |
|
|
Uwe
284 Posts |
|
w2m
USA
1990 Posts |
Posted - Jul 16 2015 : 15:32:36
|
DrawGrid In OnDrawBackBuffer Event with Alternate Colors and Zoom Support By Bill Miller Adirondack Software & Graphics Full Source Demo Project Compiled with Delphi XE7 Price: FREE
The grid is drawn as close as possible to the DisplayGrid provided by ImageEn. Every 32nd column or row is drawn with a 2 pixel wide blue color. The "inside" pixels are drawn in white or black. The image may be zoomed and at every full increment of 100% zoom the grid dimensions are zoomed as well.
Download link: attach/w2m/2015716153051_Drawgrid.zip 49 KB
Bill Miller Adirondack Software & Graphics Email: w2m@hughes.net EBook: http://www.imageen.com/ebook/ Custom Commercial ImageEn Development |
|
|
wesleybobato
Brazil
367 Posts |
|
w2m
USA
1990 Posts |
Posted - Sep 28 2015 : 12:52:06
|
Thumbnail Creation 5 Different Ways by William Miller/Adirondack Full Source Compiled with Delphi 10 Seattle on Windows 10, but is expected to compile with Delphi 2010 or higher. Price: Free
This demo allows visual comparison of thumbnails created 5 different ways with ImageEn.
The source code may be downloaded here: attach/w2m/2015928143951_Resampling.zip 119.13 KB
Bill Miller Adirondack Software & Graphics Email: w2m@hughes.net EBook: http://www.imageen.com/ebook/ Custom Commercial ImageEn Development |
|
|
xequte
38499 Posts |
|
Topic |
|