[AlexSoft]

Можно ли нарисовать Объёмный шар в дельфи с помощью конвы? Если можно, то как?

[Pilot_Red]

Встроенных делфовских функций нет для отрисовки объемных изображений
Используй OpenGL или DelphiX. ну или на худой конец можешь сам написать функции рендеринга 3D изображений))

[AlexSku]

Сообщение от AlexSoft

Можно ли нарисовать Объёмный шар в дельфи с помощью конвы? Если можно, то как?

Проекция шара это окружность. Видимо стоит задача освещённости?
ball.jpg

[AlexSoft]

Сообщение от AlexSku

Проекция шара это окружность. Видимо стоит задача освещённости?
Вложение 2033

ДА. Как сделать нужную освещенность?

[AlexSku]

А я просто использую DirectX, он сам ведёт расчёты. При желании можно найти формулы (типа "угол падения равен углу отражения"), но это будут не формулы реальной сцены, а описывающие модели освещённости в DirectX. Шар же представлен сетью треугольников (mesh), у каждой вершины задаётся нормаль.
Ещё объёмность можно передать рисунком (примеры: земной шар, футбольный мяч). В DirectX это также делается просто: плоский рисунок (текстура) "натягивается" на сферу.

[AND_REY]

Первое что в голову пришло :

Код:

Var
 x,y: Integer;
 t: Real;
 c: Byte;
begin
t:= -350;
While t < 350 Do
 begin
  For c:= 255 DownTo 0 Do
   begin
    x:= Round(255+c*Sin(t));
    y:= Round(255+c*Cos(t));
    Form1.Canvas.Pixels[x,y]:= RGB(255-c,0,0);
   end;
  t:= t + 0.1;
 end;
end;

[AlexSku]

Оригинально. Правда, очень медленно - несколько секунд (в DirectX за секунду можно перерисовать буфер и несколько тысяч раз).
Я тоже думал над формулами. Я бы сделал несколько этапов.
1. (как у вас). Берётся убывающая ф-ия. Это яркость для R, G, B. Причём, если мы хотим в центре светлое пятно, то внутри пятна R=G=B. А за границами пятна G и B становятся 0, а R плавно убывает до некой константы.
2. Параметр убывающей ф-ции это сферические координаты широта и долгота. У широты диапазон -pi/2 .. pi/2 (северное и южное полушарие), а у долготы 0..pi (так любят математики) или -pi/2 .. pi/2 (так люди обозначают западное и восточное полушария). Сразу надо сделать поправку в функцию: половина полушария не освещена (или, как часто делают в DirectX, добавить небольшую константу).
3. Написать функцию поворота шара. Для сферических координат это просто смещение.
4. Наконец сделать проекцию. Это синусы и косинусы.

[Pilot_Red]

можно в принципе и так

Код:

var
i,j:integer;
lx,ly:integer;\\координаты блика на сфере ;
begin

lx:=100  ;
ly:=100  ;
for i:=1 to 300 do
  for j:=1 to 300 do
  begin
  if sqrt(sqr(i-150)+sqr(j-150))<150 then form1.Canvas.Pixels[i,j]:=255-round(sqrt(sqr(i-lx)+sqr(j-ly)));
  end;
end;

только, я не думаю что именно это нужно автору и дело не только в освещении. Дальше пойдут вопросы типа, а как изображениенатянуть на шар, а как от него тени сделать, а как прозрачность и.т.д.
По-этому рекомендую DirectX или OpenGL

[AND_REY]

Сообщение от Pilot_Red

Дальше пойдут вопросы типа, а как изображениенатянуть на шар, а как от него тени сделать, а как прозрачность и.т.д.

Так мы по простому так и текстуры сделаем и освещение пару строк кода без DX и GL

[Pilot_Red]

Сообщение от AND_REY

Так мы по простому так и текстуры сделаем и освещение пару строк кода без DX и GL

Ага, Кармак в свое время тоже все по простому делал...
Эх чувствую революцию в графике