, Visual C#


- 8


' 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)