GLScene

[LepihinMS]

Надоело мне с этой http://www.server-c.pochta.ru/AVTO_v1.5.exe штукой возиться. Если кто хочет ее до ума довести пишите LepihinMS@ya.ru дам исходники.

[Pedro]

кинте ктонить плиз ссылки на уроки по ODE

[LepihinMS]

Можно ли на GLFullScreen выводить картинку с твух камер?

[LepihinMS]

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

Как из 3ds max экспортить модель с текстурой в Glscene? Сама модель у меня экспортится нормально, но вот текстура получается корявой.

Через как ты их вообще экспортировал??

[ZhekON]

Сообщение от Pedro
Как из 3ds max экспортить модель с текстурой в Glscene? Сама модель у меня экспортится нормально, но вот текстура получается корявой.

у тебя есть експортэр 3ds на Дельфию? скинь пожалуста -zhekon-@ukr.net

[Pedro]

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

у тебя есть експортэр 3ds на Дельфию? скинь пожалуста -zhekon-@ukr.net

Просто в дельфи я не знаю как 3ds засовывать, а вот в GLScene он загружается нормально. В uses пишеш GLFILE3ds и грузишь его.

[Romanus]

Можно ли на GLFullScreen выводить картинку с твух камер?

ТАкое возможно если переписать этот компонент и поключить в новый такую волзможность.

[LepihinMS]

Zhekon, на этот ящик у меня что то не получилось отправить -zhekon-@ukr.net, то что тебе нужно на сайте www.server-c.pochta.ru

Romanus, никогда еще не модифицировал объекты

[LepihinMS]

Эта программа должна в конечном итоге выводить на эран GLCube1, но кубика не наблюдается. Что я написал не так? И как надо?

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, forms, GLMisc, GLScene, GLObjects, GLWin32FullScreenViewer;
var
GLScene1: TGLScene;
GLCamera1: TGLCamera;
GLLightSource1: TGLLightSource;
GLCube1: TGLCube;
GLFullScreenViewer1: TGLFullScreenViewer;
Procedure GenerationObject;
begin
{Создание GLScene1 BEGIN ---}
GLScene1:=TGLScene.Create(nil);
{Создание GLScene1 END ---}
{Создание GLFullScreenViewer1 BEGIN ---}
GLFullScreenViewer1:=TGLFullScreenV iewer.Create(nil);
GLFullScreenViewer1.Camera:=GLCamer a1;
GLFullScreenViewer1.Active:=true;
{Создание GLFullScreenViewer1 END ---}
{--- Объекты на сцене BEGIN ---}
{Создание BEGIN ---}
{Создание END ---}
{Создание GLCube1 BEGIN ---}
GLCube1:=TGLCube.Create(GLScene1);
GLCube1.Material.Texture.Enabled:=t rue;
GLCube1.Material.Texture.Image.Load FromFile('Texture.bmp');
{Создание GLCube1 END ---}
{Создание GLCamera1 BEGIN ---}
GLCamera1:=TGLCamera.Create(GLScene 1);
GLCamera1.DepthOfView:=200;
GLCamera1.Position.X:=4;
GLCamera1.Position.Y:=5;
GLCamera1.Position.Z:=6;
GLCamera1.TargetObject:=GLCube1;
{Создание GLCamera1 END ---}
{Создание GLLightSource1 BEGIN ---}
GLLightSource1:=TGLLightSource.Crea te(GLScene1);
GLLightSource1.Parent:=GLCamera1;
{Создание GLLightSource1 END ---}
{--- Объекты на сцене END ---}
end;

begin
GenerationObject;
While GLFullScreenViewer1.Active do
begin
application.processmessages;
end;
{Repeat
application.processmessages;
until GLFullScreenViewer1.Active; }
end.

[Romanus]

ЗАбыл написать так GLScene1.Objects.AddChild(GlCube1);