equal
deleted
inserted
replaced
108 |
108 |
109 Gear^.Y:= Gear^.Y + Gear^.dY |
109 Gear^.Y:= Gear^.Y + Gear^.dY |
110 end; |
110 end; |
111 |
111 |
112 if hwRound(Gear^.X) < -cScreenWidth - 256 then Gear^.X:= int2hwFloat(cScreenWidth + 2048) else |
112 if hwRound(Gear^.X) < -cScreenWidth - 256 then Gear^.X:= int2hwFloat(cScreenWidth + 2048) else |
113 if hwRound(Gear^.X) > cScreenWidth + 2048 then Gear^.X:= int2hwFloat(-cScreenWidth - 256) |
113 if hwRound(Gear^.X) > cScreenWidth + LAND_WIDTH then Gear^.X:= int2hwFloat(-cScreenWidth - 256) |
114 end; |
114 end; |
115 |
115 |
116 procedure doStepExpl(Gear: PVisualGear; Steps: Longword); |
116 procedure doStepExpl(Gear: PVisualGear; Steps: Longword); |
117 begin |
117 begin |
118 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
118 Gear^.X:= Gear^.X + Gear^.dX * Steps; |