672                 w:= (w and $FF shl RShift) or (w and $FF shl BShift) or (w and $FF shl GShift) or (LandPixels[y div 2,x div 2] and AMask);

   672                 w:= (w and $FF shl RShift) or (w and $FF shl BShift) or (w and $FF shl GShift) or (LandPixels[y div 2,x div 2] and AMask);

   673                 LandPixels[y,x]:= w or (LandPixels[y div 2, x div 2] and AMask)

   673                 LandPixels[y,x]:= w or (LandPixels[y div 2, x div 2] and AMask)

   674                 end

   674                 end

   675     end;

   675     end;

   676 

   676 

   678 end;

   678 end;

   679 

   679 

   680 procedure GenPreview(out Preview: TPreview);

   680 procedure GenPreview(out Preview: TPreview);

   681 var x, y, xx, yy, t, bit, cbit, lh, lw: LongInt;

   681 var x, y, xx, yy, t, bit, cbit, lh, lw: LongInt;

   682 begin

   682 begin