вращение диска Опции

[Sensitive]

Вообще не знаю каким способом делать эту задачу.
Условие прилагается. Подскажите пожалуйста, как это всё реализовать.

[volvo]

Вот так вращается одинаково:

uses graph, crt;

procedure disk(f: real; r:integer);

  const delta = 6;
  procedure put_arc(start, finish: integer;
            var r_out: integer);
  var
    xs_in, ys_in, xf_in, yf_in: integer;
    arc_coords: arccoordstype;
  begin
    arc(0, 0, round(start + f),round(finish + f), r_out);
    getarccoords(arc_coords);
    with arc_coords do begin
      xs_in := xstart; ys_in := ystart;
      xf_in := xend; yf_in := yend;
    end;

    dec(r_out, delta);

    arc(0, 0, round(start + f), round(finish + f), r_out);
    getarccoords(arc_coords);
    with arc_coords do begin
      line(xs_in, ys_in, xstart, ystart);
      line(xf_in, yf_in, xend, yend);
    end;
  end;

begin
  setfillstyle(solidfill, white);
  circle(0, 0, r);
  line(
    trunc(r*cos(f*pi/180)), trunc(-r*sin(f*pi/180)),
    trunc(r*cos((180+f)*pi/180)), trunc(-r*sin((180+f)*pi/180))
  );

  floodfill(
    trunc((r/2)*cos((trunc(f+270) mod 360)*pi/180)),
    trunc(-(r/2)*sin((trunc(f+270) mod 360)*pi/180)),
    white
    );

  dec(r, 16);
  put_arc(135, 180, r);
  put_arc(90, 135, r);
  put_arc(45, 90, r);
  put_arc(0, 45, r);
end;

var
  gd, gm: integer;
  i: integer;

begin
  initgraph(gd, gm, '');
  setviewport(getmaxx div 2, getmaxy div 2, getmaxx, getmaxy, false);
  for i := 0 to 120 do begin
    cleardevice;
    disk(i, 50);
    delay(1575);

  end;
  readln;
  closegraph;
end.