equal
deleted
inserted
replaced
829 |
829 |
830 var fx, x: LongInt; |
830 var fx, x: LongInt; |
831 y, sy: LongInt; |
831 y, sy: LongInt; |
832 ar: array[0..511] of TPoint; |
832 ar: array[0..511] of TPoint; |
833 ar2: array[0..1023] of TPoint; |
833 ar2: array[0..1023] of TPoint; |
834 cnt, cnt2, delta: Longword; |
834 cnt, cnt2: Longword; |
|
835 delta: LongInt; |
835 begin |
836 begin |
836 delta:= 250; |
837 delta:= 250; |
837 cnt2:= 0; |
838 cnt2:= 0; |
838 repeat |
839 repeat |
839 x:= Left + GetRandom(Delta); |
840 x:= Left + LongInt(GetRandom(Delta)); |
840 repeat |
841 repeat |
841 inc(x, Delta); |
842 inc(x, Delta); |
842 cnt:= 0; |
843 cnt:= 0; |
843 y:= -Gear^.Radius * 2; |
844 y:= -Gear^.Radius * 2; |
844 while y < 1023 do |
845 while y < 1023 do |