Модель солнечной системы (Deiphi)

[hanna]

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

[Serge_Bliznykov]

посмотрите, может за основу взять код отсюда:
Моделирование в графике солнечной системы (модуль Graph в Pascal)


правда, там модуль Graph используется, но, если передалать на прорисовку на канве, то дорабока будет совсем небольшая...

[Rin]

Вот вам солнечная система. Прога выдаёт инфу про наши планеты при нажатии на них. Вам осталось лишь заставить планеты крутиться.

[BDA]

Rin, крутая прога)
У меня почему-то не выдает сообщения при нажатии на планеты.
Не знаете, в чем может быть проблема?
(событие онмаусдаун срабатывает, массив цветов, куда бы ни ткнул, заполнен нулями)

[Rin]

Скорей всего координаты мыши где-то дают сбой. На xp работает. В win 7 не пробовал запускать. Кстати, нашёл ошибку у себя только что. Нужно исправить некоторые вещи, а именно:

  okr=array [0..360] of p;// массив для окружностей
.....................
.....................
  for z := 0 to 360 do// заполнение окружности
    begin
      angle:=angle+1;//передвинуть угол на 1
      m[z].x:=R*cos(angle*pi/180);
      m[z].z:=R*sin(angle*pi/180);
    end;
......................
......................
glBegin(GL_LINE_LOOP);//начало рисования орбиты
for z := 0 to 360 do
glVertex3f(orbita_planet[z].x,0,orbita_planet[z].z);
glEnd;//конец рисования орбиты
..................
..................
 for j := 0 to 359 do
 begin
   glBegin(GL_QUADS);// начало рисования черырёхугольника
   glVertex3f(kolco_satyrna[0,j].x,0,kolco_satyrna[0,j].z);
   glVertex3f(kolco_satyrna[1,j].x,0,kolco_satyrna[1,j].z);
   glVertex3f(kolco_satyrna[1,j+1].x,0,kolco_satyrna[1,j+1].z);
   glVertex3f(kolco_satyrna[0,j+1].x,0,kolco_satyrna[0,j+1].z);
   glEnd;//конец рисования черырёхугольника
 end;

[BDA]

Изменил указанные вами куски кода.
Разницы не заметил)
Координаты, вроде, правильные получаются в событии онмаусдаун.
При добавлении события онресайз сообщения стали появляться, но при запуске сначала возникает ошибка.

ПС При объявлении события онресайз (чтобы происходил онпаинт) в событии онкриэйт ошибка перестала появляться. Но оказалось, что сообщение выдается только для центра Солнца. При изменении геометрии окна система "плывет".

[Rin]

А сообщение ошибки? Ты с какой ОС сидишь?

[BDA]

ОС: Windows 7 x64 Домашняя базовая
Среда: Borland Delphi for Microsoft Windows (портабл версия)
Ошибка: Exception class EAccessViolation with message 'Access violation at address 705D9161 in module 'GLU32.dll'. Read of address 00000000'. Process Project1.exe

[Rin]

Это была курсовая на 3, сделанная года 4 назад. Access violation выскакивала из-за того, что для чего-то (скорей всего для GLUQudricObj) не была выделена память. Зафиксировать размеры окна - самый простой способ избавиться от "плавания". А вот на счёт получения сообщения для других планет не знаю , чем помочь. С этим надо на месте разбираться.

[NetSpace]

вот вам моя система, наподобие солнечной, написал как-то от скуки, хотел скриншот из неё сделать.
левой кл.мыши - запуск.
средняя кл. - перезапуск
правая кл. - выход
лучше всего под XP работает...