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

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

Как красиво ( без зазубрин ) нарисовать наклонную линию ? [D6, WinXP]

YuProhorov ©   (2009-02-26 16:21:00) 

Добрый день всем !

Как красиво ( без зазубрин ) нарисовать наклонную линию ?

Мне подсказали, что где-то в настройках надо установить флажек GDI Aliasing , но я ничего подобного не нашел.

Помогите, пожалуйста нарисовать линию.

Прохоров Юрий                         star716@mail.ru

---

Jeer   (2009-03-17 18:22:00) [1]

Без зазубрин нарисовать нельзя, можно только снизить их заметность.

---

antonn   (2009-03-08 00:36:00) [2]

кстати, выше код - случайно не он? :)

---

Б   (2009-03-05 10:25:00) [3]

http://ru.wikipedia.org/wiki/%D0%90%D0%BB%D0%B3%D0%BE%D1%80%D0%B8%D1%82%D0%BC_%D0%92%D1%83

---

brother   (2009-02-27 04:36:00) [4]

> Точно. Только это там оно было "Fast", здесь же из-за GetPixel/SetPixel
> совсем не фаст.

оптимизация - домашнее задание автору топика ;)

---

DVM   (2009-02-27 00:56:00) [5]

> antonn ©   (26.02.09 22:06) [5]


> fastlib? :)

Точно. Только это там оно было "Fast", здесь же из-за GetPixel/SetPixel совсем не фаст.

---

antonn   (2009-02-26 22:06:00) [6]

> DVM ©  

fastlib? :)

---

DVM   (2009-02-26 19:11:00) [7]

Оптимизируешь сам. Там много чего можно улучшить.

---

DVM   (2009-02-26 19:10:00) [8]

Вот, только это сравнительно медленно:



TYPE
 TFColor  = record b,g,r:Byte end;
 PFColor  =^TFColor;

procedure SmoothLine(dc: HDC; x1, y1, x2, y2: Integer; c: TFColor);
var
 dx,dy,d,s,ci,ea,ec: Integer;
 p: tFColor;
begin
 if(y1=y2)or(x1=x2)then
 begin
   MoveToEx(dc, X1, Y1, nil);
   LineTo(dc, X2,y2);
 end
   else
 begin
   if y1>y2 then
   begin
     d:=y1; y1:=y2; y2:=d;
     d:=x1; x1:=x2; x2:=d;
   end;
   dx:=x2-x1;
   dy:=y2-y1;
   if dx>-1 then s:=1 else
   begin
     s:=-1;
     dx:=-dx;
   end;
   ec:=0;
   if dy>dx then
   begin
     ea:=(dx shl 16)div dy;
     while dy>1 do
     begin
       Dec(dy);
       d:=ec;
       Inc(ec,ea);
       ec:=ec and $FFFF;
       if ec<=d then Inc(x1,s);
       Inc(y1);
       ci:=ec shr 8;
       p.r:=GetRValue(GetPixel(DC,X1,Y1));
       p.g:=GetgValue(GetPixel(DC,X1,Y1));
       p.b:=GetbValue(GetPixel(DC,X1,Y1));
       p.b:=(p.b-c.b)*ci shr 8 + c.b;
       p.g:=(p.g-c.g)*ci shr 8 + c.g;
       p.r:=(p.r-c.r)*ci shr 8 + c.r;
       SetPixel(dc, x1, y1, Rgb(p.r, p.g, p.b));
       p.r:=GetRValue(GetPixel(DC,X1+s,Y1));
       p.g:=GetgValue(GetPixel(DC,X1+s,Y1));
       p.b:=GetbValue(GetPixel(DC,X1+s,Y1));
       p.b:=(c.b-p.b)*ci shr 8 + p.b;
       p.g:=(c.g-p.g)*ci shr 8 + p.g;
       p.r:=(c.r-p.r)*ci shr 8 + p.r;
       SetPixel(dc, x1+s, y1, Rgb(p.r, p.g, p.b));
     end;
   end else
   begin
     ea:=(dy shl 16)div dx;
     while dx>1 do
     begin
       Dec(dx);
       d:=ec;
       Inc(ec,ea);
       ec:=ec and $FFFF;
       if ec<=d then Inc(y1);
       Inc(x1,s);
       ci:=ec shr 8;
       p.r:=GetRValue(GetPixel(DC,X1,Y1));
       p.g:=GetgValue(GetPixel(DC,X1,Y1));
       p.b:=GetbValue(GetPixel(DC,X1,Y1));
       p.b:=(p.b-c.b)*ci shr 8 + c.b;
       p.g:=(p.g-c.g)*ci shr 8 + c.g;
       p.r:=(p.r-c.r)*ci shr 8 + c.r;
       SetPixel(dc, x1, y1, Rgb(p.r, p.g, p.b));
       p.r:=GetRValue(GetPixel(DC,X1,Y1+1));
       p.g:=GetgValue(GetPixel(DC,X1,Y1+1));
       p.b:=GetbValue(GetPixel(DC,X1,Y1+1));;
       p.b:=(c.b-p.b)*ci shr 8 + p.b;
       p.g:=(c.g-p.g)*ci shr 8 + p.g;
       p.r:=(c.r-p.r)*ci shr 8 + p.r;
       SetPixel(dc, x1, y1+1, Rgb(p.r, p.g, p.b));
     end;
   end;
 end;
end;


---

MBo   (2009-02-26 17:32:00) [9]

Есть такой алгоритм Ву (Wu) рисования линий с антиалиасингом

---

Vetal   (2009-02-26 17:31:00) [10]

Если с использованием GDI - то вручную, если с GDI+, то используя свойство объекта TGPGraphics.SetSmoothingMode.

---

Наверх