320 	r.x:= 0;

   320 	r.x:= 0;

   321 	while r.x < LAND_WIDTH do

   321 	while r.x < LAND_WIDTH do

   322 		begin

   322 		begin

   323 		{$IFDEF IPHONEOS}

   323 		{$IFDEF IPHONEOS}

   324 		//does not draw border with SDL_UpperBlit function, so we will use our own copy

   324 		//does not draw border with SDL_UpperBlit function, so we will use our own copy

   326 		{$ELSE}

   326 		{$ELSE}

   327 		SDL_UpperBlit(tmpsurf, nil, Surface, @r);

   327 		SDL_UpperBlit(tmpsurf, nil, Surface, @r);

   328 		{$ENDIF}

   328 		{$ENDIF}

   329 		inc(r.x, tmpsurf^.w)

   329 		inc(r.x, tmpsurf^.w)

   330 		end;

   330 		end;