Ver Mensaje Individual
  #2  
Antiguo 05-07-2012
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 31
Lepe Va por buen camino
Crear un objeto es tan fácil como crear cualquier otra cosa en Delphi:
Código Delphi [-]
var
  m: TMeshObject;
begin
  m := TMeshObject.Create;
  m.Visible:= True;

Pero si no me equivoco, no verás nada, porque la malla (mesh) no tiene vértices, por tanto, no tiene lados ni caras. Tienes la propiedad "Vertices" que deberías rellenarla en tiempo de ejecución para ver algo.

No sé, me dá que deberías crear los modelos 3D en Blender/3DStudio Max y ya después, solo tienes que cargarlos dinámicamente en GLScene.

Vamos, algo así (esto funciona por ser objeto standard de GLScene:
Código Delphi [-]
var
  GLTorus2: TGLTorus;
begin
  GLTorus2 := TGLTorus.Create(GLScene);
  GLTorus2.Position.X := 0;
  GLTorus2.Position.X := 0;
  GLTorus2.Position.X := 0;
end;
En este caso la escena es quien destruirá el Torus al destruirse ella.

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita