equal
deleted
inserted
replaced
4809 |
4809 |
4810 //////////////////////////////////////////////////////////////////////////////// |
4810 //////////////////////////////////////////////////////////////////////////////// |
4811 procedure doStepStructure(Gear: PGear); |
4811 procedure doStepStructure(Gear: PGear); |
4812 var |
4812 var |
4813 x, y: LongInt; |
4813 x, y: LongInt; |
4814 dX, dY: HWFloat; |
|
4815 hog: PHedgehog; |
4814 hog: PHedgehog; |
4816 begin |
4815 begin |
4817 if (Gear^.Hedgehog <> nil) and (Gear^.Tag = TotalRounds) then |
4816 if (Gear^.Hedgehog <> nil) and (Gear^.Tag = TotalRounds) then |
4818 begin |
4817 begin |
4819 hog:= Gear^.Hedgehog; |
4818 hog:= Gear^.Hedgehog; |