Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Соединить две точки цилиндром, в Delphi XE3 Firemonkey 
V
    Опции темы
Steel
Дата 20.3.2016, 23:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 48
Регистрация: 14.5.2006
Где: Россия, Саратов

Репутация: нет
Всего: нет



Нужно соединить две точки Point3D с помощью объекта TCylinder. Пишу в Delphi XE3.
Безрезультатно испробовал разные варианты. Последний:

Код


  TTmp = class(TControl3D);
...

var
  V1, V2 : TVector3D;
  XA, ZA : Single;
begin
  V1.X := 0;  V1.Y := 0;  V1.Z := 0;
  V2.X := 30;  V2.Y := 30;  V2.Z := 30;
  
  C := TCylinder.Create(Form1);
  C.Projection := TProjection.pjScreen;
  C.Parent     := Dummy1;
  C.Width      := 10;
  C.Depth      := 10;
  C.Height     := Sqrt(Power(V1.X - V2.X, 2) + Power(V1.Y - V2.Y, 2) + Power(V1.Z - V2.Z, 2));
  C.Position.X := (V1.X + V2.X) / 2;
  C.Position.Y := (V1.Y + V2.Y) / 2;
  C.Position.Z := (V1.Z + V2.Z) / 2;

    ZA := 0;
    if ((V1.Y - Prof[i].Y) <> 0) then
      ZA :=  -(ArcTan((V1.X - V2.X) / (V1.Y - V2.Y))) * 180 / PI;

    XA := (ArcCos((V1.Z - V2.Z) / (C.Height))) * 180 / PI;

    m  := CreateRotationMatrix3D(XA, 0, ZA);
    TTmp(C).FLocalMatrix := Matrix3DMultiply(m, TTmp(C).FLocalMatrix);
end;



PM MAIL   Вверх
Steel
Дата 26.3.2016, 20:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 48
Регистрация: 14.5.2006
Где: Россия, Саратов

Репутация: нет
Всего: нет



Тут решение проблемы:

http://www.babylonjs-playground.com/#1RWE59#31



PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »


 




[ Время генерации скрипта: 0.1149 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.