#pas
const flg:array[0..11] of integer = (GL_LIGHTING, GL_COLOR_MATERIAL, GL_DEPTH_TEST, GL_NORMALIZE, GL_FOG,
                                GL_LINE_STIPPLE, GL_LINE_SMOOTH, GL_POINT_SMOOTH, GL_BLEND, GL_CULL_FACE,
                                GL_TEXTURE_2D, GL_STENCIL_TEST);
var
  x,i:integer;
 begin
    x := 0;
    for i := 0 to high(flg) do
      x := x + (1 shl i) * byte(glIsEnabled(flg[i]));