1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:

procedure TForm1.Render;
var
  i, j: integer;
  WorldMatrix, TempMatrix: TD3DMatrix;
  myLight: TD3DLIGHT8;
  myMaterial : TD3DMaterial8;
begin
  Inc(Frames);

  d3dDev8.Clear(0, nil, D3DClear_Target or D3DClear_ZBuffer,
    D3DCOLOR_XRGB(0, 0, 0), 2, 0);

  d3dDev8.BeginScene;


  myLight._Type := D3DLIGHT_POINT;


  myLight.Diffuse.r := 1;
  myLight.Diffuse.g := 0;
  myLight.Diffuse.b := 1;

  myLight.Specular.r := 0;
  myLight.Specular.g := 0;
  myLight.Specular.b := 1;

 // myLight.Ambient.r := 1;
  //myLight.Ambient.g := 0;
 // myLight.Ambient.b := 0;


  myLight.Position.x := 0;
  myLight.Position.y := 0;
  myLight.Position.z := 0.5;

  myLight.Range := 0.7;
  myLight.Falloff := 0;
  d3dDev8.SetLight(1,myLight);
  d3dDev8.LightEnable(1,True) ;


  myMAterial.Emissive.r := 0.0;
  myMAterial.Emissive.g := 0.0;
  myMAterial.Emissive.b := 0.0;
  d3dDev8.SetMaterial(myMAterial);


  D3DXMatrixScaling(WorldMatrix, 0.01, 0.01, 0.01);
  D3DXMatrixRotationYawPitchRoll(TempMatrix, frames / 1800,frames / 450,frames / 1000);
  D3DXMatrixMultiply(WorldMatrix, WorldMatrix, TempMatrix);
  D3DDev8.SetTransform(D3DTS_WORLD, WorldMatrix);

  for j := 0 to length(objects) - 1 do
  begin
    d3dDev8.SetTexture(0, objects[i].texture);
    if Objects[j].Draw then
    begin
      for i := 0 to objects[j].materialNumber do
      begin
        objects[j].mesh.DrawSubset(i);
      end;
    end;
  end;

  d3dDev8.EndScene;

  d3dDev8.Present(nil, nil, 0, nil);
end;