493 procedure SetupOpenGL; |
493 procedure SetupOpenGL; |
494 var aspect: real; |
494 var aspect: real; |
495 begin |
495 begin |
496 aspect:= cScreenWidth / cScreenHeight; |
496 aspect:= cScreenWidth / cScreenHeight; |
497 |
497 |
|
498 glLoadIdentity; |
498 glViewport(0, 0, cScreenWidth, cScreenHeight); |
499 glViewport(0, 0, cScreenWidth, cScreenHeight); |
499 glScalef(2.0 / cScreenWidth, -2.0 / cScreenHeight, 1.0); |
500 glScalef(2.0 / cScreenWidth, -2.0 / cScreenHeight, 1.0); |
500 glTranslatef(-cScreenWidth / 2, -cScreenHeight / 2, 0); |
501 glTranslatef(-cScreenWidth / 2, -cScreenHeight / 2, 0); |
501 //glMatrixMode(GL_PROJECTION); |
502 glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); |
502 //glLoadIdentity(); |
|
503 |
|
504 //gluPerspective(60.0, aspect, 0.1, 100.0); |
|
505 |
|
506 glMatrixMode(GL_MODELVIEW) |
503 glMatrixMode(GL_MODELVIEW) |
507 end; |
504 end; |
508 |
505 |
509 //////////////////////////////////////////////////////////////////////////////// |
506 //////////////////////////////////////////////////////////////////////////////// |
510 var ProgrSurf: PSDL_Surface = nil; |
507 var ProgrSurf: PSDL_Surface = nil; |