Hough transform: Difference between revisions
m
→{{header|Phix}}: IupCloseOnEscape no longer needed, bugfix, speedup
m (→{{header|Racket}}: fixed link) |
m (→{{header|Phix}}: IupCloseOnEscape no longer needed, bugfix, speedup) |
||
Line 758:
height = 2*floor(height / 2)
integer xsize = im_width(im),
ysize =
sequence canvas = repeat(repeat(255,width),height)
atom rmax = hypot(xsize, ysize),
Line 773 ⟶ 772:
integer iry = (height/2 + floor(r2/dr + 0.5))+1,
cik = canvas[iry][k] - 1
end if
end for
end if
end for
end for
Ihandle new_img =
for c=0 to 255 do
IupSetStrAttributeId(new_img,"",c,"%d %d %d",{c,c,c})
end for
return new_img
end function
Line 787 ⟶ 790:
atom pError = allocate(machine_word())
imImage im1 = imFileImageLoadBitmap("
if im1=NULL then ?"error opening
Ihandln image1 = IupImageFromImImage(im1),
image2 = hough_transform(im1),
Line 798 ⟶ 801:
Ihandle dlg = IupDialog(IupHbox({label1, label2}))
IupSetAttribute(dlg, "TITLE", "Hough transform")
IupShow(dlg)
| |||