equal
deleted
inserted
replaced
963 while y < 1023 do |
963 while y < 1023 do |
964 begin |
964 begin |
965 repeat |
965 repeat |
966 inc(y, 2); |
966 inc(y, 2); |
967 until (y > 1023) or (CountNonZeroz(x, y, Gear^.Radius - 1) = 0); |
967 until (y > 1023) or (CountNonZeroz(x, y, Gear^.Radius - 1) = 0); |
|
968 AddFileLog('x, sy = ' + inttostr(x) + ', ' + inttostr(y)); |
968 sy:= y; |
969 sy:= y; |
969 repeat |
970 repeat |
970 inc(y); |
971 inc(y); |
971 until (y > 1023) or (CountNonZeroz(x, y, Gear^.Radius - 1) <> 0); |
972 until (y > 1023) or (CountNonZeroz(x, y, Gear^.Radius - 1) <> 0); |
972 if (y - sy > Gear^.Radius * 2) |
973 if (y - sy > Gear^.Radius * 2) |