equal
deleted
inserted
replaced
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 |
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} |
|
970 |
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; |