Simple Code like this:
Code: Select all
FDevice := createDevice(EDT_DIRECT3D9, Point(ClientWidth, ClientHeight), Handle, 16,
false, true, false, nil);
with FDevice.getSceneManager.addCameraSceneNodeMaya(nil, -100, 100, 100) do
begin
Position := Point3(0, 0, -100);
//Target := Point3(-10, 0, 0);
end;
T1 := FDevice.getVideoDriver.getTexture('d:\Logo.bmp');
N := FDevice.getSceneManager.addCubeSceneNode(Point3(0, 0, 0), tp3Null, Point3(1, 1,1), 5);
N.setMaterialTexture(0, T1);
N := NIL;
for i := 0 to 99 do
begin
N := FDevice.getSceneManager.addCubeSceneNode(Point3(-15, 0, 0), tp3Null, Point3(1, 1,1), 5, N);
N.setMaterialTexture(0, T1);
end;
N := nil;
for i := 0 to 99 do
begin
N := FDevice.getSceneManager.addCubeSceneNode(Point3(0, 0, -15), tp3Null, Point3(1, 1,1), 5, N);
N.setMaterialTexture(0, T1);
end;
