home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / os / msdos / programm / 10734 < prev    next >
Encoding:
Internet Message Format  |  1992-11-18  |  1.4 KB
  1. Path: sparky!uunet!usc!zaphod.mps.ohio-state.edu!uwm.edu!linac!uchinews!machine!ddsw1!infopls!rhps!warlok
  2. From: warlok@rhps.chi.il.us (Jon L Fincher)
  3. Newsgroups: comp.os.msdos.programmer
  4. Subject: Re: Line drawing algorithm wanted
  5. Message-ID: <gmycuB8w165w@rhps.chi.il.us>
  6. Date: Mon, 16 Nov 92 18:45:27 CST
  7. References: <17514@mindlink.bc.ca>
  8. Organization: CrissySoft Incorporated
  9. Lines: 44
  10.  
  11. Damon_Harper@mindlink.bc.ca (Damon Harper) writes:
  12.  
  13. > A request:
  14. > d
  15. > Could someone please post or send me a simple line-drawing algorithm, in C or
  16. > non-language-specific, it doesn't matter, the method is all I want.  Thanks.
  17. > 
  18. >  ---    ---
  19. > damon harper            Damon_Harper@mindlink.bc.ca
  20. >  ---    ---
  21.  
  22. The following routine is in Pascal (pseudo-code) and follows Bresenham's
  23. algorithm from the book "Computer Graphics" by Donald Hearn and M. Pauline
  24. Baker:
  25.  
  26. procedure bres_line(x1,y1,x2,y2:integer);
  27. var
  28.   dx,dy,x,y,x_end,p,const1,const2:integer;
  29. begin
  30.   dx := abs (x1-x2);  dy:=abs(y1-y2);
  31.   p := 2*dy-dx;
  32.   const1 := 2* dy;  const2 := 2* (dy-dx);
  33.  
  34.   if x1>x2 then begin
  35.     x := x2;  y:=y2;  x_end:=x1;
  36.   end
  37.   else begin
  38.     x:=x1;  y:=y1;  x_end:=x2;
  39.   end
  40.   set_pixel(x,y);   (* you supply this one, just set a pixel *)
  41.   while x<x_end do begin
  42.     x:=x+1;
  43.     if p<0 then p:=p+const1;
  44.   else begin
  45.       y:=y+1;
  46.       p:=p+const2;
  47.     end;
  48.     set_pixel(x,y);
  49.   end
  50. end;
  51.  
  52. Hope it helps.  Sorry if some C syntax creeped in...
  53.  
  54. J.L.Fincher, Warlok
  55.