Data update

Task/Bitmap-Bresenhams-line-algorithm/EasyLang/bitmap-bresenhams-line-algorithm.easy

@@ -0,0 +1,37 @@
+proc pset x y . .
+   move x / 4 y / 4
+   rect 0.25 0.25
+.
+proc drawline x0 y0 x1 y1 . .
+   dx = abs (x1 - x0)
+   sx = -1
+   if x0 < x1
+      sx = 1
+   .
+   dy = abs (y1 - y0)
+   sy = -1
+   if y0 < y1
+      sy = 1
+   .
+   err = -dy div 2
+   if dx > dy
+      err = dx div 2
+   .
+   repeat
+      pset x0 y0
+      until x0 = x1 and y0 = y1
+      e2 = err
+      if e2 > -dx
+         err -= dy
+         x0 += sx
+      .
+      if e2 < dy
+         err += dx
+         y0 += sy
+      .
+   .
+.
+drawline 200 10 100 200
+drawline 100 200 200 390
+drawline 200 390 300 200
+drawline 300 200 200 10

Task/Bitmap-Bresenhams-line-algorithm/MiniScript/bitmap-bresenhams-line-algorithm.mini

@@ -0,0 +1,38 @@
+drawLine = function(img, x0, y0, x1, y1, colr)
+	sign = function(a, b)
+		if a < b then return 1
+		return -1
+	end function
+	
+	dx = abs(x1 - x0)
+	sx = sign(x0, x1)
+	
+	dy = abs(y1 - y0)
+	sy = sign(y0, y1)
+	
+	if dx > dy then
+		err = dx
+	else
+		err = -dy
+	end if
+	err = floor(err / 2)
+	
+	while true
+		img.setPixel x0, y0, colr
+		if x0 == x1 and y0 == y1 then break
+		e2 = err
+		if e2 > -dx then
+			err -= dy
+			x0 += sx
+		end if
+		if e2 < dy then
+			err += dx
+			y0 += sy
+		end if
+	end while
+end function
+
+img= Image.create(320, 320)
+drawLine img, 0, 0, 250, 300, color.red
+gfx.clear
+gfx.drawImage img, 0, 0