Помощь - Поиск - Пользователи - Календарь
Полная версия: Процедура PieSlice
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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, теперь понятно.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.