Версия для печати темы

Автор: Single 22.12.2007 8:12

Ребят, вот задачка попалась - помогите пожалуйста решить. Нужно закрасить эллипс каким нибудь цветом, но что то я в его координаты ни как не попаду и дорисовать в какие то сектора экрана куб и закрашенный семиугольник. Помогите пожалуйста. Вот сам код начальной программы:

Uses
Graph,Crt;
Var
gd,gm:integer;
ArcCoords: ArcCoordsType;
X1, Y1, X2, Y2,i: Integer;
Begin
gd:=detect;
InitGraph(gd,gm,'');
 if GraphResult<> grOk then
   Halt(1);
 Randomize;
 repeat
   X1 := Random(GetMaxX);
   Y1 := Random(GetMaxY);
   X2 := Random(GetMaxX - X1) + X1;
   Y2 := Random(GetMaxY - Y1) + Y1;
setcolor (green);
circle (80,80,50);
setcolor (red);
SetFillStyle (1,4);
Ellipse(250, 80, 0, 360, 30, 50);
floodfill(50,50,0);
until KeyPressed;
 CloseGraph;
readkey
end.

Автор: Ozzя 22.12.2007 12:20

setcolor (red); // цвета тут
SetFillStyle (1,4);
Ellipse(250, 80, 0, 360, 30, 50);
floodfill(50,50,red); // и тут должны совпадать

1. Заливка идет до границы эллипса.
2. Точка затравки должна лежать внутри эллипса.