Модуль Graph, подшипник Опции

[setare]

Вы не могли бы подсказать как можно нарисовать с помощью модуля graph подшипник. Эта тема будет у нас на экзамене и никто не знает как это можно сделать. Спасибо!

[volvo]

setare
Ээээ.... Правда это очень отдаленно напоминает подшипник

Код

uses Graph;

var
 grDriver, grMode, ErrCode: Integer;
 i, nx, ny: integer;
begin
 grDriver := Detect;
 InitGraph(grDriver, grMode,'');
 ErrCode := GraphResult;
 if ErrCode <> grOk then
 begin
   Writeln('Graphics error:', GraphErrorMsg(ErrCode));
   halt;
 end;

 circle(getmaxx div 2, getmaxy div 2, 200);
 circle(getmaxx div 2, getmaxy div 2, 150);
 i := 0;
 while i <= 360 do
   begin
     nx := (getmaxx div 2) + trunc(175 * sin(i / (180 / Pi)));
     ny := (getmaxy div 2) + trunc(175 * cos(i / (180 / Pi)));
     circle(nx, ny, 25);
     inc(i, 18)
   end;

 readln;
 CloseGraph;
end.