Fill a Shape

[TB]

Hi!

How can I fill out a polygon with a color.
When I know the outline or the corner points of a polygon, so how can I get all pixels that are inside the shape.

I tried to move along the outline till I reach the center of the shape but I had a lot of problems.

Thank you for any help.
Using VB 6.0

[Fox]

A simple way is drawing the polygon using the API...


'Open a new VB project and add this code
'to the general section:

'Types
Private Type tCoord2D
x As Long
y As Long
End Type

'Declares
Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As tCoord2D, ByVal nCount As Long) As Long

'Now add this to the Form_MouseDown event:
Dim Points(2) As tCoord2D

'Setup form (You can put this in
'Form_Load or directly edit the props)
With Me
.ScaleMode = 3

.BackColor = 0

.ForeColor = RGB(128, 0, 255)
.FillColor = RGB(128, 0, 255)
.FillStyle = 0

.Cls
End With

'Setup poylgon with 3 corners
Points(0).X = X
Points(0).Y = Y

Points(1).X = X + 100
Points(1).Y = Y + 50

Points(2).X = X + 50
Points(2).Y = Y + 100

'Draw the polygon
Polygon Me.hdc, Points(0), 3

[TB]

Thanks!

But how can I fill the shape with a texture(from a Bitmap) or with a gradient fill?

[Fox]

Thus you should use D3D... look at the D3D demo on my website which shows you how to draw a gradient-colored triangle (and rotate it ;))

[Arcom]

Or, you can create a region, select it into device context and then fill it with anything you want...

If you want (or if you are not familiar with the Windows API), I can make a sample app to demonstrate this.