equal
deleted
inserted
replaced
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 DeleteVisualGear(Gear) |
176 else |
176 else |
177 dec(Gear^.FrameTicks, Steps) |
177 dec(Gear^.FrameTicks, Steps); |
|
178 |
|
179 if Gear^.FrameTicks < $FF then |
|
180 Gear^.Tint:= (Gear^.Tint and $FFFFFF00) or Gear^.FrameTicks |
178 end; |
181 end; |
179 |
182 |
180 //////////////////////////////////////////////////////////////////////////////// |
183 //////////////////////////////////////////////////////////////////////////////// |
181 procedure doStepFire(Gear: PVisualGear; Steps: Longword); |
184 procedure doStepFire(Gear: PVisualGear; Steps: Longword); |
182 var vgt: PVisualGear; |
185 var vgt: PVisualGear; |