Вопрос по Графике.

[BlackvsEvgen]

Не знаю где задать вопрос, поэтому тему завел. Вот такой вопрос:
Надо написать программу чтоб шарих в параболле катался. так вот вопрос к какому разделу дэльфи такая прога относитса? С помощью чего ее писать? там с помощью OpenGL или надо с классом Canvas разбиратса? кто знает подскажите плиз, а то не знаю с чего начать изучать. И если кто-то знает где информация по этому поводу - дайте ссылку пожалуйста.

[Somebody]

Парабола - это 2D, шар - это 3D. Уточни, что именно надо.

[BlackvsEvgen]

Somebody, получаетса в параболе тогда круг катаетса, значит все надо в 2D мне сделать.

[BlackvsEvgen]

Народ ну подскажите кто с графикой розбираетса, с помощью чего можна прогу сделать: параболу а внутри круг катался по ней. Не знаю с чего начать.

[pu4koff]

Для этой задачи думаю canvas'a Вам хватит

[BlackvsEvgen]

pu4koff, а есть какие-нибудь соображения как это с помощью Canvasa сделать?

[Stilet]

BlackvsEvgen

Формулу параболы знаешь?
Рисовать на Canvas умеешь?

[BlackvsEvgen]

Stilet, формулу то знаю, не понятно как сделать чтоб в этой параболе круг вращаля при нажатии на стрелочки.

[BlackvsEvgen]

Народ объяснити пожалуйста, как в Сanvase график параболы сделать.
Два дня сижу блин все эту параболу мучаю. Я вот как бы нашел параболу, так немного не понятно как код работает

Var i : Integer; // Переменая счётчика
y, x : Real; // Координаты x и y
xc, yc : Integer; // Координаты центра О
Begin
xc := Round(350); // это я сделал чтоб на моей форме точно снизу начало былр
yc := Round(500);
x := - Form1.Width;// Вот эта Строка задает координаты левой ветки параболы? Вот когда этот код вставляю в обработчик Онпэинт на форме то ничего не отрисовываетса, если удаляю эту строчку из кода, то рисуетса только правоя ветка параболы. А если делать через компонент Имэйдж, то все нормально отрисовываетса. Что исправить чтоб на форме нормально рисовался?
// Построение графика.
For i := 1 To 500000 Do // А почему такой большой цикл???
Begin
x := x + 0.001;
y := x * x;
If (y < 450) And (y > -450 ) Then
Form1.Canvas.Pixels[Round(x * 10) + xc, yc - Round(y)]:=0;
End;
End;

Народ если кому не лень и время есть объясните. А то я прочитал и у Архангельского в книге и Библию Дельфи , ни как не могу понять как строить графики.
И еще вопрос а средствами OpenGL это можно сделать? Мне просто надо еще парабалоид вращения сделать чтоб его покрутить, повращать, так я вот думаю может не терять время на Canvas , а OpenGL учить.

[pu4koff]

Вот побыстрому набросал Вам параболу. Не самый оптимальный вариант, но рисуется. Что еще надо для счастья
Принцип следующий:
Для точки на форме (0; y') расчитываем координату x для граффика. Потом по формуле параболы: y = x*x определяем координату y. Потом эту координату переводим в экранные и получаем y'. Помещаем перо рисования в координату (0; y');
Так же делаем расчет для экранной точки (1; y1') и проводим линию в эту точку. Потом (2; y2') и так проходим по всей форме слева на право по всей её ширине