equal
deleted
inserted
replaced
697 begin |
697 begin |
698 gX:= (cpX + x) div 2; |
698 gX:= (cpX + x) div 2; |
699 gY:= (cpY + y) div 2; |
699 gY:= (cpY + y) div 2; |
700 end; |
700 end; |
701 if indestructible then |
701 if indestructible then |
702 Land[cpY + y, cpX + x]:= lfIndestructible or LandFlags |
702 Land[cpY + y, cpX + x]:= {lfIndestructible or }LandFlags |
703 else if (LandPixels[gY, gX] and AMask) shr AShift = 255 then // This test assumes lfBasic and lfObject differ only graphically |
703 else if (LandPixels[gY, gX] and AMask) shr AShift = 255 then // This test assumes lfBasic and lfObject differ only graphically |
704 Land[cpY + y, cpX + x]:= lfBasic or LandFlags |
704 Land[cpY + y, cpX + x]:= lfBasic or LandFlags |
705 else |
705 else |
706 Land[cpY + y, cpX + x]:= lfObject or LandFlags; |
706 Land[cpY + y, cpX + x]:= lfObject or LandFlags; |
707 LandPixels[gY, gX]:= PLongword(@(p^[x * 4]))^ |
707 LandPixels[gY, gX]:= PLongword(@(p^[x * 4]))^ |