, Visual C#


- 4


If Abs(dx) + Abs(dy) < 0.001 Then Exit Do

x2 = x2 + dy * step_size

y2 = y2 - dx * step_size

FindPointOnCurve(x2, y2, LevelCurves, x2, y2, _

tolerance)

' ( ) :

'g.DrawLine(myPen, x1, y1, x2, y2)

' - 1-

' , :

i = i + 2

myArrayVB(i, 0) = x1

myArrayVB(i, 1) = y1

myArrayVB(i + 1, 0) = x2

myArrayVB(i + 1, 1) = y2

N_1_myArrayVB = i + 1 ' .

'

' 2- , :

ii = ii + 2

myArrayVB_2(ii, 0) = x1

myArrayVB_2(ii, 1) = y1

myArrayVB_2(ii + 1, 0) = x2

myArrayVB_2(ii + 1, 1) = y2

N_1_myArrayVB_2 = ii + 1 ' .

' :

num_points = num_points + 1

', :

If x2 < x_min Or x2 > x_max Or _

y2 < y_min Or y2 > y_max _

Then Exit Do

' 4 ,

' :

If num_points >= 4 Then

If Sqrt((x0 - x2) * (x0 - x2) + (y0 - y2) _

* (y0 - y2)) <= step_size * 1.1 Then

' ( ):

'g.DrawLine(myPen, x2, y2, x0, y0)

' 1- :

i = i + 2

myArrayVB(i, 0) = x2

myArrayVB(i, 1) = y2

myArrayVB(i + 1, 0) = x0

myArrayVB(i + 1, 1) = y0

N_1_myArrayVB = i + 1 ' .