Параллельный алгоритм hough с использованием omnithread lib

Question

Я хочу ускорить обработку изображений, используя обнаружение круга.

// For all rows in image: 
    for y:=0 to AnalysisBitmap.Height-1 do 
    begin 
    // For all pixel in one row : 
    for x:=0 to AnalysisBitmap.Width-1 do 
    begin 
     // Is there a point ? 
     if IsPixel(x,y, AnalysisBitmap, 128) then 
     begin 
      for theta:=0 to max_theta do 
      begin 
       TestPoint.x := round (x - r * cos(theta*PI/max_theta)); 
       TestPoint.y := round (y - r * sin(theta*PI/max_theta)); 

       if ((testPoint.x < ImageWidth) and (testPoint.x > 0) and 
        (testPoint.y < ImageHeight) and (testPoint.y > 0)) then Inc(aHoughResult[TestPoint.x,TestPoint.y]); 
      end; 
     end; 
    end; 
    end; 

Как VCL Bitmap не поточно я думаю, я могу только сделать параллельную обработку внутренней Theta Loop? Каков наилучший подход для ускорения этого кода.

Answer 1

Да, этого достаточно, чтобы распараллелить только внутренний цикл. Не забудьте организовать правильный обмен aHoughResult, например - с критической секцией.

В новейших версиях Delphi вы можете использовать как OTL, так и встроенные возможности System.Threading.TParallel.

Самое важное ускорение (я думаю) - заполнить таблицу значениями round(r*cos(theta*PI/max_theta)) и использовать их внутри циклов.