equal
deleted
inserted
replaced
4938 end; |
4938 end; |
4939 |
4939 |
4940 //////////////////////////////////////////////////////////////////////////////// |
4940 //////////////////////////////////////////////////////////////////////////////// |
4941 procedure doStepStructure(Gear: PGear); |
4941 procedure doStepStructure(Gear: PGear); |
4942 var |
4942 var |
4943 x, y, i: LongInt; |
4943 x, y: LongInt; |
4944 HH: PHedgehog; |
4944 HH: PHedgehog; |
4945 t: PGear; |
4945 t: PGear; |
4946 begin |
4946 begin |
4947 HH:= Gear^.Hedgehog; |
4947 HH:= Gear^.Hedgehog; |
4948 |
4948 |