Modelando en 3D con Firemonkey

[DP News-Robot]

Firemonkey proporciona la capacidad de utilizar modelos de alambre en 3D en los formatos OBJ, DAE y ASE, que son los más utilizados por los programas de modelado (p.ej blender...)
Para ahorrar tiempo, en vez de crear los modelos nosotros mismos hay sitios web que los ofrecen de forma gratuita y sin pagar royalties.
Uno de los muchos sites que hay es www.turbosquid.com

https://1.bp.blogspot.com/-_WiL2hGdw...turbosquid.jpg

En esa página hay miles de modelos que podremos utilizar en nuestro programa.
Para empezar tenemos que abrir RAD Studio y crear una nueva Multi-Device Application 3D (tienen los pasos a seguir en este post)
La estructura de los componentes será la siguiente:

https://1.bp.blogspot.com/-cNlj0Lcr5.../s320/3df1.png

El componente tModel3D (Model3D1) deberá colgar de un tDummy (DummyScene) y el objeto de malla en formato OBJ lo tendremos que indicar desde la propiedad MeshCollection (lo indico en color amarillo en la imagen superior).
Nos encontraremos con el incoveniente que el componente tModel3D no tiene asignada la propiedad "MaterialSource" por defecto, por lo que la tenemos que asignar en el evento OnCreate:


procedure TForm1.FormCreate(Sender: TObject);
var mesh : TMesh;
begin
for mesh in Model3D1.MeshCollection do
mesh.MaterialSource := LightMaterialSource1;
end;




También tendremos que añadir un manejador de eventos para conseguir que la figura de malla se mueva según la dirección del ratón y haga un zoom cuando se mueva la rueda del ratón:


procedure TForm1.FormGesture(Sender: TObject;
const EventInfo: TGestureEventInfo; var Handled: Boolean);
var delta: integer;
begin
if EventInfo.GestureID = igiZoom then
begin
if (not (TInteractiveGestureFlag.gfBegin in EventInfo.Flags))
and (not (TInteractiveGestureFlag.gfEnd in EventInfo.Flags)) then
begin
delta := EventInfo.Distance - UltimaDistancia;
DoZoom(delta > 0);
end;
UltimaDistancia := EventInfo.Distance;
end;
end;



Igualmente hay que manejar los eventos OnMouseDown, OnMouseMove y OnMouseWheel del componente ViewPort3D1


procedure TForm1.MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
Punto := PointF(X, Y);
end;

procedure TForm1.MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Single);
begin
if (ssLeft in Shift) then
begin
DummyCamera.RotationAngle.X := DummyCamera.RotationAngle.X - ((Y - Punto.Y) * ROTATION_STEP);
DummyCamera.RotationAngle.Y := DummyCamera.RotationAngle.Y + ((X - Punto.X) * ROTATION_STEP);
Punto := PointF(X, Y);
end;
end;

procedure TForm1.MouseWheel(Sender: TObject;
Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);
begin
DoZoom(WheelDelta > 0);
end;


Después ejecutaremos la aplicación y podremos ver la figura en 3D desde todos los ángulos posibles,
se puede rotar, ampliar, girar, etc... realmente es espectacular lo que hemos conseguido con unas pocas líneas de código.

https://1.bp.blogspot.com/-IodJqExYU...0/hormiga4.jpg

https://1.bp.blogspot.com/-z9Qs79Z7f...0/hormiga3.jpg

https://1.bp.blogspot.com/-10imQaNXb...0/hormiga2.jpg

https://1.bp.blogspot.com/-DYbv8HiJA...0/hormiga1.jpg

Descargar el programa



También te puede interesar
Simular el movimiento de burbujas

Simular el movimiento de electrones en un campo eléctrico


Modelado 3D con Delphi


Una app para visualizar moléculas en 3D Diseñando hypercubos de N dimensiones










Suscribirse :
http://feeds.feedburner.com/~ff/Delp...?d=yIl2AUoC8zA http://feeds.feedburner.com/~ff/Delp...?d=dnMXMwOfBR0 http://feeds.feedburner.com/~ff/Delp...?d=qj6IDK7rITs http://feeds.feedburner.com/~ff/Delp...?d=7Q72WNTAKBA
http://feeds.feedburner.com/~r/Delph...~4/8X7CwMboOig

Weiterlesen...