Графика в делфи - Построить полукруг расположенный в II и III четвертях

[Tokko1]

Построить полукруг расположенный в II и III четвертях...=)
С ярко очерченными границами, включая ось y, где он входит!

[mss]

Штудируй методы TCanvas PenPos(), LineTo(), Arc()

[Tokko1]

Процедура вычерчивания окружности текущим цветом имеет следующий формат:
Cicrle (x,y,r:word), где x,y – координаты центра окружности, r – ее радиус.

Для построения секторов можно использовать следующие процедуры:
PieSlice (x,y:integer,a,b,R:word),которая рисует и заполняет сектор круга. Координаты x,y – центр окружности, сектор рисуется от начального угла a до конечного угла b


а как через это сделать...так и не смог понять! мне нужно примерно через такие процедуры!

[Tokko1]

Помогите Пожалуйста!

[Tokko1]

procedure GrOfFunc;
var
 x1,x2:real;   
 y1,y2:real;    
 x:real;        
 y:real;        
 dx:real;       
 l,b:integer;   
 w,h:integer;  
 mx,my:real;    
 x0,y0:integer; 

begin
 l:=100;                  
 b:=Form1.ClientHeight-20;  
 h:=Form1.ClientHeight-40;  
 w:=Form1.Width-40;         

 x1:=-10;     
 x2:=10;  
 dx:=0.01; 


 y1:=f(x1); 
 y2:=f(x1); 
 x:=x1;
 repeat
   y := f(x);
   if y < y1 then y1:=y;
   if y > y2 then y2:=y;
   x:=x+dx;
 until (x>=x2);

 my:=h/abs(y2-y1); 
 mx:=w/abs(x2-x1); 


 x0:=-l;
 y0:=b-Abs(Round(y1*my));

 with form1.Canvas do
 begin
   // îñè
   MoveTo(l,b);LineTo(l,b-h);
   MoveTo(x0,y0);LineTo(x0+w,y0);
   TextOut(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3));
   TextOut(l+5,b,FloatToStrF(y1,ffGeneral,6,3));

   x:=x1;
   repeat
Как тут написовать полуокружность....????? подскажите!!!!!!!!!!!

 end;
end;


procedure TForm1.FormPaint(Sender: TObject);
begin
  GrOfFunc;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  form1.Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight));
  GrOfFunc;
end;

end.

[Mad_Cat]

полукруг расположенный в II и III четвертях

procedure TForm1.btn1Click(Sender: TObject);
var x,y:Integer;
begin
  x:=Form1.ClientWidth div 2 ;
  y:=form1.ClientHeight div 2;
  with form1.Canvas do begin
Brush.Color:=clRed;
Brush.Style:=bsSolid;
Ellipse(x-50,y-50,x+50,y+50);
Pen.Color:=Form1.Color;
Brush.Color:=Pen.Color;
Rectangle(0,0,Form1.ClientWidth,y);
 end;
end;

[Tokko1]

а вот такой вот вопрос, куда нужно вставлять? я пробовал, но не проходит(

[Tokko1]

Спасибо! Щас попробую переделать под 2 и 3ю четверти!