Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uStore.pas
changeset 7635 7a8b2f04c7dd
parent 7634 ca14ec44b223
child 7637 60b213e5ded3
equal deleted inserted replaced
7634:ca14ec44b223 7635:7a8b2f04c7dd 
   685 end;
 
   685 end;
 
   686 
   686 
   687 procedure SetupOpenGL;
 
   687 procedure SetupOpenGL;
 
   688 //var vendor: shortstring = '';
 
   688 //var vendor: shortstring = '';
 
   689 var buf: array[byte] of char;
 
   689 var buf: array[byte] of char;
 
       
   690 {$IFDEF USE_VIDEO_RECORDING}
 
   690     AuxBufNum: LongInt;
 
   691     AuxBufNum: LongInt;
 
       
   692 {$ENDIF}
 
   691     tmpstr: AnsiString;
 
   693     tmpstr: AnsiString;
 
   692     tmpint: LongInt;
 
   694     tmpint: LongInt;
 
   693     tmpn: LongInt;
 
   695     tmpn: LongInt;
 
   694 begin
 
   696 begin
 
   695     buf[0]:= char(0); // avoid compiler hint
 
   697     buf[0]:= char(0); // avoid compiler hint
 
   734     else
 
   736     else
 
   735         AddFileLog('OpenGL Warning - unknown hardware vendor; please report');
 
   737         AddFileLog('OpenGL Warning - unknown hardware vendor; please report');
 
   736 {$ENDIF}
 
   738 {$ENDIF}
 
   737 //SupportNPOTT:= glLoadExtension('GL_ARB_texture_non_power_of_two');
 
   739 //SupportNPOTT:= glLoadExtension('GL_ARB_texture_non_power_of_two');
 
   738 *)
 
   740 *)
 
   739     glGetIntegerv(GL_AUX_BUFFERS, @AuxBufNum);
 
       
   740 
   741 
   741     // everyone love debugging
 
   742     // everyone love debugging
 
   742     AddFileLog('OpenGL-- Renderer: ' + shortstring(pchar(glGetString(GL_RENDERER))));
 
   743     AddFileLog('OpenGL-- Renderer: ' + shortstring(pchar(glGetString(GL_RENDERER))));
 
   743     AddFileLog('  |----- Vendor: ' + shortstring(pchar(glGetString(GL_VENDOR))));
 
   744     AddFileLog('  |----- Vendor: ' + shortstring(pchar(glGetString(GL_VENDOR))));
 
   744     AddFileLog('  |----- Version: ' + shortstring(pchar(glGetString(GL_VERSION))));
 
   745     AddFileLog('  |----- Version: ' + shortstring(pchar(glGetString(GL_VERSION))));
 
   745     AddFileLog('  |----- Texture Size: ' + inttostr(MaxTextureSize));
 
   746     AddFileLog('  |----- Texture Size: ' + inttostr(MaxTextureSize));
 
   746     AddFileLog('  |----- Number of auxilary buffers: ' + inttostr(AuxBufNum));
 
   747 {$IFDEF USE_VIDEO_RECORDING}
 
       
   748     glGetIntegerv(GL_AUX_BUFFERS, @AuxBufNum);
 
       
   749     AddFileLog('  |----- Number of auxiliary buffers: ' + inttostr(AuxBufNum));
 
       
   750 {$ENDIF}
 
   747     AddFileLog('  \----- Extensions: ');
 
   751     AddFileLog('  \----- Extensions: ');
 
   748     // fetch extentions and store them in string
 
   752     // fetch extentions and store them in string
 
   749     tmpstr := StrPas(PChar(glGetString(GL_EXTENSIONS)));
 
   753     tmpstr := StrPas(PChar(glGetString(GL_EXTENSIONS)));
 
   750     tmpn := WordCount(tmpstr, [' ']);
 
   754     tmpn := WordCount(tmpstr, [' ']);
 
   751     tmpint := 1;
 
   755     tmpint := 1;
 
   778         end
 
   782         end
 
   779         else if AuxBufNum > 0 then
 
   783         else if AuxBufNum > 0 then
 
   780         begin
 
   784         begin
 
   781             glDrawBuffer(GL_AUX0);
 
   785             glDrawBuffer(GL_AUX0);
 
   782             glReadBuffer(GL_AUX0);
 
   786             glReadBuffer(GL_AUX0);
 
   783             AddFileLog('Using auxilary buffer for video recording.');
 
   787             AddFileLog('Using auxiliary buffer for video recording.');
 
   784         end
 
   788         end
 
   785         else
 
   789         else
 
   786         begin
 
   790         begin
 
   787             glDrawBuffer(GL_BACK);
 
   791             glDrawBuffer(GL_BACK);
 
   788             glReadBuffer(GL_BACK);
 
   792             glReadBuffer(GL_BACK);
hedgewars