Sorry your browser is not supported!

repeat
   cls

   if mouseclick() = 1 and flag = 0
      flag = 1
      x1 = mousex()
      y1 = mousey()
   endif

   if mouseclick() = 1 and flag = 1
      x2 = mousex()
      y2 = mousey()
   endif

   if mouseclick() = 0 then flag = 0


   bLine(x1,y1,x2,y2)
   `line x1,y1,x2,y2




until spacekey()


function bLine(x1,y1,x2,y2)
   x = x1
   y = y1
   deltax = x2 - x1
   deltay = y2 - y1

   d = (2 * deltay) - deltax

   d1 = 2*deltay
   d2 = 2*(deltay-deltax)

   for t = x1 to x2
      dot x,y

      if d < 0
         d = d + d1
      else
         d = d + d2
         y = y+1
      endif
      x = x + 1
   next t
endfunction

repeat
   cls

   if mouseclick() = 1 and flag = 0
      flag = 1
      x1 = mousex()
      y1 = mousey()
   endif

   if mouseclick() = 1 and flag = 1
      x2 = mousex()
      y2 = mousey()
   endif

   if mouseclick() = 0 then flag = 0


   bLine(x1,y1,x2,y2)
   `line x1,y1,x2,y2




until spacekey()

function bline(x1,y1,x2,y2)
   deltax = x1-x2
   deltay = y1-y2
   if abs(deltax) > abs(deltay)
      tx2=x2
      ty2=y2
      tx1=x1
      ty1=y1
      if x2 > x1
         tx2 = x1
         ty2 = y1
         tx1 = x2
         ty1 = y2
         deltax = tx1-tx2
         deltay = ty1-ty2
      endif
      adder= deltay*100000.0/deltax
      accumy = ty2*100000.0
      for x = tx2 to tx1
         y = accumy/100000.0;
         dot x,y
         inc accumy,adder
      next x
   else
      tx2=x2
      ty2=y2
      tx1=x1
      ty1=y1
      if y2 > y1
         tx2 = x1
         ty2 = y1
         tx1 = x2
         ty1 = y2
         deltax = tx1-tx2
         deltay = ty1-ty2
      endif
      adder= deltax*100000.0/deltay
      accumx= tx2*100000.0
      for y = ty2 to ty1
         x = accumx/100000.0;
         dot x,y
         inc accumx,adder;
      next y
   endif
endfunction 1

function bline(x1,y1,x2,y2)
   dx = x2-x1
   dy = y2-y1

   dot x1,y1

   if abs(dx) > abs(dy)
      m# = (0.0 + dy)/dx
      b# = y1 - m#*x1

      if dx < 0
         dx = -1
      else
         dx = 1
      endif
      while x1 <> x2
         x1 = x1 + dx
         dot x1,m#*x1+b#
      endwhile
   else
      if dy <> 0
         m# = (0.0 + dx)/dy
         b# = x1 - m#*y1
         if dy < 0
            dy = -1
         else
            dy = 1
         endif
         while y1 <> y2
            y1 = y1 + dy
            dot m#*y1+b#,y1
         endwhile
      endif
   endif
endfunction