i'm trying now testing the function:
Code:
'Convert all 3D vectors to 2D vectors(for screen): Dim i As Integer
For i = 0 To 3
Points(i) = ConvertPositon3DTo2D(NewPosition3D(i), WorldSize)
Next i
'change the brush and pen:
'FillStyle = vbFSSolid
'FillColor = vbRed
DrawStyle = DrawStyleConstants.vbInvisible
Polygon Me.hDC, Points(0), 4
Dim points2(4) As POINTAPI
points2(0) = Points(0)
points2(1) = Points(1)
points2(2) = Points(2)
points2(3) = Points(3)
PlgBlt Me.hDC, points2(0), Picture1.hDC, 0, 0, Picture1.ScaleWidth , Picture1.ScaleHeight , &O0, &O0, &O0
i did several tests but i only get like a line on a diagonal
i changed the points but i continue with bad results.
the points order:
- points(0) is the low-left;
- points(1) is the upper-left;
- points(2) is the upper-right;
- points(3) is the low-right;
and yes i did too:
Code:
points2(0) = Points(1)
points2(1) = Points(2)
points2(2) = Points(3)
points2(3) = Points(0)
but i get diagonal white line result
so what i'm doing wrong?