changeset 2248 | 26e11cb27c61 |
parent 2163 | 12730f5e79b9 |
child 2376 | ece7b87f1334 |
2247:10a5c05e09c9 | 2248:26e11cb27c61 |
---|---|
93 with LandTextures[x, y] do |
93 with LandTextures[x, y] do |
94 if shouldUpdate then |
94 if shouldUpdate then |
95 begin |
95 begin |
96 shouldUpdate:= false; |
96 shouldUpdate:= false; |
97 glBindTexture(GL_TEXTURE_2D, tex^.id); |
97 glBindTexture(GL_TEXTURE_2D, tex^.id); |
98 {$IFDEF IPHONEOS} |
|
99 glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, TEXSIZE, TEXSIZE, GL_BGRA, GL_UNSIGNED_BYTE, Pixels(x, y)); |
|
100 {$ELSE} |
|
101 glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, TEXSIZE, TEXSIZE, GL_RGBA, GL_UNSIGNED_BYTE, Pixels(x, y)); |
98 glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, TEXSIZE, TEXSIZE, GL_RGBA, GL_UNSIGNED_BYTE, Pixels(x, y)); |
102 {$ENDIF} |
|
103 end |
99 end |
104 end; |
100 end; |
105 |
101 |
106 procedure DrawLand(dX, dY: LongInt); |
102 procedure DrawLand(dX, dY: LongInt); |
107 var x, y: LongInt; |
103 var x, y: LongInt; |