ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Maxim Lanovoy                        2:463/1124.6   18 Jun 2003  20:58:52
 To : Andry Chyiko
 Subject : помогите, это пpосто! :)
 -------------------------------------------------------------------------------- 
 

  YB>> Hаpисyйте лиHию плиз..
  YB>> !!! только точками Hадо pисовать а Hе фyHкцией LineTo  :-)
  AC> в школу ходи.
 
 [...]
 
  AC> for x := 10 to 100 do
  AC>   PutPixel(x, 2.11111*x - 11.11111);
  AC> сделано по памяти, за ошибки не пинать. но имхо все верно
  AC> 2Юра Балык: читай книжки - они руль.
 
 Тебе бы это тоже не помешало. Во-первых, как ты себе представлешь отрисовку
 строго вертикальных линий (x=a), во-вторых, в твоем алгоритме много вычислений
 можно вынести за цикл:
 
 float k = (float)(y2-y1)/(float)(x2-x1);
 y=y1;
 for(x=x1; x<=x2; x++) {
     putpixel(x,y);
     y=y+k;
 }
 
 В-третьих, есть куда более быстрые инкрементные алгоритмы. Hапример, алгоритм
 Брезенхейма и его модификации.
 
 void Line(int x1, int y1, int x2, int y2, int color)
 {
     int dx = abs(x2-x1);
     int dy = abs(y2-y1);
     int sx = x2>=x1?1:-1;
     int sy = y2>=y1?1:-1;
     if(dy <= dx) {
         int d=(dy<<1)-dx;
         int d1=dy<<1;
         int d2=(dy-dx)<<1;
 
         putpixel(x1, y1, color);
 
         for(int x=x1+sx, y=y1, i=1; i<=dx; i++, x+=sx) {
             if(d>0) {
                 d+=d2;
                 y+=sy;
             }
             else d+=d1;
             putpixel(x, y, color);
         }
     } else {
         int d=(dx<<1)-dy;
         int d1=dx<<1;
         int d2=(dx-dy)<<1;
         putpixel(x1, y1, color);
         for(int x=x1,y=y1+sy,i=1;i<=dy;i++,y+=sy) {
             if(d>0) {
                 d+=d2;
                 x+=sx;
             } else d+=d1;
             putpixel(x, y, color);
         }
     }
 }
 
 Паскаль:
 
 Procedure Line(SX,SY,EX,EY:Integer);
 Var t,dist,Xerr,Yerr,DX,DY,INCX,INCY:Integer;
 Begin
  Xerr:=0; Yerr:=0;
  DX:=EX-SX;  DY:=EY-SY;
  INCX:=1; INCY:=1;
  if DX=0 then INCX:=0;
  if DX<0then INCX:=-1;
  if DY=0 then INCY:=0;
  if DY<0then INCY:=-1;
  DX:=ABS(DX); DY:=ABS(DY);
 
  if DX>DYThen Dist:=DX;
 
  else Dist:=DY;
  Xerr:=DX; Yerr:=DY;
  for t:=0 to dist do
   begin
    PutPixel(Sx,Sy,Color);
    Xerr:=Xerr+DX; Yerr:=Yerr+DY;
    if Xerr>Distthen
     begin
      Xerr:=Xerr-dist;
      Sx:=Sx+INCX;
     end;
    if Yerr>Distthen
     begin
      Yerr:=Yerr-dist;
      Sy:=Sy+INCY;
     end;
   end;
 End;
 WBR, Максим Лановой
 mailto: lanovoy(_эт_)ln.ua
 
 --- ...
  * Origin: Qui non est nobiscum, adversus non est (2:463/1124.6)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    помогите, это пpосто! :)   Yura Balyuk   15 Jun 2003 13:55:58   помогите, это пpосто! :)   Andry Chyiko   18 Jun 2003 14:41:59   помогите, это пpосто! :)   Maxim Lanovoy   18 Jun 2003 20:58:52   помогите, это пpосто! :)   Andry Chyiko   19 Jun 2003 15:58:19   помогите, это пpосто! :)   Maxim Lanovoy   19 Jun 2003 22:34:00   Re: помогите, это пpосто! :)   Nick Kovaliov   20 Jun 2003 09:50:33   помогите, это пpосто! :)   Maxim Lanovoy   21 Jun 2003 00:23:26   Re: помогите, это пpосто! :)   Nick Kovaliov   21 Jun 2003 11:26:44   помогите, это пpосто! :)   Maxim Lanovoy   21 Jun 2003 18:40:46   Re: помогите, это пpосто! :)   Nick Kovaliov   23 Jun 2003 13:46:36   помогите, это пpосто! :)   Maxim Lanovoy   23 Jun 2003 21:50:24   Re: помогите, это пpосто! :)   Nick Kovaliov   25 Jun 2003 09:28:29   помогите, это пpосто! :)   Maxim Lanovoy   25 Jun 2003 20:29:02   Re: помогите, это пpосто! :)   Nick Kovaliov   26 Jun 2003 11:52:27   помогите, это пpосто! :)   Maxim Lanovoy   26 Jun 2003 19:54:50   Re: помогите, это пpосто! :)   Vladislav Gusev   27 Jun 2003 01:03:36   помогите, это пpосто! :)   Maxim Lanovoy   27 Jun 2003 10:43:32   помогите, это пpосто! :)   Edik Ryzhov   27 Jun 2003 16:29:52   Re: помогите, это пpосто! :)   Sergey Voloshchuk   20 Jun 2003 11:11:12   Бpезенхам(хэйм)   Vladimir Andreyev   20 Jun 2003 14:27:08   Re: Бpезенхам(хэйм)   Nick Kovaliov   20 Jun 2003 15:11:27   Бpезенхам(хэйм)   Yura Balyuk   24 Jun 2003 17:52:25   помогите, это пpосто! :)   Yura Balyuk   28 Jun 2003 17:18:14   помогите, это пpосто! :)   Maxim Lanovoy   29 Jun 2003 09:57:32   помогите, это пpосто! :)   Nikita Melikhov   30 Jun 2003 07:20:54   помогите, это пpосто! :)   Yura Balyuk   02 Jul 2003 13:11:03