Процедура PieSlice Опции

[Sensitive]

Скажите пожалуйста,как сделать такие фигуры как на рисунке(рисунок прилагается) с помощью PieSlice. Какие должны быть значения параметров StartAngle, EndAngle. Не пойму никак...

[volvo]

Одним вызовом не получится... Если тебя устроит без окантовки, то:

    x := 100; y := 100;
    setfillstyle(solidfill, red);
    setcolor(red);
    pieslice(x, y, 270, 360, Radius);
    pieslice(x, y, 0, 180, Radius);

Если же надо еще обвести фигуру другим цветом -

    x := 100; y := 100;
    setfillstyle(solidfill, red);
    setcolor(red);
    pieslice(x, y, 270, 360, Radius);
    pieslice(x, y, 0, 180, Radius);

    { добавляешь }
    setcolor(white);
    Arc(x, y, 270, 360, Radius);
    Arc(x, y, 0, 180, Radius);
    moveto(x - radius, y);
    lineto(x, y);
    lineto(x, y+radius);

(вторая фигура строится по аналогии)

[Sensitive]

Спасибо, volvo, теперь понятно.