equal
deleted
inserted
replaced
417 procedure DrawHedgehog(X, Y: integer; Dir: integer; Pos, Step: LongWord; Surface: PSDL_Surface); |
417 procedure DrawHedgehog(X, Y: integer; Dir: integer; Pos, Step: LongWord; Surface: PSDL_Surface); |
418 var r: TSDL_Rect; |
418 var r: TSDL_Rect; |
419 begin |
419 begin |
420 r.x:= Step * 32; |
420 r.x:= Step * 32; |
421 r.y:= Pos * 32; |
421 r.y:= Pos * 32; |
422 if Dir = -1 then r.x:= cHHSurfaceWidth - 32 - r.x; |
422 if Dir = -1 then r.x:= HHSurface.w - 32 - r.x; |
423 r.w:= 32; |
423 r.w:= 32; |
424 r.h:= 32; |
424 r.h:= 32; |
425 DrawFromRect(X, Y, @r, HHSurface, Surface) |
425 DrawFromRect(X, Y, @r, HHSurface, Surface) |
426 end; |
426 end; |
427 |
427 |