Создание анимации на VisualBasic

[andik]

Пожалуйста, подскажите, если у кого есть какие-нибудь мысли.
Задача: создать анимацию, чтобы круг плавно превращался в квадрат.
Примерный алгоритм будет примерно такой:
1) строим фигуру
2) небольшая задержка времени
3) стираем фигуру (рисуем фигуру с цветом фона)
и повторение.

Я просто не могу понять как сделать так, чтобы из круга получался квадрат.
Есть у меня такая идея: рисую квадрат в PictureBox, ввожу на нем систему координат (оператор scale), затем рисую внутри него квадрат поменьше, чтобы его диагональ была равно диагонали круга. А круг у нас будет увеличиваться примерно так:
for r=2 to 4 step 0.1
fillstyle=0
fillcolor=vbyellow
circle(0,0),r
next r
И при максимальном радиусе этот круг полностью закрашивает маленький квадрат.

Вот только мне эта идея кажется не очень хорошей. Есть у кого-нибудь идеи?

[RUSt88]

нужно использовать эллипс и его возможности рисования
на делфи можно так (winApi)

RoundRect( dc, 1, 1, r.Right, r.Bottom, FPercentEllipse, FPercentEllipse );

эта функция рисует эллипс с заданными параметрами:
dc - холст
2-4 параметры задают расположение и размеры прямоугольника
последние 2 параметра - процент закругления углов
увеличивая последних 2 параметра можно получить плавно круг из квадрата, и наоборот

[Sasha_Smirnov]

Примерно та же идея на Visual Basic for Application (ВБА).

1. Строим круг в виде узловой линии (polyline) c восьмью узлами.
2. Удаляем каждый второй узел (что непросто — через макрорекордер).
3. Участки (4 сегмента) линии — спрямляем.

Если спрямлять не сразу, пошагово — получим нужный эффект.

(Остаётся принять, что 8-угольник с скруглёнными углами является кругом.)

Приложил пример проекта в документе. (Или проект проекта.)
Нажимая Ctrl-Z, после выполнения, можно наблюдать шаги построения.

[andik]

Придумал однако такой алгоритм =)

Private Sub Picture1_Click()
Picture1.Scale (-15, 15)-(15, -15)
Picture1.BackColor = RGB(0, 255, 0)
'из круга в квадрат
i = 0
For r = 10 To 0 Step -0.01
i = i + 0.01
'рисуем линии
Picture1.Line (-i, 10)-(i, 10)
Picture1.Line (-i, -10)-(i, -10)
Picture1.Line (10, i)-(10, -i)
Picture1.Line (-10, i)-(-10, -i)
'рисуем дуги
Picture1.Circle (i, -i), r, , -3 * 3.14 / 2, -2 * 3.14
Picture1.Circle (i, i), r, , -2 * 3.14, -3.14 / 2
Picture1.Circle (-i, i), r, , -3.14 / 2, -3.14
Picture1.Circle (-i, -i), r, , -3.14, -3 * 3.14 / 2
For k = 1 To 50000
Next k
Picture1.Cls
Next r
'из квадрата в круг
For r = 0 To 10 Step 0.01
i = i - 0.01
'рисуем линии
Picture1.Line (-i, 10)-(i, 10)
Picture1.Line (-i, -10)-(i, -10)
Picture1.Line (10, i)-(10, -i)
Picture1.Line (-10, i)-(-10, -i)
'рисуем дуги
Picture1.Circle (i, -i), r, , -3 * 3.14 / 2, -2 * 3.14
Picture1.Circle (i, i), r, , -2 * 3.14, -3.14 / 2
Picture1.Circle (-i, i), r, , -3.14 / 2, -3.14
Picture1.Circle (-i, -i), r, , -3.14, -3 * 3.14 / 2
For k = 1 To 50000
Next k
Picture1.Cls
Next r
End Sub

PS: ну естественно сначала на форму добавляем PictureBox

[andik]

Немного переделал код, так лучше =)

Private Sub Form_click()
Picture1.Scale (-15, 15)-(15, -15)
Picture1.BackColor = vbBlue
End Sub

Private Sub Command1_Click()
For p = 0 To 4
'из круга в квадрат'
i = 0
For r = 10 To 0 Step -0.01
i = i + 0.01
'рисуем линии'
Picture1.FillStyle = 0
Picture1.FillColor = vbRed
Picture1.Line (-i, 10.01)-(i, -10.01), vbRed, BF
Picture1.Line (10.01, i)-(-10, -i), vbRed, BF
'рисуем дуги'
Picture1.Circle (i, -i), r, vbRed, -3 * 3.14 / 2, -2 * 3.14
Picture1.Circle (i, i), r, vbRed, -2 * 3.14, -3.14 / 2
Picture1.Circle (-i, i), r, vbRed, -3.14 / 2, -3.14
Picture1.Circle (-i, -i), r, vbRed, -3.14, -3 * 3.14 / 2
'задержка (пустой цикл)'
For k = 1 To 50000
Next k
'стираем то что нарисовано'
Picture1.Cls
Next r
'из квадрата в круг'
For r = 0 To 10 Step 0.01
i = i - 0.01
'рисуем линии'
Picture1.Line (-i, 10)-(i, -10.01), vbRed, BF
Picture1.Line (10.01, i)-(-10, -i), vbRed, BF
'рисуем дуги'
Picture1.Circle (i, -i), r, vbRed, -3 * 3.14 / 2, -2 * 3.14
Picture1.Circle (i, i), r, vbRed, -2 * 3.14, -3.14 / 2
Picture1.Circle (-i, i), r, vbRed, -3.14 / 2, -3.14
Picture1.Circle (-i, -i), r, vbRed, -3.14, -3 * 3.14 / 2
'задержка (пустой цикл)'
For k = 1 To 50000
Next k
'стираем то что нарисовано'
Picture1.Cls
Next r
Next p
End Sub