# Hough transform algorithm problem

Hi,

I am trying to write a program that searches for lines in a Bitmap picture.

for i := 1 to bmp.Width-2 do
for j:= 1 to bmp.Height-2 do
begin
//// this thing is for transforming the picture to black-white//////
r := ColorToRGB(bmp.Canvas.Pixels[i, j]) mod \$100;
g := ColorToRGB(bmp.Canvas.Pixels[i, j]) mod \$10000 div \$100;
b := ColorToRGB(bmp.Canvas.Pixels[i,j - 1]) div \$10000;
x := (3*r+6*g+b) div 10;
bmp.Canvas.Pixels[i,j] := x + x*\$100 + x*\$10000;
end;
Image1.Picture.Bitmap := bmp;

what I need is to do something in this style, but function should use Hough algorithm to find lines.
I can't find anything useful on the net :-(

help me please... someone... at least exact algorithm would be a good start...
LVL 1
###### Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Commented:
Have a look at this component from Torry's Delphi page at:

http://www.torry.net/graphicspacks.htm

http://www.torry.net/vcl/graphics/packs/pixelook.zip

Features Hough analysis which may be usefule to you.

Regards,

Hypoviax

Experts Exchange Solution brought to you by