CTS failsafe timing

{$I MSSL\MSSL.scar}

procedure ScriptTerminate;
begin
  MSSL_Unsetup;
end;

var
  x, t, l: Integer;

procedure a;
var
  CTS: Boolean;
  cs: MSSL_TColorSettings;
begin
  Inc(l);
  CTS := (GetColorToleranceSpeed <> 1)
  if CTS then
  begin
    cs := MSSL_GetColorSettings;
    ColorToleranceSpeed(1);
  end;
  if CTS then
    MSSL_SetColorSettings(cs);
end;

procedure b;
var
  CTS: Boolean;
  cs: MSSL_TColorSettings;
begin
  Inc(l);
  CTS := (GetColorToleranceSpeed <> 1)
  if CTS then
  begin
    cs := MSSL_GetColorSettings;
    ColorToleranceSpeed(1);
  end;
  a;
  if CTS then
    MSSL_SetColorSettings(cs);
end;

procedure c;
var
  CTS: Boolean;
  cs: MSSL_TColorSettings;
begin
  Inc(l);
  CTS := (GetColorToleranceSpeed <> 1)
  if CTS then
  begin
    cs := MSSL_GetColorSettings;
    ColorToleranceSpeed(1);
  end;
  a;
  b;
  if CTS then
    MSSL_SetColorSettings(cs);
end;

procedure d;
var
  CTS: Boolean;
  cs: MSSL_TColorSettings;
begin
  Inc(l);
  CTS := (GetColorToleranceSpeed <> 1)
  if CTS then
  begin
    cs := MSSL_GetColorSettings;
    ColorToleranceSpeed(1);
  end;
  a;
  b;
  c;
  if CTS then
    MSSL_SetColorSettings(cs);
end;

procedure e;
var
  CTS: Boolean;
  cs: MSSL_TColorSettings;
begin
  Inc(l);
  CTS := (GetColorToleranceSpeed <> 1)
  if CTS then
  begin
    cs := MSSL_GetColorSettings;
    ColorToleranceSpeed(1);
  end;
  a;
  b;
  c;
  d;
  if CTS then
    MSSL_SetColorSettings(cs);
end;

procedure f;
var
  CTS: Boolean;
  cs: MSSL_TColorSettings;
begin
  Inc(l);
  CTS := (GetColorToleranceSpeed <> 1)
  if CTS then
  begin
    cs := MSSL_GetColorSettings;
    ColorToleranceSpeed(1);
  end;
  a;
  b;
  c;
  d;
  e;
  if CTS then
    MSSL_SetColorSettings(cs);
end;

procedure g;
var
  CTS: Boolean;
  cs: MSSL_TColorSettings;
begin
  Inc(l);
  CTS := (GetColorToleranceSpeed <> 1)
  if CTS then
  begin
    cs := MSSL_GetColorSettings;
    ColorToleranceSpeed(1);
  end;
  a;
  b;
  c;
  d;
  e;
  f;
  if CTS then
    MSSL_SetColorSettings(cs);
end;

procedure h;
begin
  Inc(l);
  ColorToleranceSpeed(2);
  SetColorspeed2Modifiers(0.43, 1.38);
  a;
  b;
  c;
  d;
  e;
  f;
  g;
  ColorToleranceSpeed(1);
end;

begin
  MSSL_Setup;
  repeat
    l := 0;
    t := GetSystemTime;
    for x := 0 to 9 do
    begin
      a;
      b;
      c;
      d;
      e;
      f;
      g;
      h;
    end;
    Status(MSSL_TheTime + ' ran ' + IntToStr(l) + ' lookups [' + IntToStr(GetSystemTime - t) + ' ms.]');
    MSSL_Wait(0);
  until False;
end.