- procedure TSceneNode.Render;
- var i: Integer;
- begin
- glPushMatrix();
- glTranslated(Position[0], Position[1], Position[2]);
- glRotated(Rotation[0], 1,0,0);
- glRotated(Rotation[1], 0,1,0);
- glRotated(Rotation[2], 0,0,1);
- glScaled(Scale[0], Scale[1], Scale[2]);
- if Visible then
- if FrustumCheck then
- RenderSelf;
- for i := 0 to High(Child) do
- Child[i].Render;
- glPopMatrix();
- end;