| changeset 3666 | f9c8fc74ac93 |
| parent 3615 | b78d7959540a |
| child 3697 | d5b30d6373fc |
| 3665:bc06dd09cb21 | 3666:f9c8fc74ac93 |
|---|---|
99 with LandTextures[x, y] do |
99 with LandTextures[x, y] do |
100 if shouldUpdate then |
100 if shouldUpdate then |
101 begin |
101 begin |
102 shouldUpdate:= false; |
102 shouldUpdate:= false; |
103 glBindTexture(GL_TEXTURE_2D, tex^.id); |
103 glBindTexture(GL_TEXTURE_2D, tex^.id); |
104 glTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, TEXSIZE, TEXSIZE, GL_RGBA, GL_UNSIGNED_BYTE, Pixels(x, y)); |
104 glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, TEXSIZE, TEXSIZE, 0, GL_RGBA, GL_UNSIGNED_BYTE, Pixels(x,y)); |
105 end |
105 end |
106 end; |
106 end; |
107 |
107 |
108 procedure DrawLand(dX, dY: LongInt); |
108 procedure DrawLand(dX, dY: LongInt); |
109 var x, y: LongInt; |
109 var x, y: LongInt; |