equal
deleted
inserted
replaced
170 Gear^.dY:= Gear^.dY + cGravityf * Steps; |
170 Gear^.dY:= Gear^.dY + cGravityf * Steps; |
171 |
171 |
172 Gear^.Angle:= round(Gear^.Angle + Steps) mod cMaxAngle; |
172 Gear^.Angle:= round(Gear^.Angle + Steps) mod cMaxAngle; |
173 |
173 |
174 if Gear^.FrameTicks <= Steps then |
174 if Gear^.FrameTicks <= Steps then |
175 DeleteVisualGear(Gear) |
175 begin |
|
176 DeleteVisualGear(Gear); |
|
177 exit |
|
178 end |
176 else |
179 else |
177 dec(Gear^.FrameTicks, Steps); |
180 dec(Gear^.FrameTicks, Steps); |
178 |
181 |
179 if Gear^.FrameTicks < $FF then |
182 if Gear^.FrameTicks < $FF then |
180 Gear^.Tint:= (Gear^.Tint and $FFFFFF00) or Gear^.FrameTicks |
183 Gear^.Tint:= (Gear^.Tint and $FFFFFF00) or Gear^.FrameTicks |