[alexandra]

Ребята, очень нужна помощь и к сожалению чем раньше тем лучше

Нужно создать Параллелепипед, он должен собираться из трех параллелограммов. Я частично сделала, а точнее: сделала форму, на которой выводиться размеры объекта, начальное положение, НО это всё для одного параллелограмма, а не для Параллелепипед! не выходит создать все 3 параллелограмма, чтобы они соединялись и образовали Параллелепипед.

вот более точное задание:
Размеры и положение объекта указываются пользователем (в ходе выполнения программы). Объект (по команде пользователя) должен вращаться вокруг одной из осей координат. Скорость вращения объекта является одним из свойств класса (не обязательно, но если знаете как буду очень признательна ). При создании объекта пользователь должен иметь возможность задавать:
• размеры объекта;
• начальное положение;
• цвет объекта;
• скорость вращения;
• выбирать ось, относительно которой будет вращаться объект.
Разработать программу с использованием этого класса.

[alexandra]

я блондинка попытаюсь на пальцах объяснить как это должно выглядеть

выводиться размеры объекта, начальное положение
|
V
рисуется параллелепипед (а они рисуются из 3х параллелограммов)
|
V
и под формой начальных данных X, Y, R
указывается угол на который поворачивается параллелепипед (то есть три параллелограмма соединяются в один объект)
я сама пыталась разобраться и сюда решила написать в последний момент, мне после выходных сдавать

буду рада любой помощи!!!! Заранее спасибо!!!

[Pilot_Red]

Сашенька, мог бы Вам помочь, но слишком пьян)))

[alexandra]

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

[alexandra]

Ребята! с большей частью задачи справилась, уже рисуется куб по заданным параметрам. Я сама вижу что в коде много "мусора", не могли бы вы мне помочь, как то оптимизировать.

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

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 PatBlt(Form1.Canvas.Handle,
 0,
 0,
 Form1.ClientWidth,
 Form1.ClientHeight - Shape1.ClientHeight - 6,
 WHITENESS);
end;

2) и то что я задавала серый цвет заливки, он не заливает фигуру
3 и наверное самое сложное, я не могу доделать перерисовку фигуры в зависимости заданного градуса

Буду рада,если подскажите решение хоть одной проблемки

[angvelem]

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

2) и то что я задавала серый цвет заливки, он не заливает фигуру

Странно, у меня серый куб.

[alexandra]

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

Странно, у меня серый куб.

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

[angvelem]

Так и рисуется. Я сейчас ковыряюсь в исходниках, но пока стараюсь отойти от наследования для упрощения. А там видно будет.

[alexandra]

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

Так и рисуется. Я сейчас ковыряюсь в исходниках, но пока стараюсь отойти от наследования для упрощения. А там видно будет.

столько раз исправляла, сперва рисовало всё нормально (серый куб с черными гранями) но после перерисовки, оставался след фигуры..
пока избавлялась, пришлось это дело убрать))
в общем.. проблема решена)))

осталось самое сложное! чтоб поворачивалось на заданный градус

если это как то упростит задачу.. прикрепляю исходники не моего куда.. там тоже не используется openGL
там фигура поворачивается по x, y, z стрелочками клавиатуры
я оттуда вырвала кусочек, можно заметить:

Код:

procedure TCube.RotateY(a: single; var x, y, z: single);
var
  xx,zz,c,s:single;
begin
  a:=30;
  c:=cos(a*pi/180);     // матрица поворота имеет вид
  s:=sin(a*pi/180);
  xx:=x*c+z*s;
  zz:=-x*s+z*c;         //      |CosX  0  -sinX |
  x:=xx;                //   Ry=|  0   1    0   |
  y:=y;                 //      |SinX  0    CosX|
  z:=zz;
end;

вот мне его нормально пристроить так и не удалось

[angvelem]

Тогда, посмотри этот проект, может подойдёт

[Pilot_Red]

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

дана грань с вершинами V1,V2,V3. Соответственно каждая вершина состоит из координат x,y,z.

находим некоторые коэффициенты.

A=(V2.y-V1.y)*(v3.z-V1.z)-(V2.z-V1.z)*(v3.y-V1.y)
B=(V2.z-V1.z)*(v3.x-V1.x)-(V2.x-V1.x)*(v3.z-V1.z)
C=(V2.x-V1.x)*(v3.y-V1.y)-(V2.y-V1.y)*(v3.x-V1.x)


далее проверяем

если c*focus_kamera+A*V1.x+B*V1.y+C*V1.z<0 то рисуем грань.

focus_kamera это фокусное расстояние, значение которого используется при проекции трехмерных координат на двухмерную плоскость, т.е. на ваш монитор. В основном я его беру равным 250-300
Если грань не нарисуется то поменяйте знак < на >, т.к. там имеет значение то, в каком порядке у вас идет обход граней, либо по часовой стрелке , либо против...
вот собственно нахождение двухмерных координат зная трехмерные

X2D:=(WindowWidth/2+FOCUS_KAMERA*(V.X3D) /(FOCUS_KAMERA+V.Z3DP));
Y2D:=(WindowHeight/2-FOCUS_KAMERA*(V.Y3DP) /(FOCUS_KAMERA+V.Z3DP));

[angvelem]

В приложенном последнем архиве это и сделано, мог бы и посмотреть перед ответом.

[alexandra]

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

Тогда, посмотри этот проект, может подойдёт

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

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

[angvelem]

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

[alexandra]

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

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

Значит, в моем проекте это сделать будет сложно, и легче делать новый, на основе предложенных вариантов?
видимо у него свое видение и по думал, что дальше сама справлюсь =\