, Visual C#


         

0, 0,


' 0, 0, 0, 1 :
Public Sub TransformAllDataFull(ByRef M(,) As Single)
TransformDataFull(M, 1, NumLines)
End Sub
' (translation matrix)
' , MatrixApplyFull.
' 0, 0, 0, 1 :
Public Sub TransformDataFull(ByRef M(,) As Single, _
ByVal line1 As Integer, ByVal line2 As Integer)
Dim i As Integer
For i = line1 To line2
MatrixApplyFull(Lines(i).fr_points, M, _
Lines(i).fr_tr_points)
MatrixApplyFull(Lines(i).to_points, M, _
Lines(i).to_tr_points)
Next i
End Sub
' - N_Graphics - -.
' 1:
Dim N_Graphics As Integer = 1
' - :
Public Sub DrawSolid(ByVal bmp As Bitmap, _
ByVal first_line As Integer, ByVal last_line As Integer, _
ByVal color As Color, ByVal clear As Boolean)
Dim k As Integer
Dim x1 As Single : Dim y1 As Single
Dim x2 As Single : Dim y2 As Single
Dim g As Graphics : Dim pen As Pen
' , , 2
'( Designing):
pen = New Pen(color, 2)
' g bmp:
g = Graphics.FromImage(bmp)
If clear Then g.Clear(System.Drawing.Color.Black)
' :
Dim i, j As Integer
' DrawSolid
' N_Graphics = 2,
' 1- - M2:
If N_Graphics = 2 Then GoTo M2
' :
' myArrayVB(i, j)

    





Forekc.ru
, , , , , , , , , ,