changeset 3699 | e5e2cbc90891 |
parent 3689 | e2be39ee19f0 |
child 3704 | ed2b9c7fb260 |
3697:d5b30d6373fc | 3699:e5e2cbc90891 |
---|---|
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; |