представление текстуры: длина примитивов

из набора текстур выбрать наиболее близкую к заданной.
Определяется по длине примитивов(бегущей длине)(http://www.icaen.uiowa.edu/~dip/LECTURE/Texture1.html#runlength)
К сожалению так и не разобрался как собственно искать примитивы, а конкретнее все эти значения (B, L и т.д. кроме M,N :) )
Задача именно в алгоритме, т.е. сторонние библиотеки, пакеты и т.п. использовать нельзя. Особенно отлично если у кого есть готовый алгоритм(поиска примитивов или вообще представления текстуры через длину примитивов) на Delphi(object pascal)