… | |
… | |
31 | sub gl_init { |
31 | sub gl_init { |
32 | $GL_VERSION = gl_version * 1; |
32 | $GL_VERSION = gl_version * 1; |
33 | %GL_EXT = map +($_ => 1), split /\s+/, gl_extensions; |
33 | %GL_EXT = map +($_ => 1), split /\s+/, gl_extensions; |
34 | |
34 | |
35 | $GL_NPOT = $GL_EXT{GL_ARB_texture_non_power_of_two} || $GL_VERSION >= 2; |
35 | $GL_NPOT = $GL_EXT{GL_ARB_texture_non_power_of_two} || $GL_VERSION >= 2; |
36 | |
|
|
37 | glClearColor 0.45, 0.45, 0.45, 1; |
|
|
38 | |
36 | |
39 | glEnable GL_TEXTURE_2D; |
37 | glEnable GL_TEXTURE_2D; |
40 | glEnable GL_COLOR_MATERIAL; |
38 | glEnable GL_COLOR_MATERIAL; |
41 | glShadeModel GL_FLAT; |
39 | glShadeModel GL_FLAT; |
42 | glDisable GL_DEPTH_TEST; |
40 | glDisable GL_DEPTH_TEST; |