957 end;

   957 end;

   958 

   958 

   959 procedure SetupOpenGL;

   959 procedure SetupOpenGL;

   960 begin

   960 begin

   961 SetScale(2.0);

   961 SetScale(2.0);

   962 glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

   963 glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

   963 glMatrixMode(GL_MODELVIEW);

   964 glMatrixMode(GL_MODELVIEW);

   964 

   965 

   965 glGetIntegerv(GL_MAX_TEXTURE_SIZE, @MaxTextureSize);

   966 glGetIntegerv(GL_MAX_TEXTURE_SIZE, @MaxTextureSize);

   966 {$IFDEF DEBUGFILE}

   967 {$IFDEF DEBUGFILE}

   967 AddFileLog('GL_MAX_TEXTURE_SIZE: ' + inttostr(MaxTextureSize));

   968 AddFileLog('GL_MAX_TEXTURE_SIZE: ' + inttostr(MaxTextureSize));

   968 {$ENDIF}

   969 {$ENDIF}

   969 end;

   971 end;

   970 

   972 

   971 procedure SetScale(f: GLfloat);

   973 procedure SetScale(f: GLfloat);

   972 begin

   974 begin

   973 cScaleFactor:= f;

   975 cScaleFactor:= f;