changeset 2163 | 12730f5e79b9 |
parent 2152 | a2811690da1b |
child 2248 | 26e11cb27c61 |
2162:2bce91404d49 | 2163:12730f5e79b9 |
---|---|
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} |
|
98 glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, TEXSIZE, TEXSIZE, GL_RGBA, GL_UNSIGNED_BYTE, Pixels(x, y)); |
101 glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, TEXSIZE, TEXSIZE, GL_RGBA, GL_UNSIGNED_BYTE, Pixels(x, y)); |
102 {$ENDIF} |
|
99 end |
103 end |
100 end; |
104 end; |
101 |
105 |
102 procedure DrawLand(dX, dY: LongInt); |
106 procedure DrawLand(dX, dY: LongInt); |
103 var x, y: LongInt; |
107 var x, y: LongInt; |