- glMatrixMode(GL_PROJECTION);
- gltranslatef(0,0,-P1.D);
- glrotatef(P1.AX,1,0,0);
- glrotatef(P1.AY,0,1,0);
- gltranslatef(-P1.X,-P1.Y,-P1.Z);
- glMatrixMode(GL_MODELVIEW);
- Models.SetLightPosition(1,-1000,750, 1000,1);
- Models.SetLightPosition(2,-1000,750,-1000,1);
- Models.SetLightPosition(3, 1000,750, 1000,1);
- Models.SetLightPosition(4, 1000,750,-1000,1);
- Models.BeginRenderModels;
- glpushmatrix;
- glscalef(1600/100,1600/100,1600/100);
- glrotatef(90,0,1,0);
- Models.RenderModel(13,0);
- glpopmatrix;
- for i := 1 to 8 do begin
- for i2 := 1 to 8 do begin
- if Chess.GetFieldFigure(i,i2)<>0 then begin
- glpushmatrix;
- gltranslatef(-180+i*40,0,+180-i2*40);
- glscalef(97/100,97/100,97/100);
- if (Chess.GetField(i,i2)=11) or (Chess.GetField(i,i2)=30) then glrotatef(-90,0,1,0);
- if (Chess.GetField(i,i2)=12) or (Chess.GetField(i,i2)=29) then glrotatef( 90,0,1,0);
- Models.RenderModel(Chess.GetFieldFigure(i,i2)+Chess.GetFieldColor(i,i2)*6-6,1);
- glpopmatrix;
- end;
- end;
- end;
- Models.EndRenderModels;