mixster

program New;
var
  i, c, l: Integer;
  p: TPoint;

begin
  Writeln('Begin');
  DisplayDebugImgWindow(50, 50);
  Wait(250);
  i := BitmapFromString(50, 50, '');
  FastDrawClear(i, clBlack);
  SafeDrawBitmap(i, GetDebugCanvas, 0, 0);
  FreeBitmap(i);
  while true do
  begin
    for i := 0 to 360 do
    begin
      c := (i + l) mod 5;
      case c of
        0: c := clBlue;
        1: c := clYellow;
        2: c := clRed;
        3: c := clGreen;
        4: c := clWhite;
      end;
      p := RotatePoint(Point(25, 0), (i), 25, 25);
      GetDebugCanvas.Pixels[p.x, p.y] := c;
    end;
    l := l + 1;
  end;
  Writeln('End');
end.