| … | |
… | |
| 64 | for my $num (grep $_, $cell->[0], $cell->[1], $cell->[2]) { |
64 | for my $num (grep $_, $cell->[0], $cell->[1], $cell->[2]) { |
| 65 | my $tex = $conn->{face}[$num]{texture} || 0; |
65 | my $tex = $conn->{face}[$num]{texture} || 0; |
| 66 | |
66 | |
| 67 | glBindTexture GL_TEXTURE_2D, $tex; |
67 | glBindTexture GL_TEXTURE_2D, $tex; |
| 68 | |
68 | |
| 69 | glColor 1,0.2,0.7; |
69 | glColor 1,0,1; |
| 70 | glBegin GL_QUADS; |
70 | glBegin GL_QUADS; |
| 71 | glTexCoord 0, 0; glVertex $x, $y; |
71 | glTexCoord 0, 0; glVertex $x, $y; |
| 72 | glTexCoord 0, 1; glVertex $x, $y + 0.9; |
72 | glTexCoord 0, 1; glVertex $x, $y + 0.9; |
| 73 | glTexCoord 1, 1; glVertex $x + 0.9, $y + 0.9; |
73 | glTexCoord 1, 1; glVertex $x + 0.9, $y + 0.9; |
| 74 | glTexCoord 1, 0; glVertex $x + 0.9, $y; |
74 | glTexCoord 1, 0; glVertex $x + 0.9, $y; |
| … | |
… | |
| 167 | |
167 | |
| 168 | glBindTexture GL_TEXTURE_2D, $tex; |
168 | glBindTexture GL_TEXTURE_2D, $tex; |
| 169 | my $glerr=glGetError(); die "a: ".gluErrorString($glerr)."\n" if $glerr; |
169 | my $glerr=glGetError(); die "a: ".gluErrorString($glerr)."\n" if $glerr; |
| 170 | |
170 | |
| 171 | glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR; |
171 | glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR; |
| 172 | glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR_MIPMAP_LINEAR; |
172 | glTexParameter GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR;#_MIPMAP_LINEAR; |
| 173 | glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP; |
173 | glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP; |
| 174 | glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP; |
174 | glTexParameter GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP; |
| 175 | |
175 | |
| 176 | $surface->rgba; |
176 | $surface->rgba; |
| 177 | |
177 | |
