Заполнение треугольника в виде RGB массива

[d3drm]

У меня есть массив, который представляет из себя прямоугольное изображение. Есть три точки, образующие треугольник в этом массиве (т.е. точка состоит из x,y - координат в этом массиве). Как мне закрасить весь треугольник в этом массиве?

[SHURUP]

Перебираешь все точки, и проверяешь их на принадлежность треугольнику (который задаешь координатами вершин).
Алгоритм проверки наличия точки треугольнику есть, например тут:
http://algolist.manual.ru/maths/geom/belong/poly2d.php

[d3drm]

Эх... Как всегда, разобрался сам...

Ну и как всегда выкладываю код тем, кто может напороться на подобную проблему.

Код: Выделить всё

Private Sub DrawTriOnArray(x0, y0, x1, y1, x2, y2)

    Dim dxy_left As Single, dxy_right As Single
    Dim xs As Single, xe As Single

    If x1 > x2 Then
        dxy_left = (x2 - x0) / (y2 - y0)
        dxy_right = (x1 - x0) / (y1 - y0)
    Else
        dxy_left = (x1 - x0) / (y1 - y0)
        dxy_right = (x2 - x0) / (y2 - y0)
    End If
   
    xs = x0: xe = x0
   
    Dim i As Integer, j As Integer
    For i = y0 To y2
        For j = xs To xe
            pic.PSet (j, i)
        Next j
        xs = xs + dxy_left
        xe = xe + dxy_right
    Next i
End Sub

Но только этот код заполняет треугольники с плоским нижним ребром (x1=x2), как переделать для любого треугольника думаю труда не составит.

[d3drm]

Перебираешь все точки, и проверяешь их на принадлежность треугольнику (который задаешь координатами вершин).
Алгоритм проверки наличия точки треугольнику есть, например тут:
http://algolist.manual.ru/maths/geom/belong/poly2d.php

Слишком медленный способ. Мне это нужно делать в цикле, так что нужно максимально оптимизировать. Мой код тоже далек от идеала, там вычисления с плавающей точкой, нужно заменить на целочисленные координаты, будет работать раза в 2-3 быстрее.