equal
deleted
inserted
replaced
318 while r.y < LAND_HEIGHT do |
318 while r.y < LAND_HEIGHT do |
319 begin |
319 begin |
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} |
|
324 //does not draw border with SDL_UpperBlit function, so we will use our own copy |
|
325 copyToXY(tmpsurf, Surface, r.x, r.y); |
|
326 {$ELSE} |
|
327 SDL_UpperBlit(tmpsurf, nil, Surface, @r); |
323 SDL_UpperBlit(tmpsurf, nil, Surface, @r); |
328 {$ENDIF} |
|
329 inc(r.x, tmpsurf^.w) |
324 inc(r.x, tmpsurf^.w) |
330 end; |
325 end; |
331 inc(r.y, tmpsurf^.h) |
326 inc(r.y, tmpsurf^.h) |
332 end; |
327 end; |
333 SDL_FreeSurface(tmpsurf); |
328 SDL_FreeSurface(tmpsurf); |