541 FollowGear:= CurrentHedgehog^.Gear

   541 FollowGear:= CurrentHedgehog^.Gear

   542 end;

   542 end;

   543 

   543 

   544 procedure chPause(var s: shortstring);

   544 procedure chPause(var s: shortstring);

   545 begin

   545 begin

   547 SDL_ShowCursor(ord(isPaused))

   548 SDL_ShowCursor(ord(isPaused))

   548 end;

   549 end;

   549 

   550 

   550 procedure chRotateMask(var s: shortstring);

   551 procedure chRotateMask(var s: shortstring);

   551 const map: array[0..7] of byte = (7,4,0,1,2,3,0,5);

   552 const map: array[0..7] of byte = (7,4,0,1,2,3,0,5);