Объединение точек на Visul Basic

[Manul_87]

Здравствуйте! Подскажите пожалуйста, как на Visul Basic объединить все точки одного цвета в область для дальнейшей обработки?

Цвет каждого пиксела определять научился с помощью GetPixel, каждый цвет забивается в переменную px(x, y) таким образов составляется многомерный массив, где x-ширина, а y-высота изображения.

Какой функцией можно объединить все точки одного цвета?

[EducatedFool]

А что означает "объединить все точки одного цвета в область"?
Что представляет из себя "область"?

Может, напишите исходную формулировку задачи, чтобы понять, о чём вообще идёт речь?

[Manul_87]

В итоге нужно будет получить из цветного изображения, штрихованное, причём штриховка будет соответствовать определённому диапазону цветов.

Но прежде чем штриховать нужно объединить точки с одинаковым цветом, работая с каждым пикселем в отдельности штриховать нельзя.

[EducatedFool]

Почему это надо сделать именно в Visual Basic?

Алгоритм весьма сложен - проще уж использовать VBA в Corel, да и там всё это непросто реализуется.

Для чего всё это надо?

[Manul_87]

Решение данной задачи необходимо для автоматизации подготовки изображений для записи цифровых голограмм. В дальнейшем штрихованная картинка будет выводиться на ЖК-матрицу, работающую на просвет... ну и тем самым в следствии интерференции на пластинку записывается галограмма

[EducatedFool]

А если для решения задачи использовать какой-либо плагин для Photoshop-а или Corel-а?

На Visual Basic реализовать подобное будет сложновато...

[Manul_87]

С Corel пробовал там всё проще, но дело в том что в программе изображение должно быть итогом обработки 2-х картинок. одного цветного, а второго grayscale (т.е. градации серого). Путём сопоставления картинок (a) и (b) должно получиться изображение (c), где угол наклона штриховки задаётся из базы данных градациями серого на 1-й картинке, а период - цветом на 2-й.

Через Corel и Vba вторую картинку не залить.

[EducatedFool]

В Corel PhotoPaint есть инструмент под названием "Волшебная палочка", который одним нажатием позволяет выделять отдельные области рисунка:



Если прикрутить сюда макрос - появляются шансы на относительно простое решение задачи.

[Manul_87]

а как там можно будет подгрузить второе изображение для обработки? Ведь картинка должна быть итогом обработки 2-х картинок

[Manul_87]

В Corel получается приблизительно такой код

PHP код:

    Dim x As Integer
    Dim y As Integer
    
    pruw = ActivePage.Width
    pruh = ActivePage.Height
    
    
    ReDim s(1 To 5, 1 To 5)
    
    ReDim poi(1 To 5, 1 To 5)
    ReDim piu(1 To 5, 1 To 5)
    
 
    ReDim Widthk(1 To 5)
    ReDim Heightk(1 To 5)
    
    shn = 3

    For x = 1 To 5
    For y = 1 To 5
    
    Widthk(x) = 2 * x
    Heightk(y) = 2 * y
    poi(x, y) = ActivePage.Point(Widthk(x), Heightk(y))
    Set s(x, y) = ActivePage.CustomCommand("Boundary", "SmartFill", Widthk(x), Heightk(y), CreateCMYKColor(0, 0, 0, 0), 0#, CreateCMYKColor(0, 0, 0, 0))

shn = shn + 3
    s(x, y).Fill.UniformColor.CMYKAssign 0, 0, 0, 0
    s(x, y).Fill.ApplyPostscriptFill("Hatching").SetProperties 75, 75, 5, shn, 0
    
Next y
    Next x 


Для наглядности поставил: shn - наклон штриховки, shn - каждый раз больше на 3.

Но вот проблема: как сделать так чтобы скрипт не выполнялся каждый раз для уже обработанных областей, иначе макрос виснет.

Пробовал сравнить s(x, y):

PHP код:

    If s(x, y) = s(x + 1, y) Then
    piu(x, y) = 1
    ElseIf s(x, y) = s(x, y + 1) Then piu(x, y) = 1
    Else
    piu(x, y) = 0
    End If
   
    If piu(x, y) = 0 Then

Тут весь скрипт...

    End If 


Изображение прекращает обрабатываться вообще.