equal
deleted
inserted
replaced
60 function Pixels2(x, y: Longword): Pointer; |
60 function Pixels2(x, y: Longword): Pointer; |
61 var tx, ty: Longword; |
61 var tx, ty: Longword; |
62 begin |
62 begin |
63 for ty:= 0 to TEXSIZE - 1 do |
63 for ty:= 0 to TEXSIZE - 1 do |
64 for tx:= 0 to TEXSIZE - 1 do |
64 for tx:= 0 to TEXSIZE - 1 do |
65 tmpPixels[ty, tx]:= Land[y * TEXSIZE + ty, x * TEXSIZE + tx] or $FF000000; |
65 tmpPixels[ty, tx]:= Land[y * TEXSIZE + ty, x * TEXSIZE + tx] or AMask; |
66 |
66 |
67 Pixels2:= @tmpPixels |
67 Pixels2:= @tmpPixels |
68 end; |
68 end; |
69 |
69 |
70 procedure UpdateLandTexture(X, Width, Y, Height: LongInt); |
70 procedure UpdateLandTexture(X, Width, Y, Height: LongInt); |