손규만 wrote:

> 안녕하세요.

>

> 델파이에서 원을 그리고 싶은데 어떻게 해야하지요.

>

> 반경(R)과 원호의 시작점(SP)과 끝점(EP)을 알고 있는데요. 물론 중심(X,Y)도 알고 있고요.

> 아시는분 꼭 답변부탁드립니다. 지금은 이상한 방법으로 적용하고 있는데 한번씩 그림이 이상하게 나와 가지고....

>

> 그럼 부탁드립니다. 다음에 또

>

>



TCanvas.Ellipse를 함 써보세요.



Draws the ellipse defined by a bounding rectangle on the canvas.



procedure Ellipse(X1, Y1, X2, Y2: Integer);



Description



Call Ellipse to draw a circle or ellipse on the canvas. The top left point of the bounding rectangle is at pixel coordinates (X1, Y1) and the bottom right point is at (X2, Y2). If the points of the rectangle form a square, a circle is drawn.



The ellipse is outlined using the value of Pen, and filled using the value of Brush.



Note: On Windows 95, the sums X1 + X2 and Y1 + Y2 cannot exceed 32768. Also, the sum X1 + X2 + Y1 + Y2 cannot exceed 32768.



반경과 시작점, 끝점을 알고 있다면 이 방식이 젤 변할 것 같은디...쩝... 도움이 되었기를...

손규만 wrote:

> 안녕하세요.

>

> 델파이에서 원을 그리고 싶은데 어떻게 해야하지요.

>

> 반경(R)과 원호의 시작점(SP)과 끝점(EP)을 알고 있는데요. 물론 중심(X,Y)도 알고 있고요.

> 아시는분 꼭 답변부탁드립니다. 지금은 이상한 방법으로 적용하고 있는데 한번씩 그림이 이상하게 나와 가지고....

>

> 그럼 부탁드립니다. 다음에 또

>

>





이건 여덕수 님의 글을 인용한겁니당.



dx := r * cos(th) + px;

dy := r * sin(th) + py;



procedure TDraw.DrawCircle(px,py,r : double);

var

th,step,dx1,dy1,dx2,dy2 : double;

ix1,iy1,ix2,iy2 : Integer;

begin

th := 0;

step := pi / 16;



Repeat

dx1 := r * cos(th) + px;

dy1 := r * sin(th) + py;

th := th + Step;

dx2 := r * cos(th) + px;

dy2 := r * sin(th) + py;

PaperToCrt(dx1,dy2,ix1,iy1);

PaperToCtr(dx2,dx2,ix2,iy2);

MainForm.DrawPaintBox.Canvas.MoveTo(ix1,iy1);

MainForm.DrawPaintBox.Canvas.MoveTo(ix2,iy2);

Until th >= pi * 2

end;



th 를 0 ~ 360 까지 15도씩 증가시켜서 원을 그리는 함수.

델에서 삼각함수는 라디안을 쓰기에 pi 를 이용했구요.



마구잡이 원을 그린다.

procedure TDraw.RandomCircle;

var

iCount : Integer;

begin

Randomize;

for iCount := 1 to 10 do

DrawCircle(Rand(20)-10,Rand(20)-10,Rand(20));

end;



행복하세요..





end;