VPF::Рисунок в динамике - Форум программистов

roor_perl

Дата 9.6.2007, 21:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 5.11.2006

Репутация: нет
Всего: нет

Помогите, плиз, реализовать, прорисовку круга(елипса), в реалтайме., т.е. что бы можно было наюлбдать его плавную прорисовку, на экране, от центра, к ограничения, опр радиуса, а то уже даж и представить не могу как его реализовать, иль кинте ссылкой, буду оч презнателен.

fish9370

Дата 10.6.2007, 14:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 663
Регистрация: 15.4.2007
Где: Москва

Репутация: 1
Всего: 1

Код


#include <math.h>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int nR=30;  //радиус
    float fStep=0.01;  //шаг
    HDC hDC=GetDC(Form1->Handle);
    for(float fAngle=0.01;fAngle<6.28;fAngle+=fStep)  //угол в радианах
    {
        SetPixel(hDC,nR*sin(fAngle)+100,nR*cos(fAngle)+100,0); //прорисовка точки с центром (100,100), цветом 0
        Sleep(10); //задержка 10 мс
    }
}

Это сообщение отредактировал(а) fish9370 - 10.6.2007, 14:18

--------------------

undefined

roor_perl

Дата 10.6.2007, 14:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 5.11.2006

Репутация: нет
Всего: нет

потчи то что надо, (но я имел ввиду, круг расходится, ка на воде волны от брошенного камня), но сейчас сам попробую разобратся, примного благодарен

fish9370

Дата 10.6.2007, 14:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 663
Регистрация: 15.4.2007
Где: Москва

Репутация: 1
Всего: 1

добавь наращивание радиуса в цикле.. думаю сам справишься, это не сложно..

--------------------

undefined

roor_perl

Дата 10.6.2007, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 5.11.2006

Репутация: нет
Всего: нет

угу

, только, как это на канвас переместить ?

Это сообщение отредактировал(а) roor_perl - 10.6.2007, 14:54

roor_perl

Дата 10.6.2007, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 5.11.2006

Репутация: нет
Всего: нет

собсно говоря решено, smile

наконецто дошло

Код


    for(int nR=0;nR<mR1;nR++){
    for(float fAngle=0;fAngle<6.30;fAngle+=fStep)  //óãîë â ðàäèàíàõ
    {
        x1 = nR*sin(fAngle)+x;
        y1 = nR*cos(fAngle)+y;

        Image1->Canvas->Pixels[x1][y1] = clGreen;
       }
       Image1->Refresh();
    Sleep(15);
    }

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »