[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) и то что я задавала серый цвет заливки, он не заливает фигуру

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