delphi Нарисовать дугу =)

[hi-end1]

создать объект: дуга
Задание: Разработать программный модуль, реализующий объект в соответствии с заданным вариантом. Необходимые графические программы взять из объекта TCanvas модуля GRAPHICS

помогите плз с кодом этой программы. Она наверное очень простая, но я с ООП почти совсем не знаком, поэтому не предаставляю как делать.
В универе все молчат как партизаны (особенно преподы, им лень объяснять естественно =). просто задание дали и все. Лабу совсем скоро сдавать.
Somebody, help!!!

[raxp]

наработки?

[Вавел из ГМТУ]

Что ещё за модуль GRAPHICS?

Юзай функцию Arc(...) - дуга.

[Alex Cones]

Что ещё за модуль GRAPHICS?

Модуль, который содержит описание канвы.

[Вавел из ГМТУ]

А ну да.. Только непонятно зачем его было упоминать в задании...
Никогда на него внимание не обращал, ибо сам добавляется в раздел uses

[Alex Cones]

ТС, попробуй что-то вроде этого:

X:=5;
Y:=4;
R:=30;
Down:=10;
For YI=Y-R to Y+R do
 For XI=X-R to X+R do
  If (XI*XI+YI*YI=R*R) And (Y-R+Down<YI) Then Canvas.Pixels[XI,YI]:=$FFFFFF;

Как-то примерно так. Конечно не лучший способ, но если честно, я формулу забыл, которая через синус идет.