Hough transform algorithm problem
Posted on 2003-11-08
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
//// 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;
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...