equal
deleted
inserted
replaced
220 end; |
220 end; |
221 |
221 |
222 procedure HedgehogChAngle(Gear: PGear); |
222 procedure HedgehogChAngle(Gear: PGear); |
223 begin |
223 begin |
224 if ((Gear.State and (gstMoving or gstFalling)) = 0) then |
224 if ((Gear.State and (gstMoving or gstFalling)) = 0) then |
225 if (Gear.Message and gm_Up )<>0 then if Gear.Angle > 0 then dec(Gear.Angle) |
225 if (Gear.Message and gm_Up )<>0 then if Gear.Angle > CurMinAngle then dec(Gear.Angle) |
226 else else |
226 else else |
227 if (Gear.Message and gm_Down )<>0 then if Gear.Angle < cMaxAngle then inc(Gear.Angle); |
227 if (Gear.Message and gm_Down )<>0 then if Gear.Angle < CurMaxAngle then inc(Gear.Angle); |
228 end; |
228 end; |
229 |
229 |
230 procedure doStepHedgehog(Gear: PGear); forward; |
230 procedure doStepHedgehog(Gear: PGear); forward; |
231 //////////////////////////////////////////////////////////////////////////////// |
231 //////////////////////////////////////////////////////////////////////////////// |
232 procedure doStepHedgehogDriven(Gear: PGear); |
232 procedure doStepHedgehogDriven(Gear: PGear); |