| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Серджинйо ©   (2006-04-15 15:03:00) 

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

---

a22   (2006-04-25 15:59:00) [1]

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

---

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

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

---

Gorger   (2006-04-23 16:21:00) [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;

---

Rial   (2006-04-15 17:57:00) [4]

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;


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

---

antonn   (2006-04-15 15:11:00) [5]

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

---

Наверх