equal
deleted
inserted
replaced
154 Gear:= VisualGearsList; |
154 Gear:= VisualGearsList; |
155 while Gear <> nil do |
155 while Gear <> nil do |
156 begin |
156 begin |
157 case Gear^.Kind of |
157 case Gear^.Kind of |
158 vgtFlake: if vobVelocity = 0 then |
158 vgtFlake: if vobVelocity = 0 then |
159 DrawSprite(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame, nil) |
159 DrawSprite(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame) |
160 else |
160 else |
161 DrawRotatedF(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame, Gear^.Angle); |
161 DrawRotatedF(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame, Gear^.Angle); |
162 |
162 |
163 vgtCloud: DrawSprite(sprCloud, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame, nil); |
163 vgtCloud: DrawSprite(sprCloud, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame); |
164 end; |
164 end; |
165 Gear:= Gear^.NextGear |
165 Gear:= Gear^.NextGear |
166 end; |
166 end; |
167 end; |
167 end; |
168 |
168 |