equal
deleted
inserted
replaced
75 //////////////////////////////////////////////////////////////////////////////// |
75 //////////////////////////////////////////////////////////////////////////////// |
76 procedure doStepCloud(Gear: PVisualGear; Steps: Longword); |
76 procedure doStepCloud(Gear: PVisualGear; Steps: Longword); |
77 var s: Longword; |
77 var s: Longword; |
78 t: float; |
78 t: float; |
79 begin |
79 begin |
80 Gear^.X:= Gear^.X + (cWindSpeedf * 200 + Gear^.dX) * Steps; |
80 Gear^.X:= Gear^.X + (cWindSpeedf * 750 * Gear^.dX) * Steps; |
81 |
81 |
82 // up-and-down-bounce magic |
82 // up-and-down-bounce magic |
83 s := (GameTicks + Gear^.Timer) mod 4096; |
83 s := (GameTicks + Gear^.Timer) mod 4096; |
84 t := 8 * AngleSin(s mod 2048).QWordValue / 4294967296; |
84 t := 8 * AngleSin(s mod 2048).QWordValue / 4294967296; |
85 if (s < 2048) then t := -t; |
85 if (s < 2048) then t := -t; |