{$IFNDEF NO_INLINE_LOOPS}
  while count >= 32 do
  begin
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    count := count - 32;
  end;

  while count >= 4 do
  begin
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
    count := count - 4;
  end;
{$ENDIF}

  fraclimit := frac + count * fracstep;
  while frac < fraclimit do
  begin
    {$I R_DrawColumnHi_Batch_Loop.inc}
    {$I R_DrawColumnHi_Batch_Loop.inc}
  end;
  while frac <= fraclimit do
  begin
    {$I R_DrawColumnHi_Batch_Loop.inc}
  end;
