Попиксельно нарисовать эллипс

← →
Серджинйо (2006-04-15 15:03) [0]

Эллипс вписан в прямоугольник,
Надо получить 2хМассив координат точек окружности эллипса
известны Левая верхняя и правая нижняя точки прымоугольника.
как это сделать????

← →
antonn © (2006-04-15 15:11) [1]

нарисовать на битмапе, пройтись в цикле и собрать пиксели, отличные от фона

← →
Rial © (2006-04-15 17:57) [2]

Type TMas=Array of Array of Boolean; function BuildMas(Const Left,Bottom,Right,Top:Integer):TMas; Var I,J:Integer; LX,LY:Integer; CX,CY:Extended; begin LX:=Right-Left+1; LY:=Top-Bottom+1; If (LX<=0)or(LY<=0)then Exit; CX:=LX/2.0; CY:=LY/2.0; SetLength(Result,LX); For I:=0 to LX-1 do begin SetLength(Result[I],LY); For J:=0 to LY-1 do Result[I,J]:=(Sqr((I-CX)/CX)+Sqr((J-CY)/CY)<=1.0); end; end; procedure TForm1.Button1Click(Sender: TObject); Var M:TMas; begin M:=BuildMas(0,0,7,3); If (M[4,0])then Beep(); end;

Теоритически должно работать.

← →
Gorger © (2006-04-23 16:21) [3]

Грубо навскидку:
type PPoint=^TPoint;
var H1:HRGN:
i,j:integer;
L:TList;
p:PPoint;
begin
L:=TList.Create;
H1:=CreateEllipticRgn(...)
for i:=1 to Form1.Width do begin
for j:=1 to Form1.Height do begin
if PtInRgn(H1,i,j) then begin
New(P);
P.X:=i;P.Y:=j;
L.Add(p);
end;
end;
end;

← →
Серджинйо (2006-04-24 02:14) [4]

Gorger - угу :-)
Я так и делал...

напиши в яндексе "уравнение эллипса", посчитай фокусы (раз углы прямоугольника есть) и вот он, эллипс...

Попиксельно нарисовать эллипс Найти похожие ветки