| changeset 3702 | 6c90190908b6 |
| parent 3699 | e5e2cbc90891 |
| child 3704 | ed2b9c7fb260 |
| 3700:fabf387d9055 | 3702:6c90190908b6 |
|---|---|
553 |
553 |
554 Gear^.Angle:= round(Gear^.Angle + Steps) mod cMaxAngle; |
554 Gear^.Angle:= round(Gear^.Angle + Steps) mod cMaxAngle; |
555 |
555 |
556 if round(Gear^.Y) > cWaterLine then |
556 if round(Gear^.Y) > cWaterLine then |
557 begin |
557 begin |
558 AddVisualGear(round(Gear^.X), round(Gear^.Y), vgtDroplet); |
|
558 DeleteVisualGear(Gear); |
559 DeleteVisualGear(Gear); |
559 AddVisualGear(round(Gear^.X), round(Gear^.Y), vgtDroplet); |
|
560 end |
560 end |
561 end; |
561 end; |