Виявлення кількості ниток на зображенні тканини

Я початківець користувач в обробці зображень і працюю над проектом, щоб визначити кількість ниток на зображенні тканини, тобто основи та качки (перпендикулярні та паралельні нитки до осі x).

Я намагаюся виявити нитки, взявши суму стовпців і рядків для основи і качка відповідно, але це, здається, не працює, тому що зображення не дуже добре зосереджене і чітке. Також метод значно чутливий до вирівнювання ниток в тканині.

Будь ласка, запропонуйте кращий алгоритм, якщо це можливо для виявлення ниток. Крім того, якщо є можливість зробити пряжу прямою для кожного знятого зображення. Я спробував IMROTATE, але це створює чорні області в зображенні, які порушують суму рядків, і алгоритм виходить з ладу.

Будь-яка допомога в цьому плані буде для мене дуже вагомою. Дякую.

Перетворення фур'є дасть вам період будь-яких періодичних особливостей на зображенні - наприклад, він скаже вам, що є подія структури 3 пікселя по горизонталі та 5 пікселів по вертикалі, з цього і за шкалою пікселів ви можете обчислити кількість ниток

Деякі коди в Mathematica:

i = ColorNegate@Import@"http://i.stack.imgur.com/Jlhgw.jpg";
i3 = DeleteSmallComponents[Binarize[i, .4], 10];
lines = ImageLines[i3, .6];
Show[i, Graphics[{Thick, Orange, Line /@ lines}]]
(*y coord mean increments at x=0 *)
b = Mean@Differences@ Sort[(#[[2, 1]] #[[1, 2]] - #[[1, 1]] #[[2, 2]])/(#[[1,1]] - #[[2, 1]]) & /@ lines];
(*mean slope*)
a = Mean[-(-#[[1, 2]] + #[[2, 2]])/(#[[1, 1]] - #[[2, 1]]) & /@ lines];
(*Threads*)
- a ImageDimensions[i3][[1]]/b 
(*yarns*)
2 ImageDimensions[i3][[2]]/b

Результат>

34.5541
27.2259