equal
deleted
inserted
replaced
166 end; |
166 end; |
167 end; |
167 end; |
168 |
168 |
169 procedure AddClouds; |
169 procedure AddClouds; |
170 var i: LongInt; |
170 var i: LongInt; |
171 dx, dy: hwFloat; |
|
172 begin |
171 begin |
173 for i:= 0 to cCloudsNumber do |
172 for i:= 0 to cCloudsNumber do |
174 AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div cCloudsNumber), -140, vgtCloud) |
173 AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div cCloudsNumber), -140, vgtCloud) |
175 end; |
174 end; |
176 |
175 |