Деформация графика

Dim X1(0 To 100) As Double
Dim Y1(0 To 100) As Double
Dim W As Double
Dim run As Boolean
Dim Paus As Boolean
 
Dim X2(0 To 100) As Double
Dim Y2(0 To 100) As Double
 
Dim Xt(0 To 100) As Double
Dim Yt(0 To 100) As Double
 
 
Private Sub Ris_Click()
    Init 'Вызываем процедуру прорисовки функции y=sin(x)
End Sub
 
Private Sub Rotate_Click()
   run = Not (run) 'Запускаем или останавливаем вращение
End Sub
Private Sub Transform_Click()
 
Dim Kol_F As Integer ' Количество промежуточных кадров
Dim Tek_F As Integer ' Текущий кадр
 
Command4.Enabled = True
 
Kol_F = 5000  ' Кол. шагов за которое одна фигура преобразуется в другую
 
Do While Tek_F < Kol_F  'Цикл выпоняется до тех пор пока текущий кадр меньше конечного
Tek_F = Tek_F + 1       'Берем следующий кадр
t = (Tek_F - 1) / Kol_F 'Вычисляем коэф. преобразования
 
Form1.Cls
For i = 0 To 100
' Вычисляем координаты точек функции в текущем кадре
Xt(i) = (1 - t) * X1(i) + t * (X2(i))
Yt(i) = (1 - t) * Y1(i) + t * (Y2(i))
 
'Исключаем ошибочное обращение к массиву ((0-1)=-1)
If i > 0 Then Line (Xt(i - 1), Yt(i - 1))-(Xt(i), Yt(i))
 
'Form1.PSet (Xt(i), Yt(i))
Next i
 
DoEvents
 
Loop
 
Command4.Enabled = False
 
End Sub
 
Private Sub Command4_Click()
 
Paus = Not (Paus)
 
Command4.Caption = "Продолжить"
 
Do While Paus
    DoEvents
Loop
 
Command4.Caption = "Остановить"
 
End Sub
 
Private Sub Form_Load()
 
W = 0.017 * 3 ' Задаем угол поворота
 
' Загружаем в массив X2(i) координаты функции y=Tan(x)(к которой будем стремиться)
For i = 1 To 100
    'Xs = 3.112 / 100 * i
    Xs = 0.03112 * i
    Ys = 1 / Tan(Xs)
    X2(i) = i / 10 - 5
    Y2(i) = Ys * 3
Next i
 
X2(0) = -5
Y2(0) = 32 * 3
 
'Xt(0) = -50
'Yt(0) = 0
 
End Sub
 
 
 
 
Private Sub Timer1_Timer()
 
If run Then 'Если было запущенно вращение, то вычисляем новые значения координат точек графика y=sin(x)
 
Form1.Cls
 
For i = 0 To 100
 
    Xs = X1(i)
    Ys = Y1(i)
    X1(i) = Xs * Cos(W) + Ys * Sin(W)
    Y1(i) = -Xs * Sin(W) + Ys * Cos(W)
    
    If i > 0 Then Line (X1(i - 1), Y1(i - 1))-(X1(i), Y1(i))
 
Next i
 
End If
 
End Sub
 
Sub Init()
 
run = False ' Если было запущенно вращение, то останавливаем его
 
Form1.Cls
 
' Загружаем в массив X1(i) координаты функции y=sin(x)
X1(0) = -50
Y1(0) = 0
For i = 1 To 100
    Xs = 12.5 / 100 * i
    Ys = Sin(2 * Xs)
    X1(i) = i / 1 - 50
    Y1(i) = 50 * Ys
    Line (X1(i - 1), Y1(i - 1))-(X1(i), Y1(i))
Next i
 
End Sub