Залитый полигон методами формы...

[Kurt]

Здравствуйте!
Во время моей скромной программистской деятельности возникла
острая нужда нарисовать залитые полигоны на форме.
Все бы ничего, но мне надо это сделать именно методами формы,
без API!
Как это сделать?
Подозреваю, что надо использовать Line... или нет?
Буду искренне рад ответу - надо очень..

[Mikle]

Такое было в QBasic, а в VB почему-то нет. Придется писать свою процедуру. Для треугольника - элементарно.

[Kurt]

Если не тяжело, покажи как.
Хотя, в основном мне нужны четырехугольники и выше...

[Mikle]

Создай новый проект, в форму вставь код:

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

Option Explicit

Private Sub Form_Click()
  Me.Cls
  PaintTri Rnd * Me.ScaleWidth, Rnd * Me.ScaleHeight, Rnd * Me.ScaleWidth, Rnd * Me.ScaleHeight, Rnd * Me.ScaleWidth, Rnd * Me.ScaleHeight, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

Private Sub PaintTri(inx1 As Long, iny1 As Long, inx2 As Long, iny2 As Long, inx3 As Long, iny3 As Long, Col As Long)
Dim x1 As Long, y1 As Long, x2 As Long, y2 As Long, x3 As Long, y3 As Long
Dim x As Long, y As Long, k1 As Single, k2 As Single, k3 As Single
  x1 = inx1: x2 = inx2: x3 = inx3
  y1 = iny1: y2 = iny2: y3 = iny3
  If y1 > y2 Then Swap x1, x2: Swap y1, y2
  If y2 > y3 Then Swap x2, x3: Swap y2, y3
  If y1 > y2 Then Swap x1, x2: Swap y1, y2

  If y3 = y1 Then k1 = 0 Else k1 = (x3 - x1) / (y3 - y1)
  If y2 = y1 Then k2 = 0 Else k2 = (x2 - x1) / (y2 - y1)
  If y3 = y2 Then k3 = 0 Else k3 = (x3 - x2) / (y3 - y2)

  For y = y1 To y2
    Line (x1 + k1 * (y - y1), y)-(x1 + k2 * (y - y1), y), Col
  Next y

  For y = y2 + 1 To y3
    Line (x1 + k1 * (y - y1), y)-(x2 + k3 * (y - y2), y), Col
  Next y
End Sub

Private Sub Swap(x1 As Long, x2 As Long)
Dim tmp As Long
  tmp = x2
  x2 = x1
  x1 = tmp
End Sub

Private Sub Form_Load()
  Me.ScaleMode = vbPixels
End Sub


кликай мышкой по форме и смотри...

[Kurt]

Хм.. Вот оно как..
Только небось ресурсов ест многовато.
Мне надо быстро нарисовать около 50 тыс. полигонов (в основном четырехугольники).

[Mikle]

Может тебе нужны прямоугольники, причем расположенные "горизонтально"? Тогда есть:

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

line(x1,y1)-(x2,y2),color,bf

[Kurt]

Не-не!
Я, конечно, слабоват в VB, но это знаю.
Нужны не только прямоугольники, а полигоны вообще..

[GSerg]

Любой выпуклый многоугольник разрезается на треугольники.

[Kurt]

Любой выпуклый многоугольник разрезается на треугольники.

Да понимаю! Но это слишком ресурсоемко!!!

[_NeoN_]

хо хо хо, 50 тысяч будет и с api долго рисоваться...

[GSerg]

Короче.
Мало гемора
Много гемора