equal
deleted
inserted
replaced
45 begin |
45 begin |
46 for ty:= 0 to TEXSIZE - 1 do |
46 for ty:= 0 to TEXSIZE - 1 do |
47 Move(LandPixels[y * TEXSIZE + ty, x * TEXSIZE], tmpPixels[ty, 0], sizeof(Longword) * TEXSIZE); |
47 Move(LandPixels[y * TEXSIZE + ty, x * TEXSIZE], tmpPixels[ty, 0], sizeof(Longword) * TEXSIZE); |
48 |
48 |
49 Pixels:= @tmpPixels |
49 Pixels:= @tmpPixels |
|
50 end; |
|
51 |
|
52 function Pixels2(x, y: Longword): Pointer; |
|
53 var tx, ty: Longword; |
|
54 begin |
|
55 for ty:= 0 to TEXSIZE - 1 do |
|
56 for tx:= 0 to TEXSIZE - 1 do |
|
57 tmpPixels[ty, tx]:= Land[y * TEXSIZE + ty, x * TEXSIZE + tx] or $FF000000; |
|
58 |
|
59 Pixels2:= @tmpPixels |
50 end; |
60 end; |
51 |
61 |
52 procedure UpdateLandTexture(X, Width, Y, Height: LongInt); |
62 procedure UpdateLandTexture(X, Width, Y, Height: LongInt); |
53 var tx, ty: Longword; |
63 var tx, ty: Longword; |
54 begin |
64 begin |